rom/exec/childstatus.c

   1 /*
   2     Copyright © 1995-2001, 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     AROS_LIBBASE_EXT_DECL(struct ExecBase *,SysBase)
  47
  48     struct Task     *this;
  49     struct ETask    *et;
  50     struct ETask    *child;
  51     ULONG            status = CHILD_NOTFOUND;
  52
  53     this = FindTask(NULL);
  54     if ((this->tc_Flags & TF_ETASK) == 0)
  55         return CHILD_NOTNEW;
  56
  57     et = this->tc_UnionETask.tc_ETask;
  58
  59     /* Sigh... */
  60     Forbid();
  61
  62     /* Search through the running tasks list */
  63     ForeachNode(&et->et_Children, child)
  64     {
  65         if (child->et_UniqueID == (ULONG)tid)
  66         {
  67             status = CHILD_ACTIVE;
  68             break;
  69         }
  70     }
  71
  72     ForeachNode(&et->et_TaskMsgPort.mp_MsgList, child)
  73     {
  74         if (child->et_UniqueID == (ULONG)tid)
  75         {
  76             status = CHILD_EXITED;
  77             break;
  78         }
  79     }
  80
  81     Permit();
  82     return status;
  83
  84     AROS_LIBFUNC_EXIT
  85 } /* ChildStatus */