btermiosh.inc 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193
  1. type
  2. Pcc_t = ^cc_t;
  3. cc_t = char;
  4. Pspeed_t = ^speed_t;
  5. speed_t = dword;
  6. Ptcflag_t = ^tcflag_t;
  7. tcflag_t = dword;
  8. const
  9. NCCS = 32;
  10. type
  11. Ptermios = ^termios;
  12. termios = record
  13. c_iflag : tcflag_t;
  14. c_oflag : tcflag_t;
  15. c_cflag : tcflag_t;
  16. c_lflag : tcflag_t;
  17. c_line : cc_t;
  18. c_cc : array[0..(NCCS)-1] of cc_t;
  19. c_ispeed : speed_t;
  20. c_ospeed : speed_t;
  21. end;
  22. const
  23. VINTR = 0;
  24. VQUIT = 1;
  25. VERASE = 2;
  26. VKILL = 3;
  27. VEOF = 4;
  28. VTIME = 5;
  29. VMIN = 6;
  30. VSWTC = 7;
  31. VSTART = 8;
  32. VSTOP = 9;
  33. VSUSP = 10;
  34. VEOL = 11;
  35. VREPRINT = 12;
  36. VDISCARD = 13;
  37. VWERASE = 14;
  38. VLNEXT = 15;
  39. VEOL2 = 16;
  40. IGNBRK = $0000001;
  41. BRKINT = $0000002;
  42. IGNPAR = $0000004;
  43. PARMRK = $0000008;
  44. INPCK = $0000010;
  45. ISTRIP = $0000020;
  46. INLCR = $0000040;
  47. IGNCR = $0000080;
  48. ICRNL = $0000100;
  49. IUCLC = $0000200;
  50. IXON = $0000400;
  51. IXANY = $0000800;
  52. IXOFF = $0001000;
  53. IMAXBEL = $0002000;
  54. OPOST = $0000001;
  55. OLCUC = $0000002;
  56. ONLCR = $0000004;
  57. OCRNL = $0000008;
  58. ONOCR = $0000010;
  59. ONLRET = $0000020;
  60. OFILL = $0000040;
  61. OFDEL = $0000080;
  62. NLDLY = $0000040;
  63. NL0 = $0000000;
  64. NL1 = $0000100;
  65. CRDLY = $0000600;
  66. CR0 = $0000000;
  67. CR1 = $0000200;
  68. CR2 = $0000400;
  69. CR3 = $0000600;
  70. TABDLY = $0001800;
  71. TAB0 = $0000000;
  72. TAB1 = $0000800;
  73. TAB2 = $0001000;
  74. TAB3 = $0001800;
  75. BSDLY = $0002000;
  76. BS0 = $0000000;
  77. BS1 = $0002000;
  78. FFDLY = $0080000;
  79. FF0 = $0000000;
  80. FF1 = $0010000;
  81. VTDLY = $0004000;
  82. VT0 = $0000000;
  83. VT1 = $0004000;
  84. XTABS = $0001800;
  85. CBAUD = $000100F;
  86. B0 = $0000000;
  87. B50 = $0000001;
  88. B75 = $0000002;
  89. B110 = $0000003;
  90. B134 = $0000004;
  91. B150 = $0000005;
  92. B200 = $0000006;
  93. B300 = $0000007;
  94. B600 = $0000008;
  95. B1200 = $0000009;
  96. B1800 = $000000A;
  97. B2400 = $000000B;
  98. B4800 = $000000C;
  99. B9600 = $000000D;
  100. B19200 = $000000E;
  101. B38400 = $000000F;
  102. EXTA = B19200;
  103. EXTB = B38400;
  104. CSIZE = $0000030;
  105. CS5 = $0000000;
  106. CS6 = $0000010;
  107. CS7 = $0000010;
  108. CS8 = $0000030;
  109. CSTOPB = $0000040;
  110. CREAD = $0000080;
  111. PARENB = $0000100;
  112. PARODD = $0000200;
  113. HUPCL = $0000400;
  114. CLOCAL = $0000800;
  115. CBAUDEX = $0001000;
  116. B57600 = $0001001;
  117. B115200 = $0001002;
  118. B230400 = $0001003;
  119. B460800 = $0001004;
  120. B500000 = $0001005;
  121. B576000 = $0001006;
  122. B921600 = $0001007;
  123. B1000000 = $0001008;
  124. B1152000 = $0001009;
  125. B1500000 = $000100A;
  126. B2000000 = $000100B;
  127. B2500000 = $000100C;
  128. B3000000 = $000100D;
  129. B3500000 = $000100E;
  130. B4000000 = $000100F;
  131. CIBAUD = $100F0000;
  132. CRTSCTS = $80000000;
  133. ISIG = $0000001;
  134. ICANON = $0000002;
  135. XCASE = $0000004;
  136. ECHO = $0000008;
  137. ECHOE = $0000010;
  138. ECHOK = $0000020;
  139. ECHONL = $0000040;
  140. NOFLSH = $0000080;
  141. TOSTOP = $0000100;
  142. ECHOCTL = $0000200;
  143. ECHOPRT = $0000400;
  144. ECHOKE = $0000800;
  145. FLUSHO = $0001000;
  146. PENDIN = $0004000;
  147. IEXTEN = $0010000;
  148. TCOOFF = 0;
  149. TCOON = 1;
  150. TCIOFF = 2;
  151. TCION = 3;
  152. TCIFLUSH = 0;
  153. TCOFLUSH = 1;
  154. TCIOFLUSH = 2;
  155. TCSANOW = 0;
  156. TCSADRAIN = 1;
  157. TCSAFLUSH = 2;
  158. { ---------------------------------------------------------------------
  159. Borland compatibility types
  160. ---------------------------------------------------------------------}
  161. Type
  162. TTermIos = termios;