From 64b39ffa29182ab64e66ed6a423c53a842c806ec Mon Sep 17 00:00:00 2001
From: Karol Gugala <kgugala@antmicro.com>
Date: Mon, 1 Apr 2019 21:11:36 +0200
Subject: [PATCH] utils.tcl: add get_tile_types function

Signed-off-by: Karol Gugala <kgugala@antmicro.com>
---
 utils/utils.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/utils/utils.tcl b/utils/utils.tcl
index 9fea66c1..34fd4e21 100644
--- a/utils/utils.tcl
+++ b/utils/utils.tcl
@@ -96,6 +96,19 @@ proc pblock_tiles {pblock} {
     return [get_tiles "$clb_tiles $int_tiles"]
 }
 
+# returns list of unique tile types
+proc get_tile_types {} {
+    set all_tiles [get_tiles]
+    set types {}
+    foreach tile $all_tiles {
+        set type [get_property TYPE $tile]
+        #ignore empty tiles
+        if {$type == "NULL"} { continue }
+        if {[lsearch -exact $types $type] == -1} {lappend types $type}
+    }
+    return $types
+}
+
 proc lintersect {lst1 lst2} {
     set rlst {}
     foreach el $lst1 {