X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fyarrglib.tcl;fp=yarrg%2Fyarrglib.tcl;h=e1bf6e8b0fbe866d1d7cbd86a0b87c9d84278d87;hb=a3e622dcc14fab97218a81444355aea6734b4004;hp=0000000000000000000000000000000000000000;hpb=d20804748f46e3687d947cc664644c2b6518f954;p=ypp-sc-tools.web-live.git

diff --git a/yarrg/yarrglib.tcl b/yarrg/yarrglib.tcl
new file mode 100644
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
+    }
+}