Merge pull request #1877 from Pinata-Consulting/cts-tcl-nit

maliberty · web-flow · commit b3221d831f0e · 2024-03-25T10:43:15.000-07:00
cts: tcl nit cleanup, avoid copy and paste of it later
diff --git a/flow/scripts/cts.tcl b/flow/scripts/cts.tcl
@@ -18,15 +18,15 @@ set cts_args [list \
           -balance_levels]
 
 if {[info exist ::env(CTS_BUF_DISTANCE)]} {
-  lappend cts_args -distance_between_buffers "$::env(CTS_BUF_DISTANCE)"
+  lappend cts_args -distance_between_buffers $::env(CTS_BUF_DISTANCE)
 }
 
 if {[info exist ::env(CTS_CLUSTER_SIZE)]} {
-  lappend cts_args -sink_clustering_size "$::env(CTS_CLUSTER_SIZE)"
+  lappend cts_args -sink_clustering_size $::env(CTS_CLUSTER_SIZE)
 }
 
 if {[info exist ::env(CTS_CLUSTER_DIAMETER)]} {
-  lappend cts_args -sink_clustering_max_diameter "$::env(CTS_CLUSTER_DIAMETER)"
+  lappend cts_args -sink_clustering_max_diameter $::env(CTS_CLUSTER_DIAMETER)
 }
 
 if {[info exist ::env(CTS_ARGS)]} {

Original file line number	Diff line number	Diff line change
`@@ -18,15 +18,15 @@ set cts_args [list \`
`18`	`18`	`-balance_levels]`
`19`	`19`
`20`	`20`	`if {[info exist ::env(CTS_BUF_DISTANCE)]} {`
`21`		`- lappend cts_args -distance_between_buffers "$::env(CTS_BUF_DISTANCE)"`
	`21`	`+ lappend cts_args -distance_between_buffers $::env(CTS_BUF_DISTANCE)`
`22`	`22`	`}`
`23`	`23`
`24`	`24`	`if {[info exist ::env(CTS_CLUSTER_SIZE)]} {`
`25`		`- lappend cts_args -sink_clustering_size "$::env(CTS_CLUSTER_SIZE)"`
	`25`	`+ lappend cts_args -sink_clustering_size $::env(CTS_CLUSTER_SIZE)`
`26`	`26`	`}`
`27`	`27`
`28`	`28`	`if {[info exist ::env(CTS_CLUSTER_DIAMETER)]} {`
`29`		`- lappend cts_args -sink_clustering_max_diameter "$::env(CTS_CLUSTER_DIAMETER)"`
	`29`	`+ lappend cts_args -sink_clustering_max_diameter $::env(CTS_CLUSTER_DIAMETER)`
`30`	`30`	`}`
`31`	`31`
`32`	`32`	`if {[info exist ::env(CTS_ARGS)]} {`