chiark
/
gitweb
/
~ijackson
/
trains.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
hostside: lib.tcl: new defset command
[trains.git]
/
hostside
/
lib.tcl
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+}