Function fxStringifyJSONProperty

xs/sources/xsJSON.c:954–1139

}

void fxStringifyJSONProperty(txMachine* the, txJSONStringifier* theStringifier, txInteger* theFlag)
{
	txSlot* aWrapper = the->stack + 2;
	txSlot* aValue = the->stack + 1;
	txSlot* aKey = the->stack;
	txSlot* anInstance;
	txSlot* aSlot;
	txInteger aFlag;
	txIndex aLength, anIndex;
	
	mxCheckCStack();
	if (mxIsReference(aValue) || mxIsBigInt(aValue)) {
		/* THIS */
		mxPushSlot(aValue);
		/* FUNCTION */
		mxDub();
		mxGetID(mxID(_toJSON));
		if (mxIsReference(the->stack) && mxIsFunction(the->stack->value.reference))  {
			mxCall();
			mxPushSlot(aKey);
			fxToString(the, the->stack);
			mxRunCount(1);
			mxPullSlot(aValue);
		}
		the->stack = aKey;
	}
	if (theStringifier->replacer) {
		/* THIS */
		mxPushSlot(aWrapper);
		/* FUNCTION */
		mxPushSlot(theStringifier->replacer);
		mxCall();
		/* ARGUMENTS */
		mxPushSlot(aKey);
		fxToString(the, the->stack);
		mxPushSlot(aValue);
		/* COUNT */
		mxRunCount(2);
		mxPullSlot(aValue);
		the->stack = aKey;
	}
	if (mxIsReference(aValue)) {
		mxPushSlot(aValue);
		anInstance = fxToInstance(the, the->stack);
		if (anInstance->flag & XS_LEVEL_FLAG)
			mxTypeError("cyclic value");
		the->stack = aKey;
		aSlot = anInstance->next;
		if (aSlot && (aSlot->flag & XS_INTERNAL_FLAG)) {
			if ((aSlot->kind == XS_INTEGER_KIND) || (aSlot->kind == XS_NUMBER_KIND)) {
				fxToNumber(the, aValue);
			}
			else if (mxIsStringPrimitive(aSlot)) {
				fxToString(the, aValue);
			}
			else if ((aSlot->kind == XS_BOOLEAN_KIND) || (aSlot->kind == XS_BIGINT_KIND) || (aSlot->kind == XS_BIGINT_X_KIND)) {
				aValue->kind = aSlot->kind;
				aValue->value = aSlot->value;