Make built-in print statement accept multiple arguments. Add a test f…

…or this as well. Fix up order of arguments in AST.

src/gencode.c

@@ -1554,17 +1554,20 @@ gencode_print(M1_compiler *comp, m1_expression *expr) {
     m1_reg reg;
     m1_reg one;
 
-    gencode_expr(comp, expr);
+    m1_expression *iter = expr;
 
-    reg = popreg(comp->regstack);
-
     /* register to hold value "1" */    
     one = alloc_reg(comp, VAL_INT);    
-
     fprintf(OUT, "\tset_imm\tI%d, 0, 1\n",  one.no);
-    fprintf(OUT, "\tprint_%c\tI%d, %c%d, x\n", type_chars[(int)reg.type], one.no, 
-	                                       reg_chars[(int)reg.type], reg.no);
-
+
+    while (iter != NULL) {
+        gencode_expr(comp, iter);
+        reg = popreg(comp->regstack);
+
+        fprintf(OUT, "\tprint_%c\tI%d, %c%d, x\n", type_chars[(int)reg.type], one.no, 
+	                                               reg_chars[(int)reg.type], reg.no);
+        iter = iter->next;	                                               
+    }		
     free_reg(comp, one);
     free_reg(comp, reg);
 }

src/m1.y

@@ -666,7 +666,7 @@ catch_block : "catch" '(' TK_IDENT ')' block
 throw_stat  : "throw" expression ';'
             ;
 
-print_stat  : "print" '(' expression ')' ';'
+print_stat  : "print" '(' arguments ')' ';'
                 { $$ = printexpr((M1_compiler *)yyget_extra(yyscanner), $3); }
             ;
 
@@ -828,8 +828,11 @@ expr_list   : expression
             | expr_list ',' expression 
                 { 
                   /* link them in reverse order for now. */
-                  $3->next = $1;
-                  $$ = $3;   
+                  m1_expression *iter = $1;
+                  while (iter->next != NULL)
+                    iter = iter->next;
+                  iter->next = $3;
+                  $$ = $1;   
                 }
             ;                                                    
 

t/multiprint.m1

@@ -0,0 +1,3 @@
+void main() {
+    print("1..3\n", "ok 1\n", "ok 2\n", "ok 3\n");
+}