rom/oop/oop_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: OOP Library
   6     Lang: english
   7 */
   8
   9 #define NUM_IDS 31
  10
  11 #include <utility/utility.h>
  12 #include <proto/oop.h>
  13 #include <oop/oop.h>
  14 #include <aros/symbolsets.h>
  15
  16 #include "intern.h"
  17 #include LC_LIBDEFS_FILE
  18
  19 #include "hash.h"
  20 //#undef SDEBUG
  21 #undef DEBUG
  22 //#define SDEBUG 0
  23 #define DEBUG 0
  24 #include <aros/debug.h>
  25
  26
  27 BOOL InitUtilityClasses(struct IntOOPBase *OOPBase);
  28
  29 /*
  30 #if 0
  31 static void FreeAllClasses(struct Library *BOOPIBase)
  32 {
  33     OOP_Class *cl;
  34
  35     while((cl = (OOP_Class *)RemHead((struct List *)&GetOBase(OOPBase)->bb_ClassList)))
  36     {
  37         if(cl != &rootclass)
  38             OOP_FreeClass(cl);
  39     }
  40 }
  41 #endif
  42 */
  43
  44 static int OOPInit(LIBBASETYPEPTR LIBBASE)
  45 {
  46     D(bug("Enter OOPInit\n"));
  47
  48     UtilityBase = OpenLibrary("utility.library", 0);
  49
  50     NEWLIST(&LIBBASE->ob_ClassList);
  51     InitSemaphore(&LIBBASE->ob_ClassListLock);
  52
  53     NEWLIST(&LIBBASE->ob_ServerList);
  54     InitSemaphore(&LIBBASE->ob_ServerListLock);
  55
  56     InitSemaphore(&LIBBASE->ob_IIDTableLock);
  57
  58     SDInit();
  59
  60     LIBBASE->ob_IIDTable = NewHash(NUM_IDS, HT_STRING, LIBBASE);
  61     if (LIBBASE->ob_IIDTable)
  62     {
  63         struct IDDescr intern_ids[] =
  64         {
  65             /* We must make sure that Root gets ID 0 and Meta gets ID 1 */
  66             { IID_Root,         &__IRoot                },
  67             { IID_Meta,         &__IMeta                },
  68
  69 #if 0
  70             { IID_Method,               &__IMethod              },
  71             { IID_Server,               &__IServer              },
  72             { IID_Proxy,                &__IProxy               },
  73             { IID_Interface,    &__IInterface           },
  74 #endif
  75             { NULL,     NULL }
  76         };
  77
  78         /* Get some IDs that are used internally */
  79         if (GetIDs(intern_ids, LIBBASE))
  80         {
  81             if (init_rootclass(LIBBASE))
  82             {
  83                 if (init_basemeta(LIBBASE))
  84                 {
  85                     if (init_ifmetaclass(LIBBASE))
  86                     {
  87                         LIBBASE->ob_HIDDMetaClass
  88                             = init_hiddmetaclass(LIBBASE);
  89                         if (LIBBASE->ob_HIDDMetaClass)
  90                         {
  91                             if (InitUtilityClasses(LIBBASE))
  92                             {
  93                                 D(bug("OOPInit all OK\n"));
  94                                 return (TRUE);
  95                             }
  96                         }
  97                     }
  98                 }
  99             }
 100         }
 101     }
 102
 103     D(bug("OOPInit failed\n"));
 104
 105     return (FALSE);
 106 }
 107
 108 ADD2INITLIB(OOPInit, 0);
 109
 110 /**************************
 111 ** InitUtilityClasses()  **
 112 **************************/
 113 BOOL InitUtilityClasses(struct IntOOPBase *OOPBase)
 114 {
 115 #if 0
 116     D(bug("Initializing methodclass\n"));
 117     if ((GetOBase(OOPBase)->ob_MethodClass = init_methodclass(GetOBase(OOPBase) )))
 118     {
 119         D(bug("Initializing serverclass\n"));
 120         OOPBase->ob_ServerClass = init_serverclass((struct Library *)OOPBase);
 121         if (OOPBase->ob_ServerClass)
 122         {
 123             D(bug("Initializing proxyclass\n"));
 124             OOPBase->ob_ProxyClass = init_proxyclass((struct Library *)OOPBase);
 125             if (OOPBase->ob_ProxyClass)
 126             {
 127                 D(bug("Initializing interfaceclass\n"));
 128                 OOPBase->ob_InterfaceClass = init_interfaceclass((struct Library *)OOPBase);
 129                 if (OOPBase->ob_InterfaceClass)
 130                 {
 131 #endif
 132                     D(bug("Everything initialized\n"));
 133                     return TRUE;
 134 #if 0
 135                 }
 136             }
 137         }
 138     }
 139 #endif
 140
 141     return FALSE;
 142 }
 143