add string literals

[cc1516.git] / examples / codeGen.spl

diff --git a/examples/codeGen.spl b/examples/codeGen.spl
index 05773b3..7e78897 100644 (file)
--- a/examples/codeGen.spl
+++ b/examples/codeGen.spl
@@ -18,13 +18,22 @@
 //    return x3 + x1;
 //}
 
-//isE(x) :: [a] -> Bool {
-//    if (x == []) {
-//        return True;
-//    } else {
-//        return False;
-//    }
-//}
+isE(x) :: [a] -> Bool {
+    if (x == []) {
+        return True;
+    } else {
+        return False;
+    }
+}
+
+test() {
+    var x =print(5);
+    var f = read;
+    var y = read();
+    print(True);
+    print('a');
+    print('h' : 'o' : 'i' : []);
+}
 
 main() {
  //   [Int] x2 = 0 : x1;
@@ -35,7 +44,12 @@ main() {
     [Int] x1 = 8 : 2 : [];
     (Bool, Int) z = (True, 2);
        var y = z.fst;
-    var x = (True, 5);
-    x.snd = 8;
+    var x = (True, 5) : (False,0) : [];
+    var sdaf = isE(x1);
+    var z = isEmpty(x1);
+    //char c = read();
+    x.hd.snd = 8;
+    isE(x1);
+    print(4);
     return;
 }