Function fxParseScript

xs/platforms/mc/xsHosts.c:392–421

}

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) {
#if defined(mxDebug) && !MODDEF_XS_TEST
		if (fxIsConnected(the)) {
			char tag[16];
			flags |= mxDebugFlag;
			fxGenerateTag(the, tag, sizeof(tag), C_NULL);
			fxFileEvalString(the, ((txStringStream*)stream)->slot->value.string, tag);
			parser->path = fxNewParserSymbol(parser, tag);
		}
#endif
		fxParserTree(parser, stream, getter, flags, NULL);
		fxParserHoist(parser);
		fxParserBind(parser);
		script = fxParserCode(parser);
	}
#ifdef mxInstrument
	if (the->peakParserSize < parser->total)
		the->peakParserSize = parser->total;
#endif
	fxTerminateParser(parser);
	return script;
}

#if MODDEF_XS_MODS