int main(int argc, const char **argv)
{
std::set_new_handler(break_new_handler);
std::string filename;
unsigned ops = options(argc, argv, filename);
int r = 0;
if (ops != TEST)
r = compile(argv[0], filename.c_str(), ops);
else
{
pairutil_test();
sizes_test();
reader_test();
wait_console();
}
return r;
}
int main() {
printf("READ FROM STRING\n");
reader_init_s("foo bar baz");
reader_test();
value_prn(parse());
value_prn(parse());
value_prn(parse());
printf("\nREAD FROM FILE\n");
reader_init_f(fopen("../test/1.lsp", "r"));
value_prn(parse());
value_prn(parse());
value_prn(parse());
value_prn(parse());
value_prn(parse());
value_prn(parse());
printf("\nDONE\n");
return 0;
}
