luke
/
prjxray
mirror of https://github.com/openXC7/prjxray.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add tile_wire_pairs utility function 

Signed-off-by: Clifford Wolf <clifford@clifford.at>
Signed-off-by: Tim 'mithro' Ansell <mithro@mithis.com>
This commit is contained in:
Clifford Wolf 2017-11-13 23:05:49 +01:00 committed by Tim 'mithro' Ansell
parent f2214a4917
commit 316824542c
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/utils.tcl
View File

@ -24,6 +24,16 @@ proc route_via {net nodes} {
puts "" puts ""
} }
proc tile_wire_pairs {tile1 tile2} {
set tile1 [get_tiles $tile1]
set tile2 [get_tiles $tile2]
foreach wire1 [lsort [get_wires -of_objects $tile1]] {
set wire2 [get_wires -quiet -filter "TILE_NAME == $tile2" -of_objects [get_nodes -quiet -of_objects $wire1]]
if {$wire2 != ""} {puts "$wire1 $wire2"}
}
}
proc randsample_list {num lst} { proc randsample_list {num lst} {
set rlst {} set rlst {}
for {set i 0} {$i<$num} {incr i} { for {set i 0} {$i<$num} {incr i} {