5
{ Program to demonstrate the IOCtl function. }
12
fpIOCtl(1,TIOCGETA,@tios); // these constants are very OS dependant.
13
// see the tcgetattr example for a better way
15
WriteLn('Input Flags : $',hexstr(tios.c_iflag,8));
16
WriteLn('Output Flags : $',hexstr(tios.c_oflag,8));
17
WriteLn('Line Flags : $',hexstr(tios.c_lflag,8));
18
WriteLn('Control Flags: $',hexstr(tios.c_cflag,8));