workbench/c/DevList.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         DevList
  15
  16     SYNOPSIS
  17
  18         (N/A)
  19
  20     LOCATION
  21
  22         C:
  23
  24     FUNCTION
  25
  26         Prints a list of all devices.
  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 <exec/devices.h>
  50 #include <proto/exec.h>
  51 #include <dos/dosextens.h>
  52 #include <proto/dos.h>
  53
  54 const TEXT version[] = "$VER: DevList 41.1 (14.3.1997)\n";
  55
  56 struct dev
  57 {
  58     STRPTR name;
  59     APTR address;
  60     WORD version;
  61     WORD revision;
  62     ULONG flags;
  63     WORD opencnt;
  64 };
  65
  66 static int adddev(struct Device *dev, struct dev **l, STRPTR *e)
  67 {
  68     STRPTR s1, s2;
  69
  70     (*l)->address  = dev;
  71     (*l)->version  = dev->dd_Library.lib_Version;
  72     (*l)->revision = dev->dd_Library.lib_Revision;
  73     (*l)->opencnt  = dev->dd_Library.lib_OpenCnt;
  74     (*l)->flags    = dev->dd_Library.lib_Flags;
  75
  76     s1 = dev->dd_Library.lib_Node.ln_Name;
  77
  78     if(s1!=NULL)
  79     {
  80         s2=s1;
  81         while(*s2++)
  82             ;
  83         while(s2>s1)
  84         {
  85             if(*e<=(STRPTR)(*l+2))
  86                 return 0;
  87             *--(*e)=*--s2;
  88         }
  89     }
  90     if((STRPTR)(*l+2)>*e)
  91         return 0;
  92
  93     (*l)->name=*e;
  94     ++*l;
  95
  96     return 1;
  97 }
  98
  99 static int fillbuffer(struct dev **buffer, IPTR size)
 100 {
 101     STRPTR end=(STRPTR)*buffer+size;
 102     struct Device *dev;
 103     Forbid();
 104     for(dev=(struct Device *)SysBase->DeviceList.lh_Head;
 105         dev->dd_Library.lib_Node.ln_Succ!=NULL;
 106         dev=(struct Device *)dev->dd_Library.lib_Node.ln_Succ)
 107         if(!adddev(dev,buffer,&end))
 108         {
 109             Permit();
 110             return 0;
 111         }
 112     Permit();
 113     return 1;
 114 }
 115
 116 int __nocommandline = 1;
 117
 118 int main(void)
 119 {
 120     IPTR size;
 121     struct dev *buffer,*devs,*devs2;
 122     LONG error=RETURN_OK;
 123
 124     for(size=2048;;size+=2048)
 125     {
 126         buffer=AllocVec(size,MEMF_ANY);
 127         if(buffer==NULL)
 128         {
 129             FPuts(Output(),"Not Enough memory for device buffer\n");
 130             return 20;
 131         }
 132         devs=buffer;
 133         if(fillbuffer(&devs,size))
 134         {
 135             FPuts(Output(),"address\t\tversion\trev\topencnt\tflags\tname\n"
 136                            "------------------------------------------------------------\n");
 137             for(devs2=buffer;devs2<devs;devs2++)
 138             {
 139                 Printf("0x%08.lx\t%ld\t%ld\t%ld\t0x%lx\t%s\n",
 140                         devs2->address, devs2->version,
 141                         devs2->revision, devs2->opencnt,
 142                         devs2->flags, devs2->name);
 143                 if(SetSignal(0L,SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
 144                 {
 145                         error = RETURN_FAIL;
 146                         SetIoErr(ERROR_BREAK);
 147                         break;
 148                 }
 149             }
 150             FreeVec(buffer);
 151             break;
 152         }
 153         FreeVec(buffer);
 154     }
 155     if (error != RETURN_OK)
 156     {
 157             PrintFault(IoErr(), NULL);
 158     }
 159     return(error);
 160 }