workbench/system/SysMon/tasks.c

   1 #include "sysmon_intern.h"
   2
   3 #include <exec/execbase.h>
   4 #include <clib/alib_protos.h>
   5
   6 #include "locale.h"
   7
   8 /* Task information handling*/
   9 struct TaskInfo
  10 {
  11     STRPTR Name;
  12     WORD Type;
  13     WORD Priority;
  14     struct TaskInfo * Next;
  15     UBYTE Private; /* MUST ALWAYS BE LAST. HERE NAME WILL BE COPIED */
  16 };
  17
  18 UBYTE taskinfobuffer[16 * 1024]; /* 16 kB buffer */
  19
  20 static LONG AddTaskInfo(struct Task * task, struct TaskInfo * ti)
  21 {
  22     ti->Type = task->tc_Node.ln_Type;
  23     ti->Priority = (WORD)task->tc_Node.ln_Pri;
  24     ti->Name = (STRPTR)&ti->Private;
  25     ULONG namesize = 0;
  26     STRPTR src = task->tc_Node.ln_Name;
  27
  28     if (src)
  29     {
  30         while(*src != 0)
  31         {
  32             ti->Name[namesize++] = *src;
  33             src++;
  34         }
  35     }
  36
  37     *(ti->Name + namesize) = 0; /* Terminate */
  38
  39     /* Calculate next item  */
  40     ti->Next = (struct TaskInfo *)(((UBYTE *)ti) + sizeof(struct TaskInfo) + namesize);
  41
  42     return 1;
  43 }
  44
  45 static BOOL FillTaskInfoBuffer(UBYTE * buffer)
  46 {
  47     struct TaskInfo * current = (struct TaskInfo *)buffer;
  48     struct Task * task;
  49
  50     Disable();
  51     if(!AddTaskInfo(SysBase->ThisTask, current))
  52     {
  53         Enable();
  54         return FALSE;
  55     }
  56
  57     for(task=(struct Task *)SysBase->TaskReady.lh_Head;
  58         task->tc_Node.ln_Succ!=NULL;
  59         task=(struct Task *)task->tc_Node.ln_Succ)
  60     {
  61         current = current->Next;
  62
  63         if(!AddTaskInfo(task, current))
  64         {
  65             Enable();
  66             return FALSE;
  67         }
  68     }
  69
  70     for(task=(struct Task *)SysBase->TaskWait.lh_Head;
  71         task->tc_Node.ln_Succ!=NULL;
  72         task=(struct Task *)task->tc_Node.ln_Succ)
  73     {
  74         current = current->Next;
  75
  76         if(!AddTaskInfo(task, current))
  77         {
  78             Enable();
  79             return FALSE;
  80         }
  81     }
  82
  83     current->Next = NULL; /* "stop" list */
  84
  85     Enable();
  86     return TRUE;
  87 }
  88
  89 VOID UpdateTasksInformation(struct SysMonData * smdata)
  90 {
  91     set(smdata->tasklist, MUIA_List_Quiet, TRUE);
  92
  93     /* Clear prior to reading information, because list contains items
  94     from the taskinfobuffer. Once FillTaskInfoBuffer is executed old items
  95     are invalid and could crash list */
  96     DoMethod(smdata->tasklist, MUIM_List_Clear);
  97
  98     if (FillTaskInfoBuffer(taskinfobuffer))
  99     {
 100         struct TaskInfo * ti = (struct TaskInfo *)taskinfobuffer;
 101
 102         for (; ti->Next != NULL; ti = ti->Next)
 103         {
 104             DoMethod(smdata->tasklist, MUIM_List_InsertSingle, ti, MUIV_List_Insert_Bottom);
 105         }
 106     }
 107
 108     set(smdata->tasklist, MUIA_List_Quiet, FALSE);
 109 }
 110
 111 AROS_UFH3(VOID, TasksListDisplayFunction,
 112     AROS_UFHA(struct Hook *, h,  A0),
 113     AROS_UFHA(STRPTR *, strings, A2),
 114     AROS_UFHA(struct TaskInfo *, obj, A1))
 115 {
 116     AROS_USERFUNC_INIT
 117
 118     static TEXT bufprio[8];
 119
 120     if (obj)
 121     {
 122         __sprintf(bufprio, "%ld", (LONG)obj->Priority);
 123         strings[0] = obj->Name;
 124         strings[1] = bufprio;
 125         strings[2] = obj->Type == NT_TASK ? (STRPTR)_(MSG_TASK) : (STRPTR)_(MSG_PROCESS);
 126     }
 127     else
 128     {
 129         strings[0] = (STRPTR)_(MSG_TASK_NAME);
 130         strings[1] = (STRPTR)_(MSG_TASK_PRIORITY);
 131         strings[2] = (STRPTR)_(MSG_TASK_TYPE);
 132     }
 133
 134     AROS_USERFUNC_EXIT
 135 }
 136
 137 static BOOL InitTasks()
 138 {
 139     return TRUE;
 140 }
 141
 142 static VOID DeInitTasks()
 143 {
 144 }
 145
 146 struct SysMonModule tasksmodule =
 147 {
 148     .Init = InitTasks,
 149     .DeInit = DeInitTasks,
 150 };
 151