gambas-source-code/main/lib/term/cterm.c

/***************************************************************************

	cterm.c

	(c) 2000-2017 Benoît Minisini <gambas@users.sourceforge.net>

	This program is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to the Free Software
	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
	MA 02110-1301, USA.

***************************************************************************/

#define __CTERM_C

#include "main.h"
#include <errno.h>
#include "cterm.h"

#define STREAM_FD (GB.Stream.Handle(GB.Stream.Get(_object)))

#define THIS_SETTINGS ((CTERMINALSETTINGS *)_object)
#define SETTINGS THIS_SETTINGS->settings

static bool check_error(int ret)
{
	if (ret)
	{
		GB.Error(strerror(errno));
		return TRUE;
	}
	else
		return FALSE;
}

/*static bool _convert(CTERMINAL *_object, GB_TYPE type, GB_VALUE *conv)
{
	if (!THIS && type >= GB_T_OBJECT && GB.Is(conv->_object.value, GB.FindClass("Stream")))
	{
		
	}
	
	return TRUE;
	
	switch(type)
	{
		case GB_T_FLOAT:
			conv->_object.value = COMPLEX_create(conv->_float.value, 0);
			return FALSE;

		case GB_T_SINGLE:
			conv->_object.value = COMPLEX_create(conv->_single.value, 0);
			return FALSE;

		case GB_T_LONG:
			conv->_object.value = COMPLEX_create((double)conv->_long.value, 0);
			return FALSE;
			
		case GB_T_INTEGER:
		case GB_T_SHORT:
		case GB_T_BYTE:
			conv->_object.value = COMPLEX_create(conv->_integer.value, 0);
			return FALSE;
			
		default:
			return TRUE;
	}
}*/

//---------------------------------------------------------------------------

static CTERMINALSETTINGS *TERMINALSETTINGS_copy(CTERMINALSETTINGS *_object)
{
	CTERMINALSETTINGS *settings;
	settings = (CTERMINALSETTINGS *)GB.New(GB.FindClass("TerminalSettings"), NULL, NULL);
	settings->settings = SETTINGS;
	return settings;
}

BEGIN_METHOD_VOID(TerminalSettings_MakeRaw)

	CTERMINALSETTINGS *settings = TERMINALSETTINGS_copy(THIS_SETTINGS);
	cfmakeraw(&SETTINGS);
	GB.ReturnObject(settings);

END_METHOD

BEGIN_METHOD_VOID(TerminalSettings_Copy)

	GB.ReturnObject(TERMINALSETTINGS_copy(THIS_SETTINGS));

END_METHOD

static void handle_settings(tcflag_t *pflag, void *_param, int cst)
{
	if (READ_PROPERTY)
		GB.ReturnBoolean(*pflag & cst);
	else
	{
		if (VPROP(GB_BOOLEAN))
			*pflag |= cst;
		else
			*pflag &= ~cst;
	}
}

static void handle_settings_int(tcflag_t *pflag, void *_param, int mask)
{
	if (READ_PROPERTY)
		GB.ReturnInteger(*pflag & mask);
	else
	{
		*pflag &= ~mask;
		*pflag |= VPROP(GB_INTEGER) & mask;
	}
}

static void handle_settings_char(cc_t pcc[], void *_param, int pos)
{
	if (READ_PROPERTY)
		GB.ReturnInteger(pcc[pos]);
	else
		pcc[pos] = (cc_t)VPROP(GB_INTEGER);
}

