first pass of [append]

partcl · Nov 28, 2009 · b1b5426 · b1b5426
1 parent ebae878
commit b1b5426
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/PmTcl/Commands.pm b/src/PmTcl/Commands.pm
@@ -1,4 +1,15 @@
 
+our sub append($var, *@args) {
+    my $lexpad := pir::find_dynamic_lex__Ps('%LEXPAD');
+
+    my $result := $lexpad{$var};
+    while @args {
+        $result := $result ~ @args.shift;
+    }
+
+    set($var, $result);
+}
+
 our sub catch($code, $varname?) {
     my $retval := 0; # TCL_OK
     my $result;