-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbuiltin.h
57 lines (45 loc) · 1.56 KB
/
builtin.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#ifndef BUILTIN_H
#define BUILTIN_H
#include "lval.h"
#include "lenv.h"
#include "parsers.h"
/* BUILTIN FUNCTIONS */
/* Mathematical functions */
lval * builtin_add(lenv * e, lval * a);
lval * builtin_sub(lenv * e, lval * a);
lval * builtin_mul(lenv * e, lval * a);
lval * builtin_div(lenv * e, lval * a);
lval * builtin_mod(lenv * e, lval * a);
lval * builtin_power(lenv * e, lval * a);
lval * builtin_max(lenv * e, lval * a);
lval * builtin_min(lenv * e, lval * a);
/* List functions */
lval * builtin_head(lenv * e, lval * v);
lval * builtin_tail(lenv * e, lval * v);
lval * builtin_list(lenv * e, lval * v);
lval * builtin_eval(lenv * e, lval * v);
lval * builtin_join(lenv * e, lval * v);
/* define functions */
lval * builtin_lambda(lenv * e, lval * v);
lval * builtin_def(lenv * e, lval * v);
lval * builtin_put(lenv * e, lval * v);
lval * builtin_var(lenv* e, lval * v, char* func);
lval * builtin_fun(lenv * e, lval * v);
lval * builtin_exit(lenv * e, lval * v);
/* ordering functions */
lval * builtin_gt(lenv * e, lval * v);
lval * builtin_ge(lenv * e, lval * v);
lval * builtin_lt(lenv * e, lval * v);
lval * builtin_le(lenv * e, lval * v);
lval * builtin_eq(lenv * e, lval * v);
lval * builtin_ne(lenv * e, lval * v);
/* logical operators */
lval * builtin_logical_and(lenv * e, lval * v);
lval * builtin_logical_or(lenv * e, lval * v);
lval * builtin_logical_not(lenv * e, lval * v);
/* operators */
lval * builtin_if(lenv * e, lval * v);
lval * builtin_load(lenv * e, lval * v);
lval * builtin_print(lenv * e, lval * v);
lval * builtin_error(lenv * e, lval * v);
#endif