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

Emit error messages on stderr.

This commit is contained in:
Simon Forman 2023-02-14 17:52:52 -08:00
parent eca5e41cc9
commit db322b0b3b
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
implementations/C/joy.c
View File

@ -161,7 +161,7 @@ pop_any(JoyListPtr stack)
{ {
JoyList result; JoyList result;
if (!(*stack)) { if (!(*stack)) {
printf("Not enough values on stack.\n"); fprintf(stderr, "Not enough values on stack.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
result = *stack; result = *stack;
@ -178,7 +178,7 @@ pop_int(JoyListPtr stack)
case joyInt: case joyInt:
return &(node->head->value.i); return &(node->head->value.i);
default: default:
printf("Not an integer.\n"); fprintf(stderr, "Not an integer.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
} }
@ -195,7 +195,7 @@ pop_bool(JoyListPtr stack)
case joyFalse: case joyFalse:
return 0; return 0;
default: default:
printf("Not a Boolean value.\n"); fprintf(stderr, "Not a Boolean value.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
} }
@ -210,7 +210,7 @@ pop_list_node(JoyListPtr stack)
case joyList: case joyList:
return node; return node;
default: default:
printf("Not a list.\n"); fprintf(stderr, "Not a list.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
} }
@ -373,14 +373,14 @@ parse_list(char **text)
/* NULL string input? */ /* NULL string input? */
if (NULL == *text) { if (NULL == *text) {
printf("Missing ']' bracket. A\n"); fprintf(stderr, "Missing ']' bracket. A\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
}; };
*text = trim_leading_blanks(*text); *text = trim_leading_blanks(*text);
if (NULL == *text) { if (NULL == *text) {
printf("Missing ']' bracket. B\n"); fprintf(stderr, "Missing ']' bracket. B\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
}; };
@ -393,7 +393,7 @@ parse_list(char **text)
*/ */
if (NULL == rest) { if (NULL == rest) {
printf("Missing ']' bracket. C\n"); fprintf(stderr, "Missing ']' bracket. C\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
}; };
@ -461,10 +461,10 @@ parse_node(char **text)
return make_list_node(parse_list(text)); return make_list_node(parse_list(text));
} }
if (']' == rest[0]) { if (']' == rest[0]) {
printf("Extra ']' bracket.\n"); fprintf(stderr, "Extra ']' bracket.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
printf("Should be unreachable."); fprintf(stderr, "Should be unreachable.");
exit(1); exit(1);
} }
@ -522,12 +522,12 @@ next_term(JoyListPtr expression)
JoyList quote; JoyList quote;
JoyTypePtr term; JoyTypePtr term;
if (!(*expression)) { if (!(*expression)) {
printf("Do not call next_term on an empty expression.\n"); fprintf(stderr, "Do not call next_term on an empty expression.\n");
exit(1); exit(1);
} }
quote = pop_list(expression); quote = pop_list(expression);
if (!quote) { if (!quote) {
printf("How did an empty list get onto the expression!?\n"); fprintf(stderr, "How did an empty list get onto the expression!?\n");
exit(1); exit(1);
} }
term = quote->head; term = quote->head;
@ -577,7 +577,7 @@ lshift(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
JoyList node; JoyList node;
b = pop_int(stack); b = pop_int(stack);
if (-1 == mpz_sgn(*b)) { if (-1 == mpz_sgn(*b)) {
printf("Negative shift count.\n"); fprintf(stderr, "Negative shift count.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
a = pop_int(stack); a = pop_int(stack);
@ -595,7 +595,7 @@ rshift(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
JoyList node; JoyList node;
b = pop_int(stack); b = pop_int(stack);
if (-1 == mpz_sgn(*b)) { if (-1 == mpz_sgn(*b)) {
printf("Negative shift count.\n"); fprintf(stderr, "Negative shift count.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
a = pop_int(stack); a = pop_int(stack);
@ -684,7 +684,7 @@ void
pop(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression) pop(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{ {
if (!(*stack)) { if (!(*stack)) {
printf("Cannot pop empty stack.\n"); fprintf(stderr, "Cannot pop empty stack.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
pop_any(stack); pop_any(stack);
@ -732,7 +732,7 @@ first(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{ {
JoyList quote = pop_list(stack); JoyList quote = pop_list(stack);
if (!quote) { if (!quote) {
printf("Cannot take first of empty list.\n"); fprintf(stderr, "Cannot take first of empty list.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
push_thing(quote->head, stack); push_thing(quote->head, stack);
@ -744,7 +744,7 @@ rest(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
{ {
JoyList quote = pop_list(stack); JoyList quote = pop_list(stack);
if (!quote) { if (!quote) {
printf("Cannot take rest of empty list.\n"); fprintf(stderr, "Cannot take rest of empty list.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
push_quote(quote->tail, stack); push_quote(quote->tail, stack);
@ -801,7 +801,7 @@ truthy(JoyListPtr stack, __attribute__((unused)) JoyListPtr expression)
} }
break; break;
default: default:
printf("Cannot Boolify.\n"); fprintf(stderr, "Cannot Boolify.\n");
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }
} }
@ -859,7 +859,7 @@ dispatch(char *sym, JoyListPtr stack, JoyListPtr expression)
push_quote_onto_expression(s->body, expression); push_quote_onto_expression(s->body, expression);
return; return;
} }
printf("Unknown: %s\n", sym); fprintf(stderr, "Unknown: %s\n", sym);
longjmp(jbuf, 1); longjmp(jbuf, 1);
} }