From fbfce55d3c7e5d0b71661b3f1ff9674fba6b8618 Mon Sep 17 00:00:00 2001
From: Bad Diode <bd@badd10de.dev>
Date: Sat, 9 Oct 2021 12:54:15 +0200
Subject: Add support for file interpretaion or repl

---
 Makefile                |  2 +-
 examples/arithmetic.bdl | 22 ++++++++++++
 src/bootstrap/main.c    | 93 ++++++++++++++++++++++++++++++++++++++++++++++---
 3 files changed, 112 insertions(+), 5 deletions(-)
 create mode 100644 examples/arithmetic.bdl

diff --git a/Makefile b/Makefile
index 0564240..7c3f687 100755
--- a/Makefile
+++ b/Makefile
@@ -15,7 +15,7 @@ BIN    := $(BUILD_DIR)/$(TARGET)
 
 # Compiler and linker configuration.
 CC             := cc
-CFLAGS         := -Wall -Wextra -pedantic
+CFLAGS         := -Wall -Wextra -pedantic -DBIN_NAME=\"$(TARGET)\"
 CFLAGS         += $(INC_FLAGS)
 LDFLAGS        :=
 LDLIBS         :=
diff --git a/examples/arithmetic.bdl b/examples/arithmetic.bdl
new file mode 100644
index 0000000..5e102e9
--- /dev/null
+++ b/examples/arithmetic.bdl
@@ -0,0 +1,22 @@
+;
+; Basic arithmetic operations
+;
+
+; Addition
+(+ 10 100)
+(+ 1 -2 3 4)
+
+; Substraction
+(- 100 75)
+(- 10 20 30)
+
+; Multiplication
+(* 10 7)
+(* -1 66)
+
+; Division
+(/ 45 5)
+(/ 10 5 2)
+
+; Nesting operations.
+(* 20 (+ 100 (- 50 30) (/ 300 3)) 10)
diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c
index 1494378..e0012eb 100755
--- a/src/bootstrap/main.c
+++ b/src/bootstrap/main.c
@@ -1,4 +1,5 @@
 #include <ctype.h>
+#include <getopt.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -695,9 +696,16 @@ eval(Object *root) {
     return NULL;
 }
 
-int
-main(void) {
-    init();
+void
+print_usage(void) {
+    printf("Usage: %s [options] <filename>\n", BIN_NAME);
+    printf("\n");
+    printf("\t-i\tInteractive mode (REPL).\n");
+    printf("\n");
+}
+
+void
+run_repl(void) {
     printf("BDL REPL (Press Ctrl-C to exit)\n");
     while (true) {
         printf(REPL_PROMPT);
@@ -725,5 +733,82 @@ main(void) {
             printf("\n");
         }
     }
-    return 0;
+}
+
+void
+run_file(char *file_name) {
+#if DEBUG
+    printf("Executing file: %s\n", file_name);
+#endif
+
+    // Load entire file into memory.
+    char * src = NULL;
+    FILE *fd = fopen(file_name, "r");
+    if (!fd) {
+        fprintf(stderr, "couldn't open file: %s\n", file_name);
+        exit(-1);
+    }
+    fseek(fd, 0, SEEK_END);
+    size_t file_size = ftell(fd);
+    fseek(fd, 0, SEEK_SET);
+    src = malloc(file_size + 1);
+    fread(src, 1, file_size, fd);
+    src[file_size] = '\0';
+    fclose(fd);
+
+    Tokens tokens = tokenize((StringView){.start = src, .n = file_size});
+#if DEBUG
+    printf("N_TOKENS: %ld\n", tokens.n);
+    for (size_t i = 0; i < tokens.n; i++) {
+        printf("\tTYPE: %3d    ", tokens.start[i].type);
+        printf("N: %3ld    ", tokens.start[i].value.n);
+        printf("VALUE: ");
+        sv_write(tokens.start[i].value);
+        printf("\n");
+    }
+#endif
+    while (tokens.n) {
+        Object *ast = parse(&tokens);
+        if (ast) {
+#if DEBUG
+            printf("AST: ");
+            display(ast);
+            printf("\n");
+            printf("EVAL: ");
+#endif
+            display(eval(ast));
+            printf("\n");
+        }
+    }
+
+    free(src);
+}
+
+int
+main(int argc, char *argv[]) {
+    init();
+
+    int option;
+    while ((option = getopt(argc, argv, "i")) != -1) {
+        switch (option) {
+            case 'i': {
+                run_repl();
+                return EXIT_SUCCESS;
+            } break;
+            default: {
+                print_usage();
+                return EXIT_FAILURE;
+            } break;
+        }
+    }
+
+    if (optind != argc - 1) {
+        fprintf(stderr, "%s: No input file given.\n", BIN_NAME);
+        print_usage();
+        return EXIT_FAILURE;
+    }
+    char *file_name = argv[optind];
+    run_file(file_name);
+
+    return EXIT_SUCCESS;
 }
-- 
cgit v1.2.1