mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-19 06:02:31 +02:00
47 lines
1.2 KiB
PHP
47 lines
1.2 KiB
PHP
|
|
|
|
const
|
|
TTYDEF_IFLAG = ((((BRKINT or ISTRIP) or ICRNL) or IMAXBEL) or IXON) or IXANY;
|
|
TTYDEF_OFLAG = (OPOST or ONLCR) or XTABS;
|
|
TTYDEF_LFLAG = (((((ECHO or ICANON) or ISIG) or IEXTEN) or ECHOE) or ECHOKE) or ECHOCTL;
|
|
TTYDEF_CFLAG = ((CREAD or CS7) or PARENB) or HUPCL;
|
|
TTYDEF_SPEED = B9600;
|
|
|
|
function CTRL(x : char) : char;
|
|
|
|
Const
|
|
CEOF = Chr(Ord('d') and $1F);
|
|
CEOL = #0; { XXX avoid _POSIX_VDISABLE }
|
|
|
|
CERASE = 0177;
|
|
CINTR = Char(Ord('c') and $1F);
|
|
|
|
CSTATUS = #0;
|
|
CKILL = Char(Ord('u') and $1F);
|
|
|
|
CMIN = 1;
|
|
CQUIT = 034;
|
|
|
|
CSUSP = Char(Ord('z') and $1F);
|
|
CDSUSP = Char(Ord('y') and $1F);
|
|
CSTART = Char(Ord('q') and $1F);
|
|
CSTOP = Char(Ord('s') and $1F);
|
|
CLNEXT = Char(Ord('v') and $1F);
|
|
CDISCARD = Char(Ord('o') and $1F);
|
|
CWERASE = Char(Ord('w') and $1F);
|
|
CREPRINT = Char(Ord('r') and $1F);
|
|
CEOT = CEOF;
|
|
|
|
CBRK = CEOL;
|
|
CRPRNT = CREPRINT;
|
|
CFLUSH = CDISCARD;
|
|
|
|
__CTIME = #0; // renamed, ctime type conflict.
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
// Type
|