Function xs_spi_constructor

modules/io/spi/pico/spi.c:79–178

@@ pin values for in, out, and clock not being used or verified

//@@ pin values for in, out, and clock not being used or verified
void xs_spi_constructor(xsMachine *the)
{
	SPI spi;
	uint8_t mosi = kInvalidPin, miso = kInvalidPin, clock, select = kInvalidPin, active = 1, mode = 0;
	int hz, tmp;
	uint8_t spiPort;

	xsmcVars(1);

	xsmcGet(xsVar(0), xsArg(0), xsID_clock);
	clock = builtinGetPin(the, &xsVar(0));
	if (!builtinIsPinFree(clock))
		xsUnknownError("in use");

	xsmcGet(xsVar(0), xsArg(0), xsID_hz);
	hz = xsmcToInteger(xsVar(0));
	if ((hz < 1) || (hz > 50000000))
		xsRangeError("invalid hz");

	if (xsmcGet(xsVar(0), xsArg(0), xsID_out)) {
		mosi = builtinGetPin(the, &xsVar(0));
		if (!builtinIsPinFree(mosi))
			xsUnknownError("in use");
	}

	if (xsmcGet(xsVar(0), xsArg(0), xsID_in)) {
		miso = builtinGetPin(the, &xsVar(0));
		if (!builtinIsPinFree(miso))
			xsUnknownError("in use");
	}

	if (xsmcGet(xsVar(0), xsArg(0), xsID_select)) {
		select = builtinGetPin(the, &xsVar(0));
		if (!builtinIsPinFree(select))
			xsUnknownError("in use");
	}

	if (xsmcGet(xsVar(0), xsArg(0), xsID_active)) {
		active = xsmcToInteger(xsVar(0));
		if ((0 != active) && (1 != active))
			xsRangeError("invalid active");
	}

	if (xsmcGet(xsVar(0), xsArg(0), xsID_mode)) {
		tmp = xsmcToInteger(xsVar(0));
		if (tmp & ~3)
			xsRangeError("invalid mode");
		mode = (uint8_t)tmp;
	}

	if ((kInvalidPin == mosi) && (kInvalidPin == miso))
		xsUnknownError("mosi or miso required");

//	xsmcGet(xsVar(0), xsArg(0), xsID_port);
//	tmp = xsmcToInteger(xsVar(0));
	tmp = spiPortForPin(mosi, miso);
	if (tmp < 0 || tmp > 2)
		xsRangeError("invalid port");