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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
#ifndef BUILTINS_H_
#define BUILTINS_H_
#include <stem.h>
/*! @brief adds two numbers together, pushes result on the stack */
/*! call in stem with num1 num2 + => num */
void stemadd(value_t *v);
/*! @brief subtracts two numbers together, pushes result on the stack */
/*! call in stem with num1 num2 - => num */
void stemsub(value_t *v);
/*! @brief multiplies two numbers together, pushes result on the stack */
/*! call in stem with num1 num2 * => num */
void stemmul(value_t *v);
/*! @brief divides two numbers together, pushes result on the stack */
/*! call in stem with num1 num2 / => num */
void stemdiv(value_t *v);
/*! @brief creates function with name [word] and value [quote] */
/*! call with `word value def`. */
void stemfunc(value_t *v);
/* @brief Inserts a value into a string or quote. */
/* call with `[quote/string] value index insert` */
void steminsert(value_t *v);
/*! @brief takes first number to the power of the second, pushes result on the
* stack */
void stempow(value_t *v);
/*! @brief takes sine of first value on the stack */
void stemsin(value_t *v);
/*! @brief takes cosine of first value on the stack */
void stemcos(value_t *v);
/*! @brief takes exp of first value on the stack */
void stemexp(value_t *v);
/*! @brief evaluates the first value on the stack */
void stemeval(value_t *v);
/*! @brief takes ln of first value on the stack */
void stemln(value_t *v);
/*! @brief takes ceiling function of first value on the stack */
void stemceil(value_t *v);
/*! @brief takes floor function of first value on the stack */
void stemfloor(value_t *v);
/*! @brief converts valid stem code string and converts it into a quote, pushes
* quote onto the stack */
void strquote(value_t *v);
/* @brief [value] [quote] curry */
void curry(value_t *v);
/*! @brief does literally nothing */
void nop(value_t *v);
/*! @brief reads a file into a string, returns on the stack */
void stemfread(value_t *v);
/*! @brief reads stdin into string */
void stemread(value_t *v);
/*! @brief exits the program */
void stemexit(value_t *v);
/*! @brief quotes first value on the stack */
void quote(value_t *v);
/*! @brief returns type of first stack element as an integer */
void stemtype(value_t *v);
/*! @brief discards and frees the first element of the stack */
void dsc(value_t *v);
/*! @brief swaps the top two values of the stack */
void swap(value_t *v);
/*! @brief [VWORD] isdef; returns 1 if name of function is defined */
void isdef(value_t *v);
/*! @brief deep copies first value of the stack */
void stemdup(value_t *v);
/*! @brief prints the entire stack */
void questionmark(value_t *v);
/*! @brief pops first value off of the stack and prints it */
void period(value_t *v);
/*! @brief [VWORD/VSTR/VQUOTE] len; returns length of value */
void stemlen(value_t *v);
/*! @brief pops first element, evaluates second element, then pushes first
* element back */
void dip(value_t *v);
/*! @brief keeps value on the stack after evaluating the value */
void keep(value_t *v);
/*! @brief deletes value at index from quote, string, or word */
void del(value_t *v);
/*! @brief clears the stack and frees all elements */
void clear(value_t *v);
/*! @brief [cond] [if true] [if false] if; evaluates 2nd term if cond is true;
* otherwise evaluates the other one. */
void stemif(value_t *v);
/*! @brief greater than or equals */
void gtequals(value_t *v);
/*! @brief less than or equals */
void ltequals(value_t *v);
/*! @brief greater than */
void gthan(value_t *v);
/*! @brief less than */
void lthan(value_t *v);
/*! @brief polymorphic equals; arguments cannot be quotes */
void equals(value_t *v);
/*! @brief polymorphic not equals; arguments cannot be quotes */
void nequals(value_t *v);
/*! @brief converts word to string */
void wtostr(value_t *v);
/*! @brief joins two quotes together, pushes a new quote. Also joins two strings
* together and pushes a new string. */
void compose(value_t *v);
/*! @brief checks if string is a number. */
void isnum(value_t *v);
/*! @brief string to integer */
void stoi(value_t *v);
/*! @brief returns current stack size */
void ssize(value_t *v);
/*! @brief puts entire stack into a quote, then pushes that quote onto the stack
*/
void qstack(value_t *v);
/*! @brief [number] [VQUOTE/VSTR/VWORD] vat; gets the value at a certain index.
*/
void vat(value_t *v);
/*! @brief */
void stemfwrite(value_t *v);
/*! @brief [VINT/VFLOAT] sleep; sleeps for an amount of seconds. */
void stemsleep(value_t *v);
void stemcut(value_t *v);
void undef(value_t *v);
/*! @brief adds all the custom objects defined to OBJ_TABLE */
void add_objs();
/*! @brief Adds functions to FLIT table */
void add_funcs();
#endif // BUILTINS_H_
|
