workbench/c/shellcommands/Status.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*****************************************************************************
   7
   8     NAME
   9
  10         Status
  11
  12     SYNOPSIS
  13
  14         PROCESS/N,FULL/S,TCB/S,CLI=ALL/S,COM=COMMAND/K
  15
  16     LOCATION
  17
  18         Workbench:c
  19
  20     FUNCTION
  21
  22         Display information about the processes that are executing
  23         within Shells/CLIs.
  24
  25     INPUTS
  26
  27         PROCESS      --  Process Identification number.
  28
  29         FULL         --  Display all information about the processes.
  30
  31         TCB          --  As for Full, except that this option omits the
  32                          process name.
  33
  34         CLI=ALL      --  Default. Displays all processes.
  35
  36         COM=COMMAND  --  Show the process id of the command given. Specify
  37                          the command name.
  38
  39     RESULT
  40
  41         Standard DOS error codes.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47         Status
  48
  49             Process  2: Loaded as command: c:status
  50             Process  3: Loaded as command: c:NewIcons
  51             Process  4: Loaded as command: GG:Sys/L/fifo-handler
  52             Process  5: Loaded as command: Workbench
  53             Process  6: Loaded as command: ToolsDaemon
  54
  55         Status full
  56
  57             Process  2: stk 300000, pri   0 Loaded as command: c:status
  58             Process  3: stk  4096, pri   0 Loaded as command: c:NewIcons
  59             Process  4: stk  4096, pri   0 Loaded as command: GG:Sys/L/fifo-handler
  60             Process  5: stk  6000, pri   1 Loaded as command: Workbench
  61             Process  6: stk  4000, pri   2 Loaded as command: ToolsDaemon
  62
  63     BUGS
  64
  65     SEE ALSO
  66
  67         <dos/dosextens.h>
  68
  69     INTERNALS
  70
  71 ******************************************************************************/
  72
  73 #include <exec/lists.h>
  74
  75 #define  DEBUG  0
  76 #include <aros/debug.h>
  77
  78 #include <proto/dos.h>
  79 #include <proto/exec.h>
  80
  81 #include <dos/dos.h>
  82 #include <dos/dosextens.h>
  83 #include <exec/types.h>
  84
  85 #include <strings.h>
  86 #include <stdio.h>
  87
  88 #include <aros/shcommands.h>
  89
  90 static void printProcess(struct DosLibrary *DOSBase, BOOL full, BOOL tcb,
  91                          struct Process *process);
  92 static void PrintF(struct DosLibrary *DOSBase, STRPTR format, ...);
  93
  94 AROS_SH5(Status,41.1,
  95 AROS_SHA(LONG *, ,PROCESS,/N,NULL),
  96 AROS_SHA(BOOL, , FULL,/S,FALSE),
  97 AROS_SHA(BOOL, , TCB,/S,FALSE),
  98 AROS_SHA(BOOL,CLI=,ALL,/S,FALSE),
  99 AROS_SHA(STRPTR,COM=,COMMAND,/K,NULL))
 100 {
 101     AROS_SHCOMMAND_INIT
 102
 103     struct RootNode *root = ((struct DosLibrary *)DOSBase)->dl_Root;
 104     int    retval = RETURN_OK;
 105     BOOL   full   = SHArg(FULL);
 106     BOOL   tcb    = SHArg(TCB);
 107     BOOL   all    = SHArg(ALL);
 108     ULONG  processNum = 0;
 109     STRPTR command    = SHArg(COMMAND);
 110
 111
 112     if (SHArg(PROCESS) != NULL)
 113     {
 114         processNum = *SHArg(PROCESS);
 115     }
 116
 117     if (!full && !tcb && processNum == 0 && command == NULL)
 118     {
 119         all = TRUE;
 120     }
 121
 122     if (command != NULL)
 123     {
 124         struct List     *cliList;
 125         struct CLIInfo  *ci;
 126
 127         D(bug("command != NULL in Status\n"));
 128
 129         /* Get access to the rootnode */
 130         ObtainSemaphore(&root->rn_RootLock);
 131
 132         D(bug("Got RootLock\n"));
 133
 134         cliList = (struct List *)&root->rn_CliList;
 135         ci = (struct CLIInfo *)FindName(cliList, command);
 136
 137         if (ci != NULL)
 138         {
 139             if (ci->ci_Process->pr_TaskNum != 0)
 140             {
 141                 PrintF(DOSBase," %ld\n", ci->ci_Process->pr_TaskNum);
 142             }
 143         }
 144         else
 145         {
 146             retval = RETURN_WARN;
 147         }
 148
 149         ReleaseSemaphore(&root->rn_RootLock);
 150     }
 151     else if (processNum != 0)
 152     {
 153         struct Process *process;
 154
 155         ObtainSemaphore(&root->rn_RootLock);
 156
 157         /* This is a temporary construction until I've fixed the
 158            implementation of FindCliProc() */
 159         Forbid();
 160         process = FindCliProc(processNum);
 161         Permit();
 162
 163         ReleaseSemaphore(&root->rn_RootLock);
 164
 165         if (process != NULL)
 166         {
 167             printProcess(DOSBase, full, tcb, process);
 168         }
 169         else
 170         {
 171             PrintF(DOSBase,"Process %ld does not exist\n", (int)processNum);
 172         }
 173     }
 174     else
 175     {
 176         struct List     *cliList;
 177         struct CLIInfo  *ci;
 178
 179         ObtainSemaphore(&root->rn_RootLock);
 180
 181         D(bug("Got RootLock\n"));
 182
 183         cliList = (struct List *)&root->rn_CliList;
 184
 185         ForeachNode(cliList, ci)
 186         {
 187             printProcess(DOSBase, full, tcb, ci->ci_Process);
 188         }
 189
 190         ReleaseSemaphore(&root->rn_RootLock);
 191     }
 192
 193     return retval;
 194
 195     AROS_SHCOMMAND_EXIT
 196 }
 197
 198
 199 /* Print the information for a certain cli process */
 200 static void printProcess(struct DosLibrary *DOSBase, BOOL full, BOOL tcb,
 201                          struct Process *process)
 202 {
 203     struct CommandLineInterface *cli = BADDR(process->pr_CLI);
 204
 205     /* This should never happen, I guess */
 206     if (cli == NULL)
 207     {
 208         return;
 209     }
 210
 211     PrintF(DOSBase,"Process %ld ", process->pr_TaskNum);
 212
 213     if (tcb || full)
 214     {
 215         PrintF(DOSBase,"stk %lu, pri %lu ",
 216                (ULONG)cli->cli_DefaultStack * CLI_DEFAULTSTACK_UNIT,
 217                (ULONG)process->pr_Task.tc_Node.ln_Pri);
 218     }
 219
 220     if (!tcb || full)
 221     {
 222         STRPTR  name;
 223
 224         /* Sort of a hack. We rely on the fact that binary compatibility
 225            BSTR:s is ended with a 0 byte */
 226 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
 227         name = (STRPTR)cli->cli_CommandName + 1;
 228 #else
 229         name = (STRPTR)cli->cli_CommandName;
 230 #endif
 231
 232         PrintF(DOSBase, "Loaded as command: %s", name);
 233     }
 234
 235     PrintF(DOSBase,"\n");
 236 }
 237
 238 static void PrintF(struct DosLibrary *DOSBase, STRPTR format, ...)
 239 {
 240     va_list args;
 241     va_start(args, format);
 242
 243     VPrintf(format, (LONG *) args);
 244
 245     va_end(args);
 246 }