* added to freebsd.

rtl/freebsd/termios.inc

@@ -0,0 +1,343 @@
+Program termiosx;
+
+
+CONST
+
+{
+ * Special Control Characters
+ *
+ * Index into c_cc[] character array.
+ *
+ *	Name	     Subscript	Enabled by
+ }
+ VEOF		=0;	
+ VEOL		=1;	
+ VEOL2		=2;	
+ VERASE		=3;	
+ VWERASE 	=4;	
+ VKILL		=5;	
+ VREPRINT 	=6;	
+{		=7;	   spare 1 }
+ VINTR		=8;	
+ VQUIT		=9;	
+ VSUSP		=10;	
+ VDSUSP		=11;	
+ VSTART		=12;	
+ VSTOP		=13;	
+ VLNEXT		=14;	
+ VDISCARD	=15;	
+ VMIN		=16;	
+ VTIME		=17;	
+ VSTATUS	=18;	
+{		=19	   spare 2 }
+ NCCS		=20;
+
+type
+  Termios = packed record
+    c_iflag,
+    c_oflag,
+    c_cflag,
+    c_lflag  : longint;
+    c_line   : char;
+    c_cc     : array[0..NCCS-1] of byte;
+   {$IFDEF BSD}
+    c_ispeed,
+    c_ospeed : longint; 
+   {$endif}
+  end;
+  TTermios=Termios;
+
+CONST
+
+
+ POSIX_VDISABLE=Chr($ff);
+{
+
+#define	CCEQ(val, c)	((c) == (val) ? (val) != _POSIX_VDISABLE : 0)
+}
+
+{ * Input flags - software input processing}
+
+       	IGNBRK		=       $1;	{ ignore BREAK condition }
+       	BRKINT		=       $2;	{ map BREAK to SIGINTR }
+       	IGNPAR		=       $4;	{ ignore (discard) parity errors }
+       	PARMRK		=       $8;	{ mark parity and framing errors }
+       	INPCK		=      $10;	{ enable checking of parity errors }
+       	ISTRIP		=      $20;	{ strip 8th bit off chars }
+       	INLCR		=      $40;	{ map NL into CR }
+       	IGNCR		=      $80;	{ ignore CR }
+       	ICRNL		=     $100;	{ map CR to NL (ala CRMOD) }
+       	IXON		=     $200;	{ enable output flow control }
+       	IXOFF		=     $400;	{ enable input flow control }
+       	IXANY		=     $800;	{ any char will restart after stop }
+        IMAXBEL		=    $2000;	{ ring bell on input queue full }
+
+{
+ * Output flags - software output processing
+}
+       	OPOST		=       $1;	{ enable following output processing }
+        ONLCR		=       $2;	{ map NL to CR-NL (ala CRMOD) }
+        OXTABS		=       $4;	{ expand tabs to spaces }
+        ONOEOT		=       $8;	{ discard EOT's (^D) on output) }
+
+{
+ * Control flags - hardware control of terminal
+}
+       	CIGNORE		=       $1;	{ ignore control flags }
+        CSIZE		=     $300;	{ character size mask }
+        CS5		=       $0;	    { 5 bits (pseudo) }
+        CS6		=     $100;	    { 6 bits }
+        CS7		=     $200;	    { 7 bits }
+        CS8		=     $300;	    { 8 bits }
+        CSTOPB		=     $400;	{ send 2 stop bits }
+        CREAD		=     $800;	{ enable receiver }
+        PARENB		=    $1000;	{ parity enable }
+        PARODD		=    $2000;	{ odd parity, else even }
+        HUPCL		=    $4000;	{ hang up on last close }
+        CLOCAL		=    $8000;	{ ignore modem status lines }
+        CCTS_OFLOW	=   $10000;	{ CTS flow control of output }
+        CRTS_IFLOW	=   $20000;	{ RTS flow control of input }
+        CRTSCTS		=   (CCTS_OFLOW or CRTS_IFLOW);
+       	CDTR_IFLOW	=   $40000;	{ DTR flow control of input }
+        CDSR_OFLOW	=   $80000;	{ DSR flow control of output }
+       	CCAR_OFLOW	=  $100000;	{ DCD flow control of output }
+       	MDMBUF		=  $100000;	{ old name for CCAR_OFLOW }
+
+{
+ * "Local" flags - dumping ground for other state
+ *
+ * Warning: some flags in this structure begin with
+ * the letter "I" and look like they belong in the
+ * input flag.
+ }
+
+       	ECHOKE		=       $1;	{ visual erase for line kill }
+       	ECHOE		=       $2;	{ visually erase chars }
+       	ECHOK		=       $4;	{ echo NL after line kill }
+        ECHO		=       $8;	{ enable echoing }
+       	ECHONL		=      $10;	{ echo NL even if ECHO is off }
+       	ECHOPRT		=      $20;	{ visual erase mode for hardcopy }
+        ECHOCTL  	=      $40;	{ echo control chars as ^(Char) }
+       	ISIG		=      $80;	{ enable signals INTR, QUIT, [D]SUSP }
+       	ICANON		=     $100;	{ canonicalize input lines }
+        ALTWERASE	=     $200;	{ use alternate WERASE algorithm }
+       	IEXTEN		=     $400;	{ enable DISCARD and LNEXT }
+        EXTPROC         =     $800;      { external processing }
+        TOSTOP		=  $400000;	{ stop background jobs from output }
+        FLUSHO		=  $800000;	{ output being flushed (state) }
+       	NOKERNINFO	= $2000000;	{ no kernel output from VSTATUS }
+        PENDIN		=$20000000;	{ XXX retype pending input (state) }
+       	NOFLSH		=$80000000;	{ don't flush after interrupt }
+
+
+
+{
+ * Commands passed to tcsetattr() for setting the termios structure.
+}
+
+CONST
+
+       	TCSANOW		=0;		{ make change immediate }
+       	TCSADRAIN	=1;		{ drain output, then change }
+       	TCSAFLUSH	=2;		{ drain output, flush input }
+        TCSASOFT	=$10;		{ flag - don't alter h.w. state }
+
+{
+ * Standard speeds
+}
+        B0	=     0;
+        B50	=    50;
+        B75	=    75;
+        B110	=   110;
+        B134	=   134;
+        B150	=   150;
+        B200	=   200;
+        B300	=   300;
+        B600	=   600;
+        B1200	=  1200;
+       	B1800	=  1800;
+        B2400	=  2400;
+        B4800	=  4800;
+        B9600	=  9600;
+        B19200	= 19200;
+        B38400	= 38400;
+        B7200	=  7200;
+        B14400	= 14400;
+        B28800	= 28800;
+        B57600	= 57600;
+        B76800	= 76800;
+        B115200	=115200;
+        B230400	=230400;
+        EXTA	= 19200;
+        EXTB	= 38400;
+
+       	TCIFLUSH	=1;
+       	TCOFLUSH	=2;
+        TCIOFLUSH	=3;
+       	TCOOFF		=1;
+       	TCOON		=2;
+        TCIOFF		=3;
+        TCION		=4;
+
+{
+#include <sys/cdefs.h>
+
+__BEGIN_DECLS
+speed_t	cfgetispeed __P((const struct termios *));
+speed_t	cfgetospeed __P((const struct termios *));
+int	cfsetispeed __P((struct termios *, speed_t));
+int	cfsetospeed __P((struct termios *, speed_t));
+int	tcgetattr __P((int, struct termios *));
+int	tcsetattr __P((int, int, const struct termios *));
+int	tcdrain __P((int));
+int	tcflow __P((int, int));
+int	tcflush __P((int, int));
+int	tcsendbreak __P((int, int));
+
+#ifndef _POSIX_SOURCE
+void	cfmakeraw __P((struct termios *));
+int	cfsetspeed __P((struct termios *, speed_t));
+#endif { !_POSIX_SOURCE }
+__END_DECLS
+
+#endif { !_KERNEL }
+
+
+
+struct winsize {
+	unsigned short	ws_row;		{ rows, in characters }
+	unsigned short	ws_col;		{ columns, in characters }
+	unsigned short	ws_xpixel;	{ horizontal size, pixels }
+	unsigned short	ws_ypixel;	{ vertical size, pixels }
+};
+
+}
+       IOCTLREAD        = $40000000;
+       IOCTLWRITE       = $80000000;
+       IOCTLVOID	= $20000000;
+
+      	TIOCMODG	= IOCTLREAD+$47400+ 3;	{ get modem control state }
+      	TIOCMODS	= IOCTLWRITE+$47400+ 4;	{ set modem control state }
+      		TIOCM_LE	=$0001;		{ line enable }
+      		TIOCM_DTR	=$0002;		{ data terminal ready }
+      		TIOCM_RTS	=$0004;		{ request to send }
+      		TIOCM_ST	=$0010;		{ secondary transmit }
+      		TIOCM_SR	=$0020;		{ secondary receive }
+      		TIOCM_CTS	=$0040;		{ clear to send }
+      		TIOCM_CAR	=$0100;		{ carrier detect }
+      		TIOCM_CD	=TIOCM_CAR;
+      		TIOCM_RNG	=$0200; 	{ ring }
+      		TIOCM_RI	=TIOCM_RNG;
+      		TIOCM_DSR	=$0400;		{ data set ready }
+						{ 8-10 compat }
+      	TIOCEXCL	 =IOCTLVOID+$7400+ 13;		{ set exclusive use of tty }
+      	TIOCNXCL	 =IOCTLVOID+$7400+ 14;		{ reset exclusive use of tty }
+						{ 15 unused }
+      	TIOCFLUSH 	 =IOCTLWRITE+$47400+ 16;	{ flush buffers }
+						{ 17-18 compat }
+      	TIOCGETA	 =IOCTLREAD+$2C7400+ 19; { get termios struct }
+      	TIOCSETA	 =IOCTLWRITE+$2C7400+ 20; { set termios struct }
+      	TIOCSETAW	 =IOCTLWRITE+$2C7400+ 21; { drain output, set }
+      	TIOCSETAF	 =IOCTLWRITE+$2C7400+ 22; { drn out, fls in, set }
+      	TIOCGETD	 =IOCTLREAD+$47400+ 26;	{ get line discipline }
+      	TIOCSETD	 =IOCTLWRITE+$47400+ 27;	{ set line discipline }
+						{ 127-124 compat }
+      	TIOCSBRK	 =IOCTLVOID+$7400+ 123;		{ set break bit }
+      	TIOCCBRK	 =IOCTLVOID+$7400+ 122;		{ clear break bit }
+      	TIOCSDTR	 =IOCTLVOID+$7400+ 121;		{ set data terminal ready }
+      	TIOCCDTR	 =IOCTLVOID+$7400+ 120;		{ clear data terminal ready }
+      	TIOCGPGRP	 =IOCTLREAD+$47400+ 119;	{ get pgrp of tty }
+      	TIOCSPGRP	 =IOCTLWRITE+$47400+ 118;	{ set pgrp of tty }
+						{ 117-116 compat }
+      	TIOCOUTQ	 =IOCTLREAD+$47400+ 115;	{ output queue size }
+      	TIOCSTI		 =IOCTLWRITE+$17400+ 114;	{ simulate terminal input }
+      	TIOCNOTTY	 =IOCTLVOID+$7400+ 113;		{ void tty association }
+      	TIOCPKT		 =IOCTLWRITE+$47400+ 112;	{ pty: set/clear packet mode }
+      		TIOCPKT_DATA		=$00;	{ data packet }
+      		TIOCPKT_FLUSHREAD	=$01;	{ flush packet }
+      		TIOCPKT_FLUSHWRITE	=$02;	{ flush packet }
+      		TIOCPKT_STOP		=$04;	{ stop output }
+      		TIOCPKT_START		=$08;	{ start output }
+      		TIOCPKT_NOSTOP		=$10;	{ no more ^S, ^Q }
+      		TIOCPKT_DOSTOP		=$20;	{ now do ^S ^Q }
+      		TIOCPKT_IOCTL		=$40;	{ state change of pty driver }
+      	TIOCSTOP	 =IOCTLVOID+$7400+ 111;		{ stop output, like ^S }
+      	TIOCSTART	 =IOCTLVOID+$7400+ 110;		{ start output, like ^Q }
+      	TIOCMSET	 =IOCTLWRITE+$47400+ 109;	{ set all modem bits }
+      	TIOCMBIS	 =IOCTLWRITE+$47400+ 108;	{ bis modem bits }
+      	TIOCMBIC	 =IOCTLWRITE+$47400+ 107;	{ bic modem bits }
+      	TIOCMGET	 =IOCTLREAD+$47400+ 106;	{ get all modem bits }
+      	TIOCREMOTE	 =IOCTLWRITE+$47400+ 105;	{ remote input editing }
+      	TIOCGWINSZ	 =IOCTLREAD+$87400+ 104;	{ get window size }
+      	TIOCSWINSZ	 =IOCTLWRITE+$87400+ 103;	{ set window size }
+      	TIOCUCNTL	 =IOCTLWRITE+$47400+ 102;	{ pty: set/clr usr cntl mode }
+      	TIOCSTAT	 =IOCTLVOID+$7400+ 101;		{ simulate ^T status message }
+  //    		   UIOCCMD(n)	_IO('u', n)	{ usr cntl op "n" }
+      	TIOCCONS	 =IOCTLWRITE+$47400+ 98;	{ become virtual console }
+      	TIOCSCTTY	 =IOCTLVOID+$7400+ 97;		{ become controlling tty }
+      	TIOCEXT		 =IOCTLWRITE+$47400+ 96;	{ pty: external processing }
+      	TIOCSIG		 =IOCTLVOID+$7400+ 95;		{ pty: generate signal }
+      	TIOCDRAIN	 =IOCTLVOID+$7400+ 94;		{ wait till output drained }
+      	TIOCMSDTRWAIT	 =IOCTLWRITE+$47400+ 91;	{ modem: set wait on close }
+      	TIOCMGDTRWAIT	 =IOCTLREAD+$47400+ 90;	{ modem: get wait on close }
+      	TIOCTIMESTAMP	 =IOCTLREAD+$87400+ 89; 	{ enable/get timestamp
+						 * of last input event }
+      	TIOCDCDTIMESTAMP =IOCTLREAD+$87400+ 88;	{ enable/get timestamp
+						 * of last DCd rise }
+      	TIOCSDRAINWAIT	 =IOCTLWRITE+$47400+ 87;	{ set ttywait timeout }
+       	TIOCGDRAINWAIT	 =IOCTLREAD+$47400+ 86;	{ get ttywait timeout }
+
+      	TTYDISC		 =0;		{ termios tty line discipline }
+      	SLIPDISC	 =4; 		{ serial IP discipline }
+      	PPPDISC		 =5;		{ PPP discipline }
+      	NETGRAPHDISC	 =6;		{ Netgraph tty node discipline }
+
+
+{
+ * Defaults on "first" open.
+ }
+      	TTYDEF_IFLAG	 =(BRKINT	or ICRNL	or IMAXBEL or IXON or IXANY);
+       TTYDEF_OFLAG	 =(OPOST or ONLCR);
+       TTYDEF_LFLAG	 =(ECHO or ICANON or ISIG or IEXTEN or ECHOE or ECHOKE or ECHOCTL);
+      	TTYDEF_CFLAG	 =(CREAD or CS8 or HUPCL);
+       TTYDEF_SPEED	 =(B9600);
+
+
+
+{
+ * Control Character Defaults
+ }
+        CtrlMask	= $1f;	{\037}
+      	CEOF		=chr( ORD('d') and CtrlMask);
+      	CEOL		=chr( $ff and CtrlMask);{ XXX avoid _POSIX_VDISABLE }
+      	CERASE		=chr( $7F and CtrlMask);
+      	CINTR		=chr(ORD('c') and CtrlMask);
+      	CSTATUS		=chr(ORD('t') and CtrlMask);
+      	CKILL		=chr(ORD('u') and CtrlMask);
+      	CMIN		=chr(1);
+      	CQUIT		=chr(034  and CtrlMask);	{ FS, ^\ }
+      	CSUSP		=chr(ORD('z') and CtrlMask);
+      	CTIME		=chr(0);
+      	CDSUSP		=chr(ORD('y') and CtrlMask);
+      	CSTART		=chr(ORD('q') and CtrlMask);
+      	CSTOP		=chr(ORD('s') and CtrlMask);
+      	CLNEXT		=chr(ORD('v') and CtrlMask);
+      	CDISCARD 	=chr(ORD('o') and CtrlMask);
+      	CWERASE 	=chr(ORD('w') and CtrlMask);
+      	CREPRINT 	=chr(ORD('r') and CtrlMask);
+      	CEOT		=CEOF;
+{ compat }
+      	CBRK		=CEOL;
+        CRPRNT		=CREPRINT;
+      	CFLUSH		=CDISCARD;
+
+
+{
+ *        TTYDEFCHARS to include an array of default control characters.
+}
+    ttydefchars : array[0..NCCS-1] OF char =(
+	CEOF,	CEOL,	CEOL,	CERASE, CWERASE, CKILL, CREPRINT,
+	POSIX_VDISABLE, CINTR,	CQUIT,	CSUSP,	CDSUSP,	CSTART,	CSTOP,	CLNEXT,
+	CDISCARD, CMIN,	CTIME,  CSTATUS, POSIX_VDISABLE);
+
+