Function xs_serial_constructor

modules/io/serial/lin/serial.c:115–171

}

void xs_serial_constructor(xsMachine *the)
{
	xsSerial s = NULL;
	xsIntegerValue baud;
	xsStringValue device;
	struct termios tio;
	struct termios2 tio2;
  	GError *error = NULL;
	xsVars(1);
	xsTry {
		s = calloc(1, sizeof(xsSerialRecord));
		xsElseThrow(s != NULL);
		s->the = the;
		s->obj = xsThis;
		s->onError = xsGet(xsArg(0), xsID_onError);
		s->hasOnError = xsTest(s->onError);
		s->onReadable = xsGet(xsArg(0), xsID_onReadable);
		s->hasOnReadable = xsTest(s->onReadable);
		s->onWritable = xsGet(xsArg(0), xsID_onWritable);
		s->hasOnWritable = xsTest(s->onWritable);
		if (xsHas(xsArg(0), xsID_format)) {
			xsVar(0) = xsGet(xsArg(0), xsID_format);
			xs_serial_format_set_aux(the, s, xsToString(xsVar(0)));
		}
		else
			s->bufferFormat = 1;
		if (xsHas(xsArg(0), xsID_target)) {
			xsVar(0) = xsGet(xsArg(0), xsID_target);
			xsSet(xsThis, xsID_target, xsVar(0));
		}
		xsVar(0) = xsGet(xsArg(0), xsID_baud);
		baud = xsToInteger(xsVar(0));
		xsVar(0) = xsGet(xsArg(0), xsID_device);
		device = xsToString(xsVar(0));

		s->fd = open(device, O_RDWR | O_NOCTTY | O_NONBLOCK);
		xsElseThrow(s->fd != -1);
		c_memset(&tio, 0, sizeof(tio));
		tio.c_cflag = CS8 | CLOCAL | CREAD;
		tio.c_iflag = IGNPAR;
		tio.c_cc[VMIN] = 1;
		xsElseThrow(tcsetattr(s->fd, TCSANOW, &tio) == 0);
		xsElseThrow(ioctl(s->fd, TCGETS2, &tio2) == 0);
		tio2.c_cflag &= ~CBAUD;
		tio2.c_cflag |= BOTHER;
		tio2.c_ispeed = baud;
		tio2.c_ospeed = baud;
		xsElseThrow(ioctl(s->fd, TCSETS2, &tio2) == 0);
		
		s->channel = g_io_channel_unix_new(s->fd);
		xsElseThrow(s->channel != NULL);
		xsElseThrow(g_io_channel_set_encoding(s->channel, NULL, &error) == G_IO_STATUS_NORMAL);
		s->source = g_io_add_watch(s->channel, G_IO_IN | G_IO_ERR, xs_serial_read_callback, s);
		xsElseThrow(s->source != 0);
		if (s->hasOnWritable)
			s->writeSource = g_io_add_watch(s->channel, G_IO_OUT, xs_serial_write_callback, s);
	}
	xsCatch {