line-length: fix write_net_rc

Signed-off-by: Jack Luar <[email protected]>

Author: luarss

flow/util/write_net_rc.tcl

@@ -71,8 +71,12 @@ proc write_rc_csv { filename } {
       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
-      puts -nonewline $stream "[get_full_name $net],[expr { [string equal $type "CLOCK"] ? "clock" : "signal" }],"
-      puts -nonewline $stream "[format %.3e $wire_res1],[format %.3e $wire_cap1],[format %.3e $wire_res2],[format %.3e $wire_cap2],[format %.3e $wire_res3],[format %.3e $wire_cap3]"
+      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]]
       set db_net [sta::sta_to_db_net $net]
 
       if { $use_drt_data } {
@@ -142,7 +146,8 @@ proc compare_wire_rc { count var_name ref_var_name } {
   # implicit arg to net_var_cap_less
   set var_cap_less_name $ref_var_name
   set nets [lsort -command net_var_cap_less [get_nets *]]
-  puts "net                 fanout    [format %5s $var_name]    [format %5s $ref_var_name]  wire total   [format %5s $var_name]    [format %5s $ref_var_name]"
+  puts "net                 fanout    [format %4s $var_name]    [format %5s $ref_var_name] \
+        wire total   [format %5s $var_name]    [format %5s $ref_var_name]"
   puts "                                cap      cap delta delta     res      res delta"
   set res_sum 0.0
   set res_count 0
@@ -163,16 +168,20 @@ proc compare_wire_rc { count var_name ref_var_name } {
   set res_avg [expr $res_sum / $count]
   set cap_avg [expr $cap_sum / $count]
   set total_cap_avg [expr $total_cap_sum / $count]
-  puts "                                             ----- -----                  -----"
-  puts "                                             [format %+4.0f $cap_avg]% [format %+4.0f $total_cap_avg]%                  [format %+4.0f $res_avg]%"
+  puts "                                            \
+        ----- -----                  -----"
+  puts "                                            \
+        [format %+4.0f $cap_avg]% [format %+4.0f $total_cap_avg]%\
+        [format %+4.0f $res_avg]%"
 }
 
 proc compare_net_wire_rc { net_name var_name ref_var_name } {
   upvar 1 $var_name cap_var
   upvar 1 $ref_var_name ref_var
   global var_cap_less_name
 
-  puts "net                 fanout    [format %5s $var_name]    [format %5s $ref_var_name]  wire total"
+  puts "net                 fanout    [format %5s $var_name]    [format %5s $ref_var_name] \
+        wire total"
   puts "                                cap      cap delta delta"
   compare_wire_rc1 [get_net $net_name] $var_name $ref_var_name
 }
@@ -210,9 +219,20 @@ proc compare_wire_rc1 { net var_name ref_var_name } {
 
   set fanout [llength [get_pins -of $net -filter "direction == input"]]
 
-  puts -nonewline "[format %-20s $net_name] [format %5d $fanout] [format %8s [sta::format_capacitance $wire_cap 3]] [format %8s [sta::format_capacitance $wire_cap_ref 3]] [format %4.0f $cap_delta]% [format %4.0f $total_delta]%"
+  puts -nonewline [concat \
+    [format "%-20s" $net_name] " " \
+    [format "%5d" $fanout] " " \
+    [format "%8s" [sta::format_capacitance $wire_cap 3]] " " \
+    [format "%8s" [sta::format_capacitance $wire_cap_ref 3]] " " \
+    [format "%4.0f" $cap_delta]% " " \
+    [format "%4.0f" $total_delta]% \
+  ]
   if { $res > 0.0 } {
-    puts "[format %8s [sta::format_resistance $res 3]] [format %8s [sta::format_resistance $res_ref 3]] [format %4.0f $res_delta]%"
+    puts [concat \
+      [format "%8s" [sta::format_resistance $res 3]] " " \
+      [format "%8s" [sta::format_resistance $res_ref 3]] " " \
+      [format "%4.0f" $res_delta]% \
+    ]
   } else {
     puts ""
   }
@@ -231,8 +251,14 @@ proc write_layer_rc_cmds { adjustment } {
       set cap_edge [$layer getEdgeCapacitance]
       set cap_area [$layer getCapacitance]
       # Convert pF/um to F/um.
-      set cap [expr ($cap_edge * 2.0 + $wire_width * $cap_area) * 1e-12 / (1.0 + $adjustment / 100.0)]
-      puts "set_layer_rc -layer [$layer getConstName] -resistance [format %.4e [sta::resistance_sta_ui $res]] -capacitance [format %.4e [sta::capacitance_sta_ui $cap]]"
+      set cap [expr \
+        ($cap_edge * 2.0 + $wire_width * $cap_area) * 1e-12 / (1.0 + $adjustment / 100.0) \
+      ]
+      puts [concat \
+        "set_layer_rc -layer [$layer getConstName] " \
+        "-resistance [format %.4e [sta::resistance_sta_ui $res]] " \
+        "-capacitance [format %.4e [sta::capacitance_sta_ui $cap]]" \
+      ]
     }
   }
 }