hostside/lib.tcl: new setexpr and addexpr commands

diff --git a/hostside/lib.tcl b/hostside/lib.tcl
index a0f711a4635742157db433bb94cb7133c8c23a5e..a1ec56291447690ceb70984bba1d6b72f26bd46c 100644 (file)
--- a/hostside/lib.tcl
+++ b/hostside/lib.tcl
@@ -74,5 +74,17 @@ proc get-unique {prefix} {
     return "$prefix[incr ix]"
 }
 
+proc addexpr {varname expr} {
+    set add [uplevel 1 expr $expr]
+    upvar 1 $varname var
+    if {![info exists var]} { set var 0 }
+    set var [expr {$var + $add}]
+}
+
+proc setexpr {varname expr} {
+    upvar 1 $varname var
+    set var [uplevel 1 expr $expr]
+}
+
 setting port 2883 {\d+}