diff options
author | jdlugosz963 <jdlugosz963@gmail.com> | 2023-03-05 23:10:15 +0100 |
---|---|---|
committer | jdlugosz963 <jdlugosz963@gmail.com> | 2023-03-05 23:10:15 +0100 |
commit | 49aa5542a8e13d2d808f7dee6bd7418add6d74ea (patch) | |
tree | d182dbf69f5f7b421283bf2a504ed3b40811a668 /repl.c | |
parent | f44f1f8c7ef7b6266667dce76db686af3258adfc (diff) | |
download | jadl-49aa5542a8e13d2d808f7dee6bd7418add6d74ea.tar.gz jadl-49aa5542a8e13d2d808f7dee6bd7418add6d74ea.zip |
Add primitive evaluation system
Diffstat (limited to 'repl.c')
-rw-r--r-- | repl.c | 109 |
1 files changed, 109 insertions, 0 deletions
@@ -0,0 +1,109 @@ | |||
1 | #include <stdio.h> | ||
2 | #include <stdlib.h> | ||
3 | #include <string.h> | ||
4 | #include <readline/readline.h> | ||
5 | |||
6 | #include "types.h" | ||
7 | #include "parser.h" | ||
8 | #include "eval.h" | ||
9 | |||
10 | |||
11 | LISP_OBJECT *Fadd(LISP_OBJECT *l) | ||
12 | { | ||
13 | long long natural=0; | ||
14 | |||
15 | List *list = l->value.list; | ||
16 | LISP_OBJECT *a = NULL; | ||
17 | while(list) | ||
18 | { | ||
19 | a = list->ptr; | ||
20 | natural += *a->value.number_natural; | ||
21 | list = list->next; | ||
22 | } | ||
23 | LISP_OBJECT *c = lisp_object_make_number_natural(natural); | ||
24 | return c; | ||
25 | } | ||
26 | |||
27 | LISP_OBJECT *Fminus(LISP_OBJECT *l) | ||
28 | { | ||
29 | LISP_OBJECT *a = l->value.list->ptr; | ||
30 | LISP_OBJECT *b = l->value.list->next->ptr; | ||
31 | LISP_OBJECT *c = lisp_object_make_number_natural( | ||
32 | *a->value.number_natural - *b->value.number_natural); | ||
33 | return c; | ||
34 | } | ||
35 | |||
36 | LISP_OBJECT *Fmul(LISP_OBJECT *l) | ||
37 | { | ||
38 | LISP_OBJECT *a = l->value.list->ptr; | ||
39 | LISP_OBJECT *b = l->value.list->next->ptr; | ||
40 | LISP_OBJECT *c = lisp_object_make_number_natural( | ||
41 | *a->value.number_natural * *b->value.number_natural); | ||
42 | return c; | ||
43 | } | ||
44 | |||
45 | LISP_OBJECT *Fdiv(LISP_OBJECT *l) | ||
46 | { | ||
47 | LISP_OBJECT *a = l->value.list->ptr; | ||
48 | LISP_OBJECT *b = l->value.list->next->ptr; | ||
49 | LISP_OBJECT *c = lisp_object_make_number_natural( | ||
50 | *a->value.number_natural / *b->value.number_natural); | ||
51 | return c; | ||
52 | } | ||
53 | |||
54 | LISP_OBJECT *Fplusone(LISP_OBJECT *l) | ||
55 | { | ||
56 | LISP_OBJECT *a = l->value.list->ptr; | ||
57 | LISP_OBJECT *c = lisp_object_make_number_natural( | ||
58 | *a->value.number_natural+1); | ||
59 | return c; | ||
60 | } | ||
61 | |||
62 | |||
63 | LISP_OBJECT *READ(char *input) | ||
64 | { | ||
65 | return parser_parse_str(input); | ||
66 | } | ||
67 | |||
68 | LISP_OBJECT *EVAL(LISP_OBJECT *input, HashMap *env) | ||
69 | { | ||
70 | return eval(input, env); | ||
71 | } | ||
72 | |||
73 | void PRINT(LISP_OBJECT *input) | ||
74 | { | ||
75 | lisp_object_print(input, 0); | ||
76 | lisp_object_free(input); | ||
77 | } | ||
78 | |||
79 | void rep(char *input, HashMap *env) | ||
80 | { | ||
81 | PRINT(EVAL(READ(input), env)); | ||
82 | } | ||
83 | |||
84 | |||
85 | int main() | ||
86 | { | ||
87 | HashMap *env = NULL; | ||
88 | env = hash_map_push(env, "+", lisp_object_make_func(&Fadd)); | ||
89 | env = hash_map_push(env, "-", lisp_object_make_func(&Fminus)); | ||
90 | env = hash_map_push(env, "*", lisp_object_make_func(&Fmul)); | ||
91 | env = hash_map_push(env, "/", lisp_object_make_func(&Fdiv)); | ||
92 | env = hash_map_push(env, "++", lisp_object_make_func(&Fplusone)); | ||
93 | |||
94 | char *input1 = NULL; | ||
95 | char *input = NULL; | ||
96 | |||
97 | while(1) | ||
98 | { | ||
99 | input = readline("JADL> "); | ||
100 | input1 = malloc(sizeof(char) * strlen(input) + 1); | ||
101 | strcpy(input1, input); | ||
102 | input1[strlen(input)] = '\0'; | ||
103 | |||
104 | free(input); | ||
105 | |||
106 | rep(input1, env); | ||
107 | free(input1); | ||
108 | } | ||
109 | } | ||