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                 IPTR args[6];
 140                 args[0] = (IPTR)devs2->address;
 141                 args[1] = (IPTR)devs2->version;
 142                 args[2] = (IPTR)devs2->revision;
 143                 args[3] = (IPTR)devs2->opencnt;
 144                 args[4] = (IPTR)devs2->flags;
 145                 args[5] = (IPTR)devs2->name;
 146
 147                 VPrintf("0x%08.lx\t%ld\t%ld\t%ld\t0x%lx\t%s\n", args);
 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     if (error != RETURN_OK)
 161     {
 162             PrintFault(IoErr(), NULL);
 163     }
 164     return(error);
 165 }