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                 Printf("0x%08.ix\t%ld\t%ld\t%ld\t0x%lx\t%s\n",
 143                         libs2->address, (ULONG)libs2->version,
 144                         (ULONG)libs2->revision,
 145                         (ULONG)libs2->opencnt,
 146                         (ULONG)libs2->flags,
 147                         libs2->name);
 148                 if(SetSignal(0L,SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
 149                 {
 150                     error = RETURN_FAIL;
 151                     SetIoErr(ERROR_BREAK);
 152                     break;
 153                 }
 154             }
 155             FreeVec(buffer);
 156             break;
 157         }
 158         FreeVec(buffer);
 159     }
 160
 161     if (error != RETURN_OK)
 162     {
 163         PrintFault(IoErr(), NULL);
 164     }
 165
 166     return error;
 167
 168 }