Function xs_serial_write

modules/io/serial/pico/serial.c:318–349

}

void xs_serial_write(xsMachine *the)
{
	Serial serial = xsmcGetHostDataValidate(xsThis, (void *)&xsSerialHooks);
	int count = FIFO_SIZE - fifo_length(&serial->tx_fifo);

	if (kIOFormatNumber == serial->format) {
		uint8_t byte;

		if (0 == count)
			xsUnknownError("output full");

		byte = (uint8_t)xsmcToInteger(xsArg(0));
		if (0 != fifo_put(&serial->tx_fifo, byte))
			xsUnknownError("tx full");
	}
	else {
		uint8_t *buffer;
		xsUnsignedValue requested;

		xsmcGetBufferReadable(xsArg(0), (void**)&buffer, &requested);
		if (requested > count)
			xsUnknownError("output full");

		while (requested--) {
			if (0 != fifo_put(&serial->tx_fifo, *buffer++))
				xsUnknownError("tx full2");
		}
	}

	serial->txInterruptEnabled = (NULL != serial->onWritable);
	uart_irq();
}

void xs_serial_purge(xsMachine *the)
{