home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / fax-3.2.1 / lib / libutil / reap.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-31  |  2.0 KB  |  96 lines
  1. /*
  2.   This file is part of the NetFax system.
  3.  
  4.   (c) Copyright 1989 by David M. Siegel and Sundar Narasimhan.
  5.       All rights reserved.
  6.  
  7.     This program is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU General Public License as published by
  9.     the Free Software Foundation.
  10.  
  11.     This program is distributed in the hope that it will be useful, 
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of 
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20.  
  21. #include <stdio.h>
  22. #include <signal.h>
  23. #include <sys/wait.h>
  24.  
  25. #include "hash.h"
  26. #include "reap.h"
  27.  
  28. #define HT_SIZE 128
  29.  
  30. static HTTABLE *reap_ht;
  31.  
  32. typedef struct _child_data {
  33.     int (*routine)();
  34.     char *data;
  35. } CHILD_DATA;
  36.  
  37. static
  38. reap_children()
  39. {
  40.     CHILD_DATA *child;
  41.     int statusp;
  42.     int pid;
  43.  
  44.     for (;;) {
  45.     if ((pid = wait3(&statusp, WNOHANG, NULL)) <= 0)
  46.       return;
  47.  
  48.     if (reap_ht != NULL) {
  49.         if ((child = (CHILD_DATA *)htgetdata((char *)&pid, reap_ht)) 
  50.         != NULL) {
  51.         if (child->routine != NULL)
  52.           (*(child->routine))(pid, statusp, child->data);
  53.         htdelete((char *)&pid, reap_ht);
  54.         cfree(child);
  55.         }
  56.     }
  57.     }
  58. }
  59.  
  60. int
  61. reap_fork(routine, data)
  62. int (*routine)();
  63. char *data;
  64. {
  65.     CHILD_DATA *child;
  66.     int mask;
  67.     int pid;
  68.  
  69.     if (reap_ht == NULL) {
  70.     if ((reap_ht = htinit(HT_SIZE, sizeof(int))) == NULL)
  71.       return (-1);
  72.  
  73.     signal(SIGCHLD, reap_children);
  74.     }
  75.  
  76.     if ((child = (CHILD_DATA *)calloc(1, sizeof(CHILD_DATA))) == NULL)
  77.       return (-1);
  78.  
  79.     child->routine = routine;
  80.     child->data = data;
  81.  
  82.     mask = sigblock(sigmask(SIGCHLD));
  83.     switch (pid = fork()) {
  84.       case -1:
  85.       case 0:
  86.     sigsetmask(mask);
  87.     return (pid);
  88.  
  89.       default:
  90.     htadd((char *)&pid, reap_ht, (char *)child);
  91.     sigsetmask(mask);
  92.     reap_children();
  93.     return (pid);
  94.     }
  95. }
  96.