From 316824542c6ebeb817eed0e1085d67444fe9e11e Mon Sep 17 00:00:00 2001
From: Clifford Wolf <clifford@clifford.at>
Date: Mon, 13 Nov 2017 23:05:49 +0100
Subject: [PATCH] Add tile_wire_pairs utility function

Signed-off-by: Clifford Wolf <clifford@clifford.at>
Signed-off-by: Tim 'mithro' Ansell <mithro@mithis.com>
---
 utils/utils.tcl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/utils/utils.tcl b/utils/utils.tcl
index 442f8279..7e51ac81 100644
--- a/utils/utils.tcl
+++ b/utils/utils.tcl
@@ -24,6 +24,16 @@ proc route_via {net nodes} {
 	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} {
 	set rlst {}
 	for {set i 0} {$i<$num} {incr i} {