rom/task/LockTaskList.c

   1 /*
   2     Copyright © 2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7
   8 #include <aros/debug.h>
   9 #include <exec/types.h>
  10 #include <aros/libcall.h>
  11 #include <proto/utility.h>
  12 #include <resources/task.h>
  13
  14 #include <resources/task.h>
  15
  16 #include "taskres_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/task.h>
  22
  23         AROS_LH1(struct TaskList *, LockTaskList,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(ULONG, flags, D1),
  27
  28 /*  LOCATION */
  29         struct TaskResBase *, TaskResBase, 1, Task)
  30
  31 /*  FUNCTION
  32
  33     INPUTS
  34         flags -
  35
  36     RESULT
  37         Handle to the task list. This is not a direct pointer
  38         to the first list element but to a pseudo element instead.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         UnLockTaskList(), NextTaskEntry().
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     struct TaskListPrivate *taskList = NULL;
  56
  57     D(bug("[TaskRes] LockTaskList: flags = $%lx\n", flags));
  58
  59     if (flags & LTF_WRITE)
  60         ObtainSemaphore(&TaskResBase->trb_Sem);
  61     else
  62         ObtainSemaphoreShared(&TaskResBase->trb_Sem);
  63
  64     if ((taskList = AllocMem(sizeof(struct TaskListPrivate), MEMF_CLEAR)) != NULL)
  65     {
  66         D(bug("[TaskRes] LockTaskList: TaskList @ 0x%p\n", taskList));
  67         taskList->tlp_Node.ln_Name = (char *)FindTask(NULL);
  68         taskList->tlp_Flags = flags;
  69         taskList->tlp_Tasks = &TaskResBase->trb_TaskList;
  70         taskList->tlp_Next = (struct TaskListEntry *)GetHead(taskList->tlp_Tasks);
  71         AddTail(&TaskResBase->trb_LockedLists, &taskList->tlp_Node);
  72     }
  73
  74     return (struct TaskList *)taskList;
  75
  76     AROS_LIBFUNC_EXIT
  77 } /* LockTaskList */