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-30 07:19:09 +00:00
parent c76d2d29b8
commit 022dd7ed4d
7 changed files with 18 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ase/lsp/lisp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: lisp.c,v 1.9 2005-05-28 13:34:26 bacon Exp $
* $Id: lisp.c,v 1.10 2005-05-30 07:15:35 bacon Exp $
*/
#include <xp/lsp/lisp.h>
@ -23,7 +23,7 @@ xp_lisp_t* xp_lisp_new (xp_size_t mem_ubound, xp_size_t mem_ubound_inc)
//lsp->opt_undef_symbol = 1;
lsp->opt_undef_symbol = 0;
lsp->curc = XP_EOF;
lsp->curc = XP_CHAR_EOF;
lsp->creader = XP_NULL;
lsp->creader_extra = XP_NULL;
lsp->creader_just_set = 0;

8
ase/lsp/read.c
View File

@ -1,5 +1,5 @@
/*
* $Id: read.c,v 1.8 2005-04-24 07:48:16 bacon Exp $
* $Id: read.c,v 1.9 2005-05-30 07:15:35 bacon Exp $
*/
#include <xp/lisp/lisp.h>
@ -269,12 +269,12 @@ static int read_token (xp_lisp_t* lsp)
if (lsp->curc == XP_CHAR(';')) {
do {
NEXT_CHAR (lsp);
} while (lsp->curc != XP_CHAR('\n') && lsp->curc != XP_EOF);
} while (lsp->curc != XP_CHAR('\n') && lsp->curc != XP_CHAR_EOF);
}
else break;
}
if (lsp->curc == XP_EOF) {
if (lsp->curc == XP_CHAR_EOF) {
TOKEN_TYPE(lsp) = TOKEN_END;
return 0;
}
@ -360,7 +360,7 @@ static int read_string (xp_lisp_t* lsp)
xp_cint_t code = 0;
do {
if (lsp->curc == XP_EOF) {
if (lsp->curc == XP_CHAR_EOF) {
TOKEN_TYPE(lsp) = TOKEN_UNTERM_STRING;
return 0;
}