aboutsummaryrefslogtreecommitdiff
path: root/ell.c
diff options
context:
space:
mode:
Diffstat (limited to 'ell.c')
-rw-r--r--[-rwxr-xr-x]ell.c54
1 files changed, 0 insertions, 54 deletions
diff --git a/ell.c b/ell.c
index 0a7859c..188672a 100755..100644
--- a/ell.c
+++ b/ell.c
@@ -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;
-}
-