Function xs_tcp_write

modules/io/socket/lin/tcp.c:314–349

}

void xs_tcp_write(xsMachine *the)
{
	TCP tcp = xsmcGetHostDataValidate(xsThis, (void *)&xsTCPHooks);
	xsUnsignedValue needed;
	void *buffer;
	uint8_t value;

	if (!tcp->skt) {
		xsTrace("write to closed socket\n");
		return;
	}

	if (kIOFormatBuffer == tcp->format)
		xsmcGetBufferReadable(xsArg(0), &buffer, &needed);
	else {
		needed = 1;
		value = (uint8_t)xsmcToInteger(xsArg(0));
		buffer = &value;
	}

	if (needed > tcp->bytesWritable)
		xsUnknownError("would block");

	tcp->bytesWritable -= needed;

	int ret = write(tcp->skt, buffer, needed);
	if (ret < 0) {
		xsTrace("write failed");
		tcpTrigger(tcp, kTCPError);
		return;
	}

	modInstrumentationAdjust(NetworkBytesWritten, needed);

	xsmcSetInteger(xsResult, tcp->bytesWritable);
}

void xs_tcp_get_remoteAddress(xsMachine *the)
{