diff options
| -rw-r--r-- | examples/generated.c | 6 | ||||
| -rw-r--r-- | examples/translator.c | 2 | ||||
| -rw-r--r-- | src/csx.c | 33 |
3 files changed, 39 insertions, 2 deletions
diff --git a/examples/generated.c b/examples/generated.c new file mode 100644 index 0000000..0b70fd6 --- /dev/null +++ b/examples/generated.c @@ -0,0 +1,6 @@ +#include <csx.h> +int main() +{ +csx_eval(csx_list(csx_name("do"),csx_list(csx_name("define"),csx_name("a"),csx_num(10),0),csx_list(csx_name("define"),csx_name("b"),csx_list(csx_name("sum"),csx_name("a"),csx_num(3),0),0),csx_list(csx_name("outname"),csx_list(csx_name("quote"),csx_name("sum-of-10-and-3-is"),0),0),csx_list(csx_name("outnum"),csx_name("b"),0),0)); +return 0; +} diff --git a/examples/translator.c b/examples/translator.c index 448d052..ad676c0 100644 --- a/examples/translator.c +++ b/examples/translator.c @@ -14,7 +14,7 @@ void readlist() readlist(); printf("0)"); c = getchar(); - } else if (isdigit(c)) { + } else if (isdigit(c) || c == '-') { if (first) first = 0; else putchar(','); printf("csx_num("); @@ -3,6 +3,7 @@ #include <stdlib.h> #include <stdarg.h> #include <string.h> +#include <stdio.h> typedef enum csx_type { @@ -380,7 +381,33 @@ static void *base_context(void *arg) static void *base_quote(void *arg) { - return arg; + return head(arg); +} + +static void *base_input(void *arg) +{ + int res = getchar(); + return res != EOF ? new_num(res) : null; +} + +static void *base_output(void *arg) +{ + arg = eval_each(arg); + return putchar(*(int *)head(arg)) != EOF ? one : null; +} + +static void *base_outname(void *arg) +{ + arg = eval_each(arg); + return fputs(head(arg), stdout) != EOF ? one : null; +} + +static void *base_outnum(void *arg) +{ + arg = eval_each(arg); + int num = *(int *)head(arg); + printf("%d", num); + return one; } static void *base_fn(void *arg) @@ -500,6 +527,10 @@ static void new_context() base_define(csx_list(new_name("if"), new_base(base_if), 0)); base_define(csx_list(new_name("and"), new_base(base_and), 0)); base_define(csx_list(new_name("or"), new_base(base_or), 0)); + base_define(csx_list(new_name("input"), new_base(base_input), 0)); + base_define(csx_list(new_name("output"), new_base(base_output), 0)); + base_define(csx_list(new_name("outname"), new_base(base_outname), 0)); + base_define(csx_list(new_name("outnum"), new_base(base_outnum), 0)); } |