FpNanoSleep

Suspend process for a short time

Declaration

Source position: bunxh.inc line 95

Description

FpNanoSleep suspends the process till a time period as specified in req has passed. Then the function returns. If the call was interrupted (e.g. by some signal) then the function may return earlier, and rem will contain the remaining time till the end of the intended period. In this case the return value will be -1, and fpErrNo will be set to EINTR

If the function returns without error, the return value is zero.

Errors

If an error occurred or the call was interrupted, -1 is returned. Extended error information can be retrieved using fpGetErrno.

See also

Example

program example72;

{ Program to demonstrate the NanoSleep function. }

uses BaseUnix;

Var
  Req,Rem : TimeSpec;
  Res : Longint;

begin
  With Req do
    begin
    tv_sec:=10;
    tv_nsec:=100;
    end;
  Write('NanoSleep returned : ');
  Flush(Output);
  Res:=(fpNanoSleep(@Req,@rem));
  Writeln(res);
  If (res<>0) then
    With rem do
      begin
      Writeln('Remaining seconds     : ',tv_sec);
      Writeln('Remaining nanoseconds : ',tv_nsec);
      end;
end.