void fxParseJSONArray(txScriptParser* theParser)
{
txMachine* the = theParser->the;
txSlot* anArray;
txIndex aLength;
txSlot* anItem;
fxGetNextJSONToken(theParser);
*(--the->stack) = mxArrayPrototype;
anArray = fxNewArrayInstance(the);
aLength = 0;
anItem = anArray->next;
for (;;) {
if (theParser->token == XS_TOKEN_RIGHT_BRACKET)
break;
fxParseJSONValue(theParser);
aLength++;
anItem->next = fxNewSlot(the);
anItem = anItem->next;
anItem->kind = the->stack->kind;
anItem->value = the->stack->value;
the->stack++;
if (theParser->token != XS_TOKEN_COMMA)
break;
fxGetNextJSONToken(theParser);
}
anArray->next->value.array.length = aLength;
fxCacheArray(the, anArray);
if (theParser->token != XS_TOKEN_RIGHT_BRACKET)
fxReportParserError(theParser, "missing ]");
fxGetNextJSONToken(theParser);
}
void fxParseJSONArray(txMachine* the, txJSONParser* theParser)
{
txSlot* anArray;
txIndex aLength;
txSlot* anItem;
fxGetNextJSONToken(the, theParser);
mxPush(mxArrayPrototype);
anArray = fxNewArrayInstance(the);
aLength = 0;
anItem = fxLastProperty(the, anArray);
for (;;) {
if (theParser->token == XS_JSON_TOKEN_RIGHT_BRACKET)
break;
fxParseJSONValue(the, theParser);
aLength++;
anItem->next = fxNewSlot(the);
anItem = anItem->next;
anItem->kind = the->stack->kind;
anItem->value = the->stack->value;
the->stack++;
if (theParser->token != XS_JSON_TOKEN_COMMA)
break;
fxGetNextJSONToken(the, theParser);
}
anArray->next->value.array.length = aLength;
fxCacheArray(the, anArray);
if (theParser->token != XS_JSON_TOKEN_RIGHT_BRACKET)
mxSyntaxError("missing ]");
fxGetNextJSONToken(the, theParser);
}
void fx_Function_bind(txMachine* the)
{
txSlot* aFunction;
txSlot* aProperty;
txSlot* anArray;
txSlot* anItem;
txSize aCount, anIndex;
aFunction = fxGetInstance(the, mxThis);
if (!mxIsFunction(aFunction))
mxDebug0(the, XS_TYPE_ERROR, "this is no Function");
if (mxArgc < 1)
mxDebug0(the, XS_SYNTAX_ERROR, "Function.prototype.bind: no this parameter");
aProperty = aFunction->next;
if (aProperty->kind == XS_CODE_KIND)
aCount = *(aProperty->value.code + 4);
else
aCount = aProperty->value.callback.length;
aCount -= mxArgc - 1;
if (aCount < 0)
aCount = 0;
mxPush(mxFunctionPrototype);
aFunction = fxNewFunctionInstance(the);
*mxResult = *(the->stack++);
aProperty = aFunction->next;
aProperty->kind = XS_CALLBACK_KIND;
aProperty->value.callback.address = fx_Function_bound;
aProperty->value.callback.length = aCount;
aProperty = fxSetProperty(the, aFunction, fxID(the, "boundFunction"), C_NULL);
aProperty->kind = mxThis->kind;
aProperty->value = mxThis->value;
aProperty = fxSetProperty(the, aFunction, fxID(the, "boundThis"), C_NULL);
aProperty->kind = mxArgv(0)->kind;
aProperty->value = mxArgv(0)->value;
aProperty = fxSetProperty(the, aFunction, fxID(the, "boundArguments"), C_NULL);
mxPush(mxArrayPrototype);
anArray = fxNewArrayInstance(the);
aProperty->kind = the->stack->kind;
aProperty->value = the->stack->value;
the->stack++;
anItem = anArray->next;
for (anIndex = 1; anIndex < mxArgc; anIndex++) {
anItem->next = fxNewSlot(the);
anItem = anItem->next;
anItem->kind = mxArgv(anIndex)->kind;
anItem->value = mxArgv(anIndex)->value;
}
anArray->next->value.array.length = mxArgc - 1;
fxCacheArray(the, anArray);
}
void fx_Function_prototype_bind(txMachine* the)
{
txSlot* instance = fxToInstance(the, mxThis);
txSize length;
txSlot* slot;
txID id;
txSlot* arguments;
txSlot* argument;
txSize c = mxArgc, i;
if (!fxIsFunction(the, instance))
mxTypeError("this is no Function instance");
if (fxHasOwnProperty(the, instance, mxID(_length))) {
mxPushSlot(mxThis);
fxGetID(the, mxID(_length));
length = fxToInteger(the, the->stack++);
if (c > 1)
length -= c - 1;
if (length < 0)
length = 0;
mxPop();
}
else
length = 0;
mxPushSlot(mxThis);
fxGetID(the, mxID(_name));
mxPushStringC("bound ");
fxConcatString(the, the->stack, the->stack + 1);
slot = fxNewName(the, the->stack);
id = slot->ID;
mxPop();
mxPop();
mxPushReference(instance->value.instance.prototype);
instance = fxNewFunctionInstance(the, id);
mxPullSlot(mxResult);
slot = mxFunctionInstanceCode(instance);
slot->kind = XS_CALLBACK_KIND;
slot->value.callback.address = fx_Function_prototype_bound;
slot->value.callback.IDs = (txID*)mxIDs.value.code;
slot = mxFunctionInstanceInfo(instance);
slot->value.info.length = (txID)length;
slot = fxLastProperty(the, instance);
slot = fxNextSlotProperty(the, slot, mxThis, mxID(_boundFunction), XS_GET_ONLY);
if (c > 0)
slot = fxNextSlotProperty(the, slot, mxArgv(0), mxID(_boundThis), XS_GET_ONLY);
else
slot = fxNextUndefinedProperty(the, slot, mxID(_boundThis), XS_GET_ONLY);
mxPush(mxArrayPrototype);
arguments = fxNewArrayInstance(the);
argument = arguments->next;
for (i = 1; i < c; i++) {
argument->next = fxNewSlot(the);
argument = argument->next;
argument->kind = mxArgv(i)->kind;
argument->value = mxArgv(i)->value;
}
arguments->next->value.array.length = mxArgc - 1;
fxCacheArray(the, arguments);
slot = fxNextSlotProperty(the, slot, the->stack, mxID(_boundArguments), XS_GET_ONLY);
mxPop();
}
