105 lines
1.8 KiB
C
105 lines
1.8 KiB
C
#include <xp/lisp/lisp.h>
|
|
#include <xp/c/stdio.h>
|
|
#include <xp/c/ctype.h>
|
|
|
|
#ifdef LINUX
|
|
#include <mcheck.h>
|
|
#endif
|
|
|
|
static int get_char (xp_lisp_cint* ch, void* arg)
|
|
{
|
|
xp_lisp_cint c;
|
|
|
|
c = xp_fgetc(xp_stdin);
|
|
if (c == XP_EOF) {
|
|
if (xp_ferror(xp_stdin)) return -1;
|
|
c = XP_EOF;
|
|
}
|
|
|
|
*ch = c;
|
|
return 0;
|
|
}
|
|
|
|
int to_int (const xp_char_t* str)
|
|
{
|
|
int r = 0;
|
|
|
|
while (*str != XP_CHAR('\0')) {
|
|
if (!xp_isdigit(*str)) break;
|
|
r = r * 10 + (*str - XP_CHAR('0'));
|
|
str++;
|
|
}
|
|
|
|
return r;
|
|
}
|
|
|
|
#include <locale.h>
|
|
|
|
int xp_main (int argc, xp_char_t* argv[])
|
|
{
|
|
xp_lisp_t* lisp;
|
|
xp_lisp_obj_t* obj;
|
|
|
|
#ifdef LINUX
|
|
mtrace ();
|
|
#endif
|
|
|
|
setlocale (LC_ALL, "");
|
|
|
|
if (argc != 3) {
|
|
xp_fprintf (xp_stderr, XP_TEXT("usage: %s mem_ubound mem_ubound_inc\n"), argv[0]);
|
|
return -1;
|
|
}
|
|
|
|
lisp = xp_lisp_new (to_int(argv[1]), to_int(argv[2]));
|
|
if (lisp == NULL) {
|
|
xp_fprintf (xp_stderr, XP_TEXT("can't create a lisp instance\n"));
|
|
return -1;
|
|
}
|
|
|
|
xp_printf (XP_TEXT("LISP 0.0001\n"));
|
|
|
|
xp_lisp_set_creader (lisp, get_char, NULL);
|
|
|
|
for (;;) {
|
|
xp_printf (XP_TEXT("%s> "), argv[0]);
|
|
|
|
obj = xp_lisp_read (lisp);
|
|
if (obj == NULL) {
|
|
if (lisp->error != XP_LISP_ERR_END &&
|
|
lisp->error != XP_LISP_ERR_ABORT) {
|
|
xp_fprintf (xp_stderr,
|
|
XP_TEXT("error while reading: %d\n"), lisp->error);
|
|
}
|
|
|
|
if (lisp->error < XP_LISP_ERR_SYNTAX) break;
|
|
continue;
|
|
}
|
|
|
|
if ((obj = xp_lisp_eval (lisp, obj)) != NULL) {
|
|
xp_lisp_print (lisp, obj);
|
|
xp_printf (XP_TEXT("\n"));
|
|
}
|
|
else {
|
|
if (lisp->error == XP_LISP_ERR_ABORT) break;
|
|
xp_fprintf (xp_stderr,
|
|
XP_TEXT("error while reading: %d\n"), lisp->error);
|
|
}
|
|
|
|
/*
|
|
printf ("-----------\n");
|
|
xp_lisp_print (lisp, obj);
|
|
printf ("\n-----------\n");
|
|
*/
|
|
}
|
|
|
|
xp_lisp_free (lisp);
|
|
|
|
#ifdef LINUX
|
|
muntrace ();
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
|