62 lines
1.5 KiB
C
62 lines
1.5 KiB
C
/**
|
|
* See Copyright Notice in picrin.h
|
|
*/
|
|
|
|
#include "picrin.h"
|
|
#include "picrin/extra.h"
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
pic_state *pic;
|
|
pic_value e, port;
|
|
|
|
pic = pic_open(pic_default_allocf, NULL);
|
|
|
|
pic_try {
|
|
if (argc == 1) { /* repl */
|
|
while (1) {
|
|
pic_printf(pic, "> ");
|
|
e = pic_funcall(pic, "read", 0);
|
|
if (pic_eof_p(pic, e))
|
|
break;
|
|
pic_printf(pic, "~s\n", pic_funcall(pic, "eval", 1, e));
|
|
}
|
|
} else if (argc == 2) { /* load file */
|
|
FILE *file = fopen(argv[1], "r");
|
|
if (! file) {
|
|
fprintf(stderr, "could not open file %s\n", argv[1]);
|
|
exit(1);
|
|
}
|
|
port = pic_fopen(pic, file, "r");
|
|
while (1) {
|
|
e = pic_funcall(pic, "read", 1, port);
|
|
if (pic_eof_p(pic, e))
|
|
break;
|
|
pic_void(pic, pic_funcall(pic, "eval", 1, e));
|
|
}
|
|
} else if (argc >= 3 && strcmp(argv[1], "-c") == 0) { /* compile */
|
|
const char *name = argv[2];
|
|
if (argc == 3) {
|
|
port = pic_stdin(pic);
|
|
} else {
|
|
FILE *file = fopen(argv[3], "r");
|
|
if (! file) {
|
|
fprintf(stderr, "could not open file %s\n", argv[3]);
|
|
exit(1);
|
|
}
|
|
port = pic_fopen(pic, file, "r");
|
|
}
|
|
pic_serialize(pic, name, pic_assemble(pic, pic_funcall(pic, "compile", 1, pic_funcall(pic, "read", 1, port))));
|
|
} else {
|
|
fprintf(stderr, "usage: mini-picrin [-c] [file]\n");
|
|
exit(1);
|
|
}
|
|
}
|
|
pic_catch(e) {
|
|
pic_print_error(pic, pic_stderr(pic), e);
|
|
}
|
|
|
|
pic_close(pic);
|
|
}
|