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-06-06 16:47:10 +00:00
parent 883b323b80
commit 310714df77
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ase/stx/parser.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parser.c,v 1.18 2005-06-06 16:14:21 bacon Exp $ * $Id: parser.c,v 1.19 2005-06-06 16:47:10 bacon Exp $
*/ */
#include <xp/stx/parser.h> #include <xp/stx/parser.h>
@ -128,9 +128,11 @@ static int __get_token (xp_stx_parser_t* parser)
else if (xp_stx_isdigit(c)) { else if (xp_stx_isdigit(c)) {
} }
else if (c == XP_STX_CHAR('$')) { else if (c == XP_STX_CHAR('$')) {
GET_CHAR (parser);
if (__get_charlit(parser) == -1) return -1; if (__get_charlit(parser) == -1) return -1;
} }
else if (c == XP_STX_CHAR('\'')) { else if (c == XP_STX_CHAR('\'')) {
GET_CHAR (parser);
if (__get_strlit(parser) == -1) return -1; if (__get_strlit(parser) == -1) return -1;
} }
else if (c == XP_STX_CHAR('^')) { else if (c == XP_STX_CHAR('^')) {
@ -177,7 +179,7 @@ static int __get_charlit (xp_stx_parser_t* parser)
* character ::= "Any character in the implementation-defined character set" * character ::= "Any character in the implementation-defined character set"
*/ */
xp_cint_t c = parser->curc; xp_cint_t c = parser->curc; /* even a new-line or white space would be taken */
if (c == XP_STX_CHAR_EOF) { if (c == XP_STX_CHAR_EOF) {
parser->error_code = XP_STX_PARSER_ERROR_CHARLIT; parser->error_code = XP_STX_PARSER_ERROR_CHARLIT;
return -1; return -1;

6
ase/test/stx/test.st
View File

@ -1,2 +1,6 @@
isNil isNil
^true "test if self is nil"
'this is very bad''this is'
$a $b
^true $
' this is bad