Function fxStringifyJSON

xs/sources/xsJSON.c:800–869

}

void fxStringifyJSON(txMachine* the, txJSONStringifier* theStringifier)
{
	txSlot* aSlot;
	txInteger aFlag;
	txSlot* instance;
	
	aSlot = fxGetInstance(the, mxThis);
	theStringifier->offset = 0;
	theStringifier->size = 1024;
	theStringifier->buffer = c_malloc(1024);
	if (!theStringifier->buffer)
		fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);

	if (mxArgc > 1) {
		aSlot = mxArgv(1);
		if (mxIsReference(aSlot)) {
			if (fxIsCallable(the, aSlot))
				theStringifier->replacer = mxArgv(1);
			else if (fxIsArray(the, fxGetInstance(the, aSlot)))
				theStringifier->keys = fxToJSONKeys(the, aSlot);
		}
	}
	if (mxArgc > 2) {
		aSlot = mxArgv(2);
		if (mxIsReference(aSlot)) {
			txSlot* instance = fxGetInstance(the, aSlot);
			if (mxIsNumber(instance)) {
				fxToNumber(the, aSlot);
			}
			else if (mxIsString(instance)) {
				fxToString(the, aSlot);
			}
		}
		if ((aSlot->kind == XS_INTEGER_KIND) || (aSlot->kind == XS_NUMBER_KIND)) {
			txInteger aCount = fxToInteger(the, aSlot), anIndex;
			if (aCount < 0)
				aCount = 0;
			else if (aCount > 10)
				aCount = 10;
			for (anIndex = 0; anIndex < aCount; anIndex++)
				theStringifier->indent[anIndex] = ' ';
			theStringifier->indentLength = aCount;
		}
		else if (mxIsStringPrimitive(aSlot)) {
			txInteger aCount = fxUnicodeLength(aSlot->value.string, C_NULL);
			if (aCount > 10) {
				aCount = fxUnicodeToUTF8Offset(aSlot->value.string, 10);
			}
			else {
				aCount = (txInteger)c_strlen(aSlot->value.string);
			}
			c_memcpy(theStringifier->indent, aSlot->value.string, aCount);
			theStringifier->indent[aCount] = 0;
			theStringifier->indentLength = aCount;
		}
	}

	theStringifier->stack = the->stack;