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

dispatch

This commit is contained in:
Simon Forman 2023-02-07 17:44:32 -08:00
parent b57cfdf825
commit 0c8e49d591
1 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
implementations/C/joy.c
View File

@ -364,9 +364,9 @@ print_stack(JoyList el)
JoyList
parse_list(char **text)
{
/*
Extract terms from the text until a closing bracket is found.
*/
/*
* Extract terms from the text until a closing bracket is found.
*/
char *rest;
ptrdiff_t diff;
JoyList result = EMPTY_LIST;
@ -386,12 +386,12 @@ Extract terms from the text until a closing bracket is found.
/* Look for blanks or brackets. */
rest = strpbrk(*text, " []");
/*
rest now points to a space or '[' or ']' after a term,
-or- it is NULL if the rest of the string is a single term
with no spaces nor brackets. If that's the case then we're
missing a closing bracket!
*/
/* rest now points to a space or '[' or ']' after a term, -or- it
* is NULL if the rest of the string is a single term with no
* spaces nor brackets. If that's the case then we're missing a
* closing bracket!
*/
if (NULL == rest) {
printf("Missing ']' bracket. C\n");
longjmp(jbuf, 1);
@ -766,12 +766,23 @@ truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
*/
void
dispatch(char *sym, JoyListPtr stack, JoyListPtr expression)
{
const struct dict_entry *word = in_word_set(sym, strlen(sym));
if (!word) {
printf("Unknown: %s\n", sym);
longjmp(jbuf, 1);
}
/* longjmp() is as good as return, no need for else clause. */
word->func(stack, expression);
}
void
joy(JoyListPtr stack, JoyListPtr expression)
{
char *sym;
JoyTypePtr term;
const struct dict_entry *interned;
JoyList e = EMPTY_LIST;
JoyListPtr ePtr = &e;
push_quote_onto_expression(*expression, ePtr);
@ -786,19 +797,13 @@ joy(JoyListPtr stack, JoyListPtr expression)
case joyList:
push_thing(term, stack);
break;
case joySymbol:
sym = term->value.symbol;
interned = in_word_set(sym, strlen(sym));
if (!interned) {
printf("Unknown: %s\n", sym);
longjmp(jbuf, 1);
}
interned->func(stack, expression);
dispatch(term->value.symbol, stack, expression);
}
}
}
int
main(void)
{