scalos/datatypes/IconObject/iconobj-classic.c

   1 // iconobj-classic.c
   2 // $Date$
   3 // $Revision$
   4
   5
   6 #include <exec/types.h>
   7 #include <exec/initializers.h>
   8
   9 #include <exec/resident.h>
  10
  11 #include <proto/exec.h>
  12
  13 #include <limits.h>
  14
  15
  16 #include "iconobj.h"
  17
  18 //----------------------------------------------------------------------------
  19
  20 extern struct ExecBase *SysBase;
  21
  22 //----------------------------------------------------------------------------
  23
  24 static LIB_SAVEDS(struct Library *) LIB_ASM LIB_INTERRUPT Initlib(LIB_REG(d0, struct Library *libbase),
  25         LIB_REG(a0, struct SegList *seglist), LIB_REG(a6, struct ExecBase *sysbase));
  26
  27 static LIBFUNC_PROTO(Openlib, libbase, struct Library *);
  28 static LIBFUNC_PROTO(Closelib, libbase, struct SegList *);
  29 static LIBFUNC_PROTO(Expungelib, libbase, struct SegList *);
  30 static LIBFUNC_PROTO(Extfunclib, libbase, ULONG);
  31
  32 //----------------------------------------------------------------------------
  33
  34 /* OS3.x Library */
  35
  36 static APTR functable[] =
  37         {
  38 #ifdef __MORPHOS__
  39         (APTR) FUNCARRAY_32BIT_NATIVE,
  40 #endif
  41         Openlib,
  42         Closelib,
  43         Expungelib,
  44         Extfunclib,
  45         ObtainInfoEngine,
  46         (APTR) -1
  47         };
  48
  49 /* Init table used in library initialization. */
  50 static ULONG inittab[] =
  51         {
  52         sizeof(struct IconObjectDtLibBase),
  53         (ULONG) functable,
  54         0,
  55         (ULONG) Initlib
  56         };
  57
  58
  59 /* The ROM tag */
  60 struct Resident ALIGNED romtag =
  61         {
  62         RTC_MATCHWORD,
  63         &romtag,
  64         &romtag + 1,
  65 #ifdef __MORPHOS__
  66         RTF_PPC | RTF_AUTOINIT,
  67 #else
  68         RTF_AUTOINIT,
  69 #endif
  70         LIB_VERSION,
  71         NT_LIBRARY,
  72         0,
  73         libName,
  74         libIdString,
  75         inittab
  76         };
  77
  78 #ifdef __MORPHOS__
  79 ULONG __abox__=1;
  80 #endif
  81
  82 //----------------------------------------------------------------------------
  83
  84 static LIB_SAVEDS(struct Library *) LIB_ASM LIB_INTERRUPT Initlib(LIB_REG(d0, struct Library *libbase),
  85         LIB_REG(a0, struct SegList *seglist), LIB_REG(a6, struct ExecBase *sysbase))
  86 {
  87         struct IconObjectDtLibBase *dtLib = (struct IconObjectDtLibBase *) libbase;
  88
  89         SysBase = sysbase;
  90         dtLib->nib_ClassLibrary.cl_Lib.lib_Revision = LIB_REVISION;
  91         dtLib->nib_ClassLibrary.cl_Lib.lib_Node.ln_Pri = SCHAR_MIN;
  92         dtLib->nib_SegList = seglist;
  93
  94         if (!InitDatatype(dtLib))
  95                 {
  96                 CALLLIBFUNC(Expungelib, &dtLib->nib_ClassLibrary.cl_Lib);
  97                 dtLib = NULL;
  98                 }
  99
 100         return dtLib ? &dtLib->nib_ClassLibrary.cl_Lib : NULL;
 101 }
 102
 103
 104 static LIBFUNC(Openlib, libbase, struct Library *)
 105 {
 106         struct IconObjectDtLibBase *dtLib = (struct IconObjectDtLibBase *) libbase;
 107
 108         dtLib->nib_ClassLibrary.cl_Lib.lib_OpenCnt++;
 109         dtLib->nib_ClassLibrary.cl_Lib.lib_Flags &= ~LIBF_DELEXP;
 110
 111         if (!OpenDatatype(dtLib))
 112                 {
 113                 CALLLIBFUNC(Closelib, &dtLib->nib_ClassLibrary.cl_Lib);
 114                 return NULL;
 115                 }
 116
 117         return &dtLib->nib_ClassLibrary.cl_Lib;
 118 }
 119 LIBFUNC_END
 120
 121
 122 static LIBFUNC(Closelib, libbase, struct SegList *)
 123 {
 124         struct IconObjectDtLibBase *dtLib = (struct IconObjectDtLibBase *) libbase;
 125
 126         dtLib->nib_ClassLibrary.cl_Lib.lib_OpenCnt--;
 127
 128         if (0 == dtLib->nib_ClassLibrary.cl_Lib.lib_OpenCnt)
 129                 {
 130                 if (dtLib->nib_ClassLibrary.cl_Lib.lib_Flags & LIBF_DELEXP)
 131                         {
 132                         return CALLLIBFUNC(Expungelib, &dtLib->nib_ClassLibrary.cl_Lib);
 133                         }
 134                 }
 135
 136         return NULL;
 137 }
 138 LIBFUNC_END
 139
 140
 141 static LIBFUNC(Expungelib, libbase, struct SegList *)
 142 {
 143         struct IconObjectDtLibBase *dtLib = (struct IconObjectDtLibBase *) libbase;
 144
 145         if (0 == dtLib->nib_ClassLibrary.cl_Lib.lib_OpenCnt)
 146                 {
 147                 ULONG size = dtLib->nib_ClassLibrary.cl_Lib.lib_NegSize + dtLib->nib_ClassLibrary.cl_Lib.lib_PosSize;
 148                 UBYTE *ptr = (UBYTE *) dtLib - dtLib->nib_ClassLibrary.cl_Lib.lib_NegSize;
 149                 struct SegList *libseglist = dtLib->nib_SegList;
 150
 151                 Remove((struct Node *) dtLib);
 152                 CloseDatatype(dtLib);
 153                 FreeMem(ptr,size);
 154
 155                 return libseglist;
 156                 }
 157
 158         dtLib->nib_ClassLibrary.cl_Lib.lib_Flags |= LIBF_DELEXP;
 159
 160         return NULL;
 161 }
 162 LIBFUNC_END
 163
 164
 165 static LIBFUNC(Extfunclib, libbase, ULONG)
 166 {
 167         (void) libbase;
 168
 169         d1(kprintf(__FUNC__ "/%ld: libbase=%08lx\n", __LINE__, libbase));
 170         return 0;
 171 }
 172 LIBFUNC_END
 173
 174