scripts: use env_var_equals for consistency

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

Author: oharboe

flow/scripts/detail_place.tcl

@@ -6,7 +6,7 @@ source $::env(PLATFORM_DIR)/setRC.tcl
 
 proc do_dpl {} {
   # Only for use with hybrid rows
-  if {[info exists ::env(BALANCE_ROWS)] && $::env(BALANCE_ROWS)} {
+  if {[env_var_equals BALANCE_ROWS 1]} {
     balance_row_usage
   }
 
@@ -15,7 +15,7 @@ proc do_dpl {} {
       -right $::env(CELL_PAD_IN_SITES_DETAIL_PLACEMENT)
   detailed_placement
 
-  if {[info exists ::env(ENABLE_DPO)] && $::env(ENABLE_DPO)} {
+  if {[env_var_equals ENABLE_DPO 1]} {
     if {[info exist ::env(DPO_MAX_DISPLACEMENT)]} {
       improve_placement -max_displacement $::env(DPO_MAX_DISPLACEMENT)
     } else {

flow/scripts/load.tcl

@@ -36,7 +36,7 @@ proc load_design {design_file sdc_file} {
 
   source $::env(PLATFORM_DIR)/setRC.tcl
 
-  if { [info exists ::env(LIB_MODEL)] && $::env(LIB_MODEL) == "CCS" } {
+  if { [env_var_equals LIB_MODEL CCS] } {
     puts "Using CCS delay calculation"
     set_delay_calculator prima
   }

flow/scripts/read_liberty.tcl

@@ -1,7 +1,7 @@
 # To remove [WARNING STA-1212] from the logs for ASAP7.
 # /OpenROAD-flow-scripts/flow/platforms/asap7/lib/asap7sc7p5t_SIMPLE_RVT_TT_nldm_211120.lib.gz line 13178, timing group from output port.
 # Added following suppress_message
-if {[info exists ::env(PLATFORM)] && $::env(PLATFORM) == "asap7"} {
+if {[env_var_equals PLATFORM asap7]} {
    suppress_message STA 1212
 }
 
@@ -24,6 +24,6 @@ if {[env_var_exists_and_non_empty CORNERS]} {
   }
 }
 
-if {[info exists ::env(PLATFORM)] && $::env(PLATFORM) == "asap7"} {
+if {[env_var_equals PLATFORM asap7]} {
    unsuppress_message STA 1212
 }

flow/scripts/report_metrics.tcl

@@ -7,7 +7,7 @@ proc report_puts { out } {
 }
 
 proc report_metrics { stage when {include_erc true} {include_clock_skew true} } {
-  if {[info exists ::env(SKIP_REPORT_METRICS)] && $::env(SKIP_REPORT_METRICS) == 1} {
+  if {[env_var_equals SKIP_REPORT_METRICS 1]} {
     return
   }
   puts "Report metrics stage $stage, $when..."