From 9fb25debd7537c5aea235fca2cb27d95ee0bc0f0 Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Thu, 7 Apr 2022 16:25:40 -0700
Subject: [PATCH] max_slew/cap/fanout_check slack/limit convenience functions

Signed-off-by: James Cherry <cherry@parallaxsw.com>
---
 tcl/Search.tcl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tcl/Search.tcl b/tcl/Search.tcl
index a71e6872..64a3b636 100644
--- a/tcl/Search.tcl
+++ b/tcl/Search.tcl
@@ -1104,5 +1104,23 @@ proc report_clock_min_period { args } {
   }
 }
 
+
+################################################################
+
+# max slew slack / limit
+proc max_slew_check_slack_limit {} {
+  return [eval [sta::max_slew_check_slack] / [sta::max_slew_check_limit]]
+}
+
+# max cap slack / limit
+proc max_capacitance_check_slack_limit {} {
+  return [eval [sta::max_capacitance_check_slack] / [sta::max_capacitance_check_limit]]
+}
+
+# max fanout slack / limit
+proc max_fanout_check_slack_limit {} {
+  return [eval [sta::max_fanout_check_slack] / [sta::max_fanout_check_limit]]
+}
+
 # sta namespace end.
 }