Function fxMeasureThrow

xs/sources/xsMarshall.c:1010–1037

}

void fxMeasureThrow(txMachine* the, txMarshallBuffer* theBuffer, txString message)
{
	txSlot* slot = theBuffer->stack;
	txInteger i = 0;
	txInteger c = sizeof(theBuffer->error);
	i += c_snprintf(theBuffer->error, c, "marshall ");
	while (slot > the->stack) {
		slot--;
		if (slot->kind == XS_AT_KIND) {
			if (slot->value.at.id != XS_NO_ID) {
				txBoolean adorn;
				txString string = fxGetKeyString(the, slot->value.at.id, &adorn);
				if (adorn) {
					if (i < c) i += c_snprintf(theBuffer->error + i, c - i, "[%s]", string);
				}
				else {
					if (i < c) i += c_snprintf(theBuffer->error + i, c - i, ".%s", string);
				}
			}
			else {
				if (i < c) i += c_snprintf(theBuffer->error + i, c - i, "[%d]", (int)slot->value.at.index);
			}
		}
	}
	if (i < c)
		i += c_snprintf(theBuffer->error + i, c - i, ": %s", message);
	c_longjmp(theBuffer->jmp_buf, 1);
}