scalos/libraries/iconobject/IconObject-aros.c

   1 // IconObject-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 <aros/libcall.h>
  12
  13 #include <proto/exec.h>
  14 #include <proto/iconobject.h>
  15
  16
  17 #include "IconObject.h"
  18
  19 //----------------------------------------------------------------------------
  20 // Standard library functions
  21
  22 static AROS_UFP3 (struct Library *, Initlib,
  23                   AROS_UFPA(struct Library *, libbase, D0),
  24                   AROS_UFPA(struct SegList *, seglist, A0),
  25                   AROS_UFPA(struct ExecBase *, sysbase, A6)
  26 );
  27 static AROS_LD1 (struct Library *, Openlib,
  28                  AROS_LPA (__unused ULONG, version, D0),
  29                  struct Library *, base, 1, IconObject
  30 );
  31 static AROS_LD0 (struct SegList *, Closelib,
  32                  struct Library *, base, 2, IconObject
  33 );
  34 static AROS_LD1 (struct SegList *, Expungelib,
  35                  AROS_LPA(__unused struct Library *, __extrabase, D0),
  36                  struct Library *, base, 3, IconObject
  37 );
  38 static AROS_LD0 (ULONG, Extfunclib,
  39                  __unused struct Library *, libbase, 4, IconObject
  40 );
  41
  42 //----------------------------------------------------------------------------
  43
  44 SAVEDS(LONG) ASM Libstart(void)
  45 {
  46         return -1;
  47 }
  48
  49 /* OS3.x Library */
  50
  51 static APTR functable[] =
  52         {
  53         IconObject_1_Openlib,
  54         IconObject_2_Closelib,
  55         IconObject_3_Expungelib,
  56         IconObject_4_Extfunclib,
  57         IconObjectBase_0_LIBNewIconObject,
  58         IconObjectBase_0_LIBDisposeIconObject,
  59         IconObjectBase_0_LIBGetDefIconObject,
  60         IconObjectBase_0_LIBPutIconObject,
  61         IconObjectBase_0_LIBIsIconName,
  62         IconObjectBase_0_LIBConvert2IconObject,
  63         IconObjectBase_0_LIBConvert2IconObjectA,
  64         (APTR) -1
  65         };
  66
  67 /* Init table used in library initialization. */
  68 static ULONG inittab[] =
  69         {
  70         sizeof(struct IconObjectBase),
  71         (ULONG) functable,
  72         0,
  73         (ULONG) Initlib
  74         };
  75
  76
  77 /* The ROM tag */
  78 struct Resident ALIGNED romtag =
  79         {
  80         RTC_MATCHWORD,
  81         &romtag,
  82         &romtag + 1,
  83         RTF_AUTOINIT,
  84         LIB_VERSION,
  85         NT_LIBRARY,
  86         0,
  87         libName,
  88         libIdString,
  89         inittab
  90         };
  91
  92
  93 //----------------------------------------------------------------------------
  94
  95 static AROS_UFH3(struct Library *, Initlib,
  96                  AROS_UFHA(struct Library *, libbase, D0),
  97                  AROS_UFHA(struct SegList *, seglist, A0),
  98                  AROS_UFHA(struct ExecBase *, sysbase, A6)
  99 )
 100 {
 101         AROS_USERFUNC_INIT
 102
 103         struct IconObjectBase *IconObjLibBase = (struct IconObjectBase *) libbase;
 104
 105         SysBase = sysbase;
 106         IconObjLibBase->iob_LibNode.lib_Revision = LIB_REVISION;
 107         IconObjLibBase->iob_SegList = seglist;
 108
 109         if (!IconObjectInit(IconObjLibBase))
 110                 {
 111                 IconObject_3_Expungelib(&IconObjLibBase->iob_LibNode, &IconObjLibBase->iob_LibNode);
 112                 IconObjLibBase = NULL;
 113                 }
 114
 115         return IconObjLibBase ? &IconObjLibBase->iob_LibNode : NULL;
 116
 117         AROS_USERFUNC_EXIT
 118 }
 119
 120 static AROS_LH1(struct Library *, Openlib,
 121                 AROS_LHA(__unused ULONG, version, D0),
 122                 struct Library *, libbase, 1, IconObject
 123 )
 124 {
 125         AROS_LIBFUNC_INIT
 126
 127         struct IconObjectBase *IconObjLibBase = (struct IconObjectBase *) libbase;
 128
 129         IconObjLibBase->iob_LibNode.lib_OpenCnt++;
 130         IconObjLibBase->iob_LibNode.lib_Flags &= ~LIBF_DELEXP;
 131
 132         if (!IconObjectOpen(IconObjLibBase))
 133                 {
 134                 IconObject_2_Closelib(&IconObjLibBase->iob_LibNode);
 135                 return NULL;
 136                 }
 137
 138         return &IconObjLibBase->iob_LibNode;
 139
 140         AROS_LIBFUNC_EXIT
 141 }
 142
 143
 144 static AROS_LH0(struct SegList *, Closelib,
 145                 struct Library *, libbase, 2, IconObject
 146 )
 147 {
 148         AROS_LIBFUNC_INIT
 149
 150         struct IconObjectBase *IconObjLibBase = (struct IconObjectBase *) libbase;
 151
 152         IconObjLibBase->iob_LibNode.lib_OpenCnt--;
 153
 154         if (0 == IconObjLibBase->iob_LibNode.lib_OpenCnt)
 155                 {
 156                 if (IconObjLibBase->iob_LibNode.lib_Flags & LIBF_DELEXP)
 157                         {
 158                         return IconObject_3_Expungelib(&IconObjLibBase->iob_LibNode, &IconObjLibBase->iob_LibNode);
 159                         }
 160                 }
 161
 162         return NULL;
 163
 164         AROS_LIBFUNC_EXIT
 165 }
 166
 167
 168 static AROS_LH1(struct SegList *, Expungelib,
 169                 AROS_LHA(__unused struct Library *, __extrabase, D0),
 170                 struct Library *, libbase, 3, IconObject
 171 )
 172 {
 173         AROS_LIBFUNC_INIT
 174
 175         struct IconObjectBase *IconObjLibBase = (struct IconObjectBase *) libbase;
 176
 177         if (0 == IconObjLibBase->iob_LibNode.lib_OpenCnt)
 178                 {
 179                 ULONG size = IconObjLibBase->iob_LibNode.lib_NegSize + IconObjLibBase->iob_LibNode.lib_PosSize;
 180                 UBYTE *ptr = (UBYTE *) IconObjLibBase - IconObjLibBase->iob_LibNode.lib_NegSize;
 181                 struct SegList *libseglist = IconObjLibBase->iob_SegList;
 182
 183                 Remove((struct Node *) IconObjLibBase);
 184                 IconObjectCleanup(IconObjLibBase);
 185                 FreeMem(ptr,size);
 186
 187                 return libseglist;
 188                 }
 189
 190         IconObjLibBase->iob_LibNode.lib_Flags |= LIBF_DELEXP;
 191
 192         return NULL;
 193
 194         AROS_LIBFUNC_EXIT
 195 }
 196
 197
 198 static AROS_LH0(ULONG, Extfunclib, __unused struct Library *, libbase, 4, IconObject)
 199 {
 200         AROS_LIBFUNC_INIT
 201
 202         return 0;
 203
 204         AROS_LIBFUNC_EXIT
 205 }