arch/.unmaintained/amiga/boot/printresmodules.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/execbase.h>
   7 #include <exec/resident.h>
   8
   9 #include <proto/dos.h>
  10
  11 #include <stdio.h>
  12
  13 extern struct ExecBase *SysBase;
  14
  15 const UBYTE ver[] = "$VER: printresmodules 41.2 (15.3.1997)\n\r";
  16 const UBYTE nul[] = "(null)";
  17
  18 void ResType(UBYTE);
  19
  20 int main(void)
  21 {
  22     int i;
  23     ULONG *ptr;
  24
  25     for(i = 1, ptr = SysBase->ResModules; *ptr; i++, ptr++)
  26     {
  27         if(*ptr & 0x80000000) ptr = (ULONG *)(*ptr & 0x7fffffff);
  28
  29         {
  30             struct Resident *res = (struct Resident *)*ptr;
  31
  32             Printf("%2lu: 0x%08lx %4ld ", i, *ptr, res->rt_Pri);
  33             ResType(res->rt_Flags);
  34             Printf("%s\n", (ULONG)res->rt_Name ? (ULONG)res->rt_Name : (ULONG)&nul);
  35         }
  36     }
  37
  38     return 0;
  39 }
  40
  41 void ResType(UBYTE type)
  42 {
  43     int i = 0;
  44
  45     if (type == RTF_AUTOINIT)
  46     {
  47         PutStr("               RTF_AUTOINIT   "); i++;
  48     }
  49     else
  50     if (type == RTF_SINGLETASK)
  51     {
  52         PutStr("               RTF_SINGLETASK "); i++;
  53     }
  54     else
  55     {
  56         if (type & RTF_COLDSTART ) { PutStr("RTF_COLDSTART  "); i++; }
  57         if (type & RTF_AUTOINIT  ) { PutStr("RTF_AUTOINIT   "); i++; }
  58         if (type & RTF_AFTERDOS  ) { PutStr("RTF_AFTERDOS   "); i++; }
  59         if (type & RTF_SINGLETASK) { PutStr("RTF_SINGLETASK "); i++; }
  60         switch(i)
  61         {
  62             case 0:
  63                 PutStr("                              ");
  64                 break;
  65             case 1:
  66                 PutStr("               ");
  67                 break;
  68             default:
  69                 break;
  70         } /* switch */
  71     }
  72 }