Merge pull request #1997 from Pinata-Consulting/ppl-interactive-tweaking

ppl interactive tweaking

flow/scripts/io_placement.tcl

@@ -1,15 +1,6 @@
 source $::env(SCRIPTS_DIR)/load.tcl
 load_design 3_1_place_gp_skip_io.odb 2_floorplan.sdc
 
-if {[info exists ::env(FLOORPLAN_DEF)]} {
-    puts "Skipping IO placement as DEF file was used to initialize floorplan."
-} else {
-  if {[info exists ::env(IO_CONSTRAINTS)]} {
-    source $::env(IO_CONSTRAINTS)
-  }
-  place_pins -hor_layer $::env(IO_PLACER_H) \
-           -ver_layer $::env(IO_PLACER_V) \
-           {*}$::env(PLACE_PINS_ARGS)
-}
+source $::env(SCRIPTS_DIR)/io_placement_util.tcl
 
 write_db $::env(RESULTS_DIR)/3_2_place_iop.odb

flow/scripts/io_placement_random.tcl

@@ -1,16 +1,8 @@
 source $::env(SCRIPTS_DIR)/load.tcl
 load_design 2_1_floorplan.odb 1_synth.sdc
 
-if {[info exists ::env(FLOORPLAN_DEF)]} {
-    puts "Skipping IO placement as DEF file was used to initialize floorplan."
-} else {
-  if {[info exists ::env(IO_CONSTRAINTS)]} {
-    source $::env(IO_CONSTRAINTS)
-  }
-  place_pins -hor_layer $::env(IO_PLACER_H) \
-           -ver_layer $::env(IO_PLACER_V) \
-           -random \
-           {*}$::env(PLACE_PINS_ARGS)
-}
+lappend ::env(PLACE_PINS_ARGS) -random
+
+source $::env(SCRIPTS_DIR)/io_placement_util.tcl
 
 write_db $::env(RESULTS_DIR)/2_2_floorplan_io.odb

flow/scripts/io_placement_util.tcl

@@ -0,0 +1,12 @@
+if {[info exists ::env(FLOORPLAN_DEF)]} {
+    puts "Skipping IO placement as DEF file was used to initialize floorplan."
+} else {
+  if {[info exists ::env(IO_CONSTRAINTS)]} {
+    source $::env(IO_CONSTRAINTS)
+  }
+  set args [list -hor_layer $::env(IO_PLACER_H) \
+           -ver_layer $::env(IO_PLACER_V) \
+           {*}$::env(PLACE_PINS_ARGS)]
+  puts "place_pins [join $args " "]"
+  place_pins {*}$args
+}