rom/task/execfuncs.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 <aros/symbolsets.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/kernel.h>
  13
  14 #include "taskres_intern.h"
  15
  16 extern struct TaskResBase *internTaskResBase;
  17
  18 void TaskResAddTask(struct Task *task)
  19 {
  20     struct TaskListEntry *newEntry;
  21
  22     /*
  23        TODO:
  24         if the list is locked, defer tasks addition until it is unlocked
  25     */
  26     if ((newEntry = AllocMem(sizeof(struct TaskListEntry), MEMF_CLEAR)) != NULL)
  27     {
  28         newEntry->tle_Task = task;
  29         AddTail(&internTaskResBase->trb_TaskList, &newEntry->tle_Node);
  30     }
  31 }
  32
  33 AROS_LH3(APTR, AddTask,
  34         AROS_LHA(struct Task *,     task,      A1),
  35         AROS_LHA(APTR,              initialPC, A2),
  36         AROS_LHA(APTR,              finalPC,   A3),
  37         struct ExecBase *, SysBase, 47, Task)
  38 {
  39     AROS_LIBFUNC_INIT
  40
  41     APTR newTask;
  42
  43     D(bug("[TaskRes] AddTask()\n"));
  44
  45     newTask = AROS_CALL3(APTR, internTaskResBase->trb_AddTask,
  46                 AROS_LCA(struct Task *,     task,      A1),
  47                 AROS_LCA(APTR,              initialPC, A2),
  48                 AROS_LCA(APTR,              finalPC,   A3),
  49                 struct ExecBase *, SysBase);
  50
  51     if (newTask)
  52         TaskResAddTask(newTask);
  53
  54     return newTask;
  55
  56     AROS_LIBFUNC_EXIT
  57 }
  58
  59 AROS_LH4(APTR, NewAddTask,
  60         AROS_LHA(struct Task *,     task,      A1),
  61         AROS_LHA(APTR,              initialPC, A2),
  62         AROS_LHA(APTR,              finalPC,   A3),
  63         AROS_LHA(struct TagItem *,  tagList,   A4),
  64         struct ExecBase *, SysBase, 176, Task)
  65 {
  66     AROS_LIBFUNC_INIT
  67
  68     APTR newTask;
  69
  70     D(bug("[TaskRes] NewAddTask()\n"));
  71
  72     newTask = AROS_CALL4(APTR, internTaskResBase->trb_NewAddTask,
  73                 AROS_LCA(struct Task *,     task,      A1),
  74                 AROS_LCA(APTR,              initialPC, A2),
  75                 AROS_LCA(APTR,              finalPC,   A3),
  76                 AROS_LCA(struct TagItem *,  tagList,   A4),
  77                 struct ExecBase *, SysBase);
  78
  79     if (newTask)
  80         TaskResAddTask(newTask);
  81
  82     return newTask;
  83
  84     AROS_LIBFUNC_EXIT
  85 }
  86
  87 AROS_LH1(void, RemTask,
  88         AROS_LHA(struct Task *, task, A1),
  89         struct ExecBase *, SysBase, 48, Task)
  90 {
  91     AROS_LIBFUNC_INIT
  92
  93     struct TaskListEntry *tmpEntry;
  94
  95     D(bug("[TaskRes] RemTask()\n"));
  96
  97     AROS_CALL1(APTR, internTaskResBase->trb_RemTask,
  98                 AROS_LCA(struct Task *,     task,      A1),
  99                 struct ExecBase *, SysBase);
 100
 101     ForeachNode(&internTaskResBase->trb_TaskList, tmpEntry)
 102     {
 103         if (tmpEntry->tle_Task == task)
 104         {
 105             /*
 106                TODO:
 107                 if the list is locked flag the entry to be removed,
 108                 else remove it immediately
 109             */
 110             Remove(&tmpEntry->tle_Node);
 111             FreeMem(tmpEntry, sizeof(struct TaskListEntry));
 112             break;
 113         }
 114     }
 115
 116     return;
 117
 118     AROS_LIBFUNC_EXIT
 119 }