.

3 files changed, 52 insertions, 1 deletions

diff --git a/examples/generated.c b/examples/generated.c
index a428c03..e0c3b3b 100644
--- a/examples/generated.c
+++ b/examples/generated.c
@@ -1,6 +1,6 @@
 #include <csx.h>
 int main()
 {
-csx_run(csx_list(csx_name("do"),csx_list(csx_name("set"),csx_name("no"),csx_list(csx_name("fn"),csx_list(csx_name("x"),0),csx_list(csx_name("same"),csx_name("x"),csx_list(0),0),0),0),csx_list(csx_name("set"),csx_name("outint"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("if"),csx_list(csx_name("<"),csx_name("n"),csx_int(0),0),csx_list(csx_name("do"),csx_list(csx_name("out"),csx_int(45),0),csx_list(csx_name("outint"),csx_list(csx_name("neg"),csx_name("n"),0),0),0),csx_list(csx_name("if"),csx_list(csx_name("<"),csx_name("n"),csx_int(10),0),csx_list(csx_name("out"),csx_list(csx_name("+"),csx_int(48),csx_name("n"),0),0),csx_list(csx_name("do"),csx_list(csx_name("outint"),csx_list(csx_name("div"),csx_name("n"),csx_int(10),0),0),csx_list(csx_name("out"),csx_list(csx_name("+"),csx_int(48),csx_list(csx_name("mod"),csx_name("n"),csx_int(10),0),0),0),0),0),0),0),0),csx_list(csx_name("set"),csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("f"),csx_name("l"),0),csx_list(csx_name("if"),csx_list(csx_name("no"),csx_name("l"),0),csx_list(0),csx_list(csx_name("pair"),csx_list(csx_name("f"),csx_list(csx_name("head"),csx_name("l"),0),0),csx_list(csx_name("map"),csx_name("f"),csx_list(csx_name("tail"),csx_name("l"),0),0),0),0),0),0),csx_list(csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("outint"),csx_name("n"),0),csx_list(csx_name("out"),csx_int(10),0),0),csx_list(csx_name("quote"),csx_list(csx_int(99),csx_int(37),csx_int(73),csx_int(42),0),0),0),0));
+csx_run(csx_list(csx_name("do"),csx_list(csx_name("set"),csx_name("no"),csx_list(csx_name("fn"),csx_list(csx_name("x"),0),csx_list(csx_name("same"),csx_name("x"),csx_list(0),0),0),0),csx_list(csx_name("set"),csx_name("outint"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("if"),csx_list(csx_name("<"),csx_name("n"),csx_int(0),0),csx_list(csx_name("do"),csx_list(csx_name("out"),csx_int(45),0),csx_list(csx_name("outint"),csx_list(csx_name("neg"),csx_name("n"),0),0),0),csx_list(csx_name("if"),csx_list(csx_name("<"),csx_name("n"),csx_int(10),0),csx_list(csx_name("out"),csx_list(csx_name("+"),csx_int(48),csx_name("n"),0),0),csx_list(csx_name("do"),csx_list(csx_name("outint"),csx_list(csx_name("div"),csx_name("n"),csx_int(10),0),0),csx_list(csx_name("out"),csx_list(csx_name("+"),csx_int(48),csx_list(csx_name("mod"),csx_name("n"),csx_int(10),0),0),0),0),0),0),0),0),csx_list(csx_name("set"),csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("f"),csx_name("l"),0),csx_list(csx_name("if"),csx_list(csx_name("no"),csx_name("l"),0),csx_list(0),csx_list(csx_name("pair"),csx_list(csx_name("f"),csx_list(csx_name("head"),csx_name("l"),0),0),csx_list(csx_name("map"),csx_name("f"),csx_list(csx_name("tail"),csx_name("l"),0),0),0),0),0),0),csx_list(csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("outint"),csx_name("n"),0),csx_list(csx_name("out"),csx_int(10),0),0),csx_list(csx_name("quote"),csx_list(csx_int(99),csx_int(37),csx_int(73),csx_int(42),0),0),0),csx_list(csx_name("set"),csx_name("id"),csx_list(csx_name("fn"),csx_name("args"),csx_name("args"),0),0),csx_list(csx_name("outint"),csx_list(csx_list(csx_name("id"),csx_int(42),csx_int(13),csx_int(31),0),csx_int(2),0),0),csx_list(csx_name("out"),csx_int(10),0),0));
 return 0;
 }
diff --git a/examples/generated.csx b/examples/generated.csx
index cb2557c..4d3d5fb 100644
--- a/examples/generated.csx
+++ b/examples/generated.csx
@@ -15,3 +15,6 @@
 [map [fn [n] [outint n] [out 10]]
   [quote [99 37 73 42]]
 ]
+[set id [fn args args]]
+[outint [[id 42 13 31] 2]]
+[out 10]
diff --git a/examples/translator.c b/examples/translator.c
index 14b7482..8358a47 100644
--- a/examples/translator.c
+++ b/examples/translator.c
@@ -1,5 +1,6 @@
 #include <stdio.h>
 #include <ctype.h>
+#include <stdlib.h>
 
 
 void readlist()
@@ -27,11 +28,58 @@ void readlist()
             printf(")");
         } else if (isspace(c)) {
             while (isspace(c = getchar()));
+        } else if (c == '.') {
+            if (getchar() != '[') exit(1);
+            if (first) first = 0;
+            else putchar(',');
+            printf("csx_dot(");
+            readlist();
+            printf("0)");
+            c = getchar();
+        } else if (c == '"') {
+            if (first) first = 0;
+            else putchar(',');
+            printf("csx_str(\"");
+            while (c != EOF && c != '"') {
+                if (c == '\\') c = getchar();
+                if (c == '"' || c == '\\') putchar('\\');
+                putchar(c);
+                c = getchar();
+            }
+            printf("\")");
+        } else if (c == '\'') {
+            if (first) first = 0;
+            else putchar(',');
+            printf("csx_list(csx_name(\"quote\"),");
+            c = getchar();
+            if (isspace(c)) exit(1);
+            else if (c != '[') {
+                printf("csx_name(\"");
+                while (c != EOF && !isspace(c) && c != '[' && c != ']') {
+                    if (c == '"' || c == '\\') putchar('\\');
+                    putchar(c);
+                    c = getchar();
+                }
+                printf("\"),");
+            } else if (c == '.') {
+                if (getchar() != '[') exit(1);
+                printf("csx_dot(");
+                readlist();
+                printf("0)");
+                c = getchar();
+            } else {
+                printf("csx_list(");
+                readlist();
+                printf("0),");
+                c = getchar();
+            }
+            printf("0)");
         } else {
             if (first) first = 0;
             else putchar(',');
             printf("csx_name(\"");
             while (c != EOF && !isspace(c) && c != '[' && c != ']') {
+                if (c == '\\') c = getchar();
                 if (c == '"' || c == '\\') putchar('\\');
                 putchar(c);
                 c = getchar();