workbench/tools/SysExplorer/Modules/Storage/storage_init.c

   1 /*
   2     Copyright (C) 2018-2019, The AROS Development Team.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7
   8 #include <proto/sysexp.h>
   9 #include <proto/oop.h>
  10
  11 #include <aros/libcall.h>
  12 #include <aros/asmcall.h>
  13 #include <aros/symbolsets.h>
  14
  15 #include "storage_intern.h"
  16
  17 extern void StorageStartup(struct SysexpBase *);
  18
  19 #if (1) // TODO : Move into libbase
  20 OOP_AttrBase HiddAttrBase;
  21 OOP_AttrBase HWAttrBase;
  22 OOP_AttrBase HiddBusAB;
  23 OOP_AttrBase HiddStorageUnitAB;
  24
  25 OOP_MethodID HWBase;
  26 OOP_MethodID HiddStorageControllerBase;
  27 OOP_MethodID HiddStorageBusBase;
  28 OOP_MethodID HiddStorageUnitBase;
  29 #endif
  30
  31 const struct OOP_ABDescr storage_abd[] =
  32 {
  33     {IID_Hidd                   , &HiddAttrBase         },
  34     {IID_HW                     , &HWAttrBase           },
  35     {IID_Hidd_Bus               , &HiddBusAB            },
  36     {IID_Hidd_StorageUnit       , &HiddStorageUnitAB    },
  37     {NULL                       , NULL                  }
  38 };
  39
  40 static int storageenum_init(struct SysexpStorageBase *StorageBase)
  41 {
  42     D(bug("[storage.sysexp] %s()\n", __func__));
  43
  44     OOP_ObtainAttrBases(storage_abd);
  45
  46     HWBase = OOP_GetMethodID(IID_HW, 0);
  47     HiddStorageControllerBase = OOP_GetMethodID(IID_Hidd_StorageController, 0);
  48     HiddStorageBusBase = OOP_GetMethodID(IID_Hidd_StorageBus, 0);
  49     HiddStorageUnitBase = OOP_GetMethodID(IID_Hidd_StorageUnit, 0);
  50
  51     NEWLIST(&StorageBase->sesb_HandlerList);
  52     D(bug("[storage.sysexp] %s: class list @ 0x%p\n", __func__, &StorageBase->sesb_HandlerList));
  53
  54    return 2;
  55 }
  56
  57 ADD2INITLIB(storageenum_init, 10);
  58
  59 AROS_LH1(void, ModuleInit,
  60                 AROS_LHA(void *, SysexpBase, A0),
  61                 struct SysexpStorageBase *, StorageBase, 5, Storage
  62 )
  63 {
  64     AROS_LIBFUNC_INIT
  65
  66     D(bug("[storage.sysexp] %s(%p)\n", __func__, SysexpBase));
  67
  68     StorageBase->sesb_SysexpBase = SysexpBase;
  69     StorageBase->sesb_Module.sem_Node.ln_Name = "Storage.Module";
  70     StorageBase->sesb_Module.sem_Node.ln_Pri = 100;
  71     StorageBase->sesb_Module.sem_Startup = StorageStartup;
  72     RegisterModule(&StorageBase->sesb_Module, StorageBase);
  73
  74     return;
  75
  76     AROS_LIBFUNC_EXIT
  77 }