initial commit

README.md

@@ -0,0 +1,18 @@
+# C-val Compiler
+
+## Lexical Spec
+
+* LBRACK `[`
+* RBRACK `]`
+* LCURLY `{`
+* RCURLY `}`
+* ID `[all]`
+* SEMI `;`
+* COMMA `,`
+* ARROW `->`
+* COMMENT `#`
+* NUM `[0-9]*(.[0-9]+)?`
+* RETURN `return`
+* IF `if`
+* ELSE `else`
+* STRING "{any}"

test.cval

@@ -0,0 +1,19 @@
+val int s 3; # global
+
+val [int->int] fib int n {
+    return if == n 0 {
+        1
+    } else {
+        n * fib 
+    };
+};
+
+val [->int] main {
+    val str line input;
+    val int n to_int line,;
+    if < n 0 {
+        print "ILLEGAL"
+    } else {
+        print to_str fib n,;
+    }
+};