workbench/tools/SysExplorer/sysexp_library.c

   1 /*
   2     Copyright (C) 2013-2019, The AROS Development Team.
   3     $Id: main.c 54142 2017-03-16 01:57:58Z NicJA $
   4 */
   5
   6 #include <aros/debug.h>
   7
   8 #define MUIMASTER_YES_INLINE_STDARG
   9
  10 #include <exec/memory.h>
  11 #include <hidd/hidd.h>
  12 #include <hidd/system.h>
  13 #include <hidd/gfx.h>
  14 #include <hidd/storage.h>
  15 #include <libraries/asl.h>
  16 #include <mui/NListtree_mcc.h>
  17 #include <mui/NListview_mcc.h>
  18 #include <utility/tagitem.h>
  19 #include <utility/hooks.h>
  20
  21 #include <proto/sysexp.h>
  22
  23 #include <proto/alib.h>
  24 #include <proto/dos.h>
  25 #include <proto/exec.h>
  26 #include <proto/muimaster.h>
  27 #include <proto/oop.h>
  28 #include <proto/utility.h>
  29 #include <proto/intuition.h>
  30
  31 #include <ctype.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34
  35 #include "locale.h"
  36 #include "classes.h"
  37
  38 #include "enums.h"
  39
  40 extern void hwEnum(OOP_Object *obj, struct MUI_NListtree_TreeNode *tn);
  41
  42 CONST_STRPTR hwenumfunc_name = "HWEnum.Func";
  43 CONST_STRPTR devicepageclass_name = "DevicePage.Class";
  44 CONST_STRPTR genericwindowclass_name = "GenericWindow.Class";
  45 CONST_STRPTR computerwindowclass_name = "ComputerWindow.Class";
  46
  47 BOOL ClassNameMatches(const char *classA, const char *classB)
  48 {
  49     if ((!strncmp(classA, classB, strlen(classB))) &&
  50         (strlen(classA) == strlen(classB)))
  51     {
  52         return TRUE;
  53     }
  54     return FALSE;
  55 }
  56
  57 /** Null function **/
  58
  59 AROS_LH0(void, Null,
  60          struct SysexpBase *, SysexpBase, 0, LIB)
  61 {
  62     AROS_LIBFUNC_INIT
  63
  64     return;
  65
  66     AROS_LIBFUNC_EXIT
  67 }
  68
  69 /** Library API functions **/
  70
  71 AROS_LH2(void, RegisterModule,
  72          AROS_LHA(struct SysexpModule *, Module, A0),
  73          AROS_LHA(APTR, ModBase, A1),
  74          struct SysexpBase *, SysexpBase, 5, Sysexp)
  75 {
  76     AROS_LIBFUNC_INIT
  77
  78     D(bug("[sysexp.library] %s()\n", __func__));
  79
  80     if (Module)
  81     {
  82         struct SysexpIntModule *IntModule = AllocMem(sizeof(struct SysexpIntModule), MEMF_ANY);
  83         CopyMem(Module, IntModule, sizeof(struct SysexpModule));
  84         IntModule->seim_ModuleBase = ModBase;
  85         Enqueue(&SysexpBase->sesb_Modules, &IntModule->seim_Module.sem_Node);
  86     }
  87     return;
  88
  89     AROS_LIBFUNC_EXIT
  90 }
  91
  92 AROS_LH2(void, RegisterBase,
  93          AROS_LHA(CONST_STRPTR, BaseID, A0),
  94          AROS_LHA(APTR, Base, A1),
  95          struct SysexpBase *, SysexpBase, 6, Sysexp)
  96 {
  97     AROS_LIBFUNC_INIT
  98
  99     D(bug("[sysexp.library] %s()\n", __func__));
 100
 101     struct SysexpIntBase *IntBase = AllocMem(sizeof(struct SysexpIntBase), MEMF_ANY);
 102     IntBase->seib_Node.ln_Name = (char *)BaseID;
 103     IntBase->seib_Base = Base;
 104     AddTail(&SysexpBase->sesb_GenericBases, &IntBase->seib_Node);
 105
 106     return;
 107
 108     AROS_LIBFUNC_EXIT
 109 }
 110
 111 AROS_LH1(APTR, GetBase,
 112          AROS_LHA(CONST_STRPTR, BaseID, A0),
 113          struct SysexpBase *, SysexpBase, 7, Sysexp)
 114 {
 115     AROS_LIBFUNC_INIT
 116     struct SysexpIntModule *IntModule;
 117     struct SysexpIntBase *IntBase;
 118
 119     D(bug("[sysexp.library] %s()\n", __func__));
 120
 121     ForeachNode(&SysexpBase->sesb_GenericBases, IntBase)
 122     {
 123         if (!strcmp(IntBase->seib_Node.ln_Name, BaseID))
 124             return IntBase->seib_Base;
 125     }
 126     ForeachNode(&SysexpBase->sesb_Modules, IntModule)
 127     {
 128         if (!strcmp(IntModule->seim_Module.sem_Node.ln_Name, BaseID))
 129             return IntModule->seim_ModuleBase;
 130     }
 131
 132     return NULL;
 133
 134     AROS_LIBFUNC_EXIT
 135 }
 136
 137 AROS_LH5(BOOL, RegisterClassHandler,
 138          AROS_LHA(CONST_STRPTR, classid, A0),
 139          AROS_LHA(BYTE, pri, D0),
 140          AROS_LHA(struct MUI_CustomClass *, customwinclass, A1),
 141          AROS_LHA(CLASS_ENUMFUNC, enumfunc, A2),
 142          AROS_LHA(CLASS_VALIDFUNC, validfunc, A3),
 143          struct SysexpBase *, SysexpBase, 9, Sysexp)
 144 {
 145     AROS_LIBFUNC_INIT
 146
 147     struct ClassHandlerNode *newClass;
 148     BOOL add = TRUE;
 149     if ((newClass = FindClassHandler(classid, &SysexpBase->sesb_ClassHandlers)))
 150     {
 151         if (newClass->enumFunc != hwEnum)
 152             return FALSE;
 153
 154         D(bug("[sysexp.library] %s: Updating '%s'..\n", __func__, classid));
 155         add = FALSE;
 156     }
 157
 158     if (add)
 159     {
 160         D(bug("[sysexp.library] %s: Registering '%s'..\n", __func__, classid));
 161         newClass = AllocMem(sizeof(struct ClassHandlerNode), MEMF_CLEAR);
 162     }
 163
 164     if (newClass)
 165     {
 166         newClass->ch_Node.ln_Name = (char *)classid;
 167         newClass->ch_Node.ln_Pri = pri;
 168         newClass->muiClass = customwinclass;
 169         newClass->enumFunc = enumfunc;
 170         newClass->validFunc = validfunc;
 171
 172         if (add)
 173             Enqueue(&SysexpBase->sesb_ClassHandlers, &newClass->ch_Node);
 174
 175         return TRUE;
 176     }
 177     return FALSE;
 178
 179     AROS_LIBFUNC_EXIT
 180 }
 181
 182 AROS_LH2(struct ClassHandlerNode *, FindClassHandler,
 183          AROS_LHA(CONST_STRPTR, classid, A0),
 184          AROS_LHA(struct List *, _handlers, A1),
 185          struct SysexpBase *, SysexpBase, 10, Sysexp)
 186 {
 187     AROS_LIBFUNC_INIT
 188
 189     struct ClassHandlerNode *curHandler;
 190
 191     ForeachNode(_handlers, curHandler)
 192     {
 193         if (ClassNameMatches(classid, curHandler->ch_Node.ln_Name))
 194         {
 195             D(bug("[sysexp.library] %s: Returning class '%s'\n", __func__, curHandler->ch_Node.ln_Name));
 196             return curHandler;
 197         }
 198     }
 199     return NULL;
 200
 201     AROS_LIBFUNC_EXIT
 202 }
 203
 204 AROS_LH2(struct ClassHandlerNode *, FindObjectHandler,
 205          AROS_LHA(OOP_Object *, obj, A0),
 206          AROS_LHA(struct List *, _handlers, A1),
 207          struct SysexpBase *, SysexpBase, 11, Sysexp)
 208 {
 209     AROS_LIBFUNC_INIT
 210
 211     struct ClassHandlerNode *curHandler;
 212
 213     D(bug("[sysexp.library] %s: Finding Handler for Object @ 0x%p\n", __func__, obj));
 214
 215     ForeachNode(_handlers, curHandler)
 216     {
 217         OOP_Class *cl;
 218         D(bug("[sysexp.library] %s:    Checking match with '%s'\n", __func__, curHandler->ch_Node.ln_Name));
 219
 220         for (cl = OOP_OCLASS(obj); cl ; cl = cl->superclass)
 221         {
 222             D(bug("[sysexp.library] %s:      Object Class -> '%s'\n", __func__, cl->ClassNode.ln_Name));
 223             if (ClassNameMatches(cl->ClassNode.ln_Name, curHandler->ch_Node.ln_Name))
 224             {
 225                 D(bug("[sysexp.library] %s: Returning obj class '%s'\n", __func__, curHandler->ch_Node.ln_Name));
 226                 return curHandler;
 227             }
 228         }
 229     }
 230     return NULL;
 231
 232     AROS_LIBFUNC_EXIT
 233 }
 234
 235 /** Library Initialization **/
 236
 237 void *SysexpLibrary_funcTable[] = {
 238   AROS_SLIB_ENTRY(Null, LIB, 0),             /* Open() */
 239   AROS_SLIB_ENTRY(Null, LIB, 0),
 240   AROS_SLIB_ENTRY(Null, LIB, 0),             /* Expunge() */
 241   AROS_SLIB_ENTRY(Null, LIB, 0),             /* Reserved() */
 242   AROS_SLIB_ENTRY(RegisterModule, Sysexp, 5),
 243   AROS_SLIB_ENTRY(RegisterBase, Sysexp, 6),
 244   AROS_SLIB_ENTRY(GetBase, Sysexp, 7),
 245   AROS_SLIB_ENTRY(Null, LIB, 0),
 246   AROS_SLIB_ENTRY(RegisterClassHandler, Sysexp, 9),
 247   AROS_SLIB_ENTRY(FindClassHandler, Sysexp, 10),
 248   AROS_SLIB_ENTRY(FindObjectHandler, Sysexp, 11),
 249
 250   (void *)-1
 251 };
 252
 253 void sysexp_initlib(struct SysexpBase **SysexpBasePtr)
 254 {
 255     struct SysexpBase *SysexpBase = NULL;
 256
 257     D(bug("[SysExplorer] %s()\n", __func__));
 258     SysexpBase = (struct SysexpBase *)MakeLibrary(SysexpLibrary_funcTable,
 259                                 NULL,
 260                                  NULL,
 261                                  sizeof(struct SysexpBase),
 262                                  BNULL);
 263
 264     D(bug("[SysExplorer] %s: SysexpBase @ %p\n", __func__, SysexpBase));
 265
 266     if (SysexpBase)
 267     {
 268         NEWLIST(&SysexpBase->sesb_GenericBases);
 269         NEWLIST(&SysexpBase->sesb_Modules);
 270         NEWLIST(&SysexpBase->sesb_ClassHandlers);
 271
 272         RegisterBase(hwenumfunc_name, hwEnum);
 273         RegisterBase(devicepageclass_name, DevicePage_CLASS);
 274         RegisterBase(genericwindowclass_name, GenericWindow_CLASS);
 275         RegisterBase(computerwindowclass_name, ComputerWindow_CLASS);
 276
 277         RegisterClassHandler(CLID_Hidd_Storage, 90, NULL, hwEnum, NULL);
 278         RegisterClassHandler(CLID_Hidd_Gfx, 60, NULL, hwEnum, NULL);
 279         RegisterClassHandler(CLID_Hidd_System, 30, NULL, hwEnum, NULL);
 280         RegisterClassHandler(CLID_HW_Root, 0, ComputerWindow_CLASS,  hwEnum, NULL);
 281         RegisterClassHandler(CLID_HW, -30, NULL, hwEnum, NULL);
 282         RegisterClassHandler(CLID_Hidd, -60, GenericWindow_CLASS, NULL, NULL);
 283     }
 284     *SysexpBasePtr = SysexpBase;
 285 }