cts: tcl nit cleanup, avoid copy and paste of it later

oharboe · oharboe · commit bd1fa6b9d16a · 2024-03-24T16:46:58.000+01:00
rebuild

Signed-off-by: Øyvind Harboe &lt;oyvind.harboe@zylin.com&gt;
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)]} {`