Function xs_serial_write

modules/io/serial/win/serial.c:343–375

}

void xs_serial_write(xsMachine *the)
{
	xsSerial s = xsGetHostData(xsThis);
	char *data;
	DWORD count;
    OVERLAPPED overlapped;
	DWORD written;
	DWORD written2 = 0;

	if (s->bufferFormat) {
		data = xsToArrayBuffer(xsArg(0));
		count = (DWORD)xsGetArrayBufferLength(xsArg(0));
	}
	else {
		data = xsToString(xsArg(0));
		count = (DWORD)strlen(data);
	}
	if (!count)
		return;
 	memset(&overlapped, 0, sizeof(overlapped));
	overlapped.hEvent = s->writeEvent;
	if (!WriteFile(s->comm, data, (DWORD)count, &written, &overlapped)) {
		DWORD error = GetLastError();
		if (error != ERROR_IO_PENDING) xs_serial_throw(the, error, NULL, 0);
        xsElseThrow(GetOverlappedResult(s->comm, &overlapped, &written2, TRUE));
	}
// 	{
// 		char buffer[256];
// 		sprintf(buffer, "WRITE %ld %ld %ld\n", count, written, written2);
// 		OutputDebugString(buffer);
// 	}
	xs_serial_write_aux(the, s);
}

void xs_serial_write_aux(void* machine, xsSerial s)
{