scripts: clean up cts

Signed-off-by: Øyvind Harboe <[email protected]>

Author: oharboe

flow/scripts/cts.tcl

@@ -17,25 +17,17 @@ set cts_args [list \
           -sink_clustering_enable \
           -balance_levels]
 
-if {[info exist ::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)
-}
-
-if {[info exist ::env(CTS_CLUSTER_DIAMETER)]} {
-  lappend cts_args -sink_clustering_max_diameter $::env(CTS_CLUSTER_DIAMETER)
-}
+append_env_var cts_args -distance_between_buffers CTS_BUF_DISTANCE 1
+append_env_var cts_args -sink_clustering_size CTS_CLUSTER_SIZE 1
+append_env_var cts_args -sink_clustering_max_diameter CTS_CLUSTER_DIAMETER 1
 
-if {[info exist ::env(CTS_ARGS)]} {
+if {[env_var_exists_and_non_empty CTS_ARGS]} {
   set cts_args $::env(CTS_ARGS)
 }
 
 log_cmd clock_tree_synthesis {*}$cts_args
 
-if {[info exist ::env(CTS_SNAPSHOTS)]} {
+if {[env_var_equals CTS_SNAPSHOTS 1]} {
   save_progress 4_1_pre_repair_clock_nets
 }
 
@@ -67,7 +59,7 @@ detailed_placement
 
 estimate_parasitics -placement
 
-if {[info exist ::env(CTS_SNAPSHOTS)]} {
+if {[env_var_equals CTS_SNAPSHOTS 1]} {
   save_progress 4_1_pre_repair_hold_setup
 }