|
@@ -1,8 +1,10 @@
|
1
|
1
|
#include <stdint.h>
|
|
2
|
+#include <stdio.h>
|
2
|
3
|
#include "ast.h"
|
3
|
4
|
|
4
|
5
|
int sol_state_init(sol_state_t *state) {
|
5
|
|
- sol_object_t *globals, *debug, *iter, *ast, *buffer, *btype, *bsize;
|
|
6
|
+ sol_object_t *globals, *mod, *meths;
|
|
7
|
+ sol_object_t *btype, *bsize, *bobj;
|
6
|
8
|
|
7
|
9
|
state->None = NULL;
|
8
|
10
|
state->OutOfMemory = NULL;
|
|
@@ -22,7 +24,8 @@ int sol_state_init(sol_state_t *state) {
|
22
|
24
|
//Initialize all of the builtin operations
|
23
|
25
|
//(these ones are technically already pointed to by None/OOM)
|
24
|
26
|
sol_ops_init(&(state->NullOps));
|
25
|
|
-
|
|
27
|
+
|
|
28
|
+ state->SingletOps = state->NullOps;
|
26
|
29
|
state->IntOps = state->NullOps;
|
27
|
30
|
state->FloatOps = state->NullOps;
|
28
|
31
|
state->StringOps = state->NullOps;
|
|
@@ -33,7 +36,14 @@ int sol_state_init(sol_state_t *state) {
|
33
|
36
|
state->CFuncOps = state->NullOps;
|
34
|
37
|
state->ASTNodeOps = state->NullOps;
|
35
|
38
|
state->BufferOps = state->NullOps;
|
36
|
|
-
|
|
39
|
+ state->DyLibOps = state->NullOps;
|
|
40
|
+ state->DySymOps = state->NullOps;
|
|
41
|
+ state->StreamOps = state->NullOps;
|
|
42
|
+
|
|
43
|
+ state->SingletOps.tname = "singlet";
|
|
44
|
+ state->SingletOps.tostring = sol_f_singlet_tostring;
|
|
45
|
+
|
|
46
|
+ state->IntOps.tname = "int";
|
37
|
47
|
state->IntOps.add = sol_f_int_add;
|
38
|
48
|
state->IntOps.sub = sol_f_int_sub;
|
39
|
49
|
state->IntOps.mul = sol_f_int_mul;
|
|
@@ -49,7 +59,8 @@ int sol_state_init(sol_state_t *state) {
|
49
|
59
|
state->IntOps.toint = sol_f_int_toint;
|
50
|
60
|
state->IntOps.tofloat = sol_f_int_tofloat;
|
51
|
61
|
state->IntOps.tostring = sol_f_int_tostring;
|
52
|
|
-
|
|
62
|
+
|
|
63
|
+ state->FloatOps.tname = "float";
|
53
|
64
|
state->FloatOps.add = sol_f_float_add;
|
54
|
65
|
state->FloatOps.sub = sol_f_float_sub;
|
55
|
66
|
state->FloatOps.mul = sol_f_float_mul;
|
|
@@ -58,7 +69,8 @@ int sol_state_init(sol_state_t *state) {
|
58
|
69
|
state->FloatOps.toint = sol_f_float_toint;
|
59
|
70
|
state->FloatOps.tofloat = sol_f_float_tofloat;
|
60
|
71
|
state->FloatOps.tostring = sol_f_float_tostring;
|
61
|
|
-
|
|
72
|
+
|
|
73
|
+ state->StringOps.tname = "string";
|
62
|
74
|
state->StringOps.add = sol_f_str_add;
|
63
|
75
|
state->StringOps.mul = sol_f_str_mul;
|
64
|
76
|
state->StringOps.cmp = sol_f_str_cmp;
|
|
@@ -68,8 +80,10 @@ int sol_state_init(sol_state_t *state) {
|
68
|
80
|
state->StringOps.toint = sol_f_str_toint;
|
69
|
81
|
state->StringOps.tofloat = sol_f_str_tofloat;
|
70
|
82
|
state->StringOps.tostring = sol_f_str_tostring;
|
|
83
|
+ state->StringOps.repr = sol_f_str_repr;
|
71
|
84
|
state->StringOps.free = sol_f_str_free;
|
72
|
|
-
|
|
85
|
+
|
|
86
|
+ state->ListOps.tname = "list";
|
73
|
87
|
state->ListOps.add = sol_f_list_add;
|
74
|
88
|
state->ListOps.mul = sol_f_list_mul;
|
75
|
89
|
state->ListOps.call = sol_f_not_impl;
|
|
@@ -79,7 +93,8 @@ int sol_state_init(sol_state_t *state) {
|
79
|
93
|
state->ListOps.iter = sol_f_list_iter;
|
80
|
94
|
state->ListOps.tostring = sol_f_list_tostring;
|
81
|
95
|
state->ListOps.free = sol_f_list_free;
|
82
|
|
-
|
|
96
|
+
|
|
97
|
+ state->MapOps.tname = "map";
|
83
|
98
|
state->MapOps.add = sol_f_map_add;
|
84
|
99
|
state->MapOps.call = sol_f_map_call;
|
85
|
100
|
state->MapOps.index = sol_f_map_index;
|
|
@@ -88,27 +103,50 @@ int sol_state_init(sol_state_t *state) {
|
88
|
103
|
state->MapOps.iter = sol_f_map_iter;
|
89
|
104
|
state->MapOps.tostring = sol_f_map_tostring;
|
90
|
105
|
state->MapOps.free = sol_f_map_free;
|
91
|
|
-
|
92
|
|
- state->MCellOps = state->MapOps;
|
|
106
|
+
|
|
107
|
+ state->MCellOps.tname = "mcell";
|
|
108
|
+ state->MCellOps.tostring = sol_f_mcell_tostring;
|
93
|
109
|
state->MCellOps.free = sol_f_mcell_free;
|
94
|
|
-
|
|
110
|
+
|
|
111
|
+ state->FuncOps.tname = "function";
|
95
|
112
|
state->FuncOps.call = sol_f_func_call;
|
96
|
113
|
state->FuncOps.index = sol_f_func_index;
|
97
|
114
|
state->FuncOps.setindex = sol_f_func_setindex;
|
98
|
115
|
state->FuncOps.tostring = sol_f_func_tostring;
|
99
|
|
-
|
|
116
|
+
|
|
117
|
+ state->CFuncOps.tname = "cfunction";
|
100
|
118
|
state->CFuncOps.call = sol_f_cfunc_call;
|
101
|
119
|
state->CFuncOps.tostring = sol_f_cfunc_tostring;
|
102
|
120
|
|
|
121
|
+ state->ASTNodeOps.tname = "astnode";
|
103
|
122
|
state->ASTNodeOps.call = sol_f_astnode_call;
|
104
|
123
|
state->ASTNodeOps.index = sol_f_astnode_index;
|
105
|
124
|
state->ASTNodeOps.setindex = sol_f_astnode_setindex;
|
106
|
125
|
state->ASTNodeOps.tostring = sol_f_astnode_tostring;
|
107
|
126
|
|
|
127
|
+ state->BufferOps.tname = "buffer";
|
108
|
128
|
state->BufferOps.index = sol_f_buffer_index;
|
109
|
129
|
state->BufferOps.tostring = sol_f_buffer_tostring;
|
110
|
130
|
state->BufferOps.free = sol_f_buffer_free;
|
111
|
131
|
|
|
132
|
+ state->DyLibOps.tname = "dylib";
|
|
133
|
+ state->DyLibOps.index = sol_f_dylib_index;
|
|
134
|
+ state->DyLibOps.free = sol_f_dylib_free;
|
|
135
|
+ state->DyLibOps.tostring = sol_f_dylib_tostring;
|
|
136
|
+
|
|
137
|
+ state->DySymOps.tname = "dysym";
|
|
138
|
+ state->DySymOps.call = sol_f_dysym_call;
|
|
139
|
+ state->DySymOps.index = sol_f_dysym_index;
|
|
140
|
+ state->DySymOps.setindex = sol_f_dysym_setindex;
|
|
141
|
+ state->DySymOps.tostring = sol_f_dysym_tostring;
|
|
142
|
+
|
|
143
|
+ state->StreamOps.tname = "stream";
|
|
144
|
+ state->StreamOps.blsh = sol_f_stream_blsh;
|
|
145
|
+ state->StreamOps.brsh = sol_f_stream_brsh;
|
|
146
|
+ state->StreamOps.index = sol_f_stream_index;
|
|
147
|
+ state->StreamOps.free = sol_f_stream_free;
|
|
148
|
+ state->StreamOps.tostring = sol_f_stream_tostring;
|
|
149
|
+
|
112
|
150
|
state->obfuncs.copy = (dsl_copier) sol_obj_acquire;
|
113
|
151
|
state->obfuncs.destr = (dsl_destructor) sol_obj_free;
|
114
|
152
|
|
|
@@ -116,14 +154,11 @@ int sol_state_init(sol_state_t *state) {
|
116
|
154
|
state->scopes = sol_new_list(state);
|
117
|
155
|
if(sol_has_error(state)) goto cleanup;
|
118
|
156
|
globals = sol_new_map(state);
|
119
|
|
- debug = sol_new_map(state);
|
120
|
|
- iter = sol_new_map(state);
|
121
|
|
- ast = sol_new_map(state);
|
122
|
|
- btype = sol_new_map(state);
|
123
|
|
- bsize = sol_new_map(state);
|
124
|
|
- buffer = sol_new_map(state);
|
|
157
|
+ state->modules = sol_new_map(state);
|
|
158
|
+ state->methods = sol_new_map(state);
|
125
|
159
|
if(sol_has_error(state)) goto cleanup;
|
126
|
160
|
sol_list_insert(state, state->scopes, 0, globals);
|
|
161
|
+ sol_obj_free(globals);
|
127
|
162
|
if(sol_has_error(state)) goto cleanup;
|
128
|
163
|
// I'm going to buffer all of these together because I can.
|
129
|
164
|
sol_map_set_name(state, globals, "OutOfMemory", state->OutOfMemory);
|
|
@@ -143,65 +178,71 @@ int sol_state_init(sol_state_t *state) {
|
143
|
178
|
sol_map_set_name(state, globals, "eval", sol_new_cfunc(state, sol_f_eval));
|
144
|
179
|
sol_map_set_name(state, globals, "execfile", sol_new_cfunc(state, sol_f_execfile));
|
145
|
180
|
sol_map_set_name(state, globals, "parse", sol_new_cfunc(state, sol_f_parse));
|
146
|
|
-
|
147
|
|
- sol_map_set_name(state, debug, "getref", sol_new_cfunc(state, sol_f_debug_getref));
|
148
|
|
- sol_map_set_name(state, debug, "setref", sol_new_cfunc(state, sol_f_debug_setref));
|
149
|
|
- sol_map_set_name(state, debug, "closure", sol_new_cfunc(state, sol_f_debug_closure));
|
150
|
|
- sol_map_set_name(state, debug, "globals", sol_new_cfunc(state, sol_f_debug_globals));
|
151
|
|
- sol_map_set_name(state, debug, "locals", sol_new_cfunc(state, sol_f_debug_locals));
|
152
|
|
- sol_map_set_name(state, debug, "scopes", sol_new_cfunc(state, sol_f_debug_scopes));
|
153
|
|
- sol_map_set_name(state, globals, "debug", debug);
|
154
|
|
- sol_obj_free(debug);
|
155
|
|
-
|
156
|
|
- sol_map_set_name(state, iter, "str", sol_new_cfunc(state, sol_f_iter_str));
|
157
|
|
- sol_map_set_name(state, iter, "list", sol_new_cfunc(state, sol_f_iter_list));
|
158
|
|
- sol_map_set_name(state, iter, "map", sol_new_cfunc(state, sol_f_iter_map));
|
159
|
|
- sol_map_set_name(state, globals, "iter", iter);
|
160
|
|
- sol_obj_free(iter);
|
161
|
181
|
|
162
|
|
- sol_map_set_name(state, ast, "ST_EXPR", sol_new_int(state, ST_EXPR));
|
163
|
|
- sol_map_set_name(state, ast, "ST_IFELSE", sol_new_int(state, ST_IFELSE));
|
164
|
|
- sol_map_set_name(state, ast, "ST_LOOP", sol_new_int(state, ST_LOOP));
|
165
|
|
- sol_map_set_name(state, ast, "ST_ITER", sol_new_int(state, ST_ITER));
|
166
|
|
- sol_map_set_name(state, ast, "ST_LIST", sol_new_int(state, ST_LIST));
|
167
|
|
- sol_map_set_name(state, ast, "ST_RET", sol_new_int(state, ST_RET));
|
168
|
|
- sol_map_set_name(state, ast, "ST_CONT", sol_new_int(state, ST_CONT));
|
169
|
|
- sol_map_set_name(state, ast, "ST_BREAK", sol_new_int(state, ST_BREAK));
|
170
|
|
- sol_map_set_name(state, ast, "EX_LIT", sol_new_int(state, EX_LIT));
|
171
|
|
- sol_map_set_name(state, ast, "EX_LISTGEN", sol_new_int(state, EX_LIT));
|
172
|
|
- sol_map_set_name(state, ast, "EX_MAPGEN", sol_new_int(state, EX_LIT));
|
173
|
|
- sol_map_set_name(state, ast, "EX_BINOP", sol_new_int(state, EX_LIT));
|
174
|
|
- sol_map_set_name(state, ast, "EX_UNOP", sol_new_int(state, EX_LIT));
|
175
|
|
- sol_map_set_name(state, ast, "EX_INDEX", sol_new_int(state, EX_LIT));
|
176
|
|
- sol_map_set_name(state, ast, "EX_SETINDEX", sol_new_int(state, EX_LIT));
|
177
|
|
- sol_map_set_name(state, ast, "EX_ASSIGN", sol_new_int(state, EX_LIT));
|
178
|
|
- sol_map_set_name(state, ast, "EX_REF", sol_new_int(state, EX_LIT));
|
179
|
|
- sol_map_set_name(state, ast, "EX_CALL", sol_new_int(state, EX_LIT));
|
180
|
|
- sol_map_set_name(state, ast, "EX_FUNCDECL", sol_new_int(state, EX_LIT));
|
181
|
|
- sol_map_set_name(state, ast, "OP_ADD", sol_new_int(state, OP_ADD));
|
182
|
|
- sol_map_set_name(state, ast, "OP_SUB", sol_new_int(state, OP_SUB));
|
183
|
|
- sol_map_set_name(state, ast, "OP_MUL", sol_new_int(state, OP_MUL));
|
184
|
|
- sol_map_set_name(state, ast, "OP_DIV", sol_new_int(state, OP_DIV));
|
185
|
|
- sol_map_set_name(state, ast, "OP_MOD", sol_new_int(state, OP_MOD));
|
186
|
|
- sol_map_set_name(state, ast, "OP_POW", sol_new_int(state, OP_POW));
|
187
|
|
- sol_map_set_name(state, ast, "OP_BAND", sol_new_int(state, OP_BAND));
|
188
|
|
- sol_map_set_name(state, ast, "OP_BOR", sol_new_int(state, OP_BOR));
|
189
|
|
- sol_map_set_name(state, ast, "OP_BXOR", sol_new_int(state, OP_BXOR));
|
190
|
|
- sol_map_set_name(state, ast, "OP_LAND", sol_new_int(state, OP_LAND));
|
191
|
|
- sol_map_set_name(state, ast, "OP_LOR", sol_new_int(state, OP_LOR));
|
192
|
|
- sol_map_set_name(state, ast, "OP_EQUAL", sol_new_int(state, OP_EQUAL));
|
193
|
|
- sol_map_set_name(state, ast, "OP_LESS", sol_new_int(state, OP_LESS));
|
194
|
|
- sol_map_set_name(state, ast, "OP_GREATER", sol_new_int(state, OP_GREATER));
|
195
|
|
- sol_map_set_name(state, ast, "OP_LESSEQ", sol_new_int(state, OP_LESSEQ));
|
196
|
|
- sol_map_set_name(state, ast, "OP_GREATEREQ", sol_new_int(state, OP_GREATEREQ));
|
197
|
|
- sol_map_set_name(state, ast, "OP_LSHIFT", sol_new_int(state, OP_LSHIFT));
|
198
|
|
- sol_map_set_name(state, ast, "OP_RSHIFT", sol_new_int(state, OP_RSHIFT));
|
199
|
|
- sol_map_set_name(state, ast, "OP_NEG", sol_new_int(state, OP_NEG));
|
200
|
|
- sol_map_set_name(state, ast, "OP_BNOT", sol_new_int(state, OP_BNOT));
|
201
|
|
- sol_map_set_name(state, ast, "OP_LNOT", sol_new_int(state, OP_LNOT));
|
202
|
|
- sol_map_set_name(state, ast, "OP_LEN", sol_new_int(state, OP_LEN));
|
203
|
|
- sol_map_set_name(state, globals, "ast", ast);
|
|
182
|
+ mod = sol_new_map(state);
|
|
183
|
+ sol_map_set_name(state, mod, "getref", sol_new_cfunc(state, sol_f_debug_getref));
|
|
184
|
+ sol_map_set_name(state, mod, "setref", sol_new_cfunc(state, sol_f_debug_setref));
|
|
185
|
+ sol_map_set_name(state, mod, "closure", sol_new_cfunc(state, sol_f_debug_closure));
|
|
186
|
+ sol_map_set_name(state, mod, "globals", sol_new_cfunc(state, sol_f_debug_globals));
|
|
187
|
+ sol_map_set_name(state, mod, "locals", sol_new_cfunc(state, sol_f_debug_locals));
|
|
188
|
+ sol_map_set_name(state, mod, "scopes", sol_new_cfunc(state, sol_f_debug_scopes));
|
|
189
|
+ sol_register_module_name(state, "debug", mod);
|
|
190
|
+ sol_obj_free(mod);
|
|
191
|
+
|
|
192
|
+ mod = sol_new_map(state);
|
|
193
|
+ sol_map_set_name(state, mod, "str", sol_new_cfunc(state, sol_f_iter_str));
|
|
194
|
+ sol_map_set_name(state, mod, "list", sol_new_cfunc(state, sol_f_iter_list));
|
|
195
|
+ sol_map_set_name(state, mod, "map", sol_new_cfunc(state, sol_f_iter_map));
|
|
196
|
+ sol_register_module_name(state, "iter", mod);
|
|
197
|
+ sol_obj_free(mod);
|
204
|
198
|
|
|
199
|
+ mod = sol_new_map(state);
|
|
200
|
+ sol_map_set_name(state, mod, "ST_EXPR", sol_new_int(state, ST_EXPR));
|
|
201
|
+ sol_map_set_name(state, mod, "ST_IFELSE", sol_new_int(state, ST_IFELSE));
|
|
202
|
+ sol_map_set_name(state, mod, "ST_LOOP", sol_new_int(state, ST_LOOP));
|
|
203
|
+ sol_map_set_name(state, mod, "ST_ITER", sol_new_int(state, ST_ITER));
|
|
204
|
+ sol_map_set_name(state, mod, "ST_LIST", sol_new_int(state, ST_LIST));
|
|
205
|
+ sol_map_set_name(state, mod, "ST_RET", sol_new_int(state, ST_RET));
|
|
206
|
+ sol_map_set_name(state, mod, "ST_CONT", sol_new_int(state, ST_CONT));
|
|
207
|
+ sol_map_set_name(state, mod, "ST_BREAK", sol_new_int(state, ST_BREAK));
|
|
208
|
+ sol_map_set_name(state, mod, "EX_LIT", sol_new_int(state, EX_LIT));
|
|
209
|
+ sol_map_set_name(state, mod, "EX_LISTGEN", sol_new_int(state, EX_LIT));
|
|
210
|
+ sol_map_set_name(state, mod, "EX_MAPGEN", sol_new_int(state, EX_LIT));
|
|
211
|
+ sol_map_set_name(state, mod, "EX_BINOP", sol_new_int(state, EX_LIT));
|
|
212
|
+ sol_map_set_name(state, mod, "EX_UNOP", sol_new_int(state, EX_LIT));
|
|
213
|
+ sol_map_set_name(state, mod, "EX_INDEX", sol_new_int(state, EX_LIT));
|
|
214
|
+ sol_map_set_name(state, mod, "EX_SETINDEX", sol_new_int(state, EX_LIT));
|
|
215
|
+ sol_map_set_name(state, mod, "EX_ASSIGN", sol_new_int(state, EX_LIT));
|
|
216
|
+ sol_map_set_name(state, mod, "EX_REF", sol_new_int(state, EX_LIT));
|
|
217
|
+ sol_map_set_name(state, mod, "EX_CALL", sol_new_int(state, EX_LIT));
|
|
218
|
+ sol_map_set_name(state, mod, "EX_FUNCDECL", sol_new_int(state, EX_LIT));
|
|
219
|
+ sol_map_set_name(state, mod, "OP_ADD", sol_new_int(state, OP_ADD));
|
|
220
|
+ sol_map_set_name(state, mod, "OP_SUB", sol_new_int(state, OP_SUB));
|
|
221
|
+ sol_map_set_name(state, mod, "OP_MUL", sol_new_int(state, OP_MUL));
|
|
222
|
+ sol_map_set_name(state, mod, "OP_DIV", sol_new_int(state, OP_DIV));
|
|
223
|
+ sol_map_set_name(state, mod, "OP_MOD", sol_new_int(state, OP_MOD));
|
|
224
|
+ sol_map_set_name(state, mod, "OP_POW", sol_new_int(state, OP_POW));
|
|
225
|
+ sol_map_set_name(state, mod, "OP_BAND", sol_new_int(state, OP_BAND));
|
|
226
|
+ sol_map_set_name(state, mod, "OP_BOR", sol_new_int(state, OP_BOR));
|
|
227
|
+ sol_map_set_name(state, mod, "OP_BXOR", sol_new_int(state, OP_BXOR));
|
|
228
|
+ sol_map_set_name(state, mod, "OP_LAND", sol_new_int(state, OP_LAND));
|
|
229
|
+ sol_map_set_name(state, mod, "OP_LOR", sol_new_int(state, OP_LOR));
|
|
230
|
+ sol_map_set_name(state, mod, "OP_EQUAL", sol_new_int(state, OP_EQUAL));
|
|
231
|
+ sol_map_set_name(state, mod, "OP_LESS", sol_new_int(state, OP_LESS));
|
|
232
|
+ sol_map_set_name(state, mod, "OP_GREATER", sol_new_int(state, OP_GREATER));
|
|
233
|
+ sol_map_set_name(state, mod, "OP_LESSEQ", sol_new_int(state, OP_LESSEQ));
|
|
234
|
+ sol_map_set_name(state, mod, "OP_GREATEREQ", sol_new_int(state, OP_GREATEREQ));
|
|
235
|
+ sol_map_set_name(state, mod, "OP_LSHIFT", sol_new_int(state, OP_LSHIFT));
|
|
236
|
+ sol_map_set_name(state, mod, "OP_RSHIFT", sol_new_int(state, OP_RSHIFT));
|
|
237
|
+ sol_map_set_name(state, mod, "OP_NEG", sol_new_int(state, OP_NEG));
|
|
238
|
+ sol_map_set_name(state, mod, "OP_BNOT", sol_new_int(state, OP_BNOT));
|
|
239
|
+ sol_map_set_name(state, mod, "OP_LNOT", sol_new_int(state, OP_LNOT));
|
|
240
|
+ sol_map_set_name(state, mod, "OP_LEN", sol_new_int(state, OP_LEN));
|
|
241
|
+ sol_map_invert(state, mod);
|
|
242
|
+ sol_register_module_name(state, "ast", mod);
|
|
243
|
+
|
|
244
|
+ btype = sol_new_map(state);
|
|
245
|
+ sol_map_set_name(state, btype, "none", sol_new_int(state, BUF_NONE));
|
205
|
246
|
sol_map_set_name(state, btype, "uint8", sol_new_int(state, BUF_UINT8));
|
206
|
247
|
sol_map_set_name(state, btype, "uint16", sol_new_int(state, BUF_UINT16));
|
207
|
248
|
sol_map_set_name(state, btype, "uint32", sol_new_int(state, BUF_UINT32));
|
|
@@ -220,7 +261,9 @@ int sol_state_init(sol_state_t *state) {
|
220
|
261
|
sol_map_set_name(state, btype, "double", sol_new_int(state, BUF_DOUBLE));
|
221
|
262
|
sol_map_set_name(state, btype, "cstr", sol_new_int(state, BUF_CSTR));
|
222
|
263
|
sol_map_set_name(state, btype, "ptr", sol_new_int(state, BUF_PTR));
|
|
264
|
+ sol_map_invert(state, btype);
|
223
|
265
|
|
|
266
|
+ bsize = sol_new_map(state);
|
224
|
267
|
sol_map_set_name(state, bsize, "uint8", sol_new_int(state, sizeof(uint8_t)));
|
225
|
268
|
sol_map_set_name(state, bsize, "uint16", sol_new_int(state, sizeof(uint16_t)));
|
226
|
269
|
sol_map_set_name(state, bsize, "uint32", sol_new_int(state, sizeof(uint32_t)));
|
|
@@ -239,30 +282,84 @@ int sol_state_init(sol_state_t *state) {
|
239
|
282
|
sol_map_set_name(state, bsize, "double", sol_new_int(state, sizeof(double)));
|
240
|
283
|
sol_map_set_name(state, bsize, "cstr", sol_new_int(state, sizeof(char *)));
|
241
|
284
|
sol_map_set_name(state, bsize, "ptr", sol_new_int(state, sizeof(void *)));
|
242
|
|
-
|
243
|
|
- state->ListFuncs = sol_new_map(state);
|
244
|
|
- sol_map_set_name(state, state->ListFuncs, "copy", sol_new_cfunc(state, sol_f_list_copy));
|
245
|
|
- sol_map_set_name(state, state->ListFuncs, "insert", sol_new_cfunc(state, sol_f_list_insert));
|
246
|
|
- sol_map_set_name(state, state->ListFuncs, "remove", sol_new_cfunc(state, sol_f_list_remove));
|
247
|
|
- sol_map_set_name(state, state->ListFuncs, "truncate", sol_new_cfunc(state, sol_f_list_truncate));
|
248
|
|
- sol_map_set_name(state, state->ListFuncs, "map", sol_new_cfunc(state, sol_f_list_map));
|
249
|
|
- sol_map_set_name(state, state->ListFuncs, "filter", sol_new_cfunc(state, sol_f_list_filter));
|
250
|
|
- sol_map_set_name(state, globals, "list", state->ListFuncs);
|
251
|
285
|
|
252
|
|
- state->BufferFuncs = sol_new_map(state);
|
253
|
|
- sol_map_set_name(state, state->BufferFuncs, "new", sol_new_cfunc(state, sol_f_buffer_new));
|
254
|
|
- sol_map_set_name(state, state->BufferFuncs, "get", sol_new_cfunc(state, sol_f_buffer_get));
|
255
|
|
- sol_map_set_name(state, state->BufferFuncs, "set", sol_new_cfunc(state, sol_f_buffer_set));
|
256
|
|
- sol_map_set_name(state, state->BufferFuncs, "address", sol_new_cfunc(state, sol_f_buffer_address));
|
257
|
|
- sol_map_set_name(state, state->BufferFuncs, "size", sol_new_cfunc(state, sol_f_buffer_size));
|
258
|
|
- sol_map_set_name(state, state->BufferFuncs, "fromstring", sol_new_cfunc(state, sol_f_buffer_fromstring));
|
259
|
|
- sol_map_set_name(state, state->BufferFuncs, "fromobject", sol_new_cfunc(state, sol_f_buffer_fromobject));
|
260
|
|
- sol_map_set_name(state, state->BufferFuncs, "fromaddress", sol_new_cfunc(state, sol_f_buffer_fromaddress));
|
261
|
|
- sol_map_set_name(state, state->BufferFuncs, "type", btype);
|
262
|
|
- sol_map_set_name(state, state->BufferFuncs, "size", bsize);
|
263
|
|
- sol_map_set_name(state, globals, "buffer", state->BufferFuncs);
|
|
286
|
+ bobj = sol_new_map(state);
|
|
287
|
+ sol_map_set_name(state, bobj, "SOL_SINGLET", sol_new_int(state, SOL_SINGLET));
|
|
288
|
+ sol_map_set_name(state, bobj, "SOL_INTEGER", sol_new_int(state, SOL_INTEGER));
|
|
289
|
+ sol_map_set_name(state, bobj, "SOL_FLOAT", sol_new_int(state, SOL_FLOAT));
|
|
290
|
+ sol_map_set_name(state, bobj, "SOL_STRING", sol_new_int(state, SOL_STRING));
|
|
291
|
+ sol_map_set_name(state, bobj, "SOL_LIST", sol_new_int(state, SOL_LIST));
|
|
292
|
+ sol_map_set_name(state, bobj, "SOL_MAP", sol_new_int(state, SOL_MAP));
|
|
293
|
+ sol_map_set_name(state, bobj, "SOL_MCELL", sol_new_int(state, SOL_MCELL));
|
|
294
|
+ sol_map_set_name(state, bobj, "SOL_FUNCTION", sol_new_int(state, SOL_FUNCTION));
|
|
295
|
+ sol_map_set_name(state, bobj, "SOL_CFUNCTION", sol_new_int(state, SOL_CFUNCTION));
|
|
296
|
+ sol_map_set_name(state, bobj, "SOL_STMT", sol_new_int(state, SOL_STMT));
|
|
297
|
+ sol_map_set_name(state, bobj, "SOL_EXPR", sol_new_int(state, SOL_EXPR));
|
|
298
|
+ sol_map_set_name(state, bobj, "SOL_BUFFER", sol_new_int(state, SOL_BUFFER));
|
|
299
|
+ sol_map_set_name(state, bobj, "SOL_DYLIB", sol_new_int(state, SOL_DYLIB));
|
|
300
|
+ sol_map_set_name(state, bobj, "SOL_DYSYM", sol_new_int(state, SOL_DYSYM));
|
|
301
|
+ sol_map_set_name(state, bobj, "SOL_STREAM", sol_new_int(state, SOL_STREAM));
|
|
302
|
+ sol_map_set_name(state, bobj, "SOL_CDATA", sol_new_int(state, SOL_CDATA));
|
|
303
|
+ sol_map_invert(state, bobj);
|
264
|
304
|
|
265
|
|
- sol_obj_free(globals);
|
|
305
|
+ mod = sol_new_map(state);
|
|
306
|
+ sol_map_set_name(state, mod, "new", sol_new_cfunc(state, sol_f_buffer_new));
|
|
307
|
+ sol_map_set_name(state, mod, "fromstring", sol_new_cfunc(state, sol_f_buffer_fromstring));
|
|
308
|
+ sol_map_set_name(state, mod, "fromobject", sol_new_cfunc(state, sol_f_buffer_fromobject));
|
|
309
|
+ sol_map_set_name(state, mod, "fromaddress", sol_new_cfunc(state, sol_f_buffer_fromaddress));
|
|
310
|
+ sol_map_set_name(state, mod, "type", btype);
|
|
311
|
+ sol_map_set_name(state, mod, "sizeof", bsize);
|
|
312
|
+ sol_map_set_name(state, mod, "objtype", bobj);
|
|
313
|
+ sol_register_module_name(state, "buffer", mod);
|
|
314
|
+ sol_obj_free(mod);
|
|
315
|
+ sol_obj_free(bobj);
|
|
316
|
+ sol_obj_free(bsize);
|
|
317
|
+ sol_obj_free(btype);
|
|
318
|
+
|
|
319
|
+ mod = sol_new_map(state);
|
|
320
|
+ sol_map_set_name(state, mod, "MODE_READ", sol_new_int(state, MODE_READ));
|
|
321
|
+ sol_map_set_name(state, mod, "MODE_WRITE", sol_new_int(state, MODE_WRITE));
|
|
322
|
+ sol_map_set_name(state, mod, "MODE_APPEND", sol_new_int(state, MODE_APPEND));
|
|
323
|
+ sol_map_set_name(state, mod, "MODE_TRUNCATE", sol_new_int(state, MODE_TRUNCATE));
|
|
324
|
+ sol_map_set_name(state, mod, "MODE_BINARY", sol_new_int(state, MODE_BINARY));
|
|
325
|
+ sol_map_set_name(state, mod, "SEEK_SET", sol_new_int(state, SEEK_SET));
|
|
326
|
+ sol_map_set_name(state, mod, "SEEK_CUR", sol_new_int(state, SEEK_CUR));
|
|
327
|
+ sol_map_set_name(state, mod, "SEEK_END", sol_new_int(state, SEEK_END));
|
|
328
|
+ sol_map_set_name(state, mod, "ALL", sol_new_string(state, "ALL"));
|
|
329
|
+ sol_map_set_name(state, mod, "LINE", sol_new_string(state, "LINE"));
|
|
330
|
+ sol_map_set_name(state, mod, "stdin", sol_new_stream(state, stdin, MODE_READ));
|
|
331
|
+ sol_map_set_name(state, mod, "stdout", sol_new_stream(state, stdout, MODE_WRITE));
|
|
332
|
+ sol_map_set_name(state, mod, "stderr", sol_new_stream(state, stderr, MODE_WRITE));
|
|
333
|
+ sol_map_set_name(state, mod, "open", sol_new_cfunc(state, sol_f_stream_open));
|
|
334
|
+ sol_register_module_name(state, "io", mod);
|
|
335
|
+ sol_obj_free(mod);
|
|
336
|
+
|
|
337
|
+ meths = sol_new_map(state);
|
|
338
|
+ sol_map_set_name(state, meths, "get", sol_new_cfunc(state, sol_f_buffer_get));
|
|
339
|
+ sol_map_set_name(state, meths, "set", sol_new_cfunc(state, sol_f_buffer_set));
|
|
340
|
+ sol_map_set_name(state, meths, "address", sol_new_cfunc(state, sol_f_buffer_address));
|
|
341
|
+ sol_map_set_name(state, meths, "size", sol_new_cfunc(state, sol_f_buffer_size));
|
|
342
|
+ sol_register_methods_name(state, "buffer", meths);
|
|
343
|
+ sol_obj_free(meths);
|
|
344
|
+
|
|
345
|
+ meths = sol_new_map(state);
|
|
346
|
+ sol_map_set_name(state, meths, "copy", sol_new_cfunc(state, sol_f_list_copy));
|
|
347
|
+ sol_map_set_name(state, meths, "insert", sol_new_cfunc(state, sol_f_list_insert));
|
|
348
|
+ sol_map_set_name(state, meths, "remove", sol_new_cfunc(state, sol_f_list_remove));
|
|
349
|
+ sol_map_set_name(state, meths, "truncate", sol_new_cfunc(state, sol_f_list_truncate));
|
|
350
|
+ sol_map_set_name(state, meths, "map", sol_new_cfunc(state, sol_f_list_map));
|
|
351
|
+ sol_map_set_name(state, meths, "filter", sol_new_cfunc(state, sol_f_list_filter));
|
|
352
|
+ sol_register_methods_name(state, "list", meths);
|
|
353
|
+ sol_obj_free(meths);
|
|
354
|
+
|
|
355
|
+ meths = sol_new_map(state);
|
|
356
|
+ sol_map_set_name(state, meths, "read", sol_new_cfunc(state, sol_f_stream_read));
|
|
357
|
+ sol_map_set_name(state, meths, "write", sol_new_cfunc(state, sol_f_stream_write));
|
|
358
|
+ sol_map_set_name(state, meths, "seek", sol_new_cfunc(state, sol_f_stream_seek));
|
|
359
|
+ sol_map_set_name(state, meths, "tell", sol_new_cfunc(state, sol_f_stream_tell));
|
|
360
|
+ sol_map_set_name(state, meths, "flush", sol_new_cfunc(state, sol_f_stream_flush));
|
|
361
|
+ sol_register_methods_name(state, "stream", meths);
|
|
362
|
+ sol_obj_free(meths);
|
266
|
363
|
|
267
|
364
|
if(sol_has_error(state)) goto cleanup;
|
268
|
365
|
|
|
@@ -283,7 +380,8 @@ void sol_state_cleanup(sol_state_t *state) {
|
283
|
380
|
sol_obj_free(state->OutOfMemory);
|
284
|
381
|
sol_obj_free(state->StopIteration);
|
285
|
382
|
sol_obj_free(state->ret);
|
286
|
|
- sol_obj_free(state->ListFuncs);
|
|
383
|
+ sol_obj_free(state->modules);
|
|
384
|
+ sol_obj_free(state->methods);
|
287
|
385
|
}
|
288
|
386
|
|
289
|
387
|
sol_object_t *sol_state_resolve(sol_state_t *state, sol_object_t *key) {
|
|
@@ -305,6 +403,11 @@ sol_object_t *sol_state_resolve(sol_state_t *state, sol_object_t *key) {
|
305
|
403
|
}
|
306
|
404
|
dsl_free_seq_iter(iter);
|
307
|
405
|
sol_obj_free(args);
|
|
406
|
+
|
|
407
|
+ temp = sol_get_module(state, key);
|
|
408
|
+ if(!sol_is_none(state, temp)) {
|
|
409
|
+ return temp;
|
|
410
|
+ }
|
308
|
411
|
|
309
|
412
|
return sol_incref(state->None);
|
310
|
413
|
}
|
|
@@ -413,7 +516,73 @@ void sol_clear_error(sol_state_t *state) {
|
413
|
516
|
sol_obj_free(olderr);
|
414
|
517
|
}
|
415
|
518
|
|
|
519
|
+void sol_register_module(sol_state_t *state, sol_object_t *key, sol_object_t *val) {
|
|
520
|
+ sol_map_set(state, state->modules, key, val);
|
|
521
|
+}
|
|
522
|
+
|
|
523
|
+void sol_register_module_name(sol_state_t *state, char *name, sol_object_t *val) {
|
|
524
|
+ sol_map_set_name(state, state->modules, name, val);
|
|
525
|
+}
|
|
526
|
+
|
|
527
|
+sol_object_t *sol_get_module(sol_state_t *state, sol_object_t *key) {
|
|
528
|
+ return sol_map_get(state, state->modules, key);
|
|
529
|
+}
|
|
530
|
+
|
|
531
|
+sol_object_t *sol_get_module_name(sol_state_t *state, char *name) {
|
|
532
|
+ return sol_map_get_name(state, state->modules, name);
|
|
533
|
+}
|
|
534
|
+
|
|
535
|
+void sol_register_methods(sol_state_t *state, sol_object_t *key, sol_object_t *val) {
|
|
536
|
+ sol_map_set(state, state->methods, key, val);
|
|
537
|
+}
|
|
538
|
+
|
|
539
|
+void sol_register_methods_name(sol_state_t *state, char *name, sol_object_t *val) {
|
|
540
|
+ sol_map_set_name(state, state->methods, name, val);
|
|
541
|
+}
|
|
542
|
+
|
|
543
|
+sol_object_t *sol_get_methods(sol_state_t *state, sol_object_t *key) {
|
|
544
|
+ return sol_map_get(state, state->methods, key);
|
|
545
|
+}
|
|
546
|
+
|
|
547
|
+sol_object_t *sol_get_methods_name(sol_state_t *state, char *name) {
|
|
548
|
+ return sol_map_get_name(state, state->methods, name);
|
|
549
|
+}
|
|
550
|
+
|
|
551
|
+sol_object_t *sol_get_stdin(sol_state_t *state) {
|
|
552
|
+ sol_object_t *io = sol_state_resolve_name(state, "io");
|
|
553
|
+ sol_object_t *res = sol_map_get_name(state, io, "stdin");
|
|
554
|
+ sol_obj_free(io);
|
|
555
|
+ if(sol_is_none(state, res)) {
|
|
556
|
+ printf("WARNING: No io.stdin, returning a new ref\n");
|
|
557
|
+ return sol_new_stream(state, stdin, MODE_READ);
|
|
558
|
+ }
|
|
559
|
+ return res;
|
|
560
|
+}
|
|
561
|
+
|
|
562
|
+sol_object_t *sol_get_stdout(sol_state_t *state) {
|
|
563
|
+ sol_object_t *io = sol_state_resolve_name(state, "io");
|
|
564
|
+ sol_object_t *res = sol_map_get_name(state, io, "stdout");
|
|
565
|
+ sol_obj_free(io);
|
|
566
|
+ if(sol_is_none(state, res)) {
|
|
567
|
+ printf("WARNING: No io.stdout, returning a new ref\n");
|
|
568
|
+ return sol_new_stream(state, stdout, MODE_WRITE);
|
|
569
|
+ }
|
|
570
|
+ return res;
|
|
571
|
+}
|
|
572
|
+
|
|
573
|
+sol_object_t *sol_get_stderr(sol_state_t *state) {
|
|
574
|
+ sol_object_t *io = sol_state_resolve_name(state, "io");
|
|
575
|
+ sol_object_t *res = sol_map_get_name(state, io, "stderr");
|
|
576
|
+ sol_obj_free(io);
|
|
577
|
+ if(sol_is_none(state, res)) {
|
|
578
|
+ printf("WARNING: No io.stderr, returning a new ref\n");
|
|
579
|
+ return sol_new_stream(state, stderr, MODE_WRITE);
|
|
580
|
+ }
|
|
581
|
+ return res;
|
|
582
|
+}
|
|
583
|
+
|
416
|
584
|
void sol_ops_init(sol_ops_t *ops) {
|
|
585
|
+ ops->tname = "unknown";
|
417
|
586
|
ops->add = sol_f_not_impl;
|
418
|
587
|
ops->sub = sol_f_not_impl;
|
419
|
588
|
ops->mul = sol_f_not_impl;
|
|
@@ -433,7 +602,8 @@ void sol_ops_init(sol_ops_t *ops) {
|
433
|
602
|
ops->iter = sol_f_not_impl;
|
434
|
603
|
ops->toint = sol_f_not_impl;
|
435
|
604
|
ops->tofloat = sol_f_not_impl;
|
436
|
|
- ops->tostring = sol_f_not_impl;
|
|
605
|
+ ops->tostring = sol_f_default_tostring;
|
|
606
|
+ ops->repr = sol_f_default_repr;
|
437
|
607
|
ops->init = sol_f_no_op;
|
438
|
608
|
ops->free = sol_f_no_op;
|
439
|
609
|
}
|