2 * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
4 * Permission to use, copy, modify, and distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
109 TAILQ_HEAD(bindings, binding);
111 TAILQ_ENTRY(binding) entry;
116 * Hack to support varargs. We set a special variable named
117 * "..." that contains the list of ops that will evaluate to
123 TAILQ_HEAD(envs, env);
125 TAILQ_ENTRY(env) entry;
126 struct bindings bindings;
129 TAILQ_HEAD(opstacks, opstack);
131 TAILQ_ENTRY(opstack) entry;
137 TAILQ_HEAD(procs, proc);
139 TAILQ_ENTRY(proc) entry;
143 char *args[MAXWELEM];
145 int (*nativefn)(int);
148 TAILQ_HEAD(tests, test);
150 TAILQ_ENTRY(test) entry;
162 int global_set(char *, struct op *);
164 struct op *newop(int);
165 void free_op_rec(struct op *);
166 void free_op(struct op *);
167 struct op *op_rest(void);
168 struct op *op_assign(char *, struct op *);
169 struct op *op_assert(struct op *);
170 struct op *op_var(char *);
171 struct op *op_lit_str(char *);
172 struct op *op_lit_num(uint64_t);
173 struct op *op_cmp_eq(struct op *, struct op *);
174 struct op *op_cmp_leq(struct op *, struct op *);
175 struct op *op_cast(struct op *, int);
176 struct op *op_faccess(struct op *, char *);
177 struct op *op_sfail(struct op *, char *);
178 struct op *op_vargs(void);
180 void ppf_val(FILE *, const struct value *);
181 void pp_val(const struct value *);
182 const char *val_type(struct value *);
183 int val_trueish(struct value *);
184 int val_isnum(struct value *);
185 int64_t val_tonum(struct value *);
186 int val_eq(struct value *, struct value *);
187 int val_leq(struct value *, struct value *);
188 int val_cast(struct value *, int);
189 int val_faccess(struct value *, const char *, struct value *);
190 void pp_op(struct op *);
191 void pp_block(struct op *);
192 int eval(struct op *);
195 void prepare_funcall(void);
196 void push_arg(struct op *);
197 struct op *op_funcall(struct proc *);
200 void add_builtin_proc(const char *name, int (*)(int), int, int);
201 void prepare_proc(void);
202 /* push_arg works on procs too */
203 int proc_setup_body(void);
204 void proc_done(char *name);
205 void block_push(struct op *);
206 struct proc *proc_by_name(const char *);
209 void prepare_test(void);
210 void test_done(int, char *);
213 void loadfile(const char *);