sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

div and mod

This commit is contained in:
Simon Forman 2023-02-04 19:34:38 -08:00
parent 720f36a4c0
commit 6159165acd
4 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementations/C/KEYWORDS.txt
View File

@ -6,11 +6,11 @@
%} %}
struct dict_entry; struct dict_entry;
%% %%
"%", mod "%", tdiv_r
*, mul *, mul
+, add +, add
-, sub -, sub
/, div_joyfunc /, tdiv_q
bool, truthy bool, truthy
branch, branch branch, branch
clear, clear clear, clear

4
implementations/C/joy.c
View File

@ -516,8 +516,8 @@ name(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression) \
{ \ { \
mpz_t *a, *b; \ mpz_t *a, *b; \
JoyList node; \ JoyList node; \
a = pop_int(stack); \
b = pop_int(stack); \ b = pop_int(stack); \
a = pop_int(stack); \
node = newIntNode(); \ node = newIntNode(); \
mpz_ ## name(node->head->value.i, *a, *b); \ mpz_ ## name(node->head->value.i, *a, *b); \
node->tail = *stack; \ node->tail = *stack; \
@ -527,6 +527,8 @@ name(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression) \
BINARY_MATH_OP(add) BINARY_MATH_OP(add)
BINARY_MATH_OP(sub) BINARY_MATH_OP(sub)
BINARY_MATH_OP(mul) BINARY_MATH_OP(mul)
BINARY_MATH_OP(tdiv_q)
BINARY_MATH_OP(tdiv_r)
/* /*

4
implementations/C/joy.h
View File

@ -60,11 +60,11 @@ void add(JoyListPtr stack, JoyListPtr expression);
void branch(JoyListPtr stack, JoyListPtr expression); void branch(JoyListPtr stack, JoyListPtr expression);
void clear(JoyListPtr stack, JoyListPtr expression); void clear(JoyListPtr stack, JoyListPtr expression);
void cmp_joyfunc(JoyListPtr stack, JoyListPtr expression); void cmp_joyfunc(JoyListPtr stack, JoyListPtr expression);
void div_joyfunc(JoyListPtr stack, JoyListPtr expression);
void i_joyfunc(JoyListPtr stack, JoyListPtr expression); void i_joyfunc(JoyListPtr stack, JoyListPtr expression);
void mod(JoyListPtr stack, JoyListPtr expression);
void mul(JoyListPtr stack, JoyListPtr expression); void mul(JoyListPtr stack, JoyListPtr expression);
void sub(JoyListPtr stack, JoyListPtr expression); void sub(JoyListPtr stack, JoyListPtr expression);
void tdiv_q(JoyListPtr stack, JoyListPtr expression);
void tdiv_r(JoyListPtr stack, JoyListPtr expression);
void truthy(JoyListPtr stack, JoyListPtr expression); void truthy(JoyListPtr stack, JoyListPtr expression);

4
implementations/C/keywords.c
View File

@ -107,11 +107,11 @@ in_word_set (register const char *str, register size_t len)
{"branch", branch}, {"branch", branch},
{""}, {""}, {""}, {""},
#line 9 "KEYWORDS.txt" #line 9 "KEYWORDS.txt"
{"%", mod}, {"%", tdiv_r},
#line 11 "KEYWORDS.txt" #line 11 "KEYWORDS.txt"
{"+", add}, {"+", add},
#line 13 "KEYWORDS.txt" #line 13 "KEYWORDS.txt"
{"/", div_joyfunc}, {"/", tdiv_q},
{""}, {""}, {""}, {""}, {""}, {""},
#line 10 "KEYWORDS.txt" #line 10 "KEYWORDS.txt"
{"*", mul}, {"*", mul},