Function xs_serial_write

modules/io/serial/mac/serial.c:237–277

}

void xs_serial_write(xsMachine *the)
{
	xsSerial s = xsmcGetHostData(xsThis);
	xsUnsignedValue count = 0;
	void *data;
	char byte;

	if (1 == s->bufferFormat) {
		xsmcGetBufferReadable(xsArg(0), &data, &count);
	}
	else if (2 == s->bufferFormat) {
		count = 1;
		byte = xsmcToInteger(xsArg(0));
		data = &byte;
	}
	if (!count)
		return;

	if ((count > kWriteBufferSize) || s->flush)
		xsUnknownError("would overflow");

	while (count) {
		int result = write(s->fd, data, count);
		if (result < 0) {
			if (EAGAIN != errno)
				xsUnknownError("write failed");

			c_memmove(s->writeBuffer, data, count);
			s->toWrite = s->writeBuffer;
			s->bytesToWrite = count;

			s->flush = modTimerAdd(0, 0, fxSerialFlush, &s, sizeof(s));
			return;
		}
		count -= result;
		data += result;
	}

	if (!s->writable && s->hasOnWritable)
		s->writable = modTimerAdd(0, 0, fxSerialWritable, &s, sizeof(s));
}

void xs_serial_set(xsMachine *the)
{