blob: 46860fada9ce5951184aa0958c9a260a6dd17cfb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Program Example54;
uses BaseUnix,Termio;
{ Program to demonstrate the IOCtl function. }
var
tios : Termios;
begin
{$ifdef FreeBSD}
fpIOCtl(1,TIOCGETA,@tios); // these constants are very OS dependant.
// see the tcgetattr example for a better way
{$endif}
WriteLn('Input Flags : $',hexstr(tios.c_iflag,8));
WriteLn('Output Flags : $',hexstr(tios.c_oflag,8));
WriteLn('Line Flags : $',hexstr(tios.c_lflag,8));
WriteLn('Control Flags: $',hexstr(tios.c_cflag,8));
end.
|
