mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-06 02:50:44 +01:00
* added to freebsd.
This commit is contained in:
marco
parent
ba304ada39
commit
1f52e97c35
343
rtl/freebsd/termios.inc
Normal file
343
rtl/freebsd/termios.inc
Normal file
@ -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);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user