workbench/c/shellcommands/Status.c

   1 /*
   2     Copyright © 1995-2010, 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         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, BOOL all,
  91                          struct Process *process);
  92
  93 AROS_SH5(Status,41.1,
  94 AROS_SHA(LONG *, ,PROCESS,/N,NULL),
  95 AROS_SHA(BOOL, , FULL,/S,FALSE),
  96 AROS_SHA(BOOL, , TCB,/S,FALSE),
  97 AROS_SHA(BOOL,CLI=,ALL,/S,FALSE),
  98 AROS_SHA(STRPTR,COM=,COMMAND,/K,NULL))
  99 {
 100     AROS_SHCOMMAND_INIT
 101
 102     struct RootNode *root = ((struct DosLibrary *)DOSBase)->dl_Root;
 103     int    retval = RETURN_OK;
 104     BOOL   full   = SHArg(FULL);
 105     BOOL   tcb    = SHArg(TCB);
 106     BOOL   all    = SHArg(ALL);
 107     ULONG  processNum = 0;
 108     STRPTR command    = SHArg(COMMAND);
 109
 110
 111     if (SHArg(PROCESS) != NULL)
 112     {
 113         processNum = *SHArg(PROCESS);
 114     }
 115
 116     if (!full && !tcb && processNum == 0 && command == NULL)
 117     {
 118         all = TRUE;
 119     }
 120
 121     if (command != NULL)
 122     {
 123         struct List     *cliList;
 124         struct CLIInfo  *ci;
 125
 126         D(bug("command != NULL in Status\n"));
 127
 128         /* Get access to the rootnode */
 129         ObtainSemaphore(&root->rn_RootLock);
 130
 131         D(bug("Got RootLock\n"));
 132
 133         cliList = (struct List *)&root->rn_CliList;
 134         ci = (struct CLIInfo *)FindName(cliList, command);
 135
 136         if (ci != NULL)
 137         {
 138             if (ci->ci_Process->pr_TaskNum != 0)
 139             {
 140                 Printf(" %ld\n", ci->ci_Process->pr_TaskNum);
 141             }
 142         }
 143         else
 144         {
 145             retval = RETURN_WARN;
 146         }
 147
 148         ReleaseSemaphore(&root->rn_RootLock);
 149     }
 150     else if (processNum != 0)
 151     {
 152         struct Process *process;
 153
 154         ObtainSemaphore(&root->rn_RootLock);
 155
 156         /* This is a temporary construction until I've fixed the
 157            implementation of FindCliProc() */
 158         Forbid();
 159         process = FindCliProc(processNum);
 160         Permit();
 161
 162         ReleaseSemaphore(&root->rn_RootLock);
 163
 164         if (process != NULL)
 165         {
 166             printProcess(DOSBase, full, tcb, all, process);
 167         }
 168         else
 169         {
 170             Printf("Process %ld does not exist\n", processNum);
 171         }
 172     }
 173     else
 174     {
 175         struct List     *cliList;
 176         struct CLIInfo  *ci;
 177
 178         ObtainSemaphore(&root->rn_RootLock);
 179
 180         D(bug("Got RootLock\n"));
 181
 182         cliList = (struct List *)&root->rn_CliList;
 183
 184         ForeachNode(cliList, ci)
 185         {
 186             printProcess(DOSBase, full, tcb, all, ci->ci_Process);
 187         }
 188
 189         ReleaseSemaphore(&root->rn_RootLock);
 190     }
 191
 192     return retval;
 193
 194     AROS_SHCOMMAND_EXIT
 195 }
 196
 197
 198 /* Print the information for a certain cli process */
 199 static void printProcess(struct DosLibrary *DOSBase, BOOL full, BOOL tcb, BOOL all,
 200                          struct Process *process)
 201 {
 202     struct CommandLineInterface *cli = BADDR(process->pr_CLI);
 203
 204     /* This should never happen, I guess */
 205     if (cli == NULL)
 206     {
 207         return;
 208     }
 209
 210     Printf("Process %ld ", process->pr_TaskNum);
 211
 212     if (tcb || full)
 213     {
 214         Printf("stk %lu, pri %ld ",
 215                (ULONG)cli->cli_DefaultStack * CLI_DEFAULTSTACK_UNIT,
 216                (LONG)process->pr_Task.tc_Node.ln_Pri);
 217     }
 218
 219     if (!tcb || full)
 220     {
 221         Printf("Loaded as command: %b", cli->cli_CommandName);
 222     }
 223
 224     Printf("\n");
 225 }