Merge pull request #3942 from The-OpenROAD-Project-staging/write-net-rc-cmd-scene

use sta::cmd_scene instead of std::cmd_corner and minor renaming

Author: maliberty

flow/util/write_net_rc.tcl

@@ -33,9 +33,9 @@ proc report_var_caps { var_name count } {
 }
 
 proc write_rc_csv { filename } {
-  upvar 1 gpl rc_var1
-  upvar 1 grt rc_var2
-  upvar 1 rcx rc_var3
+  upvar 1 gpl gpl_net_name_to_rc
+  upvar 1 grt grt_net_name_to_rc
+  upvar 1 rcx rcx_net_name_to_rc
 
   set tech [ord::get_db_tech]
   set stream [open $filename "w"]
@@ -68,15 +68,15 @@ proc write_rc_csv { filename } {
       (!$use_drt_data || [$db_net getWire] ne "NULL")
     } {
       set net_name [get_full_name $net]
-      lassign $rc_var1($net_name) wire_res1 wire_cap1
-      lassign $rc_var2($net_name) wire_res2 wire_cap2
-      lassign $rc_var3($net_name) wire_res3 wire_cap3
+      lassign $gpl_net_name_to_rc($net_name) gpl_net_res gpl_net_cap
+      lassign $grt_net_name_to_rc($net_name) grt_net_res grt_net_cap
+      lassign $rcx_net_name_to_rc($net_name) rcx_net_res rcx_net_cap
       set net_type [expr { [string equal $type "CLOCK"] ? "clock" : "signal" }]
       puts -nonewline $stream "[get_full_name $net],$net_type,"
       puts -nonewline $stream [concat \
-        [format "%.3e" $wire_res1] "," [format "%.3e" $wire_cap1] "," \
-        [format "%.3e" $wire_res2] "," [format "%.3e" $wire_cap2] "," \
-        [format "%.3e" $wire_res3] "," [format "%.3e" $wire_cap3]]
+        [format "%.3e" $gpl_net_res] "," [format "%.3e" $gpl_net_cap] "," \
+        [format "%.3e" $grt_net_res] "," [format "%.3e" $grt_net_cap] "," \
+        [format "%.3e" $rcx_net_res] "," [format "%.3e" $rcx_net_cap]]
       set db_net [sta::sta_to_db_net $net]
 
       if { $use_drt_data } {
@@ -117,11 +117,11 @@ proc net_wire_res { net } {
 }
 
 proc net_wire_cap { net } {
-  return [$net wire_capacitance [sta::cmd_corner] max]
+  return [$net wire_capacitance [sta::cmd_scene] max]
 }
 
 proc net_pin_cap { net } {
-  return [$net pin_capacitance [sta::cmd_corner] max]
+  return [$net pin_capacitance [sta::cmd_scene] max]
 }
 
 proc net_wire_cap_less { net1 net2 } {