txBoolean fxExecute(txMachine* the, void* theStream, txGetter theGetter, txString thePath, txInteger theLine)
{
#ifdef mxDebug
txUnsigned flags = mxProgramFlag | mxDebugFlag;
#else
txUnsigned flags = mxProgramFlag;
#endif
txParser _parser;
txParser* parser = &_parser;
txParserJump jump;
txScript* script = NULL;
fxInitializeParser(parser, the, 32*1024, 1993);
parser->firstJump = &jump;
if (c_setjmp(jump.jmp_buf) == 0) {
if (thePath)
parser->path = fxNewParserSymbol(parser, thePath);
fxParserTree(parser, theStream, theGetter, flags, NULL);
fxParserHoist(parser);
fxParserBind(parser);
script = fxParserCode(parser);
}
fxTerminateParser(parser);
if (script) {
fxRunScript(the, script, &mxGlobal, C_NULL, C_NULL, C_NULL);
return 1;
}
return 0;
}
void fxLoadModuleJS(txMachine* the, txString path, txID moduleID)
{
FskErr err = kFskErrNone;
FskFileMapping map = NULL;
txFileMapStream stream;
txParser _parser;
txParser* parser = &_parser;
txParserJump jump;
txScript* script = NULL;
bailIfError(FskFileMap(path, (unsigned char**)&(stream.buffer), &(stream.size), 0, &map));
stream.offset = 0;
fxInitializeParser(parser, the, 32*1024, 1993);
parser->firstJump = &jump;
parser->path = fxNewParserSymbol(parser, path);
if (c_setjmp(jump.jmp_buf) == 0) {
fxParserTree(parser, &stream, fxFileMapGetter, 2, NULL);
fxParserHoist(parser);
fxParserBind(parser);
script = fxParserCode(parser);
}
fxTerminateParser(parser);
bail:
FskFileDisposeMap(map);
if (err && script) {
fxDeleteScript(script);
script = NULL;
}
fxResolveModule(the, moduleID, script, NULL, NULL);
}
txScript* fxLoadText(txMachine* the, txString path, txUnsigned flags)
{
txParser _parser;
txParser* parser = &_parser;
txParserJump jump;
FILE* file = NULL;
txString name = NULL;
char buffer[PATH_MAX];
char map[PATH_MAX];
txScript* script = NULL;
fxInitializeParser(parser, the);
parser->firstJump = &jump;
if (c_setjmp(jump.jmp_buf) == 0) {
parser->path = fxNewParserSymbol(parser, path);
file = fopen(path, "r");
mxParserThrowElse(file);
fxParserTree(parser, file, (txGetter)fgetc, flags, &name);
fclose(file);
file = NULL;
if (name) {
fxMergePath(path, name, buffer);
mxParserThrowElse(realpath(buffer, map));
parser->path = fxNewParserSymbol(parser, map);
file = fopen(map, "r");
mxParserThrowElse(file);
fxParserSourceMap(parser, file, (txGetter)fgetc, flags, &name);
fclose(file);
file = NULL;
fxMergePath(map, name, buffer);
mxParserThrowElse(realpath(buffer, map));
parser->path = fxNewParserSymbol(parser, map);
}
fxParserHoist(parser);
fxParserBind(parser);
script = fxParserCode(parser);
}
if (file)
fclose(file);
fxTerminateParser(parser);
return script;
}
void fxIncludeTree(txParser* parser, void* stream, txGetter getter, txUnsigned flags, txString path)
{
txParserJump jump;
txSymbol* symbol = parser->path;
jump.nextJump = parser->firstJump;
parser->firstJump = &jump;
if (c_setjmp(jump.jmp_buf) == 0) {
parser->path = fxNewParserSymbol(parser, path);
fxParserTree(parser, stream, getter, flags, C_NULL);
}
parser->firstJump = jump.nextJump;
parser->path = symbol;
}
void fxIncludeScript(txParser* parser, txString string)
{
txSymbol* symbol = parser->path;
char buffer[PATH_MAX];
char include[PATH_MAX];
FILE* file = NULL;
c_strcpy(include, string);
c_strcat(include, ".js");
fxMergePath(symbol->string, include, buffer);
mxParserThrowElse(realpath(buffer, include));
parser->path = fxNewParserSymbol(parser, include);
file = fopen(include, "r");
mxParserThrowElse(file);
fxParserTree(parser, file, (txGetter)fgetc, parser->flags, NULL);
fclose(file);
file = NULL;
parser->path = symbol;
}
void fxGetNextKeyword(txParser* parser)
{
int low, high, anIndex, aDelta;
parser->symbol2 = fxNewParserSymbol(parser, parser->buffer);
if (parser->token != XS_TOKEN_DOT) {
for (low = 0, high = XS_KEYWORD_COUNT; high > low;
(aDelta < 0) ? (low = anIndex + 1) : (high = anIndex)) {
anIndex = low + ((high - low) / 2);
aDelta = c_strcmp(gxKeywords[anIndex].text, parser->buffer);
if (aDelta == 0) {
parser->token2 = gxKeywords[anIndex].token;
return;
}
}
if ((parser->flags & mxStrictFlag)) {
for (low = 0, high = XS_STRICT_KEYWORD_COUNT; high > low;
(aDelta < 0) ? (low = anIndex + 1) : (high = anIndex)) {
anIndex = low + ((high - low) / 2);
aDelta = c_strcmp(gxStrictKeywords[anIndex].text, parser->buffer);
if (aDelta == 0) {
parser->token2 = gxStrictKeywords[anIndex].token;
return;
}
}
}
if (c_strcmp("yield", parser->buffer) == 0) {
if ((parser->flags & mxGeneratorFlag) ){
parser->token2 = XS_TOKEN_YIELD;
return;
}
if ((parser->flags & mxStrictFlag)) {
fxReportParserError(parser, "invalid yield (strict mode)");
}
}
}
parser->token2 = XS_TOKEN_IDENTIFIER;
}
void fxNewFunction(txMachine* the, txString arguments, txInteger argumentsSize, txString body, txInteger bodySize, txFlag theFlag, txString thePath, txInteger theLine)
{
txNewFunctionStream stream;
#ifdef mxDebug
txUnsigned flags = mxProgramFlag | mxDebugFlag;
#else
txUnsigned flags = mxProgramFlag;
#endif
txParser _parser;
txParser* parser = &_parser;
txParserJump jump;
txScript* script = NULL;
stream.strings[0] = "(function";
stream.strings[1] = arguments;
stream.strings[2] = "{";
stream.strings[3] = body;
stream.strings[4] = "})";
stream.sizes[0] = 9;
stream.sizes[1] = argumentsSize;
stream.sizes[2] = 1;
stream.sizes[3] = bodySize;
stream.sizes[4] = 2;
stream.offset = 0;
stream.index = 0;
fxInitializeParser(parser, the, 32*1024, 1993);
parser->firstJump = &jump;
if (c_setjmp(jump.jmp_buf) == 0) {
if (thePath)
parser->path = fxNewParserSymbol(parser, thePath);
fxParserTree(parser, &stream, fxNewFunctionStreamGetter, flags, NULL);
fxParserHoist(parser);
fxParserBind(parser);
script = fxParserCode(parser);
}
fxTerminateParser(parser);
fxRunScript(the, script, C_NULL, C_NULL, C_NULL, C_NULL);
}
void fxInitializeParser(txParser* parser, void* console, txSize bufferSize, txSize symbolModulo)
{
c_memset(parser, 0, sizeof(txParser));
parser->first = C_NULL;
parser->console = console;
parser->buffer = fxNewParserChunk(parser, bufferSize);
parser->bufferSize = bufferSize;
parser->dtoa = fxNew_dtoa();
parser->symbolModulo = symbolModulo;
parser->symbolTable = fxNewParserChunkClear(parser, parser->symbolModulo * sizeof(txSymbol*));
parser->emptyString = fxNewParserString(parser, "", 0);
parser->ObjectSymbol = fxNewParserSymbol(parser, "Object");
parser->__dirnameSymbol = fxNewParserSymbol(parser, "__dirname");
parser->__filenameSymbol = fxNewParserSymbol(parser, "__filename");
parser->__proto__Symbol = fxNewParserSymbol(parser, "__proto__");
parser->allSymbol = fxNewParserSymbol(parser, "*");
parser->argsSymbol = fxNewParserSymbol(parser, "args");
parser->argumentsSymbol = fxNewParserSymbol(parser, "arguments");
parser->arrowSymbol = fxNewParserSymbol(parser, "=>");
parser->asSymbol = fxNewParserSymbol(parser, "as");
parser->constructorSymbol = fxNewParserSymbol(parser, "constructor");
parser->defaultSymbol = fxNewParserSymbol(parser, "*default*");
parser->doneSymbol = fxNewParserSymbol(parser, "done");
parser->evalSymbol = fxNewParserSymbol(parser, "eval");
parser->exportsSymbol = fxNewParserSymbol(parser, "exports");
parser->freezeSymbol = fxNewParserSymbol(parser, "freeze");
parser->fromSymbol = fxNewParserSymbol(parser, "from");
parser->getSymbol = fxNewParserSymbol(parser, "get");
parser->idSymbol = fxNewParserSymbol(parser, "id");
parser->includeSymbol = fxNewParserSymbol(parser, "include");
parser->lengthSymbol = fxNewParserSymbol(parser, "length");
parser->letSymbol = fxNewParserSymbol(parser, "let");
parser->moduleSymbol = fxNewParserSymbol(parser, "module");
parser->nextSymbol = fxNewParserSymbol(parser, "next");
parser->ofSymbol = fxNewParserSymbol(parser, "of");
parser->prototypeSymbol = fxNewParserSymbol(parser, "prototype");
parser->rawSymbol = fxNewParserSymbol(parser, "raw");
parser->RegExpSymbol = fxNewParserSymbol(parser, "RegExp");
parser->returnSymbol = fxNewParserSymbol(parser, "return");
parser->setSymbol = fxNewParserSymbol(parser, "set");
parser->sliceSymbol = fxNewParserSymbol(parser, "slice");
parser->thisSymbol = fxNewParserSymbol(parser, "this");
parser->targetSymbol = fxNewParserSymbol(parser, "target");
parser->toStringSymbol = fxNewParserSymbol(parser, "toString");
parser->undefinedSymbol = fxNewParserSymbol(parser, "undefined");
parser->uriSymbol = fxNewParserSymbol(parser, "uri");
parser->valueSymbol = fxNewParserSymbol(parser, "value");
parser->withSymbol = fxNewParserSymbol(parser, "with");
parser->yieldSymbol = fxNewParserSymbol(parser, "yield");
}
void fxGetNextTokenAux(txParser* parser)
{
int c;
txString p;
txString q;
txU4 t = 0;
parser->crlf2 = 0;
parser->escaped2 = 0;
parser->integer2 = 0;
parser->modifierLength2 = 0;
parser->modifier2 = parser->emptyString;
parser->number2 = 0;
parser->rawLength2 = 0;
parser->raw2 = parser->emptyString;
parser->stringLength2 = 0;
parser->string2 = parser->emptyString;
parser->symbol2 = C_NULL;
parser->token2 = XS_NO_TOKEN;
while (parser->token2 == XS_NO_TOKEN) {
switch (parser->character) {
case C_EOF:
parser->token2 = XS_TOKEN_EOF;
break;
case 10:
parser->line2++;
fxGetNextCharacter(parser);
parser->crlf2 = 1;
#ifdef mxColor
parser->startOffset2 = parser->offset;
#endif
break;
case 13:
parser->line2++;
fxGetNextCharacter(parser);
if (parser->character == 10)
fxGetNextCharacter(parser);
parser->crlf2 = 1;
#ifdef mxColor
parser->startOffset2 = parser->offset;
#endif
break;
case 11:
case 12:
case 160:
case ' ':
case '\t':
fxGetNextCharacter(parser);
#ifdef mxColor
parser->startOffset2 = parser->offset;
#endif
break;
case '0':
fxGetNextCharacter(parser);
c = parser->character;
if (c == '.') {
fxGetNextCharacter(parser);
c = parser->character;
if ((('0' <= c) && (c <= '9')) || (c == 'e') || (c == 'E'))
fxGetNextNumberE(parser, 0);
else {
parser->number2 = 0;
parser->token2 = XS_TOKEN_NUMBER;
}
}
else if ((c == 'b') || (c == 'B')) {
fxGetNextNumberB(parser);
}
else if ((c == 'e') || (c == 'E')) {
fxGetNextNumberE(parser, 0);
}
else if ((c == 'o') || (c == 'O')) {
fxGetNextNumberO(parser, '0');
}
else if ((c == 'x') || (c == 'X')) {
fxGetNextNumberX(parser);
}
else if (('0' <= c) && (c <= '7')) {
if ((parser->flags & mxStrictFlag))
fxReportParserError(parser, "octal number (strict mode)");
fxGetNextNumberO(parser, c);
}
else {
parser->integer2 = 0;
parser->token2 = XS_TOKEN_INTEGER;
}
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
fxGetNextNumberE(parser, 1);
break;
case '.':
fxGetNextCharacter(parser);
if (parser->character == '.') {
fxGetNextCharacter(parser);
if (parser->character == '.') {
parser->token2 = XS_TOKEN_SPREAD;
fxGetNextCharacter(parser);
}
else {
fxReportParserError(parser, "invalid character %d", parser->character);
}
}
else if (('0' <= parser->character) && (parser->character <= '9'))
fxGetNextNumberE(parser, 0);
else
parser->token2 = XS_TOKEN_DOT;
break;
case ',':
parser->token2 = XS_TOKEN_COMMA;
fxGetNextCharacter(parser);
break;
case ';':
parser->token2 = XS_TOKEN_SEMICOLON;
fxGetNextCharacter(parser);
break;
case ':':
parser->token2 = XS_TOKEN_COLON;
fxGetNextCharacter(parser);
break;
case '?':
parser->token2 = XS_TOKEN_QUESTION_MARK;
fxGetNextCharacter(parser);
break;
case '(':
parser->token2 = XS_TOKEN_LEFT_PARENTHESIS;
fxGetNextCharacter(parser);
break;
case ')':
parser->token2 = XS_TOKEN_RIGHT_PARENTHESIS;
fxGetNextCharacter(parser);
break;
case '[':
parser->token2 = XS_TOKEN_LEFT_BRACKET;
fxGetNextCharacter(parser);
break;
case ']':
parser->token2 = XS_TOKEN_RIGHT_BRACKET;
fxGetNextCharacter(parser);
break;
case '{':
parser->token2 = XS_TOKEN_LEFT_BRACE;
fxGetNextCharacter(parser);
break;
case '}':
parser->token2 = XS_TOKEN_RIGHT_BRACE;
fxGetNextCharacter(parser);
break;
case '=':
fxGetNextCharacter(parser);
if (parser->character == '=') {
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_STRICT_EQUAL;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_EQUAL;
}
else if (parser->character == '>') {
parser->token2 = XS_TOKEN_ARROW;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_ASSIGN;
break;
case '<':
fxGetNextCharacter(parser);
if (parser->character == '<') {
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_LEFT_SHIFT_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_LEFT_SHIFT;
}
else if (parser->character == '=') {
parser->token2 = XS_TOKEN_LESS_EQUAL;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_LESS;
break;
case '>':
fxGetNextCharacter(parser);
if (parser->character == '>') {
fxGetNextCharacter(parser);
if (parser->character == '>') {
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_UNSIGNED_RIGHT_SHIFT_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_UNSIGNED_RIGHT_SHIFT;
}
else if (parser->character == '=') {
parser->token2 = XS_TOKEN_SIGNED_RIGHT_SHIFT_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_SIGNED_RIGHT_SHIFT;
}
else if (parser->character == '=') {
parser->token2 = XS_TOKEN_MORE_EQUAL;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_MORE;
break;
case '!':
fxGetNextCharacter(parser);
if (parser->character == '=') {
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_STRICT_NOT_EQUAL;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_NOT_EQUAL;
}
else
parser->token2 = XS_TOKEN_NOT;
break;
case '~':
parser->token2 = XS_TOKEN_BIT_NOT;
fxGetNextCharacter(parser);
break;
case '&':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_BIT_AND_ASSIGN;
fxGetNextCharacter(parser);
}
else if (parser->character == '&') {
parser->token2 = XS_TOKEN_AND;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_BIT_AND;
break;
case '|':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_BIT_OR_ASSIGN;
fxGetNextCharacter(parser);
}
else if (parser->character == '|') {
parser->token2 = XS_TOKEN_OR;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_BIT_OR;
break;
case '^':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_BIT_XOR_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_BIT_XOR;
break;
case '+':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_ADD_ASSIGN;
fxGetNextCharacter(parser);
}
else if (parser->character == '+') {
parser->token2 = XS_TOKEN_INCREMENT;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_ADD;
break;
case '-':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_SUBTRACT_ASSIGN;
fxGetNextCharacter(parser);
}
else if (parser->character == '-') {
parser->token2 = XS_TOKEN_DECREMENT;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_SUBTRACT;
break;
case '*':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_MULTIPLY_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_MULTIPLY;
break;
case '/':
fxGetNextCharacter(parser);
if (parser->character == '*') {
fxGetNextCharacter(parser);
for (;;) {
if (parser->character == (txU4)C_EOF)
break;
else if (parser->character == 10) {
parser->line2++;
fxGetNextCharacter(parser);
}
else if (parser->character == 13) {
parser->line2++;
fxGetNextCharacter(parser);
if (parser->character == 10)
fxGetNextCharacter(parser);
}
else if (parser->character == '*') {
fxGetNextCharacter(parser);
if (parser->character == '/') {
fxGetNextCharacter(parser);
break;
}
}
else
fxGetNextCharacter(parser);
}
}
else if (parser->character == '/') {
fxGetNextCharacter(parser);
p = parser->buffer;
q = p + parser->bufferSize - 1;
while ((parser->character != (txU4)C_EOF) && (parser->character != 10) && (parser->character != 13)) {
if (p < q)
*p++ = (char)parser->character;
fxGetNextCharacter(parser);
}
*p = 0;
p = parser->buffer;
if (!c_strcmp(p, "@module")) {
if (parser->token2 == XS_NO_TOKEN)
parser->flags |= mxCommonModuleFlag;
}
else if (!c_strcmp(p, "@program")) {
if (parser->token2 == XS_NO_TOKEN)
parser->flags |= mxCommonProgramFlag;
}
else if (parser->flags & mxDebugFlag) {
if (!c_strncmp(p, "@line ", 6)) {
p += 6;
t = 0;
c = *p++;
while (('0' <= c) && (c <= '9')) {
t = (t * 10) + (c - '0');
c = *p++;
}
if (!t) goto bail;
if (c == ' ') {
c = *p++;
if (c != '"') goto bail;
q = p;
c = *q++;
while ((c != 0) && (c != 10) && (c != 13) && (c != '"'))
c = *q++;
if (c != '"') goto bail;
*(--q) = 0;
parser->path = fxNewParserSymbol(parser, p);
}
parser->line2 = t - 1;
}
else if (!c_strncmp(p, "# sourceMappingURL=", 19) || !c_strncmp(p, "@ sourceMappingURL=", 19)) {
p += 19;
q = p;
c = *q++;
while ((c != 0) && (c != 10) && (c != 13))
c = *q++;
*q = 0;
parser->name = fxNewParserString(parser, p, q - p);
}
}
bail:
;
}
else if ((parser->crlf2) || (fxAcceptRegExp(parser))) {
parser->token2 = XS_TOKEN_NULL;
p = parser->buffer;
q = p + parser->bufferSize - 1;
for (;;) {
if (p == q) {
fxReportParserWarning(parser, "regular expression overflow");
break;
}
else if (parser->character == (txU4)C_EOF) {
fxReportParserWarning(parser, "end of file in regular expression");
break;
}
else if ((parser->character == 10) || (parser->character == 13)) {
fxReportParserWarning(parser, "end of line in regular expression");
break;
}
else if (parser->character == '/') {
*p = 0;
parser->stringLength2 = p - parser->buffer;
parser->string2 = fxNewParserString(parser, parser->buffer, parser->stringLength2);
parser->token2 = XS_TOKEN_REGEXP;
p = parser->buffer;
q = p + parser->bufferSize - 1;
for (;;) {
fxGetNextCharacter(parser);
if (p == q) {
fxReportParserWarning(parser, "regular expression overflow");
break;
}
else if (fxIsIdentifierNext((char)parser->character))
*p++ = (char)parser->character;
else {
if (p != parser->buffer) {
*p = 0;
parser->modifierLength2 = p - parser->buffer;
parser->modifier2 = fxNewParserString(parser, parser->buffer, parser->modifierLength2);
}
break;
}
}
break;
}
else if (parser->character == '\\') {
*p++ = (char)parser->character;
fxGetNextCharacter(parser);
if (p == q) {
fxReportParserWarning(parser, "regular expression overflow");
break;
}
}
p = (txString)fsX2UTF8(parser->character, (txU1*)p, q - p);
//*p++ = parser->character;
fxGetNextCharacter(parser);
}
}
else if (parser->character == '=') {
parser->token2 = XS_TOKEN_DIVIDE_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_DIVIDE;
break;
case '%':
fxGetNextCharacter(parser);
if (parser->character == '=') {
parser->token2 = XS_TOKEN_MODULO_ASSIGN;
fxGetNextCharacter(parser);
}
else
parser->token2 = XS_TOKEN_MODULO;
break;
case '"':
case '\'':
c = parser->character;
fxGetNextCharacter(parser);
fxGetNextString(parser, c);
parser->token2 = XS_TOKEN_STRING;
fxGetNextCharacter(parser);
break;
case '`':
fxGetNextCharacter(parser);
fxGetNextString(parser, '`');
if (parser->character == '{')
parser->token2 = XS_TOKEN_TEMPLATE_HEAD;
else
parser->token2 = XS_TOKEN_TEMPLATE;
fxGetNextCharacter(parser);
break;
case '@':
if (parser->flags & mxCFlag)
parser->token2 = XS_TOKEN_HOST;
else
fxReportParserError(parser, "invalid character @");
fxGetNextCharacter(parser);
break;
default:
p = parser->buffer;
q = p + parser->bufferSize - 1;
if (fxIsIdentifierFirst((char)parser->character)) {
*p++ = (char)parser->character;
fxGetNextCharacter(parser);
}
else if (parser->character == '\\') {
t = 0;
if (fxGetNextIdentiferX(parser, &t))
p = (txString)fsX2UTF8(t, (txU1*)p, q - p);
else
p = C_NULL;
}
else
p = C_NULL;
if (p) {
for (;;) {
if (p == q) {
fxReportParserWarning(parser, "identifier overflow");
break;
}
if (fxIsIdentifierNext((char)parser->character)) {
*p++ = (char)parser->character;
fxGetNextCharacter(parser);
}
else if (parser->character == '\\') {
t = 0;
if (fxGetNextIdentiferX(parser, &t))
p = (txString)fsX2UTF8(t, (txU1*)p, q - p);
else {
p = C_NULL;
break;
}
}
else {
*p = 0;
fxGetNextKeyword(parser);
break;
}
}
}
if (!p) {
fxReportParserWarning(parser, "invalid character %d", parser->character);
fxGetNextCharacter(parser);
}
break;
}
}
}
void fxGetNextTokenJSON(txParser* parser)
{
int c;
txString p;
txString q;
parser->line = parser->line2;
parser->crlf = parser->crlf2;
parser->escaped = parser->escaped2;
parser->integer = parser->integer2;
parser->modifierLength = parser->modifierLength2;
parser->modifier = parser->modifier2;
parser->number = parser->number2;
parser->rawLength = parser->rawLength2;
parser->raw = parser->raw2;
parser->stringLength = parser->stringLength2;
parser->string = parser->string2;
parser->symbol = parser->symbol2;
parser->token = parser->token2;
parser->crlf2 = 0;
parser->escaped2 = 0;
parser->integer2 = 0;
parser->modifierLength2 = 0;
parser->modifier2 = parser->emptyString;
parser->number2 = 0;
parser->rawLength2 = 0;
parser->raw2 = parser->emptyString;
parser->stringLength2 = 0;
parser->string2 = parser->emptyString;
parser->symbol2 = C_NULL;
parser->token2 = XS_NO_TOKEN;
while (parser->token2 == XS_NO_TOKEN) {
switch (parser->character) {
case C_EOF:
parser->token2 = XS_TOKEN_EOF;
break;
case 10:
parser->line2++;
fxGetNextCharacter(parser);
parser->crlf2 = 1;
break;
case 13:
parser->line2++;
fxGetNextCharacter(parser);
if (parser->character == 10)
fxGetNextCharacter(parser);
parser->crlf2 = 1;
break;
case '\t':
case ' ':
fxGetNextCharacter(parser);
break;
case '0':
fxGetNextCharacter(parser);
c = parser->character;
if (c == '.') {
fxGetNextCharacter(parser);
c = parser->character;
if ((('0' <= c) && (c <= '9')) || (c == 'e') || (c == 'E'))
fxGetNextNumberE(parser, 0);
else {
parser->number2 = 0;
parser->token2 = XS_TOKEN_NUMBER;
}
}
else if ((c == 'b') || (c == 'B')) {
fxGetNextNumberB(parser);
}
else if ((c == 'e') || (c == 'E')) {
fxGetNextNumberE(parser, 0);
}
else if ((c == 'o') || (c == 'O')) {
fxGetNextNumberO(parser, '0');
}
else if ((c == 'x') || (c == 'X')) {
fxGetNextNumberX(parser);
}
else {
parser->integer2 = 0;
parser->token2 = XS_TOKEN_INTEGER;
}
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case '-':
fxGetNextNumberE(parser, 1);
break;
case ',':
parser->token2 = XS_TOKEN_COMMA;
fxGetNextCharacter(parser);
break;
case ':':
parser->token2 = XS_TOKEN_COLON;
fxGetNextCharacter(parser);
break;
case '[':
parser->token2 = XS_TOKEN_LEFT_BRACKET;
fxGetNextCharacter(parser);
break;
case ']':
parser->token2 = XS_TOKEN_RIGHT_BRACKET;
fxGetNextCharacter(parser);
break;
case '{':
parser->token2 = XS_TOKEN_LEFT_BRACE;
fxGetNextCharacter(parser);
break;
case '}':
parser->token2 = XS_TOKEN_RIGHT_BRACE;
fxGetNextCharacter(parser);
break;
case '"':
fxGetNextCharacter(parser);
fxGetNextString(parser, '"');
parser->token2 = XS_TOKEN_STRING;
fxGetNextCharacter(parser);
break;
default:
if (fxIsIdentifierFirst((char)parser->character)) {
p = parser->buffer;
q = p + parser->bufferSize - 1;
for (;;) {
if (p == q) {
fxReportParserError(parser, "identifier overflow");
break;
}
*p++ = (char)parser->character;
fxGetNextCharacter(parser);
if (!fxIsIdentifierNext((char)parser->character))
break;
}
*p = 0;
if (!c_strcmp("false", parser->buffer))
parser->token2 = XS_TOKEN_FALSE;
else if (!c_strcmp("null", parser->buffer))
parser->token2 = XS_TOKEN_NULL;
else if (!c_strcmp("true", parser->buffer))
parser->token2 = XS_TOKEN_TRUE;
else {
parser->symbol2 = fxNewParserSymbol(parser, parser->buffer);
parser->token2 = XS_TOKEN_IDENTIFIER;
}
}
else {
fxReportParserWarning(parser, "invalid character %d", parser->character);
fxGetNextCharacter(parser);
}
break;
}
}
}