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 #if defined(__AROSPLATFORM_SMP__)
  54 #include <aros/types/spinlock_s.h>
  55 #include <proto/execlock.h>
  56 #include <resources/execlock.h>
  57 #endif
  58
  59 const TEXT version[] = "$VER: LibList 41.3 (11.3.2015)\n";
  60
  61 struct lib
  62 {
  63     STRPTR name;
  64     APTR address;
  65     WORD version;
  66     WORD revision;
  67     WORD opencnt;
  68     UBYTE flags;
  69 };
  70
  71 static int addlib(struct Library *lib, struct lib **l, STRPTR *e)
  72 {
  73     STRPTR s1, s2;
  74
  75     (*l)->address = lib;
  76     (*l)->version = lib->lib_Version;
  77     (*l)->revision = lib->lib_Revision;
  78     (*l)->opencnt = lib->lib_OpenCnt;
  79     (*l)->flags    = lib->lib_Flags;
  80
  81     s1 = lib->lib_Node.ln_Name;
  82
  83     if(s1!=NULL)
  84     {
  85         s2=s1;
  86         while(*s2++)
  87             ;
  88         while(s2>s1)
  89         {
  90             if(*e<=(STRPTR)*l)
  91                 return 0;
  92             *--(*e)=*--s2;
  93         }
  94     }
  95     if((STRPTR)(*l+1)>*e)
  96         return 0;
  97
  98     (*l)->name=*e;
  99     ++*l;
 100
 101     return 1;
 102 }
 103
 104 static int fillbuffer(struct lib **buffer, IPTR size)
 105 {
 106     STRPTR end=(STRPTR)*buffer+size;
 107     struct Library *lib;
 108 #if defined(__AROSPLATFORM_SMP__)
 109     void *ExecLockBase = OpenResource("execlock.resource");
 110 #endif
 111
 112 #if defined(__AROSPLATFORM_SMP__)
 113     if (ExecLockBase)
 114         ObtainSystemLock(&SysBase->LibList, SPINLOCK_MODE_READ, LOCKF_FORBID);
 115     else
 116         Forbid();
 117 #else
 118     Forbid();
 119 #endif
 120     for(lib=(struct Library *)SysBase->LibList.lh_Head;
 121         lib->lib_Node.ln_Succ!=NULL;
 122         lib=(struct Library *)lib->lib_Node.ln_Succ)
 123     {
 124         if(!addlib(lib,buffer,&end))
 125         {
 126 #if defined(__AROSPLATFORM_SMP__)
 127             if (ExecLockBase)
 128                 ReleaseSystemLock(&SysBase->LibList, LOCKF_FORBID);
 129             else
 130                 Permit();
 131 #else
 132             Permit();
 133 #endif
 134             return 0;
 135         }
 136     }
 137 #if defined(__AROSPLATFORM_SMP__)
 138     if (ExecLockBase)
 139         ReleaseSystemLock(&SysBase->LibList, LOCKF_FORBID);
 140     else
 141         Permit();
 142 #else
 143     Permit();
 144 #endif
 145
 146     return 1;
 147 }
 148
 149 int __nocommandline;
 150
 151 int main(void)
 152 {
 153     IPTR size;
 154     struct lib *buffer,*libs,*libs2;
 155     LONG error=RETURN_OK;
 156
 157     for(size=2048;;size+=2048)
 158     {
 159         buffer=AllocVec(size,MEMF_ANY);
 160         if(buffer==NULL)
 161         {
 162             FPuts(Output(),"Not Enough memory for library buffer\n");
 163             SetIoErr(ERROR_NO_FREE_STORE);
 164             error = RETURN_FAIL;
 165             break;
 166         }
 167         libs=buffer;
 168         if(fillbuffer(&libs,size))
 169         {
 170 #if (__WORDSIZE == 64)
 171             FPuts(Output(),"       Address  Version  Rev  OpenCnt  Flags  Name\n");
 172 #else
 173             FPuts(Output(),"   Address  Version  Rev  OpenCnt  Flags  Name\n");
 174 #endif
 175             for(libs2=buffer;libs2<libs;libs2++)
 176             {
 177 #if (__WORDSIZE == 64)
 178         Printf("0x%012.ix  %7ld %4ld  %7ld   0x%02lx  %s\n",
 179 #else
 180         Printf("0x%08.ix  %7ld %4ld  %7ld   0x%02lx  %s\n",
 181 #endif
 182                         libs2->address, (ULONG)libs2->version,
 183                         (ULONG)libs2->revision,
 184                         (ULONG)libs2->opencnt,
 185                         (ULONG)libs2->flags,
 186                         libs2->name);
 187                 if(SetSignal(0L,SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
 188                 {
 189                     error = RETURN_FAIL;
 190                     SetIoErr(ERROR_BREAK);
 191                     break;
 192                 }
 193             }
 194             FreeVec(buffer);
 195             break;
 196         }
 197         FreeVec(buffer);
 198     }
 199
 200     if (error != RETURN_OK)
 201     {
 202         PrintFault(IoErr(), NULL);
 203     }
 204
 205     return error;
 206
 207 }