hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2005-05-01 06:47:49 +00:00
parent a746de7193
commit 34ff0cbd02
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ase/test/lsp/lisp.c
View File

@ -1,7 +1,7 @@
#include <xp/lisp/lisp.h> #include <xp/lisp/lisp.h>
#include <xp/c/stdio.h> #include <xp/bas/stdio.h>
#include <xp/c/ctype.h> #include <xp/bas/ctype.h>
#include <xp/c/stdcli.h> #include <xp/bas/stdcli.h>
#ifdef __linux #ifdef __linux
#include <mcheck.h> #include <mcheck.h>
@ -114,7 +114,7 @@ setlocale (LC_ALL, "");
} }
lisp = xp_lisp_new (mem, inc); lisp = xp_lisp_new (mem, inc);
if (lisp == NULL) { if (lisp == XP_NULL) {
xp_fprintf (xp_stderr, xp_fprintf (xp_stderr,
XP_TEXT("error: cannot create a lisp instance\n")); XP_TEXT("error: cannot create a lisp instance\n"));
return -1; return -1;
@ -122,13 +122,13 @@ setlocale (LC_ALL, "");
xp_printf (XP_TEXT("LISP 0.0001\n")); xp_printf (XP_TEXT("LISP 0.0001\n"));
xp_lisp_set_creader (lisp, get_char, NULL); xp_lisp_set_creader (lisp, get_char, XP_NULL);
for (;;) { for (;;) {
xp_printf (XP_TEXT("%s> "), argv[0]); xp_printf (XP_TEXT("%s> "), argv[0]);
obj = xp_lisp_read (lisp); obj = xp_lisp_read (lisp);
if (obj == NULL) { if (obj == XP_NULL) {
if (lisp->error != XP_LISP_ERR_END && if (lisp->error != XP_LISP_ERR_END &&
lisp->error != XP_LISP_ERR_ABORT) { lisp->error != XP_LISP_ERR_ABORT) {
xp_fprintf (xp_stderr, xp_fprintf (xp_stderr,
@ -139,7 +139,7 @@ setlocale (LC_ALL, "");
continue; continue;
} }
if ((obj = xp_lisp_eval (lisp, obj)) != NULL) { if ((obj = xp_lisp_eval (lisp, obj)) != XP_NULL) {
xp_lisp_print (lisp, obj); xp_lisp_print (lisp, obj);
xp_printf (XP_TEXT("\n")); xp_printf (XP_TEXT("\n"));
} }

4
ase/test/lsp/makefile.in
View File

@ -3,8 +3,8 @@ OUTS = $(SRCS:.c=.x)
CC = @CC@ CC = @CC@
CFLAGS = @CFLAGS@ -I@abs_top_builddir@ CFLAGS = @CFLAGS@ -I@abs_top_builddir@
LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/xp/c -L@abs_top_builddir@/xp/lisp LDFLAGS = @LDFLAGS@ -L@abs_top_builddir@/xp/bas -L@abs_top_builddir@/xp/lisp
LIBS = @LIBS@ -lxpc -lxplisp LIBS = @LIBS@ -lxpbas -lxplisp
all: $(OUTS) all: $(OUTS)