Function fxProgram

xs/sources/xsSyntaxical.c:1149–1187

}

void fxProgram(txParser* parser)
{
	txInteger count = parser->nodeCount;
	txInteger line = parser->states[0].line;
	txNode* node;
	while (parser->states[0].token != XS_TOKEN_EOF) {
		fxStatement(parser, -1);
		node = parser->root;
		if (!node || !node->description || (node->description->token != XS_TOKEN_STATEMENT))
			break;
		node = ((txStatementNode*)node)->expression;
		if (!node || !node->description || (node->description->token != XS_TOKEN_STRING))
			break;
		if (!(node->flags & mxStringEscapeFlag) && (c_strcmp(((txStringNode*)node)->value, "use strict") == 0)) {
			if (!(parser->flags & mxStrictFlag)) {
				parser->flags |= mxStrictFlag;
				if (parser->states[0].token == XS_TOKEN_IDENTIFIER)
					fxCheckStrictKeyword(parser);
			}
		}
	}
	while (parser->states[0].token != XS_TOKEN_EOF) {
		fxStatement(parser, -1);
	}
	count = parser->nodeCount - count;
	if (count > 1) {
		fxPushNodeList(parser, count);
		fxPushNodeStruct(parser, 1, XS_TOKEN_STATEMENTS, line);
	}
	else if (count == 0) {
		fxPushNodeStruct(parser, 0, XS_TOKEN_UNDEFINED, line);
		fxPushNodeStruct(parser, 1, XS_TOKEN_STATEMENT, line);
	}
	fxPushNodeStruct(parser, 1, XS_TOKEN_PROGRAM, line);
	if (parser->flags & mxFieldFlag)
		if (parser->flags & mxArgumentsFlag)
			fxReportParserError(parser, parser->states[0].line, "invalid arguments");
	parser->root->flags = parser->flags & mxStrictFlag;
}

void fxBody(txParser* parser)
{