[foo-cvs] foo/elkfoo/src misc.c,1.5,1.6

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17219/src

Modified Files:
	misc.c 
Log Message:
fixed wait() issues

Index: misc.c
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/misc.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** misc.c	5 Aug 2004 23:39:47 -0000	1.5
--- misc.c	5 Aug 2004 23:57:09 -0000	1.6
***************
*** 111,118 ****
  
    s = Get_String(cmd);
! #ifdef VFORK
!   switch (pid = vfork ())
  #else
!   switch (pid = fork ())
  #endif
      {
--- 111,120 ----
  
    s = Get_String(cmd);
! #ifdef HAVE_WORKING_VFORK
!   switch (pid = vfork())
! #elif HAVE_WORKING_FORK
!   switch (pid = fork())
  #else
! #error *** NEITHER VFORK NOR FORK ARE REPORTED TO WORK ***
  #endif
      {
***************
*** 145,153 ****
        return False;
      }
!   if ((n = (status.w_status & 0377)))
      {
!       return Cons (Make_Fixnum (n), Null);
      }
!   return Make_Fixnum ((status.w_status >> 8) & 0377);
  }
  
--- 147,161 ----
        return False;
      }
!   if (WIFSIGNALED(n))
      {
!       return Cons(Make_Fixnum(WTERMSIG(n)), Null);
      }
!   else if (WIFSTOPPED(n))
!     {
!       return Make_Fixnum(WSTOPSIG(n));
!     }
! 
!   /* assert(WIFEXITED); */
!   return Make_Fixnum(WEXITSTATUS(n));
  }