swissChili | ca107a0 | 2021-04-14 12:07:30 -0700 | [diff] [blame] | 1 | #pragma once |
| 2 | |
| 3 | #include "lisp.h" |
| 4 | #include <stdbool.h> |
| 5 | |
| 6 | struct function |
| 7 | { |
| 8 | char *name; |
| 9 | int nargs; // number of arguments |
| 10 | |
| 11 | union { |
| 12 | struct value (*def0) (); |
| 13 | struct value (*def1) (struct value); |
| 14 | struct value (*def2) (struct value, struct value); |
| 15 | struct value (*def3) (struct value, struct value, struct value); |
| 16 | void *code_ptr; |
| 17 | unsigned long code_addr; |
| 18 | }; |
| 19 | |
| 20 | struct function *prev; |
| 21 | }; |
| 22 | |
| 23 | struct environment |
| 24 | { |
| 25 | struct function *first; |
| 26 | }; |
| 27 | |
| 28 | struct variable |
| 29 | { |
| 30 | char *name; |
| 31 | int number; |
| 32 | struct variable *prev; |
| 33 | }; |
| 34 | |
| 35 | // local environment |
| 36 | struct local |
| 37 | { |
| 38 | // temps are accessed at ebp - 8 * (num_vars + temp) |
| 39 | bool temps[ 64 ]; |
| 40 | int num_vars; |
| 41 | struct variable *first; |
| 42 | }; |
| 43 | |
swissChili | ca107a0 | 2021-04-14 12:07:30 -0700 | [diff] [blame] | 44 | void compile (struct istream *is); |
| 45 | struct function *find_function (struct environment *env, char *name); |