very simple implementation of foreach

partcl · Dec 24, 2009 · d904f49 · d904f49
1 parent 32cde5f
commit d904f49
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -201,7 +201,18 @@ our sub for(*@args) {
     '';
 }
 
+# TODO: do this correctly!  This is a very naive implementation.
 our sub foreach(*@args) {
+    if +@args == 0 || +@args % 2 == 0 {
+	error('wrong # args: should be "foreach varList list ?varList list ...? command"');
+    }
+    my $var := @args[0];
+    my @list := split(@args[1],' ');
+    my $body := @args.pop;		# Body is always last
+    for @list -> $val {
+	set($var,$val);
+	eval($body);
+    }
 }
 
 our sub format(*@args) {

diff --git a/t/cmd_foreach.t b/t/cmd_foreach.t
@@ -9,7 +9,7 @@ eval_is {foreach} \
 
 eval_is {foreach a b q {puts $a}} \
   {wrong # args: should be "foreach varList list ?varList list ...? command"} \
-  {uneven # of args}
+  {even # of args}
 
 eval_is {foreach {} {a b c} {puts foo}} \
   {foreach varlist is empty} \