rom/dos/findcliproc.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Find a CLI process by number
   6     Lang: English
   7 */
   8
   9 #include <exec/lists.h>
  10 #include <exec/execbase.h>
  11 #include <proto/exec.h>
  12 #include <dos/dosextens.h>
  13 #include "dos_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH1(struct Process *, FindCliProc,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(ULONG, num, D1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 91, Dos)
  27
  28 /*  FUNCTION
  29         Find a CLI process by its task number. The number must be greater
  30         than 0.
  31
  32     INPUTS
  33         num - The task number of the CLI to find.
  34
  35     RESULT
  36         Pointer to the process if found, NULL otherwise.
  37
  38     NOTES
  39         The process calling this function doesn't need to do any locking.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         Cli(), MaxCli()
  47
  48     INTERNALS
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct RootNode *root = DOSBase->dl_Root;
  55     struct Process  *cliProc = NULL;
  56     struct CLIInfo *node;
  57
  58     ObtainSemaphoreShared(&root->rn_RootLock);
  59
  60     ForeachNode(&root->rn_CliList, node)
  61     {
  62         if (node->ci_Process->pr_TaskNum == num)
  63         {
  64             cliProc = node->ci_Process;
  65             break;
  66         }
  67     }
  68
  69     ReleaseSemaphore(&root->rn_RootLock);
  70     return cliProc;
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* FindCliProc */