home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib25.zoo / wait3.c < prev    next >
C/C++ Source or Header  |  1992-09-05  |  1KB  |  71 lines
  1. /* wait3() emulation for MiNT. written by Eric R. Smith and placed in
  2.    the public domain
  3.  */
  4.  
  5. #include <wait.h>
  6. #include <time.h>
  7. #include <resource.h>
  8. #include <mintbind.h>
  9. #include <errno.h>
  10. #include <signal.h>
  11.  
  12. extern int __mint;
  13.  
  14. extern long __waitval;        /* in thread.c */
  15. extern long __waittime;        /* ditto */
  16.  
  17. __EXTERN void _ms2tval __PROTO((unsigned long, struct timeval *));
  18.         /* in getrusage.c */
  19.  
  20. int
  21. wait3(status, mode, rusage)
  22.     union wait *status;
  23.     int mode;
  24.     struct rusage *rusage;
  25. {
  26.     long r, rsc[8];
  27.     int exit_status, sig_term, pid;
  28.  
  29.     if (__mint == 0) {
  30.         r = __waitval;
  31.         __waitval = -ENOENT;
  32.         rsc[0] = __waittime;
  33.         rsc[1] = 0;
  34.     } else
  35.         r = Pwait3(mode, rsc);
  36.     if (r < 0) {
  37.         errno = (int) -r;
  38.         return -1;
  39.     }
  40.     pid = (int) ((r & 0xffff0000L) >> 16);
  41.     if (pid) {
  42.         status->_i = 0;
  43.  
  44.         if ( ((short)r) == -32) {
  45.             sig_term = SIGINT;
  46.             exit_status = 0;
  47.         }
  48.         else {
  49.             exit_status = (int) (r & 0x000000ffL);
  50.             sig_term = (int) ((r & 0x00007f00L) >> 8);
  51.         }
  52.         if (sig_term && exit_status != 0 && exit_status != 0177)
  53.             sig_term = 0;
  54.         if (exit_status == 0177 && sig_term) {
  55.             status->w_termsig = WSTOPPED;
  56.             status->w_stopsig = sig_term;
  57.         }
  58.         else {
  59.             status->w_termsig = sig_term;
  60.             status->w_retcode = exit_status;
  61.         }
  62.         status->w_coredump = 0;
  63.  
  64.         if (rusage) {
  65.             _ms2tval(rsc[0], &(rusage->ru_utime));
  66.             _ms2tval(rsc[1], &(rusage->ru_stime));
  67.         }
  68.     }
  69.     return pid;
  70. }
  71.