compiler/clib/getppid.c

   1 /*
   2     Copyright © 2004-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <unistd.h>
   7 #include <sys/types.h>
   8
   9 #include <exec/tasks.h>
  10 #include <proto/exec.h>
  11
  12 #include <assert.h>
  13
  14 #include "__vfork.h"
  15 #include "__arosc_privdata.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20
  21         pid_t getppid(
  22
  23 /*  SYNOPSIS */
  24         void)
  25
  26 /*  FUNCTION
  27
  28     INPUTS
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42 ******************************************************************************/
  43 {
  44   struct aroscbase *aroscbase = __GM_GetBase();
  45   struct Task *ParentTask;
  46   struct ETask *eThisTask;
  47   struct ETask *et;
  48
  49   if(aroscbase->acb_flags & PRETEND_CHILD)
  50   {
  51     struct vfork_data *udata = aroscbase->acb_vfork_data;
  52     eThisTask = GetETask(udata->child);
  53   }
  54   else
  55     eThisTask = GetETask(FindTask(NULL));
  56   assert(eThisTask);
  57   ParentTask = (struct Task *)eThisTask->et_Parent;
  58   if(!ParentTask)
  59     return (pid_t) 1;
  60   et = GetETask(ParentTask);
  61   assert(et);
  62   return (pid_t) et->et_UniqueID;
  63 }
  64