summaryrefslogtreecommitdiff
path: root/fpcsrc/packages/libc/src/sttydefaultsh.inc
blob: 8370dd170d3612a9c0ef4fd86a3ac42c93986462 (plain)
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