main: print out expressions from reading
This commit is contained in:
15
src/main.c
15
src/main.c
@@ -88,6 +88,21 @@ int main(int argc, char *argv[])
|
|||||||
goto end;
|
goto end;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
LOG("[INFO]: Utilised %lu bytes in parsing\n", sys_cost(&sys));
|
||||||
|
LOG("[INFO]: Parsed %lu %s\n", VEC_SIZE(&ast, lisp_t *),
|
||||||
|
VEC_SIZE(&ast, lisp_t *) == 1 ? "expr" : "exprs");
|
||||||
|
|
||||||
|
{
|
||||||
|
for (u64 i = 0; i < VEC_SIZE(&ast, lisp_t *); ++i)
|
||||||
|
{
|
||||||
|
lisp_t *expr = VEC_GET(&ast, i, lisp_t *);
|
||||||
|
LOG("\t[%lu]: ", i);
|
||||||
|
lisp_print(stdout, expr);
|
||||||
|
printf("\n");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
end:
|
end:
|
||||||
sys_free(&sys);
|
sys_free(&sys);
|
||||||
vec_free(&ast);
|
vec_free(&ast);
|
||||||
|
|||||||
Reference in New Issue
Block a user