1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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
|
