scalos/datatypes/AmigaIconObj3.5/AmigaIconObj35-classic.c

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