test/mountlist.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define AROS_ALMOST_COMPATIBLE
   7
   8 #include <dos/dos.h>
   9 #include <dos/filehandler.h>
  10 #include <libraries/expansionbase.h>
  11 #include <proto/dos.h>
  12 #include <proto/exec.h>
  13
  14 #include <ctype.h>
  15 #include <stdio.h>
  16 #include <string.h>
  17
  18 #ifndef __AROS__
  19 #define BNULL 0
  20 #define AROS_BSTR_ADDR(s) ((char *)(s << 2) + 1)
  21 #define AROS_BSTR_strlen(s) *((unsigned char *)(s << 2))
  22 #endif
  23
  24 int __nocommandline = 1;
  25
  26 static void PrintDosType(ULONG dt)
  27 {
  28     unsigned int i;
  29
  30     for (i = 0; i < 4; i++)
  31     {
  32         unsigned char c = dt >> (24 - i * 8);
  33
  34         if (isprint(c))
  35             putchar(c);
  36         else
  37             printf("\\%X", c);
  38     }
  39 }
  40
  41 static BOOL IsMounted(struct DeviceNode *dn)
  42 {
  43     BOOL ret = FALSE;
  44     struct DosList *dl = LockDosList(LDF_DEVICES|LDF_READ);
  45
  46     while ((dl = NextDosEntry(dl, LDF_DEVICES)))
  47     {
  48         if (dl == (struct DosList *)dn)
  49         {
  50             ret = TRUE;
  51             break;
  52         }
  53     }
  54
  55     UnLockDosList(LDF_DEVICES|LDF_READ);
  56     return ret;
  57 }
  58
  59 int main(void)
  60 {
  61     struct BootNode *n;
  62     struct ExpansionBase *base = (struct ExpansionBase *)OpenLibrary("expansion.library", 0);
  63
  64     if (!base)
  65     {
  66         printf("Failed to open expansion.library!\n");
  67         return RETURN_FAIL;
  68     }
  69
  70     ForeachNode(&base->MountList, n)
  71     {
  72         struct DeviceNode *dn = n->bn_DeviceNode;
  73
  74         printf("BootNode %p, Flags 0x%08X, ConfigDev %p\n", n, n->bn_Flags, n->bn_Node.ln_Name);
  75         printf("DeviceNode %p <%s>", dn, AROS_BSTR_ADDR(dn->dn_Name));
  76
  77         if (dn->dn_Handler)
  78             printf(" Handler %s", AROS_BSTR_ADDR(dn->dn_Handler));
  79         if (IsMounted(dn))
  80             printf(" [MOUNTED]");
  81
  82         printf("\nType %d, Task %p, SegList %p\n", (int)dn->dn_Type, BADDR(dn->dn_Task), BADDR(dn->dn_SegList));
  83
  84         if (dn->dn_Startup)
  85         {
  86             struct FileSysStartupMsg *fssm = BADDR(dn->dn_Startup);
  87
  88             printf("FileSysStartupMsg %p", fssm);
  89             if (fssm->fssm_Device != BNULL && AROS_BSTR_strlen(fssm->fssm_Device))
  90                 printf(" <%s unit %ld flags 0x%08X>", AROS_BSTR_ADDR(fssm->fssm_Device), (long)fssm->fssm_Unit, (unsigned int)fssm->fssm_Flags);
  91             printf("\n");
  92
  93             if (fssm->fssm_Environ)
  94             {
  95                 struct DosEnvec *de = BADDR(fssm->fssm_Environ);
  96
  97                 printf("DosEnvec %p DosType 0x%08lX <", de, de->de_DosType);
  98                 PrintDosType(de->de_DosType);
  99                 printf("> BootPri %ld LowCyl %ld HighCyl %ld\n", de->de_BootPri, de->de_LowCyl, de->de_HighCyl);
 100             }
 101         }
 102         printf("\n");
 103     }
 104
 105     CloseLibrary(&base->LibNode);
 106     return RETURN_OK;
 107 }