workbench/c/ResList.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         ResList
  15
  16     SYNOPSIS
  17
  18         (N/A)
  19
  20     LOCATION
  21
  22         C:
  23
  24     FUNCTION
  25
  26         Prints a list of all resources.
  27
  28     INPUTS
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42     HISTORY
  43
  44 ******************************************************************************/
  45
  46 #include <exec/memory.h>
  47 #include <exec/tasks.h>
  48 #include <exec/execbase.h>
  49 #include <proto/exec.h>
  50 #include <dos/dosextens.h>
  51 #include <proto/dos.h>
  52
  53 const TEXT version[] = "$VER: reslist 41.3 (11.3.2015)\n";
  54
  55 struct res
  56 {
  57     STRPTR name;
  58     APTR address;
  59 };
  60
  61 static int addres(struct Node *r, struct res **l, STRPTR *e)
  62 {
  63     STRPTR s1, s2;
  64
  65     (*l)->address = r;
  66
  67     s1 = r->ln_Name;
  68
  69     if(s1!=NULL)
  70     {
  71         s2=s1;
  72         while(*s2++)
  73             ;
  74         while(s2>s1)
  75         {
  76             if(*e<=(STRPTR)*l)
  77                 return 0;
  78             *--(*e)=*--s2;
  79         }
  80     }
  81     if((STRPTR)(*l+1)>*e)
  82         return 0;
  83
  84     (*l)->name=*e;
  85     ++*l;
  86
  87     return 1;
  88 }
  89
  90 static int fillbuffer(struct res **buffer, IPTR size)
  91 {
  92     STRPTR end=(STRPTR)*buffer+size;
  93     struct Node *r;
  94     Forbid();
  95     for(r=(struct Node *)SysBase->ResourceList.lh_Head;
  96         r->ln_Succ!=NULL;
  97         r=(struct Node *)r->ln_Succ)
  98     {
  99         if(!addres(r,buffer,&end))
 100         {
 101             Permit();
 102             return 0;
 103         }
 104     }
 105     Permit();
 106     return 1;
 107 }
 108
 109 int __nocommandline;
 110
 111 int main(void)
 112 {
 113     IPTR size;
 114     struct res *buffer,*ress,*ress2;
 115     for(size=2048;;size+=2048)
 116     {
 117         buffer=AllocVec(size,MEMF_ANY);
 118         if(buffer==NULL)
 119         {
 120             FPuts(Output(),"Not Enough memory for library buffer\n");
 121             return 20;
 122         }
 123         ress=buffer;
 124         if(fillbuffer(&ress,size))
 125         {
 126             FPuts(Output(),"address\t\tname\n"
 127                            "------------------------------------------------------------\n");
 128             for(ress2=buffer;ress2<ress;ress2++)
 129             {
 130                 IPTR args[2];
 131                 args[0] = (IPTR)ress2->address;
 132                 args[1] = (IPTR)ress2->name;
 133
 134                 VPrintf("0x%08.lx\t%s\n", args);
 135             }
 136             FreeVec(buffer);
 137             return 0;
 138         }
 139         FreeVec(buffer);
 140     }
 141 }