mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 13:53:57 +02:00
45 lines
899 B
PHP
45 lines
899 B
PHP
function WEXITSTATUS(Status: Integer): Integer;
|
|
begin
|
|
Result := (Status and $FF00) shr 8;
|
|
end;
|
|
|
|
function WTERMSIG(Status: Integer): Integer;
|
|
begin
|
|
Result := (Status and $7F);
|
|
end;
|
|
|
|
function WSTOPSIG(Status: Integer): Integer;
|
|
begin
|
|
Result := WEXITSTATUS(Status);
|
|
end;
|
|
|
|
function WIFEXITED(Status: Integer): Boolean;
|
|
begin
|
|
Result := (WTERMSIG(Status) = 0);
|
|
end;
|
|
|
|
function WIFSIGNALED(Status: Integer): Boolean;
|
|
begin
|
|
Result := (not WIFSTOPPED(Status)) and (not WIFEXITED(Status));
|
|
end;
|
|
|
|
function WIFSTOPPED(Status: Integer): Boolean;
|
|
begin
|
|
Result := ((Status and $FF) = $7F);
|
|
end;
|
|
|
|
function WCOREDUMP(Status: Integer): Boolean;
|
|
begin
|
|
Result := ((Status and WCOREFLAG) <> 0);
|
|
end;
|
|
|
|
function W_EXITCODE(ReturnCode, Signal: Integer): Integer;
|
|
begin
|
|
Result := (ReturnCode shl 8) or Signal;
|
|
end;
|
|
|
|
function W_STOPCODE(Signal: Integer): Integer;
|
|
begin
|
|
Result := (Signal shl 8) or $7F;
|
|
end;
|