workbench/c/ResList.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <exec/memory.h>
  10 #include <exec/tasks.h>
  11 #include <exec/execbase.h>
  12 #include <proto/exec.h>
  13 #include <dos/dosextens.h>
  14 #include <proto/dos.h>
  15
  16 const TEXT version[] = "$VER: reslist 41.2 (20.7.2001)\n";
  17
  18 struct res
  19 {
  20     STRPTR name;
  21     APTR address;
  22 };
  23
  24 static int addres(struct Node *r, struct res **l, STRPTR *e)
  25 {
  26     STRPTR s1, s2;
  27
  28     (*l)->address = r;
  29
  30     s1 = r->ln_Name;
  31
  32     if(s1!=NULL)
  33     {
  34         s2=s1;
  35         while(*s2++)
  36             ;
  37         while(s2>s1)
  38         {
  39             if(*e<=(STRPTR)l)
  40                 return 0;
  41             *--(*e)=*--s2;
  42         }
  43     }
  44     if((STRPTR)(*l+1)>*e)
  45         return 0;
  46
  47     (*l)->name=*e;
  48     ++*l;
  49
  50     return 1;
  51 }
  52
  53 static int fillbuffer(struct res **buffer, IPTR size)
  54 {
  55     STRPTR end=(STRPTR)*buffer+size;
  56     struct Node *r;
  57     Forbid();
  58     for(r=(struct Node *)SysBase->ResourceList.lh_Head;
  59         r->ln_Succ!=NULL;
  60         r=(struct Node *)r->ln_Succ)
  61         if(!addres(r,buffer,&end))
  62         {
  63             Permit();
  64             return 0;
  65         }
  66     Permit();
  67     return 1;
  68 }
  69
  70 int __nocommandline;
  71
  72 int main(void)
  73 {
  74     IPTR size;
  75     struct res *buffer,*ress,*ress2;
  76     for(size=2048;;size+=2048)
  77     {
  78         buffer=AllocVec(size,MEMF_ANY);
  79         if(buffer==NULL)
  80         {
  81             FPuts(Output(),"Not Enough memory for library buffer\n");
  82             return 20;
  83         }
  84         ress=buffer;
  85         if(fillbuffer(&ress,size))
  86         {
  87             FPuts(Output(),"address\t\tname\n"
  88                            "------------------------------------------------------------\n");
  89             for(ress2=buffer;ress2<ress;ress2++)
  90             {
  91                 IPTR args[2];
  92                 args[0] = (IPTR)ress2->address;
  93                 args[1] = (IPTR)ress2->name;
  94
  95                 VPrintf("0x%08.lx\t%s\n", args);
  96             }
  97             FreeVec(buffer);
  98             return 0;
  99         }
 100         FreeVec(buffer);
 101     }
 102 }