util: move find_macros to util.tcl

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

Author: oharboe

flow/platforms/asap7/openRoad/pdn/BLOCKS_grid_strategy.tcl

@@ -1,4 +1,5 @@
 # Top level PDN for macros using BLOCK_grid_strategy.tcl
+source $::env(SCRIPTS_DIR)/util.tcl
 
 ####################################
 # global connections

flow/scripts/macro_place_util.tcl

@@ -1,19 +1,3 @@
-proc find_macros {} {
-  set macros ""
-
-  set db [ord::get_db]
-  set block [[$db getChip] getBlock]
-  foreach inst [$block getInsts] {
-    set inst_master [$inst getMaster]
-
-    # BLOCK means MACRO cells
-    if { [string match [$inst_master getType] "BLOCK"] } {
-      append macros " " $inst
-    }
-  }
-  return $macros
-}
-
 if {[find_macros] != ""} {
 # If wrappers defined replace macros with their wrapped version
 # # ----------------------------------------------------------------------------

flow/scripts/util.tcl

@@ -83,3 +83,19 @@ proc append_env_var {list_name var_name prefix has_arg} {
     }
   }
 }
+
+proc find_macros {} {
+  set macros ""
+
+  set db [ord::get_db]
+  set block [[$db getChip] getBlock]
+  foreach inst [$block getInsts] {
+    set inst_master [$inst getMaster]
+
+    # BLOCK means MACRO cells
+    if { [string match [$inst_master getType] "BLOCK"] } {
+      append macros " " $inst
+    }
+  }
+  return $macros
+}