rom/boopsi/boopsi_init.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: BOOPSI Library
   6     Lang: english
   7 */
   8
   9 #include <utility/utility.h>
  10 #include <proto/boopsi.h>
  11 #include "intern.h"
  12 #include "libdefs.h"
  13
  14 /**********************************************************************************************/
  15
  16 #ifdef SysBase
  17 #   undef SysBase
  18 #endif
  19
  20 /* Customize libheader.c */
  21 #define LC_SYSBASE_FIELD(lib)   (((struct IntBOOPSIBase *)(lib))->bb_SysBase)
  22 #define LC_SEGLIST_FIELD(lib)   (((struct IntBOOPSIBase *)(lib))->bb_SegList)
  23 #define LC_RESIDENTNAME         BOOPSI_resident
  24 #define LC_RESIDENTFLAGS        RTF_AUTOINIT|RTF_COLDSTART
  25 #define LC_RESIDENTPRI          95
  26 #define LC_LIBBASESIZE          sizeof(struct IntBOOPSIBase)
  27 #define LC_LIBHEADERTYPEPTR     LIBBASETYPEPTR
  28 #define LC_LIB_FIELD(lib)       (((struct IntBOOPSIBase *)(lib))->bb_LibNode)
  29 #define LC_NO_OPENLIB
  30 #define LC_NO_CLOSELIB
  31 #define LC_NO_EXPUNGELIB
  32 #define LC_STATIC_INITLIB
  33
  34 #include <libcore/libheader.c>
  35
  36 /**********************************************************************************************/
  37
  38 #define SysBase (GetBBase(BOOPSIBase)->bb_SysBase)
  39
  40 /**********************************************************************************************/
  41
  42 static void FreeAllClasses(struct Library *BOOPSIBase)
  43 {
  44     Class *cl;
  45
  46     while((cl = (Class *)RemHead((struct List *)&GetBBase(BOOPSIBase)->bb_ClassList)))
  47     {
  48         /* We can't free this class, so lets not bother */
  49         if(cl != &rootclass)
  50             FreeClass(cl);
  51     }
  52 }
  53
  54 /**********************************************************************************************/
  55
  56 static ULONG SAVEDS STDARGS LC_BUILDNAME(L_InitLib) (LIBBASETYPEPTR LIBBASE)
  57 {
  58     Class *cl;
  59
  60     UtilityBase = OpenLibrary (UTILITYNAME, 0);
  61
  62     if (!UtilityBase)
  63         return FALSE;
  64
  65     /* All we have to do is to set up the pre-existing classes. */
  66     NEWLIST(&GetBBase(LIBBASE)->bb_ClassList);
  67     InitSemaphore(&GetBBase(LIBBASE)->bb_ClassListLock);
  68
  69     rootclass.cl_UserData = (IPTR)LIBBASE;
  70     AddClass(&rootclass);
  71
  72     if((cl = InitICClass(LIBBASE)) == 0)
  73     {
  74         CloseLibrary (UtilityBase);
  75         return FALSE;
  76     }
  77
  78     if((cl = InitModelClass(LIBBASE)) == 0)
  79     {
  80         FreeAllClasses(LIBBASE);
  81         CloseLibrary (UtilityBase);
  82         return FALSE;
  83     }
  84
  85     return TRUE;
  86 }
  87
  88 /**********************************************************************************************/