Function xs_serial_constructor

modules/io/serial/mac/serial.c:91–173

}

void xs_serial_constructor(xsMachine *the)
{
	char device[128], format[64];
	speed_t baud;
	CFSocketContext context;
	int fd;
	xsSerial s;
	xsSlot onReadable, onWritable, onError;

	xsmcVars(2);

	xsmcGet(xsVar(0), xsArg(0), xsID_device);
	xsmcToStringBuffer(xsVar(0), device, sizeof(device));

	xsmcGet(xsVar(0), xsArg(0), xsID_baud);
	baud = xsmcToInteger(xsVar(0));

	xsmcGet(onReadable, xsArg(0), xsID_onReadable);
	xsmcGet(onWritable, xsArg(0), xsID_onWritable);
	xsmcGet(onError, xsArg(0), xsID_onError);

	if (xsmcGet(xsVar(0), xsArg(0), xsID_format))
		xsmcToStringBuffer(xsVar(0), format, sizeof(format));
	else
		format[0] = 0;

	if (xsmcGet(xsVar(0), xsArg(0), xsID_target))
		xsmcSet(xsThis, xsID_target, xsVar(0));

	s = calloc(1, sizeof(xsSerialRecord));
	if (!s)
		xsUnknownError("no memory");
	xsmcSetHostData(xsThis, s);
	s->the = the;
	s->obj = xsThis;
	s->hasOnWritable = xsmcTest(onWritable);
	s->hasOnReadable = xsmcTest(onReadable);
	s->hasOnError = xsmcTest(onError);

	if (format[0])
		fxSerialSetFormat(the, s, format);
	else
		s->bufferFormat = 1;

	fd = open(device, O_RDWR | O_NOCTTY | O_NONBLOCK);
	if (-1 == fd)
		xsUnknownError("can't open serial");

    if (-1 == ioctl(fd, TIOCEXCL)) {
		close(fd);
		xsUnknownError("Error setting TIOCEXCL");
    }

    if (-1 == ioctl(fd, IOSSIOSPEED, &baud)) {
		close(fd);
        xsUnknownError( "Error calling ioctl(..., IOSSIOSPEED, ...");
	}