Function xs_i2c_write

modules/pins/i2c/i2c.c:122–185

}

void xs_i2c_write(xsMachine *the)
{
	modI2C i2c;
	uint8_t argc = xsmcArgc, i;
	unsigned char err;
	uint8_t stop = true;
	unsigned int len = 0;
	unsigned char buffer[40];

	xsmcVars(1);

	for (i = 0; i < argc; i++) {
		xsType t = xsmcTypeOf(xsArg(i));
		if ((xsBooleanType == t) && ((argc - 1) == i)) {
			stop = xsmcToBoolean(xsArg(i));
			continue;
		}
		if ((xsNumberType == t) || (xsIntegerType == t)) {
			if ((len + 1) > sizeof(buffer))
				xsUnknownError("40 byte write limit");
			buffer[len++] = (unsigned char)xsmcToInteger(xsArg(i));
			continue;
		}
		if (xsStringType == t) {
			char *s = xsmcToString(xsArg(i));
			int l = c_strlen(s);
			if ((len + l) > sizeof(buffer))
				xsUnknownError("40 byte write limit");
			c_memcpy(buffer + len, s, l);
			len += l;
			continue;
		}
		if (xsmcIsInstanceOf(xsArg(i), xsArrayBufferPrototype)) {
			int l = xsmcGetArrayBufferLength(xsArg(i));
			if ((len + l) > sizeof(buffer))
				xsUnknownError("40 byte write limit");
			c_memmove(buffer + len, xsmcToArrayBuffer(xsArg(i)), l);
			len += l;
			continue;
		}

		{	// assume some kind of array (Array, Uint8Array, etc) (@@ use .buffer if present)
			int l;
			uint8_t j;

			xsmcGet(xsVar(0), xsArg(i), xsID_length);
			l = xsmcToInteger(xsVar(0));
			if ((len + l) > sizeof(buffer))
				xsUnknownError("40 byte write limit");
			for (j = 0; j < l; j++) {
				xsmcGetIndex(xsVar(0), xsArg(i), j);
				buffer[len++] = xsmcToInteger(xsVar(0));
			}
		}
	}

	i2c = xsmcGetHostChunk(xsThis);
	err = modI2CWrite(&i2c->state, buffer, len, stop);