#define IMPLEMENT_TSP(_name, _field) \
BEGIN_PROPERTY(TerminalSettings_##_name) \
	handle_settings(&SETTINGS._field, _param, _name); \
END_PROPERTY

#define IMPLEMENT_TSP_I(_name, _field) \
BEGIN_PROPERTY(TerminalSettings_##_name) \
	handle_settings_int(&SETTINGS._field, _param, _name); \
END_PROPERTY

#define IMPLEMENT_TSP_C(_name) \
BEGIN_PROPERTY(TerminalSettings_##_name) \
	handle_settings_char(SETTINGS.c_cc, _param, _name); \
END_PROPERTY

IMPLEMENT_TSP(IGNBRK, c_iflag)
IMPLEMENT_TSP(BRKINT, c_iflag)
IMPLEMENT_TSP(IGNPAR, c_iflag)
IMPLEMENT_TSP(PARMRK, c_iflag)
IMPLEMENT_TSP(INPCK, c_iflag)
IMPLEMENT_TSP(ISTRIP, c_iflag)
IMPLEMENT_TSP(INLCR, c_iflag)
IMPLEMENT_TSP(IGNCR, c_iflag) 
IMPLEMENT_TSP(ICRNL, c_iflag) 
IMPLEMENT_TSP(IUCLC, c_iflag) 
IMPLEMENT_TSP(IXON, c_iflag)  
IMPLEMENT_TSP(IXANY, c_iflag) 
IMPLEMENT_TSP(IXOFF, c_iflag) 
IMPLEMENT_TSP(IUTF8, c_iflag)

IMPLEMENT_TSP(OPOST, c_oflag)
IMPLEMENT_TSP(OLCUC, c_oflag)
IMPLEMENT_TSP(ONLCR, c_oflag)
IMPLEMENT_TSP(OCRNL, c_oflag)
IMPLEMENT_TSP(ONOCR, c_oflag)
IMPLEMENT_TSP(ONLRET, c_oflag)
IMPLEMENT_TSP(OFILL, c_oflag)

IMPLEMENT_TSP_I(NLDLY, c_oflag)
IMPLEMENT_TSP_I(CRDLY, c_oflag)
IMPLEMENT_TSP_I(TABDLY, c_oflag)
IMPLEMENT_TSP_I(BSDLY, c_oflag)
IMPLEMENT_TSP_I(VTDLY, c_oflag)
IMPLEMENT_TSP_I(FFDLY, c_oflag)

IMPLEMENT_TSP_I(CSIZE, c_cflag)
IMPLEMENT_TSP(CSTOPB, c_cflag)
IMPLEMENT_TSP(CREAD, c_cflag)
IMPLEMENT_TSP(PARENB, c_cflag)
IMPLEMENT_TSP(PARODD, c_cflag)
IMPLEMENT_TSP(HUPCL, c_cflag)
IMPLEMENT_TSP(CLOCAL, c_cflag)
IMPLEMENT_TSP(CRTSCTS, c_cflag)

IMPLEMENT_TSP(ISIG, c_lflag)
IMPLEMENT_TSP(ICANON, c_lflag)
IMPLEMENT_TSP(ECHO, c_lflag)
IMPLEMENT_TSP(ECHOE, c_lflag)
IMPLEMENT_TSP(ECHOK, c_lflag)
IMPLEMENT_TSP(ECHONL, c_lflag)
IMPLEMENT_TSP(ECHOCTL, c_lflag)
IMPLEMENT_TSP(ECHOKE, c_lflag)
IMPLEMENT_TSP(FLUSHO, c_lflag)
IMPLEMENT_TSP(NOFLSH, c_lflag)
IMPLEMENT_TSP(TOSTOP, c_lflag)
IMPLEMENT_TSP(IEXTEN, c_lflag)

#ifndef OS_CYGWIN
IMPLEMENT_TSP(CMSPAR, c_cflag)
IMPLEMENT_TSP(XCASE, c_lflag)
IMPLEMENT_TSP(ECHOPRT, c_lflag)
IMPLEMENT_TSP(PENDIN, c_lflag)
#endif

IMPLEMENT_TSP_C(VDISCARD)
IMPLEMENT_TSP_C(VEOF)
IMPLEMENT_TSP_C(VEOL)
IMPLEMENT_TSP_C(VEOL2)
IMPLEMENT_TSP_C(VERASE)
IMPLEMENT_TSP_C(VINTR)
IMPLEMENT_TSP_C(VKILL)
IMPLEMENT_TSP_C(VLNEXT)
IMPLEMENT_TSP_C(VMIN)
IMPLEMENT_TSP_C(VQUIT)
IMPLEMENT_TSP_C(VREPRINT)
IMPLEMENT_TSP_C(VSTART)
IMPLEMENT_TSP_C(VSTOP)
IMPLEMENT_TSP_C(VSUSP)
IMPLEMENT_TSP_C(VTIME)
IMPLEMENT_TSP_C(VWERASE)

BEGIN_PROPERTY(TerminalSettings_InputSpeed)

	if (READ_PROPERTY)
		GB.ReturnInteger(cfgetispeed(&SETTINGS));
	else
		cfsetispeed(&SETTINGS, VPROP(GB_INTEGER));

END_PROPERTY

BEGIN_PROPERTY(TerminalSettings_OutputSpeed)

	if (READ_PROPERTY)
		GB.ReturnInteger(cfgetospeed(&SETTINGS));
	else
		cfsetospeed(&SETTINGS, VPROP(GB_INTEGER));

END_PROPERTY

//---------------------------------------------------------------------------

BEGIN_PROPERTY(StreamTerm_Name)
	
	GB.ReturnNewZeroString(ttyname(STREAM_FD));

END_PROPERTY

BEGIN_METHOD_VOID(StreamTerm_GetAttr)

	CTERMINALSETTINGS *settings;

	fprintf(stderr, "fd = %d\n", STREAM_FD);
	
	settings = (CTERMINALSETTINGS *)GB.New(GB.FindClass("TerminalSettings"), NULL, NULL);
	if (check_error(tcgetattr(STREAM_FD, &settings->settings)))
	{
		GB.Unref(POINTER(&settings));
		return;
	}
		
	GB.ReturnObject(settings);

END_PROPERTY

BEGIN_METHOD(StreamTerm_SetAttr, GB_INTEGER mode; GB_OBJECT settings)

	CTERMINALSETTINGS *settings;

	settings = (CTERMINALSETTINGS *)VARG(settings);
	if (GB.CheckObject(settings))
		return;
		
	check_error(tcsetattr(STREAM_FD, VARG(mode), &settings->settings));

END_PROPERTY

BEGIN_METHOD(StreamTerm_Flush, GB_INTEGER mode)

	check_error(tcflush(STREAM_FD, VARG(mode)));

END_METHOD

BEGIN_METHOD_VOID(StreamTerm_Drain)

	check_error(tcdrain(STREAM_FD));

END_METHOD

BEGIN_METHOD(StreamTerm_Flow, GB_INTEGER mode)

	check_error(tcflow(STREAM_FD, VARG(mode)));

END_METHOD

BEGIN_METHOD_VOID(StreamTerm_SendBreak)

	check_error(tcsendbreak(STREAM_FD, 0));

END_METHOD

/*BEGIN_PROPERTY(Terminal_Control)

	GB.ReturnNewZeroString(ctermid(NULL));

END_PROPERTY*/

//---------------------------------------------------------------------------

#define __TC(_name) GB_CONSTANT(#_name, "i", _name)

GB_DESC TermDesc[] =
{
	GB_DECLARE_STATIC("Term"),
	
	__TC(TCSANOW), __TC(TCSADRAIN), __TC(TCSAFLUSH),
	
	__TC(TCIFLUSH),	__TC(TCOFLUSH),	__TC(TCIOFLUSH),
	
	__TC(TCIOFF), __TC(TCION), __TC(TCOOFF), __TC(TCOON),

	__TC(NL0), __TC(NL1), __TC(CR0), __TC(CR1), __TC(CR2), __TC(CR3), __TC(TAB0), __TC(TAB1), __TC(TAB2), __TC(TAB3), __TC(XTABS), __TC(BS0), __TC(BS1), __TC(VT0), __TC(VT1), __TC(FF0), __TC(FF1),
	
	__TC(CS5), __TC(CS6), __TC(CS7), __TC(CS8),
	
	GB_CONSTANT("VDISABLE", "i", _POSIX_VDISABLE),
	
	__TC(B0), __TC(B50), __TC(B75), __TC(B110), __TC(B134), __TC(B150), __TC(B200), __TC(B300), __TC(B600), __TC(B1200), __TC(B1800), __TC(B2400), __TC(B4800), __TC(B9600), __TC(B19200), __TC(B38400), __TC(B57600), __TC(B115200), __TC(B230400), __TC(B460800), __TC(B500000), __TC(B576000), __TC(B921600), __TC(B1000000), __TC(B1152000), __TC(B1500000), __TC(B2000000), __TC(B2500000), __TC(B3000000),
#ifndef OS_CYGWIN 
__TC(B3500000), __TC(B4000000),
#endif

	GB_END_DECLARE
};

#define __TSP(_name) GB_PROPERTY(#_name, "b", TerminalSettings_##_name)
#define __TSP_I(_name) GB_PROPERTY(#_name, "i", TerminalSettings_##_name)

GB_DESC TerminalSettingsDesc[] =
{
	GB_DECLARE("TerminalSettings", sizeof(CTERMINALSETTINGS)),
	GB_NOT_CREATABLE(),
	
	__TSP(IGNBRK),
	__TSP(BRKINT),
	__TSP(IGNPAR),
	__TSP(PARMRK),
	__TSP(INPCK),
	__TSP(ISTRIP),
	__TSP(INLCR),
	__TSP(IGNCR), 
	__TSP(ICRNL), 
	__TSP(IUCLC), 
	__TSP(IXON),  
	__TSP(IXANY), 
	__TSP(IXOFF), 
	__TSP(IUTF8),
	
	__TSP(OPOST),
	__TSP(OLCUC),
	__TSP(ONLCR),
	__TSP(OCRNL),
	__TSP(ONOCR),
	__TSP(ONLRET),
	__TSP(OFILL),

	__TSP_I(NLDLY),
	__TSP_I(CRDLY),
	__TSP_I(TABDLY),
	__TSP_I(BSDLY),
	__TSP_I(VTDLY),
	__TSP_I(FFDLY),

	__TSP_I(CSIZE),
	__TSP(CSTOPB),
	__TSP(CREAD),
	__TSP(PARENB),
	__TSP(PARODD),
	__TSP(HUPCL),
	__TSP(CLOCAL),
	__TSP(CRTSCTS),
	
	__TSP(ISIG),
	__TSP(ICANON),
	__TSP(ECHO),
	__TSP(ECHOE),
	__TSP(ECHOK),
	__TSP(ECHONL),
	__TSP(ECHOCTL),
	__TSP(ECHOKE),
	__TSP(FLUSHO),
	__TSP(NOFLSH),
	__TSP(TOSTOP),
	__TSP(IEXTEN),

#ifndef OS_CYGWIN
	__TSP(CMSPAR),
	__TSP(XCASE),
	__TSP(ECHOPRT),
	__TSP(PENDIN),
#endif

	__TSP_I(VDISCARD),
	__TSP_I(VEOF),
	__TSP_I(VEOL),
	__TSP_I(VEOL2),
	__TSP_I(VERASE),
	__TSP_I(VINTR),
	__TSP_I(VKILL),
	__TSP_I(VLNEXT),
	__TSP_I(VMIN),
	__TSP_I(VQUIT),
	__TSP_I(VREPRINT),
	__TSP_I(VSTART),
	__TSP_I(VSTOP),
	__TSP_I(VSUSP),
	__TSP_I(VTIME),
	__TSP_I(VWERASE),
	
	GB_PROPERTY("InputSpeed", "i", TerminalSettings_InputSpeed),
	GB_PROPERTY("OutputSpeed", "i", TerminalSettings_OutputSpeed),
	
	GB_METHOD("MakeRaw", "TerminalSettings", TerminalSettings_MakeRaw, NULL),
	GB_METHOD("Copy", "TerminalSettings", TerminalSettings_Copy, NULL),
	
	GB_END_DECLARE
};

GB_DESC StreamTermDesc[] =
{
	GB_DECLARE_VIRTUAL(".Stream.Term"),

	//GB_STATIC_PROPERTY_READ("Control", "s", Terminal_Control),
	
	GB_METHOD("Flush", NULL, StreamTerm_Flush, "(Mode)i"),
	GB_METHOD("Drain", NULL, StreamTerm_Drain, NULL),
	GB_METHOD("Flow", NULL, StreamTerm_Flow, "(Mode)i"),
	GB_METHOD("SendBreak", NULL, StreamTerm_SendBreak, NULL),
	
	GB_METHOD("GetAttr", "TerminalSettings", StreamTerm_GetAttr, NULL),
	GB_METHOD("SetAttr", NULL, StreamTerm_SetAttr, "(Mode)i(Settings)TerminalSettings;"),
	
	//GB_INTERFACE("_convert", &_convert),
	
	GB_END_DECLARE
};