where-vessels: WIP argument parsing; library load changes

[ypp-sc-tools.web-live.git] / yarrg / yarrglib.tcl

diff --git a/yarrg/yarrglib.tcl b/yarrg/yarrglib.tcl
new file mode 100644 (file)
index 0000000..e1bf6e8
--- /dev/null
+++ b/yarrg/yarrglib.tcl
@@ -0,0 +1,8 @@
+package provide yarrglib 0.1;
+
+proc manyset {list args} {
+    foreach val $list var $args {
+        upvar 1 $var my
+        set my $val
+    }
+}