bgui/bgui_init.c

   1 /*
   2     Copyright © 1997, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: CGFX Library
   6     Lang: english
   7 */
   8
   9 #define NO_MEMORY_ALLOCATION_DEBUG_ALIASING
  10
  11 #include "include/classdefs.h"
  12
  13 /*
  14  * Global data (written to once at initalization time).
  15  */
  16 BPTR           SegList = 0;
  17 #ifndef ENHANCED
  18 makeproto BOOL OS30    = FALSE;
  19 #endif
  20
  21 struct Library       *BGUIBase      = NULL;
  22 struct DosLibrary    *DOSBase       = NULL;
  23 struct ExecBase      *SysBase       = NULL;
  24 struct IntuitionBase *IntuitionBase = NULL;
  25 struct GfxBase       *GfxBase       = NULL;
  26 struct Library       *GadToolsBase  = NULL; /* Menu stuff. */
  27 struct Library       *UtilityBase   = NULL;
  28 struct Library       *LayersBase    = NULL;
  29 struct Library       *AslBase       = NULL;
  30 struct Library       *CxBase        = NULL;
  31 struct Library       *KeymapBase    = NULL;
  32 struct Library       *IFFParseBase  = NULL;
  33 struct Library       *DataTypesBase = NULL;
  34 struct Library       *LocaleBase    = NULL;
  35 struct Library       *WorkbenchBase = NULL;
  36 struct Catalog       *Catalog       = NULL;
  37
  38 struct Task          *InputDevice   = NULL;
  39 APTR                  InputStack    = NULL;
  40
  41 #ifdef SysBase
  42 #   undef SysBase
  43 #endif
  44
  45 /* Customize libheader.c */
  46 #define LC_SYSBASE_FIELD(lib)   SysBase
  47 #define LC_SEGLIST_FIELD(lib)   SegList
  48 #define LC_LIBBASESIZE          sizeof(struct Library)
  49 #define LC_LIBHEADERTYPEPTR     LIBBASETYPEPTR
  50 #define LC_LIB_FIELD(lib)       lib
  51 #define LC_STATIC_OPENLIB
  52 #define LC_STATIC_CLOSELIB
  53 #define LC_STATIC_EXPUNGELIB
  54 #define LC_STATIC_INITLIB
  55
  56 #include <libcore/libheader.c>
  57
  58 /********************************************************************************************/
  59
  60 SAVEDS STATIC VOID CloseLibs(void)
  61 {
  62     if (LocaleBase)      CloseLibrary(LocaleBase);
  63     if (KeymapBase)      CloseLibrary(KeymapBase);
  64     if (CxBase)          CloseLibrary(CxBase);
  65     if (AslBase)         CloseLibrary(AslBase);
  66     if (LayersBase)      CloseLibrary(LayersBase);
  67     if (UtilityBase)     CloseLibrary(UtilityBase);
  68     if (GadToolsBase)    CloseLibrary(GadToolsBase);
  69     if (DataTypesBase)   CloseLibrary(DataTypesBase);
  70     if (IFFParseBase)    CloseLibrary(IFFParseBase);
  71     if (WorkbenchBase)   CloseLibrary(WorkbenchBase);
  72     if (GfxBase)         CloseLibrary((struct Library *)GfxBase);
  73     if (IntuitionBase)   CloseLibrary((struct Library *)IntuitionBase);
  74     if (DOSBase)         CloseLibrary((struct Library *)DOSBase);
  75 }
  76
  77 /********************************************************************************************/
  78
  79 static ULONG SAVEDS STDARGS LC_BUILDNAME(L_InitLib) (LIBBASETYPEPTR LIBBASE)
  80 {
  81     struct Library       *lib;
  82
  83     /*
  84      * Open up system libraries.
  85      */
  86     #ifdef ENHANCED
  87     DOSBase        = (struct DosLibrary *)   OpenLibrary("dos.library",       39);
  88     IntuitionBase  = (struct IntuitionBase *)OpenLibrary("intuition.library", 39);
  89     GfxBase        = (struct GfxBase *)      OpenLibrary("graphics.library",  39);
  90     #else
  91     OS30           = (((struct Library *)SysBase)->lib_Version >= 39);
  92
  93     DOSBase        = (struct DosLibrary *)   OpenLibrary("dos.library",       37);
  94     IntuitionBase  = (struct IntuitionBase *)OpenLibrary("intuition.library", 37);
  95     GfxBase        = (struct GfxBase *)      OpenLibrary("graphics.library",  37);
  96     #endif
  97
  98     GadToolsBase   = OpenLibrary("gadtools.library",      37);
  99     UtilityBase    = OpenLibrary("utility.library",       37);
 100     LayersBase     = OpenLibrary("layers.library",        37);
 101     AslBase        = OpenLibrary("asl.library",           37);
 102     CxBase         = OpenLibrary("commodities.library",   37);
 103     KeymapBase     = OpenLibrary("keymap.library",        37);
 104     IFFParseBase   = OpenLibrary("iffparse.library",      37);
 105     WorkbenchBase  = OpenLibrary("workbench.library",     37);
 106     LocaleBase     = OpenLibrary("locale.library",        38);
 107     DataTypesBase  = OpenLibrary("datatypes.library",     39);
 108
 109     InitInputStack();
 110
 111  #ifdef OUTDATE_BUILD
 112        if(DOSBase)
 113        {
 114           static struct DateStamp expiry_date=
 115           {
 116              OUTDATE_BUILD,0,0
 117           };
 118           struct DateStamp today;
 119
 120           DateStamp(&today);
 121           if(CompareDates(&today,&expiry_date)<0)
 122           {
 123              /* if we return FALSE here, Expunge is called by libheader.c and so
 124                 the libs are close there */
 125
 126              /* CloseLibs(); */
 127              return FALSE;
 128           }
 129        }
 130  #endif
 131     /*
 132      * All libraries open?
 133      */
 134     if (DOSBase && IntuitionBase && GfxBase && GadToolsBase && UtilityBase && LayersBase && IFFParseBase && WorkbenchBase
 135         && AslBase && CxBase && KeymapBase)
 136     {
 137           /*
 138            * Initialize the task-list.
 139            */
 140           InitTaskList();
 141
 142           return TRUE;
 143
 144     }
 145
 146     /* if we return FALSE here, Expunge is called by libheader.c and so
 147        the libs are close there */
 148
 149     /* CloseLibs(); */
 150
 151     return FALSE;
 152 }
 153
 154 /********************************************************************************************/
 155
 156 static void SAVEDS STDARGS LC_BUILDNAME(L_ExpungeLib) (LIBBASETYPEPTR LIBBASE)
 157 {
 158     if (Catalog)
 159         CloseCatalog(Catalog);
 160
 161     FreeInputStack();
 162
 163     /*
 164      * Close system libraries.
 165      */
 166     CloseLibs();
 167
 168     FreeTaskList();
 169 }
 170
 171 /********************************************************************************************/
 172
 173 static ULONG SAVEDS STDARGS LC_BUILDNAME(L_OpenLib) (LC_LIBBASETYPEPTR lh)
 174 {
 175     UWORD       tc;
 176
 177     /*
 178      * Add this task to the list.
 179      */
 180     if ((tc = AddTaskMember()) != TASK_FAILED)
 181     {
 182         /*
 183          * Increase open counter when necessary.
 184          */
 185
 186         #if 0
 187         if (tc == TASK_ADDED)
 188             lib->lib_OpenCnt++;*/
 189         #else
 190         /* libheader.c always incs opencnt, so we must do this a bit different */
 191         if (tc != TASK_ADDED) lh->lib_OpenCnt--;
 192         #endif
 193         return TRUE;
 194     }
 195
 196     return FALSE;
 197 }
 198
 199 /********************************************************************************************/
 200
 201 static void  SAVEDS STDARGS LC_BUILDNAME(L_CloseLib) (LC_LIBBASETYPEPTR lh)
 202 {
 203 #warning real BGUI CloseLib (in lib.c) checks if it is safe to closelib or not and if it is not it does not close (dec usecount and maybe expunge)
 204    /*
 205     * Remove the task from the member list.
 206     */
 207    FreeTaskMember();
 208 }
 209