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

Add utils.tcl, minor edits to switchboxes minitests 

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-10 21:07:20 +01:00 committed by Tim 'mithro' Ansell
parent 2fc2c0274d
commit 6f88afe92a
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minitests/switchboxes/runme.tcl
View File

@ -46,7 +46,7 @@ proc tile_pip_report {fd tile_name} {
set src_span [llength [get_tiles -of_objects $src_node]]
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
}
foreach pip [get_pips -filter "TILE != $tile" -uphill -of_objects $dst_node] {
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
puts $fd " Outside Source PIP: $pip"
}
}
@ -69,7 +69,7 @@ proc tile_pip_report {fd tile_name} {
set src_span [llength [get_tiles -of_objects $src_node]]
puts $fd " Source Wire (Node, Span): $src ($src_node, $src_span) via $pip"
}
foreach pip [get_pips -filter "TILE != $tile" -uphill -of_objects $dst_node] {
foreach pip [get_pips -quiet -filter "TILE != $tile" -uphill -of_objects $dst_node] {
puts $fd " Outside Source PIP: $pip"
}
}

9
utils/utils.tcl Normal file
View File

@ -0,0 +1,9 @@
proc route_via {net nodes} {
# FIXME
}
proc putl {lst} {
foreach line $lst {puts $line}
}