lib/waitpid.c

   1 /* Emulate waitpid on systems that just have wait.
   2    Copyright 1994, 1995, 1998, 1999 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; see the file COPYING.
  16    If not, write to the Free Software Foundation,
  17    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  18
  19 #if HAVE_CONFIG_H
  20 # include <config.h>
  21 #endif
  22
  23 #include <errno.h>
  24 #ifndef errno
  25 extern int errno;
  26 #endif
  27
  28
  29 #if defined _MSC_VER || defined __MINGW32__
  30 /* Native Woe32 API.  */
  31 #include <process.h>
  32 #else
  33 /* Unix API.  */
  34 #include "wait.h"
  35 #endif
  36
  37 #define WAITPID_CHILDREN 8
  38 static pid_t waited_pid[WAITPID_CHILDREN];
  39 static int waited_status[WAITPID_CHILDREN];
  40
  41 pid_t
  42 waitpid (pid_t pid, int *stat_loc, int options)
  43 {
  44   int i;
  45   pid_t p;
  46
  47   if (!options && (pid == -1 || 0 < pid))
  48     {
  49       /* If we have already waited for this child, return it immediately.  */
  50       for (i = 0;  i < WAITPID_CHILDREN;  i++)
  51         {
  52           p = waited_pid[i];
  53           if (p && (p == pid || pid == -1))
  54             {
  55               waited_pid[i] = 0;
  56               goto success;
  57             }
  58         }
  59
  60       /* The child has not returned yet; wait for it, accumulating status.  */
  61       for (i = 0;  i < WAITPID_CHILDREN;  i++)
  62         if (! waited_pid[i])
  63           {
  64             p = wait (&waited_status[i]);
  65             if (p < 0)
  66               return p;
  67             if (p == pid || pid == -1)
  68               goto success;
  69             waited_pid[i] = p;
  70           }
  71     }
  72
  73   /* We cannot emulate this wait call, e.g. because of too many children.  */
  74   errno = EINVAL;
  75   return -1;
  76
  77 success:
  78   if (stat_loc)
  79     *stat_loc = waited_status[i];
  80   return p;
  81 }