Function fxLoadVirtualModuleSource

xs/sources/xsModule.c:1294–1659

}

void fxLoadVirtualModuleSource(txMachine* the, txSlot* record, txSlot* instance)
{
	txSlot* slot;
	txSlot* function;
	txSlot* property;
	txSlot* transfers;
	txSlot* transfer;
	
	mxPushSlot(record);
	mxGetID(fxID(the, "execute"));
	slot = the->stack;
	if (!mxIsUndefined(slot)) {
		if (!fxIsCallable(the, slot))
			mxTypeError("execute: not a function");
	}
	function = fxNewHostFunction(the, fxExecuteVirtualModuleSource, 0, XS_NO_ID, mxExecuteVirtualModuleSourceProfileID);
	property = mxFunctionInstanceHome(function);
	property->value.home.object = fxToInstance(the, record);
	property->value.home.module = instance;
	property = fxLastProperty(the, function);
	property = fxNextSlotProperty(the, property, slot, XS_NO_ID, XS_INTERNAL_FLAG);
	mxPullSlot(mxModuleInstanceExecute(instance));
	mxPop(); // initialize
			
	mxPush(mxObjectPrototype);
	transfers = fxNewObjectInstance(the);
	transfer = fxLastProperty(the, transfers);
	
	mxPushSlot(record);
	mxGetID(mxID(_bindings));
	if (!mxIsUndefined(the->stack)) {
		txSlot* array;
		txInteger length, index;
		
		array = the->stack;
		mxPushSlot(array);
		mxGetID(mxID(_length));
		length = fxToInteger(the, the->stack);
		mxPop();
		
		for (index = 0; index < length; index++) {
			txSlot* item;
			txSlot* temporary;
			txInteger from = 0;
			txInteger export = 0;
			txInteger import = 0;
			txID nameID = 0, asID;
			txSlot* specifier = C_NULL;
			txSlot* former;

			mxPushSlot(array);
			mxGetIndex(index);
			item = the->stack;
		
			mxTemporary(temporary);
		
			mxPushSlot(item);
			mxGetID(mxID(_from));