From f92dcfc49b221a5d18d42b49b152aa3835e8ce8e Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 17 Sep 2024 16:55:26 +0200
Subject: [PATCH] add "proc ev7" (same as "proc ev", 7 significant digits)

---
 src/xschem.tcl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 8c85dea1..02094ed4 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -643,6 +643,18 @@ proc to_eng {args} {
   return $s
 }
 
+## evaluate expression with 7 significant digits.
+## if expression has errors or does not evaluate return expression as is
+proc ev7 {args} {
+  set i [join $args]
+  if {![catch {uplevel #0 expr $i} res]} {
+    return [format %.7g $res]
+  } else { 
+    # puts stderr "proc ev: $res"
+    return $args
+  }
+}   
+
 ## evaluate expression. if expression has errors or does not evaluate return expression as is
 proc ev {args} {
   set i [join $args]