mempool_group_place_pin.tcl

setPinAssignMode -pinEditInBatch true
set group_width [dbget top.fplan.box_sizex]
set group_height [dbget top.fplan.box_sizey]
set NUM_GROUPS 4
set NUM_TILES 16

proc place_tcdm_top_bus {bus direction index width start end layers} {
    global NUM_TILES
    global group_height

    # Number of ports per tile
    set ports_per_tile [expr $width / $NUM_TILES]

    # Which ports are we placing?
    set ports []

    # Shuffle the tiles to have the ports organized from left to right
    set tile_shuffle [list 0 1 8 9 2 3 10 11 4 5 12 13 6 7 14 15]

    if {$direction == "in"} {
        for {set tile 0} {$tile < $NUM_TILES} {incr tile} {
            set tile_sh [lindex $tile_shuffle $tile]

            for {set idx 0} {$idx < $ports_per_tile} {incr idx} {
				set act_idx [expr $index*$width + $ports_per_tile*$tile_sh + $ports_per_tile - 1 - $idx]
				set port_name [lindex [dbget top.terms.name ${bus}_i[$act_idx] -e] 0]
				if { $port_name != "" } {
					lappend ports $port_name
				}
			}
			
            foreach_in_collection port [get_ports ${bus}_valid_i[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
            foreach_in_collection port [get_ports ${bus}_ready_o[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
        }
    } else {
        for {set tile 0} {$tile < $NUM_TILES} {incr tile} {
            set tile_sh [lindex $tile_shuffle $tile]

            for {set idx 0} {$idx < $ports_per_tile} {incr idx} {
				set act_idx [expr $index*$width + $ports_per_tile*$tile_sh + $ports_per_tile - 1 - $idx]
				set port_name [lindex [dbget top.terms.name ${bus}_o[$act_idx] -e] 0]
				if { $port_name != "" } {
					lappend ports $port_name
				}
			}
			
            foreach_in_collection port [get_ports ${bus}_valid_o[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
            foreach_in_collection port [get_ports ${bus}_ready_i[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
        }
    }

    set num_ports [llength $ports]
    set offset    [expr ($end - $start)/$num_ports]
	
	set y [dbget top.fplan.box_ury]
	set pt1 [list $start $y]
	set pt2 [list $end $y]
	
	editPin -pin $ports -edge 1 -start $pt1 -end $pt2 -fixedPin -layer $layers -spreadDirection clockwise -pattern fill_optimised
    
}

proc place_tcdm_left_bus {bus direction index width start end layers} {
    global NUM_TILES
    global group_height

    # Number of ports per tile
    set ports_per_tile [expr $width / $NUM_TILES]

    # Shuffle the tiles to have the ports organized from top to bottom
    set tile_shuffle [list 8 9 12 13 10 11 14 15 2 3 6 7 0 1 4 5]

    # Which ports are we placing?
    set ports []
    if {$direction == "in"} {
        for {set tile 0} {$tile < $NUM_TILES} {incr tile} {
            set tile_sh [lindex $tile_shuffle $tile]

            for {set idx 0} {$idx < $ports_per_tile} {incr idx} {
				set act_idx [expr $index*$width + $ports_per_tile*$tile_sh + $ports_per_tile - 1 - $idx]
				set port_name [lindex [dbget top.terms.name ${bus}_i[$act_idx] -e] 0]
				if { $port_name != "" } {
					lappend ports $port_name
				}
			}
			
            foreach_in_collection port [get_ports ${bus}_valid_i[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
            foreach_in_collection port [get_ports ${bus}_ready_o[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
        }
    } else {
        for {set tile 0} {$tile < $NUM_TILES} {incr tile} {
            set tile_sh [lindex $tile_shuffle $tile]

            for {set idx 0} {$idx < $ports_per_tile} {incr idx} {
				set act_idx [expr $index*$width + $ports_per_tile*$tile_sh + $ports_per_tile - 1 - $idx]
				set port_name [lindex [dbget top.terms.name ${bus}_o[$act_idx] -e] 0]
				if { $port_name != "" } {
					lappend ports $port_name
				}
			}
			
            foreach_in_collection port [get_ports ${bus}_valid_o[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
            foreach_in_collection port [get_ports ${bus}_ready_i[[expr $tile_sh + $index*$NUM_TILES]]] {
                lappend ports [get_object_name $port]
            }
        }
    }

    set num_ports [llength $ports]
    set offset    [expr ($end - $start)/$num_ports]
    
	set x [dbget top.fplan.box_urx]
	set pt1 [list $x $start]
	set pt2 [list $x $end]
	
	editPin -pin $ports -edge 2 -start $pt1 -end $pt2 -fixedPin -layer $layers -spreadDirection counterclockwise -pattern fill_optimised
}



set master_req_bus_length  [expr [llength [get_object_name [get_ports tcdm_master_req_o*]]] / ($NUM_GROUPS - 1)]
set master_resp_bus_length [expr [llength [get_object_name [get_ports tcdm_master_resp_i*]]] / ($NUM_GROUPS - 1)]
set slave_req_bus_length   [expr [llength [get_object_name [get_ports tcdm_slave_req_i*]]] / ($NUM_GROUPS - 1)]
set slave_resp_bus_length  [expr [llength [get_object_name [get_ports tcdm_slave_resp_o*]]] / ($NUM_GROUPS - 1)]

# North
place_tcdm_top_bus tcdm_master_req            out 1 $master_req_bus_length  [expr 0.35*$group_width] [expr 0.51*$group_width] [list metal4 metal6]
place_tcdm_top_bus tcdm_slave_req             in  1 $slave_req_bus_length   [expr 0.35*$group_width] [expr 0.51*$group_width] [list metal6 metal8]
place_tcdm_top_bus tcdm_slave_resp            out 1 $slave_resp_bus_length  [expr 0.51*$group_width] [expr 0.67*$group_width] [list metal6 metal8]
place_tcdm_top_bus tcdm_master_resp           in  1 $master_resp_bus_length [expr 0.51*$group_width] [expr 0.67*$group_width] [list metal4 metal6]

# Northeast
place_tcdm_top_bus tcdm_slave_req             in  2 $slave_req_bus_length   [expr 0.67*$group_width] [expr 0.83*$group_width] [list metal4 metal6]
place_tcdm_top_bus tcdm_master_resp           in  2 $master_resp_bus_length [expr 0.67*$group_width] [expr 0.83*$group_width] [list metal6 metal8]

# set ports []
# lappend ports [get_object_name [get_ports clk_i* ]]
# lappend ports [get_object_name [get_ports rst_ni*]]
# set ports [list $ports [get_object_name [get_ports scan*]]]
# lappend ports [get_object_name [get_ports testmode*]]
# puts "Ports are $ports"

set ports {clk_i rst_ni scan_enable_i scan_data_i scan_data_o testmode_i dma_meta_o[0] dma_meta_o[1] group_id_i[0] group_id_i[1]}
set y [dbget top.fplan.box_ury]
set x1 [expr 0.45*$group_width]
set x2 [expr 0.55*$group_width]
set pt1 [list $x1 $y]
set pt2 [list $x2 $y]

editPin -pin $ports -edge 1 -start $pt1 -end $pt2 -fixedPin -layer [list metal4 metal6] -spreadDirection clockwise -pattern fill_optimised

# Northeast
place_tcdm_left_bus tcdm_master_req           out 2 $master_req_bus_length [expr 0.17*$group_height] [expr 0.33*$group_height] [list metal3 metal5]
place_tcdm_left_bus tcdm_slave_resp           out 2 $slave_resp_bus_length [expr 0.17*$group_height] [expr 0.33*$group_height] [list metal5 metal7]
# East
place_tcdm_left_bus tcdm_master_req           out 0 $master_req_bus_length  [expr 0.33*$group_height] [expr 0.49*$group_height] [list metal3 metal5]
place_tcdm_left_bus tcdm_slave_req            in  0 $slave_req_bus_length   [expr 0.33*$group_height] [expr 0.49*$group_height] [list metal5 metal7]
place_tcdm_left_bus tcdm_master_resp          in  0 $master_resp_bus_length [expr 0.49*$group_height] [expr 0.65*$group_height] [list metal3 metal5]
place_tcdm_left_bus tcdm_slave_resp           out 0 $slave_resp_bus_length  [expr 0.49*$group_height] [expr 0.65*$group_height] [list metal5 metal7]

set ports [dbget top.terms.name  *dma_req*]
set x [dbget top.fplan.box_urx]
set y1 [expr 0.66*$group_height]
set y2 [expr 0.80*$group_height]
set pt1 [list $x $y1]
set pt2 [list $x $y2]
editPin -pin $ports -edge 2 -start $pt1 -end $pt2 -fixedPin -layer [list metal3 metal5] -spreadDirection counterclockwise -pattern fill_optimised

set ports [dbget top.terms.name  *wake_up*]
set x [dbget top.fplan.box_llx]
set y1 [expr 0.17*$group_height]
set y2 [expr 0.32*$group_height]
set pt1 [list $x $y1]
set pt2 [list $x $y2]
editPin -pin $ports -edge 0 -start $pt1 -end $pt2 -fixedPin -layer [list metal3 metal5] -spreadDirection clockwise -pattern fill_optimised

set ports [dbget top.terms.name -regexp ".*axi.*|.*ro_cache.*"]
set x [dbget top.fplan.box_llx]
set y1 [expr 0.33*$group_height]
set y2 [expr 0.67*$group_height]
set pt1 [list $x $y1]
set pt2 [list $x $y2]
editPin -pin $ports -edge 0 -start $pt1 -end $pt2 -fixedPin -layer [list metal3 metal5] -spreadDirection clockwise -pattern fill_optimised

setPinAssignMode -pinEditInBatch false