From 9cb7222f56b08d1502063ec75fb3ea5b2b7dd066 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Mon, 6 Jul 2020 15:35:03 -0700
Subject: [PATCH] pin_location

---
 tcl/StaTcl.i | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index 4500e3a6..1a8bb558 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -5311,6 +5311,20 @@ delays_invalid()
   sta->delaysInvalid();
 }
 
+const char *
+pin_location(Pin *pin)
+{
+  Network *network = cmdNetwork();
+  double x, y;
+  bool exists;
+  network->location(pin, x, y, exists);
+  // return x/y as tcl list
+  if (exists)
+    return sta::stringPrintTmp("%f %f", x, y);
+  else
+    return "";
+}
+
 %} // inline
 
 ////////////////////////////////////////////////////////////////