From 6f88afe92a1e190f6b443b0efab690f91e4b464c Mon Sep 17 00:00:00 2001 From: Clifford Wolf Date: Fri, 10 Nov 2017 21:07:20 +0100 Subject: [PATCH] Add utils.tcl, minor edits to switchboxes minitests Signed-off-by: Clifford Wolf Signed-off-by: Tim 'mithro' Ansell --- minitests/switchboxes/runme.tcl | 4 ++-- utils/utils.tcl | 9 +++++++++ 2 files changed, 11 insertions(+), 2 deletions(-) create mode 100644 utils/utils.tcl diff --git a/minitests/switchboxes/runme.tcl b/minitests/switchboxes/runme.tcl index 3814434d..b4072b92 100644 --- a/minitests/switchboxes/runme.tcl +++ b/minitests/switchboxes/runme.tcl @@ -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" } } diff --git a/utils/utils.tcl b/utils/utils.tcl new file mode 100644 index 00000000..e8f9d41c --- /dev/null +++ b/utils/utils.tcl @@ -0,0 +1,9 @@ + +proc route_via {net nodes} { + # FIXME +} + +proc putl {lst} { + foreach line $lst {puts $line} +} +