workbench/c/LibList.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         LibList
  15
  16     SYNOPSIS
  17
  18         (N/A)
  19
  20     LOCATION
  21
  22         C:
  23
  24     FUNCTION
  25
  26         Print list of all libraries.
  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: LibList 41.3 (11.3.2015)\n";
  54
  55 struct lib
  56 {
  57     STRPTR name;
  58     APTR address;
  59     WORD version;
  60     WORD revision;
  61     WORD opencnt;
  62     UBYTE flags;
  63 };
  64
  65 static int addlib(struct Library *lib, struct lib **l, STRPTR *e)
  66 {
  67     STRPTR s1, s2;
  68
  69     (*l)->address = lib;
  70     (*l)->version = lib->lib_Version;
  71     (*l)->revision = lib->lib_Revision;
  72     (*l)->opencnt = lib->lib_OpenCnt;
  73     (*l)->flags    = lib->lib_Flags;
  74
  75     s1 = lib->lib_Node.ln_Name;
  76
  77     if(s1!=NULL)
  78     {
  79         s2=s1;
  80         while(*s2++)
  81             ;
  82         while(s2>s1)
  83         {
  84             if(*e<=(STRPTR)*l)
  85                 return 0;
  86             *--(*e)=*--s2;
  87         }
  88     }
  89     if((STRPTR)(*l+1)>*e)
  90         return 0;
  91
  92     (*l)->name=*e;
  93     ++*l;
  94
  95     return 1;
  96 }
  97
  98 static int fillbuffer(struct lib **buffer, IPTR size)
  99 {
 100     STRPTR end=(STRPTR)*buffer+size;
 101     struct Library *lib;
 102     Forbid();
 103     for(lib=(struct Library *)SysBase->LibList.lh_Head;
 104         lib->lib_Node.ln_Succ!=NULL;
 105         lib=(struct Library *)lib->lib_Node.ln_Succ)
 106     {
 107         if(!addlib(lib,buffer,&end))
 108         {
 109             Permit();
 110             return 0;
 111         }
 112     }
 113     Permit();
 114     return 1;
 115 }
 116
 117 int __nocommandline;
 118
 119 int main(void)
 120 {
 121     IPTR size;
 122     struct lib *buffer,*libs,*libs2;
 123     LONG error=RETURN_OK;
 124
 125     for(size=2048;;size+=2048)
 126     {
 127         buffer=AllocVec(size,MEMF_ANY);
 128         if(buffer==NULL)
 129         {
 130             FPuts(Output(),"Not Enough memory for library buffer\n");
 131             SetIoErr(ERROR_NO_FREE_STORE);
 132             error = RETURN_FAIL;
 133             break;
 134         }
 135         libs=buffer;
 136         if(fillbuffer(&libs,size))
 137         {
 138             FPuts(Output(),"address\t\tversion\trev\topencnt\tflags\tname\n"
 139                            "------------------------------------------------------------\n");
 140             for(libs2=buffer;libs2<libs;libs2++)
 141             {
 142                 IPTR args[6];
 143                 args[0] = (IPTR)libs2->address;
 144                 args[1] = (IPTR)libs2->version;
 145                 args[2] = (IPTR)libs2->revision;
 146                 args[3] = (IPTR)libs2->opencnt;
 147                 args[4] = (IPTR)libs2->flags;
 148                 args[5] = (IPTR)libs2->name;
 149
 150                 VPrintf("0x%08.lx\t%ld\t%ld\t%ld\t0x%lx\t%s\n", args);
 151                 if(SetSignal(0L,SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
 152                 {
 153                     error = RETURN_FAIL;
 154                     SetIoErr(ERROR_BREAK);
 155                     break;
 156                 }
 157             }
 158             FreeVec(buffer);
 159             break;
 160         }
 161         FreeVec(buffer);
 162     }
 163
 164     if (error != RETURN_OK)
 165     {
 166         PrintFault(IoErr(), NULL);
 167     }
 168
 169     return error;
 170
 171 }