add string literals

[cc1516.git] / examples / codeGen.spl

diff --git a/examples/codeGen.spl b/examples/codeGen.spl
index e92260f..7e78897 100644 (file)
--- a/examples/codeGen.spl
+++ b/examples/codeGen.spl
@@ -26,6 +26,15 @@ isE(x) :: [a] -> Bool {
     }
 }
 
+test() {
+    var x =print(5);
+    var f = read;
+    var y = read();
+    print(True);
+    print('a');
+    print('h' : 'o' : 'i' : []);
+}
+
 main() {
  //   [Int] x2 = 0 : x1;
  //   [Int] x3 = [];
@@ -33,6 +42,14 @@ main() {
  //   //Bool y1 = isEmpty(x2); //gives weird type error, not sure why
 //    isEmpty(x2);
     [Int] x1 = 8 : 2 : [];
-       isE(True).hd;
-    return x1.hd;
+    (Bool, Int) z = (True, 2);
+       var y = z.fst;
+    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;
 }