From 3605a8a096c39650a31ca638cd7ea1eda595bce3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 5 Nov 2001 21:46:06 +0000
Subject: [PATCH] + Added exit status examining functions

---
 rtl/unix/unix.pp | 54 +++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 53 insertions(+), 1 deletion(-)

diff --git a/rtl/unix/unix.pp b/rtl/unix/unix.pp
index 3e7f3740c3..a571a5aaa1 100644
--- a/rtl/unix/unix.pp
+++ b/rtl/unix/unix.pp
@@ -226,6 +226,14 @@ Procedure ExitProcess(val:longint);
 Function  WaitPid(Pid:longint;Status:pointer;Options:Longint):Longint;  {=>PID (Status Valid), 0 (No Status), -1: Error, special case errno=EINTR }
 Function  WaitProcess(Pid:longint):Longint; { like WaitPid(PID,@result,0) Handling of Signal interrupts (errno=EINTR), returning the Exitcode of Process (>=0) or -Status if terminated}
 Procedure Nice(N:integer);
+function WEXITSTATUS(Status: Integer): Integer;
+function WTERMSIG(Status: Integer): Integer;
+function WSTOPSIG(Status: Integer): Integer;
+Function WIFEXITED(Status: Integer): Boolean;
+Function WIFSTOPPED(Status: Integer): Boolean;
+Function WIFSIGNALED(Status: Integer): Boolean;
+Function W_EXITCODE(ReturnCode, Signal: Integer): Integer;
+Function W_STOPCODE(Signal: Integer): Integer;
 {$ifdef bsd}
 Function  GetPriority(Which,Who:longint):longint;
 procedure SetPriority(Which,Who,What:longint);
@@ -717,6 +725,47 @@ begin { Changes as above }
   FreeShellArgV(p);
 end;
 
+function WEXITSTATUS(Status: Integer): Integer;
+begin
+  WEXITSTATUS:=(Status and $FF00) shr 8;
+end;
+  
+function WTERMSIG(Status: Integer): Integer;
+begin
+  WTERMSIG:=(Status and $7F);
+end;
+  
+function WSTOPSIG(Status: Integer): Integer;
+begin
+  WSTOPSIG:=WEXITSTATUS(Status);
+end;
+      
+Function WIFEXITED(Status: Integer): Boolean;
+begin
+  WIFEXITED:=(WTERMSIG(Status)=0);
+end;
+ 
+Function WIFSTOPPED(Status: Integer): Boolean;
+begin
+  WIFSTOPPED:=((Status and $FF)=$7F);
+end;
+      
+Function WIFSIGNALED(Status: Integer): Boolean;
+begin
+  WIFSIGNALED:=(not WIFSTOPPED(Status)) and 
+               (not WIFEXITED(Status));
+end;
+   
+Function W_EXITCODE(ReturnCode, Signal: Integer): Integer;
+begin
+  W_EXITCODE:=(ReturnCode shl 8) or Signal;
+end;
+          
+Function W_STOPCODE(Signal: Integer): Integer;
+
+begin
+  W_STOPCODE:=(Signal shl 8) or $7F;
+end;
 
 {******************************************************************************
                        Date and Time related calls
@@ -2922,7 +2971,10 @@ End.
 
 {
   $Log$
-  Revision 1.17  2001-10-14 13:33:21  peter
+  Revision 1.18  2001-11-05 21:46:06  michael
+  + Added exit status examining functions
+
+  Revision 1.17  2001/10/14 13:33:21  peter
     * start of thread support for linux
 
   Revision 1.16  2001/09/17 21:36:31  peter