rom/exec/childstatus.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Find out the status of a child task.
   6 */
   7 #include "exec_intern.h"
   8 #include <proto/exec.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13
  14         AROS_LH1(ULONG, ChildStatus,
  15
  16 /*  SYNOPSIS */
  17         AROS_LHA(APTR, tid, D0),
  18
  19 /*  LOCATION */
  20         struct ExecBase *, SysBase, 125, Exec)
  21
  22 /*  FUNCTION
  23         Return the status of a child task. This allows the Task to
  24         determine whether a particular child task is still running or not.
  25
  26     INPUTS
  27         tid     --  The ID of the task to examine. Note that this is _NOT_
  28                     a task pointer.
  29
  30     RESULT
  31         One of the CHILD_* values.
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43 *****************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46
  47     struct Task     *this;
  48     struct ETask    *et;
  49     struct ETask    *child;
  50     ULONG            status = CHILD_NOTFOUND;
  51
  52     this = FindTask(NULL);
  53     if ((this->tc_Flags & TF_ETASK) == 0)
  54         return CHILD_NOTNEW;
  55
  56     et = this->tc_UnionETask.tc_ETask;
  57
  58     /* Sigh... */
  59     Forbid();
  60
  61     /* Search through the running tasks list */
  62     ForeachNode(&et->et_Children, child)
  63     {
  64         if (child->et_UniqueID == (ULONG)tid)
  65         {
  66             status = CHILD_ACTIVE;
  67             break;
  68         }
  69     }
  70
  71     ForeachNode(&et->et_TaskMsgPort.mp_MsgList, child)
  72     {
  73         if (child->et_UniqueID == (ULONG)tid)
  74         {
  75             status = CHILD_EXITED;
  76             break;
  77         }
  78     }
  79
  80     Permit();
  81     return status;
  82
  83     AROS_LIBFUNC_EXIT
  84 } /* ChildStatus */