swissChili | f3e7f18 | 2021-04-20 13:57:22 -0700 | [diff] [blame] | 1 | #include "compiler.h" |
swissChili | e9fec8b | 2021-06-22 13:59:33 -0700 | [diff] [blame] | 2 | #include "gc.h" |
swissChili | c0acce4 | 2022-07-31 13:38:17 -0700 | [diff] [blame] | 3 | #include "lisp.h" |
swissChili | f68671f | 2021-07-05 14:14:44 -0700 | [diff] [blame] | 4 | #include "plat/plat.h" |
swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 5 | |
swissChili | 53472e8 | 2021-05-08 16:06:32 -0700 | [diff] [blame] | 6 | int main(int argc, char **argv) |
swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 7 | { |
swissChili | 8056031 | 2022-07-31 21:05:47 -0700 | [diff] [blame] | 8 | gc_push_segment(NULL, 0); |
9 | |||||
swissChili | 53472e8 | 2021-05-08 16:06:32 -0700 | [diff] [blame] | 10 | if (argc < 2) |
swissChili | bed8092 | 2021-04-13 21:58:05 -0700 | [diff] [blame] | 11 | { |
swissChili | e9fec8b | 2021-06-22 13:59:33 -0700 | [diff] [blame] | 12 | puts("pass the program you want to run as the first argument please"); |
swissChili | bed8092 | 2021-04-13 21:58:05 -0700 | [diff] [blame] | 13 | return 1; |
14 | } | ||||
15 | |||||
swissChili | f68671f | 2021-07-05 14:14:44 -0700 | [diff] [blame] | 16 | bool ok; |
swissChili | 6d02af4 | 2021-08-05 19:49:01 -0700 | [diff] [blame] | 17 | struct environment *env = NULL; |
18 | struct error compile_error; | ||||
19 | if (!IS_OKAY((compile_error = compile_file(argv[1], &env)))) | ||||
swissChili | 923b536 | 2021-05-09 20:31:43 -0700 | [diff] [blame] | 20 | { |
swissChili | 6d02af4 | 2021-08-05 19:49:01 -0700 | [diff] [blame] | 21 | ereport(compile_error); |
22 | goto done; | ||||
swissChili | c0acce4 | 2022-07-31 13:38:17 -0700 | [diff] [blame] | 23 | } |
swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 24 | |
swissChili | 36f2c69 | 2021-08-08 14:31:44 -0700 | [diff] [blame] | 25 | struct function *lisp_main_f = find_function(env, "main"); |
swissChili | e9fec8b | 2021-06-22 13:59:33 -0700 | [diff] [blame] | 26 | |
swissChili | 36f2c69 | 2021-08-08 14:31:44 -0700 | [diff] [blame] | 27 | if (lisp_main_f) |
swissChili | 53e7cd1 | 2021-08-02 21:55:53 -0700 | [diff] [blame] | 28 | { |
swissChili | 36f2c69 | 2021-08-08 14:31:44 -0700 | [diff] [blame] | 29 | value_t (*lisp_main)() = lisp_main_f->def0; |
swissChili | 8056031 | 2022-07-31 21:05:47 -0700 | [diff] [blame] | 30 | gc_prepare_call(0); |
swissChili | 53e7cd1 | 2021-08-02 21:55:53 -0700 | [diff] [blame] | 31 | lisp_main(); |
32 | } | ||||
33 | else | ||||
34 | { | ||||
35 | fprintf(stderr, "No MAIN function defined! nothing to do\n"); | ||||
36 | } | ||||
swissChili | b8fd471 | 2021-06-23 15:32:04 -0700 | [diff] [blame] | 37 | |
swissChili | 6d02af4 | 2021-08-05 19:49:01 -0700 | [diff] [blame] | 38 | done: |
swissChili | b8fd471 | 2021-06-23 15:32:04 -0700 | [diff] [blame] | 39 | free_all(); |
swissChili | 6d02af4 | 2021-08-05 19:49:01 -0700 | [diff] [blame] | 40 | if (env) |
41 | del_env(env); | ||||
swissChili | 16156be | 2022-07-31 21:14:02 -0700 | [diff] [blame^] | 42 | gc_pop_segment(); |
swissChili | 7a6f5eb | 2021-04-13 16:46:02 -0700 | [diff] [blame] | 43 | } |