Function fxVerifyErrorString

xs/sources/xsLockdown.c:712–748

}

void fxVerifyErrorString(txMachine* the, txSlot* slot, txID id, txIndex index, txString string)
{
	if (string) {
		fxConcatStringC(the, slot, "[[");
		fxConcatStringC(the, slot, string);
		fxConcatStringC(the, slot, "]]");
	}
	else if (id != XS_NO_ID) {
		txBoolean adorn;
		txString string = fxGetKeyString(the, id, &adorn);
		txString buffer = the->nameBuffer;
		size_t count = c_snprintf(buffer, sizeof(the->nameBuffer), "%s", string);
		if (count >= sizeof(the->nameBuffer)) {
			buffer = c_malloc(count + 1);
            if (!buffer)
                fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
			c_memcpy(buffer, string, count + 1);
		}
		if (adorn) {
			fxConcatStringC(the, slot, "[Symbol(");
			fxConcatStringC(the, slot, buffer);
			fxConcatStringC(the, slot, ")]");
		}
		else {
			fxConcatStringC(the, slot, ".");
			fxConcatStringC(the, slot, buffer);
		}
		if (buffer != the->nameBuffer)
			c_free(buffer);
	}
	else {
		fxNumberToString(the, index, the->nameBuffer, sizeof(the->nameBuffer), 0, 0);
		fxConcatStringC(the, slot, "[");
		fxConcatStringC(the, slot, the->nameBuffer);
		fxConcatStringC(the, slot, "]");
	}
}

void fxVerifyInstance(txMachine* the, txSlot* list, txSlot* path, txSlot* instance)
{