mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-15 14:00:45 +01:00
26 lines
607 B
ObjectPascal
26 lines
607 B
ObjectPascal
Program Example33;
|
|
|
|
{ Program to demonstrate the Select function. }
|
|
|
|
Uses BaseUnix;
|
|
|
|
Var FDS : sigset_t;
|
|
|
|
begin
|
|
fpsigemptyset (FDS);
|
|
fpsigaddset (FDS,0);
|
|
Writeln ('Press the <ENTER> to continue the program.');
|
|
{ Wait until File descriptor 0 (=Input) changes }
|
|
fpSelect (1,@FDS,nil,nil,nil);
|
|
{ Get rid of <ENTER> in buffer }
|
|
readln;
|
|
Writeln ('Press <ENTER> key in less than 2 seconds...');
|
|
fpsigemptyset (FDS);
|
|
fpsigaddset (FDS,0);
|
|
if fpSelect (1,@FDS,nil,nil,2000)>0 then
|
|
Writeln ('Thank you !')
|
|
{ FD_ISSET(0,FDS) would be true here. }
|
|
else
|
|
Writeln ('Too late !');
|
|
end.
|