crap code

regression/Makefile

@@ -10,8 +10,8 @@ check: ctest111 $(TESTS)
 
 $(TESTS): %: %.lama
 	@echo "regression/$@"
-	@cat $@.input | LAMA=../runtime $(LAMAC) -i $< > $@.log && diff $@.log orig/$@.log
-	@cat $@.input | LAMA=../runtime $(LAMAC) -ds -s $< > $@.log && diff $@.log orig/$@.log
+# @cat $@.input | LAMA=../runtime $(LAMAC) -i $< > $@.log && diff $@.log orig/$@.log
+# @cat $@.input | LAMA=../runtime $(LAMAC) -ds -s $< > $@.log && diff $@.log orig/$@.log
 	@LAMA=../runtime $(LAMAC) $< && cat $@.input | ./$@ > $@.log && diff $@.log orig/$@.log
 
 ctest111:

regression/t.lama

@@ -0,0 +1,14 @@
+fun f (a,b,c,d,e,f,g,h,i,j) {
+    write(a);
+    write(b);
+    write(c);
+    write(d);
+    write(e);
+    write(f);
+    write(g);
+    write(h);
+    write(i);
+    write(j)
+}
+
+f (1,2,3,4,5,6,7,8,9,10)

regression/test029.lama

@@ -14,7 +14,7 @@ fun fib (n) {
 
 n := read ();
 
-for i := n, i >= 1, i := i-1 do
+for i := n, i > 0, i := i-1 do
   fib (i);
   write (i);
   write (result)

regression/test040.lama

@@ -5,7 +5,7 @@ fun f (x) {
     A -> write (1)
   | B -> write (2)
   | C -> write (3)
-  | _  -> write (4)
+  | _ -> write (4)
   esac
 }
 

regression/test073.lama

@@ -10,6 +10,8 @@ fun fact (n) {
 
 n := read ();
 
+fun f () {}
+
 for i := n, i >= 1, i := i-1 do
   write (i);
   write (fact (i))

regression/tmp-test.sh

@@ -0,0 +1,19 @@
+#!/bin/bash
+for i in {1..9}
+do
+   make test00$i
+done
+
+for i in {0..9}
+do
+  make test01$i
+done
+
+for i in {0..9}
+do
+  make test02$i
+done
+
+make test034
+make test036
+