org.simantics.fmil.core/native/FMILibrary/ThirdParty/Expat/expat-2.1.0/amiga/expat_lib.c

   1 /*
   2 ** Copyright (c) 2001-2009 Expat maintainers.
   3 **
   4 ** Permission is hereby granted, free of charge, to any person obtaining
   5 ** a copy of this software and associated documentation files (the
   6 ** "Software"), to deal in the Software without restriction, including
   7 ** without limitation the rights to use, copy, modify, merge, publish,
   8 ** distribute, sublicense, and/or sell copies of the Software, and to
   9 ** permit persons to whom the Software is furnished to do so, subject to
  10 ** the following conditions:
  11 **
  12 ** The above copyright notice and this permission notice shall be included
  13 ** in all copies or substantial portions of the Software.
  14 **
  15 ** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  16 ** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  17 ** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  18 ** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  19 ** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  20 ** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  21 ** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  22 */
  23
  24 #ifdef __USE_INLINE__
  25 #undef __USE_INLINE__
  26 #endif
  27
  28 #define __NOLIBBASE__
  29 #define __NOGLOBALIFACE__
  30
  31 #include <dos/dos.h>
  32 #include <proto/exec.h>
  33
  34 #include "expat_base.h"
  35
  36
  37 #define LIBNAME         "expat.library"
  38 #define LIBPRI          0
  39 #define VERSION         53
  40 #define REVISION        1
  41 #define VSTRING         "expat.library 53.1 (7.8.2009)"  /* dd.mm.yyyy */
  42
  43
  44 static const char* __attribute__((used)) verstag = "\0$VER: " VSTRING;
  45
  46
  47 struct Interface *INewlib = 0;
  48
  49
  50 struct ExpatBase * libInit(struct ExpatBase *libBase, BPTR seglist, struct ExecIFace *ISys);
  51 uint32 libObtain (struct LibraryManagerInterface *Self);
  52 uint32 libRelease (struct LibraryManagerInterface *Self);
  53 struct ExpatBase *libOpen (struct LibraryManagerInterface *Self, uint32 version);
  54 BPTR libClose (struct LibraryManagerInterface *Self);
  55 BPTR libExpunge (struct LibraryManagerInterface *Self);
  56 struct Interface *openInterface(struct ExecIFace *IExec, CONST_STRPTR libName, uint32 libVer);
  57 void closeInterface(struct ExecIFace *IExec, struct Interface *iface);
  58
  59
  60 static APTR lib_manager_vectors[] = {
  61         libObtain,
  62         libRelease,
  63         NULL,
  64         NULL,
  65         libOpen,
  66         libClose,
  67         libExpunge,
  68         NULL,
  69         (APTR)-1,
  70 };
  71
  72
  73 static struct TagItem lib_managerTags[] = {
  74         { MIT_Name, (uint32)"__library" },
  75         { MIT_VectorTable, (uint32)lib_manager_vectors },
  76         { MIT_Version, 1 },
  77         { TAG_END, 0 }
  78 };
  79
  80
  81 extern void *main_vectors[];
  82
  83 static struct TagItem lib_mainTags[] = {
  84         { MIT_Name, (uint32)"main" },
  85         { MIT_VectorTable, (uint32)main_vectors },
  86         { MIT_Version, 1 },
  87         { TAG_END, 0 }
  88 };
  89
  90
  91 static APTR libInterfaces[] = {
  92         lib_managerTags,
  93         lib_mainTags,
  94         NULL
  95 };
  96
  97
  98 extern void *VecTable68K[];
  99
 100 static struct TagItem libCreateTags[] = {
 101         { CLT_DataSize, sizeof(struct ExpatBase) },
 102         { CLT_InitFunc, (uint32)libInit },
 103         { CLT_Interfaces, (uint32)libInterfaces },
 104         { CLT_Vector68K, (uint32)VecTable68K },
 105         { TAG_END, 0 }
 106 };
 107
 108
 109 static struct Resident __attribute__((used)) lib_res = {
 110         RTC_MATCHWORD,  // rt_MatchWord
 111         &lib_res,               // rt_MatchTag
 112         &lib_res+1,             // rt_EndSkip
 113         RTF_NATIVE | RTF_AUTOINIT,      // rt_Flags
 114         VERSION,                // rt_Version
 115         NT_LIBRARY,             // rt_Type
 116         LIBPRI,                 // rt_Pri
 117         LIBNAME,                // rt_Name
 118         VSTRING,                // rt_IdString
 119         libCreateTags   // rt_Init
 120 };
 121
 122
 123 int32 _start()
 124 {
 125         return RETURN_FAIL;
 126 }
 127
 128
 129 struct ExpatBase *libInit(struct ExpatBase *libBase, BPTR seglist, struct ExecIFace *iexec)
 130 {
 131         libBase->libNode.lib_Node.ln_Type = NT_LIBRARY;
 132         libBase->libNode.lib_Node.ln_Pri = LIBPRI;
 133         libBase->libNode.lib_Node.ln_Name = LIBNAME;
 134         libBase->libNode.lib_Flags = LIBF_SUMUSED|LIBF_CHANGED;
 135         libBase->libNode.lib_Version = VERSION;
 136         libBase->libNode.lib_Revision = REVISION;
 137         libBase->libNode.lib_IdString = VSTRING;
 138
 139         libBase->SegList = seglist;
 140
 141         libBase->IExec = iexec;
 142         INewlib        = openInterface(iexec, "newlib.library", 0);
 143
 144         if ( INewlib != 0 )  {
 145                 return libBase;
 146         }
 147
 148         closeInterface(iexec, INewlib);
 149         INewlib = 0;
 150
 151         iexec->DeleteLibrary(&libBase->libNode);
 152
 153         return NULL;
 154 }
 155
 156
 157 uint32 libObtain( struct LibraryManagerInterface *Self )
 158 {
 159         ++Self->Data.RefCount;
 160         return Self->Data.RefCount;
 161 }
 162
 163
 164 uint32 libRelease( struct LibraryManagerInterface *Self )
 165 {
 166         --Self->Data.RefCount;
 167         return Self->Data.RefCount;
 168 }
 169
 170
 171 struct ExpatBase *libOpen( struct LibraryManagerInterface *Self, uint32 version )
 172 {
 173         struct ExpatBase *libBase;
 174
 175         libBase = (struct ExpatBase *)Self->Data.LibBase;
 176
 177         ++libBase->libNode.lib_OpenCnt;
 178         libBase->libNode.lib_Flags &= ~LIBF_DELEXP;
 179
 180         return libBase;
 181 }
 182
 183
 184 BPTR libClose( struct LibraryManagerInterface *Self )
 185 {
 186         struct ExpatBase *libBase;
 187
 188         libBase = (struct ExpatBase *)Self->Data.LibBase;
 189
 190         --libBase->libNode.lib_OpenCnt;
 191         if ( libBase->libNode.lib_OpenCnt ) {
 192                 return 0;
 193         }
 194
 195         if ( libBase->libNode.lib_Flags & LIBF_DELEXP ) {
 196                 return (BPTR)Self->LibExpunge();
 197         }
 198         else {
 199                 return ZERO;
 200         }
 201 }
 202
 203
 204 BPTR libExpunge( struct LibraryManagerInterface *Self )
 205 {
 206         struct ExpatBase *libBase = (struct ExpatBase *)Self->Data.LibBase;
 207         BPTR result = ZERO;
 208
 209         if (libBase->libNode.lib_OpenCnt == 0) {
 210                 libBase->IExec->Remove(&libBase->libNode.lib_Node);
 211
 212                 result = libBase->SegList;
 213
 214                 closeInterface(libBase->IExec, INewlib);
 215                 INewlib = 0;
 216
 217                 libBase->IExec->DeleteLibrary(&libBase->libNode);
 218         }
 219         else {
 220                 libBase->libNode.lib_Flags |= LIBF_DELEXP;
 221         }
 222
 223         return result;
 224 }
 225
 226
 227 struct Interface *openInterface(struct ExecIFace *IExec, CONST_STRPTR libName, uint32 libVer)
 228 {
 229         struct Library *base = IExec->OpenLibrary(libName, libVer);
 230         struct Interface *iface = IExec->GetInterface(base, "main", 1, 0);
 231         if (iface == 0) {
 232                 IExec->CloseLibrary(base);
 233         }
 234
 235         return iface;
 236 }
 237
 238
 239 void closeInterface(struct ExecIFace *IExec, struct Interface *iface)
 240 {
 241         if (iface != 0)
 242         {
 243                 struct Library *base = iface->Data.LibBase;
 244                 IExec->DropInterface(iface);
 245                 IExec->CloseLibrary(base);
 246         }
 247 }