Buildtins, arrays, string (no X86 yet), tests

regression/orig/test035.log

@@ -0,0 +1,8 @@
+> 10
+20
+30
+40
+0
+1
+2
+3

regression/orig/test036.log

@@ -0,0 +1,16 @@
+> 97
+98
+99
+100
+101
+102
+103
+104
+97
+97
+97
+97
+97
+97
+97
+97

regression/test034.expr

@@ -14,6 +14,4 @@ for i:=0, i<x.length, i:=i+1 do
   x[i] := x[i]+2  
 od;
 
-printString (x);
-
-printString (strcat ("abc", "def"))
+printString (x)

regression/test035.expr

@@ -0,0 +1,21 @@
+fun printArray (x) local elem {
+  if x.length == 0 then return fi;
+  for i:=0, i<x.length, i:=i+1 do
+    write (x[i])
+  od
+}
+
+n := read ();
+
+x := [10, 20, 30, 40];
+
+printArray (x);
+
+for i:=0, i<x.length, i:=i+1 do
+  x[i] := i
+od;
+
+printArray (x)
+
+
+

regression/test035.input

@@ -0,0 +1 @@
+0

regression/test036.expr

@@ -0,0 +1,21 @@
+fun printAS (x) local i, j {
+  for i := 0, i<x.length, i:=i+1 do
+    for j := 0, j<x[i].length, j:=j+1 do
+      write (x[i][j])
+    od
+  od
+}
+
+y := read ();
+
+x := ["abcd", "efgh"];
+
+printAS (x);
+
+for i := 0, i<x.length, i:=i+1 do
+  for j := 0, j<x[i].length, j:=j+1 do
+    x[i][j] := 'a'
+  od
+od;
+
+printAS (x)

regression/test036.input

@@ -0,0 +1 @@
+0