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

Print list.

This commit is contained in:
Simon Forman 2023-02-01 20:09:03 -08:00
parent cd0bfc09d2
commit 202747cfbb
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
implementations/C/joy.c
View File

@ -129,7 +129,6 @@ text_to_expression(char *text)
if (diff) { if (diff) {
/* Allocate space and copy out the substring. */ /* Allocate space and copy out the substring. */
current_list_node = make_symbol_node(text, diff); current_list_node = make_symbol_node(text, diff);
if (head) { if (head) {
head->tail = current_list_node; head->tail = current_list_node;
@ -163,6 +162,33 @@ text_to_expression(char *text)
} }
void
print_node(struct JoyType j)
{
switch (j.kind) {
case joySymbol:
printf("%s", j.value.symbol);
break;
default:
printf("wtf");
}
}
void
print_list(struct list_node* el)
{
while (NULL != el) {
print_node(el->head);
el = el->tail;
if (NULL != el) {
printf(" ");
}
}
printf("\n");
}
int int
main(void) main(void)
{ {
@ -184,7 +210,7 @@ main(void)
el = push_integer_from_str("3141592653589793238462643383279502884", 0); el = push_integer_from_str("3141592653589793238462643383279502884", 0);
el = text_to_expression("char *te xt"); el = text_to_expression("char *te xt");
print_list(el);
/*sexpr i = new_int();*/ /*sexpr i = new_int();*/
/*mpz_add(i.i, pi, pi);*/ /*mpz_add(i.i, pi, pi);*/
/*gmp_printf ("%Zd\n", i.i);*/ /*gmp_printf ("%Zd\n", i.i);*/