Function fxParseScript

xs/sources/xsPlatforms.c:323–360

#if mxUseDefaultParseScript

txScript* fxParseScript(txMachine* the, void* stream, txGetter getter, txUnsigned flags)
{
	txParser _parser;
	txParser* parser = &_parser;
	txParserJump jump;
	txScript* script = NULL;
	fxInitializeParser(parser, the, the->parserBufferSize, the->parserTableModulo);
	parser->firstJump = &jump;
	if (c_setjmp(jump.jmp_buf) == 0) {
		fxParserTree(parser, stream, getter, flags, NULL);
#ifdef mxDebug
		parser->flags |= mxDebugFlag;
		if (!the->debugEval) {
			if (!parser->source) {
				char tag[16];
				parser->flags |= mxDebugFlag;
				fxGenerateTag(the, tag, sizeof(tag), C_NULL);
				parser->source = fxNewParserSymbol(parser, tag);
			}
			if (fxIsConnected(the)) {
				if (getter == fxStringGetter)
					fxFileEvalString(the, ((txStringStream*)stream)->slot->value.string, parser->source->string);
				else if (getter == fxStringCGetter)
					fxFileEvalString(the, ((txStringCStream*)stream)->buffer, parser->source->string);
			}
		}
#endif
		fxParserHoist(parser);
		fxParserBind(parser);
		script = fxParserCode(parser);
	}
#ifdef mxInstrument
	if (the->peakParserSize < parser->total)
		the->peakParserSize = parser->total;
#endif
	fxTerminateParser(parser);
	return script;
}

#endif  /* mxUseDefaultParseScript */