enhanced the json reader in xli to recognize a negative integer
This commit is contained in:
parent
52baa3222f
commit
0aca321aee
@ -416,6 +416,28 @@ retry:
|
|||||||
SET_TOKEN_TYPE (xli, tok, type);
|
SET_TOKEN_TYPE (xli, tok, type);
|
||||||
}
|
}
|
||||||
/* TODO: negative number, floating-point number, etc */
|
/* TODO: negative number, floating-point number, etc */
|
||||||
|
else if (c == QSE_T('-'))
|
||||||
|
{
|
||||||
|
GET_CHAR_TO (xli, c);
|
||||||
|
if (!QSE_ISDIGIT(c))
|
||||||
|
{
|
||||||
|
qse_char_t cc = QSE_T('-');
|
||||||
|
qse_cstr_t ea;
|
||||||
|
ea.ptr = &cc;
|
||||||
|
ea.len = 1;
|
||||||
|
qse_xli_seterror (xli, QSE_XLI_ELXCHR, &ea, &tok->loc);
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
SET_TOKEN_TYPE (xli, tok, QSE_XLI_TOK_NSTR);
|
||||||
|
ADD_TOKEN_CHAR (xli, tok, QSE_T('-'));
|
||||||
|
do
|
||||||
|
{
|
||||||
|
ADD_TOKEN_CHAR (xli, tok, c);
|
||||||
|
GET_CHAR_TO (xli, c);
|
||||||
|
}
|
||||||
|
while (QSE_ISDIGIT(c));
|
||||||
|
}
|
||||||
else if (QSE_ISDIGIT(c))
|
else if (QSE_ISDIGIT(c))
|
||||||
{
|
{
|
||||||
SET_TOKEN_TYPE (xli, tok, QSE_XLI_TOK_NSTR);
|
SET_TOKEN_TYPE (xli, tok, QSE_XLI_TOK_NSTR);
|
||||||
|
Loading…
Reference in New Issue
Block a user