hostside: lib.tcl: new defset command

diff --git a/hostside/lib.tcl b/hostside/lib.tcl
index 8978343c1e4e9ca314fa217c6d7c17452b1cb576..c34fd846233344e0c4d5735f9b94a72be639aac5 100644 (file)
--- a/hostside/lib.tcl
+++ b/hostside/lib.tcl
@@ -86,5 +86,11 @@ proc setexpr {varname expr} {
     set var [uplevel 1 [list expr $expr]]
 }
 
+proc defset {varname val} {
+    upvar 1 $varname var
+    if {[info exists var]} return
+    set var $val
+}
+
 setting port 2883 {\d+}