diff options
author | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-21 12:47:09 +0200 |
---|---|---|
committer | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-21 13:19:49 +0200 |
commit | 455845d078f39f3969139c6a0729e0b081cfa159 (patch) | |
tree | 9ea4b2ca263d99867ed8d99c7b8a8d48bb717f90 /ell.c | |
parent | b31526d6ba610fbe355231339bb2b331bd4fb2af (diff) | |
download | ell-455845d078f39f3969139c6a0729e0b081cfa159.tar.gz ell-455845d078f39f3969139c6a0729e0b081cfa159.tar.xz ell-455845d078f39f3969139c6a0729e0b081cfa159.zip |
Split out the interpreter
Diffstat (limited to 'ell.c')
-rw-r--r--[-rwxr-xr-x] | ell.c | 54 |
1 files changed, 0 insertions, 54 deletions
@@ -24,7 +24,6 @@ #include <errno.h> #include <stdarg.h> #include <assert.h> -#include <time.h> #include <stdbool.h> #include <setjmp.h> @@ -1283,56 +1282,3 @@ init_runtime_library (struct context *ctx) { && native_register (ctx, "=", fn_equals) && native_register (ctx, "<", fn_less); } - -// --- Main -------------------------------------------------------------------- - -int -main (int argc, char *argv[]) { - FILE *fp = stdin; - if (argc > 1 && !(fp = fopen (argv[1], "rb"))) { - fprintf (stderr, "%s: %s\n", argv[1], strerror (errno)); - return 1; - } - - int c; - struct buffer buf = BUFFER_INITIALIZER; - while ((c = fgetc (fp)) != EOF) - buffer_append_c (&buf, c); - buffer_append_c (&buf, 0); - fclose (fp); - - struct parser parser; - parser_init (&parser, buf.s, buf.len - 1); - const char *e = NULL; - struct item *program = parser_run (&parser, &e); -#ifndef NDEBUG - printf ("\x1b[1m%s\x1b[0m\n", buf.s); - print_tree (program, 0); - printf ("\n\n"); -#endif - free (buf.s); - if (e) { - printf ("%s: %s\n", "parse error", e); - return 1; - } - parser_free (&parser); - - struct context ctx; - context_init (&ctx); - if (!init_runtime_library (&ctx)) - printf ("%s\n", "runtime library initialization failed"); - - struct item *result = NULL; - (void) execute (&ctx, program, &result); - item_free_list (result); - item_free_list (program); - - const char *failure = ctx.error; - if (ctx.memory_failure) - failure = "memory allocation failure"; - if (failure) - printf ("%s: %s\n", "runtime error", failure); - context_free (&ctx); - return 0; -} - |