Function fxLinkerScriptCallback

xs/tools/xslSlot.c:457–509

}

void fxLinkerScriptCallback(txMachine* the)
{
	txLinker* linker = xsGetContext(the);
    txSlot* slot = mxModuleInternal(mxThis);
    txSlot* key = fxGetKey(the, slot->value.module.id);
 	txString path = key->value.key.string;
	txLinkerScript* linkerScript = linker->firstScript;
	mxPush(mxArrayPrototype);
	fxNewArrayInstance(the);
	fxArrayCacheBegin(the, the->stack);
	while (linkerScript) {
		if (!c_strcmp(linkerScript->path, path)) {
			txByte* p = linkerScript->hostsBuffer;
			if (p) {
				txID c, i, id;
				mxDecode2(p, c);
				linkerScript->builders = fxNewLinkerChunk(linker, c * sizeof(txHostFunctionBuilder));
				linkerScript->callbackNames = fxNewLinkerChunk(linker, c * sizeof(txCallbackName));
				linkerScript->hostsCount = c;
				for (i = 0; i < c; i++) {
					txCallback callback = the->fakeCallback;
					txHostFunctionBuilder* builder = &linkerScript->builders[i];
					txCallbackName* callbackName = &linkerScript->callbackNames[i];
					txS1 length = *p++;
					the->fakeCallback = (txCallback)(((txU1*)the->fakeCallback) + 1);
					mxDecode2(p, id);
					builder->callback = callback;
					builder->length = length;
					builder->id = id;
					callbackName->callback = callback;
					callbackName->name = (char*)p;
					if (length < 0) {
						fxNewHostObject(the, (txDestructor)callback);
					}
					else {
						mxPushUndefined();
						the->stack->kind = XS_HOST_FUNCTION_KIND;
						the->stack->value.hostFunction.builder = builder;
						the->stack->value.hostFunction.profileID = fxGenerateProfileID(the);
					}
					fxArrayCacheItem(the, the->stack + 1, the->stack);
					mxPop();
					p += mxStringLength((char*)p) + 1;
				}
			}
			break;
		}	
		linkerScript = linkerScript->nextScript;
	}
	fxArrayCacheEnd(the, the->stack);
	mxPullSlot(mxResult);
	mxPop();
}

txSlot* fxNewFunctionLength(txMachine* the, txSlot* instance, txNumber length)
{