Function fxToBoolean

xs/sources/xsAPI.c:81–136

}

txBoolean fxToBoolean(txMachine* the, txSlot* theSlot)
{
	switch (theSlot->kind) {
	case XS_UNDEFINED_KIND:
	case XS_NULL_KIND:
		theSlot->kind = XS_BOOLEAN_KIND;
		theSlot->value.boolean = 0;
		break;
	case XS_BOOLEAN_KIND:
		break;
	case XS_INTEGER_KIND:
		theSlot->kind = XS_BOOLEAN_KIND;
		theSlot->value.boolean = (theSlot->value.integer == 0) ? 0 : 1;
		break;
	case XS_NUMBER_KIND:
		theSlot->kind = XS_BOOLEAN_KIND;
		switch (c_fpclassify(theSlot->value.number)) {
		case C_FP_NAN:
		case C_FP_ZERO:
			theSlot->value.boolean = 0;
			break;
		default:
			theSlot->value.boolean = 1;
			break;
		}
		break;
	case XS_BIGINT_KIND:
	case XS_BIGINT_X_KIND:
		if ((theSlot->value.bigint.size == 1) && (theSlot->value.bigint.data[0] == 0))
			theSlot->value.boolean = 0;
		else
			theSlot->value.boolean = 1;
		theSlot->kind = XS_BOOLEAN_KIND;
		break;
	case XS_STRING_KIND:
	case XS_STRING_X_KIND:
		theSlot->kind = XS_BOOLEAN_KIND;
		if (c_isEmpty(theSlot->value.string))
			theSlot->value.boolean = 0;
		else
			theSlot->value.boolean = 1;
		break;
#if mxHostFunctionPrimitive
	case XS_HOST_FUNCTION_KIND:
#endif
	case XS_SYMBOL_KIND:
	case XS_REFERENCE_KIND:
		theSlot->kind = XS_BOOLEAN_KIND;
		theSlot->value.boolean = 1;
		break;
	default:
		mxTypeError("cannot coerce to boolean");
		break;
	}
	return theSlot->value.boolean;
}

txInteger fxArgc(txMachine* the)