From 69337b26522ac99f287203b83d4a5b119edc8650 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 24 Mar 2026 09:12:50 +0100
Subject: [PATCH] implement ev_precision into ev0 procedure (return result
 rounded to ev_precision digits or return 0 if expression can not be evaluated
 due to syntax errors or unresolved parameters)

---
 src/xschem.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 86c735b0..bef292ff 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -668,7 +668,7 @@ proc to_eng {args} {
 }
 
 proc = {args} {
-  set r [ev7 $args]
+  set r [ev $args]
   puts $r
 }
 
@@ -699,9 +699,11 @@ proc ev {args} {
 
 ## evaluate expression. if expression has errors or does not evaluate return 0
 proc ev0 {args} {
+  global ev_precision
+  if {[info exists ev_precision]} {set pr $ev_precision} else {set pr 4}
   set i [join $args]
   if {![catch {uplevel #0 expr $i} res]} {
-    return [format %.4g $res]
+    return [format %.${pr}g $res]
   } else {
     # puts stderr "proc ev0: $res"
     return 0