contrib/expat/amiga/expat_lib.c

   1 /*
   2 ** Copyright (c) 2001-2007 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 #include <dos/dos.h>
  25 #include <proto/exec.h>
  26
  27 #define LIBNAME         "expat.library"
  28 #define LIBPRI          0
  29 #define VERSION         4
  30 #define REVISION        2
  31 #define VSTRING         "expat.library 4.2 (2.6.2007)"  /* dd.mm.yyyy */
  32
  33
  34 static const char* __attribute__((used)) verstag = "\0$VER: " VSTRING;
  35
  36
  37 struct ExpatBase {
  38         struct Library libNode;
  39         uint16 pad;
  40         BPTR SegList;
  41 };
  42
  43
  44 struct ExpatBase * libInit(struct ExpatBase *libBase, BPTR seglist, struct ExecIFace *ISys);
  45 uint32 libObtain (struct LibraryManagerInterface *Self);
  46 uint32 libRelease (struct LibraryManagerInterface *Self);
  47 struct ExpatBase *libOpen (struct LibraryManagerInterface *Self, uint32 version);
  48 BPTR libClose (struct LibraryManagerInterface *Self);
  49 BPTR libExpunge (struct LibraryManagerInterface *Self);
  50
  51
  52 static APTR lib_manager_vectors[] = {
  53         libObtain,
  54         libRelease,
  55         NULL,
  56         NULL,
  57         libOpen,
  58         libClose,
  59         libExpunge,
  60         NULL,
  61         (APTR)-1,
  62 };
  63
  64
  65 static struct TagItem lib_managerTags[] = {
  66         { MIT_Name, (uint32)"__library" },
  67         { MIT_VectorTable, (uint32)lib_manager_vectors },
  68         { MIT_Version, 1 },
  69         { TAG_END, 0 }
  70 };
  71
  72
  73 extern void *main_vectors[];
  74
  75 static struct TagItem lib_mainTags[] = {
  76         { MIT_Name, (uint32)"main" },
  77         { MIT_VectorTable, (uint32)main_vectors },
  78         { MIT_Version, 1 },
  79         { TAG_END, 0 }
  80 };
  81
  82
  83 static APTR libInterfaces[] = {
  84         lib_managerTags,
  85         lib_mainTags,
  86         NULL
  87 };
  88
  89
  90 static struct TagItem libCreateTags[] = {
  91         { CLT_DataSize, sizeof(struct ExpatBase) },
  92         { CLT_InitFunc, (uint32)libInit },
  93         { CLT_Interfaces, (uint32)libInterfaces },
  94         { TAG_END, 0 }
  95 };
  96
  97
  98 static struct Resident __attribute__((used)) lib_res = {
  99         RTC_MATCHWORD,  // rt_MatchWord
 100         &lib_res,               // rt_MatchTag
 101         &lib_res+1,             // rt_EndSkip
 102         RTF_NATIVE | RTF_AUTOINIT,      // rt_Flags
 103         VERSION,                // rt_Version
 104         NT_LIBRARY,             // rt_Type
 105         LIBPRI,                 // rt_Pri
 106         LIBNAME,                // rt_Name
 107         VSTRING,                // rt_IdString
 108         libCreateTags   // rt_Init
 109 };
 110
 111
 112 struct Library *DOSLib = 0;
 113 struct Library *UtilityBase = 0;
 114
 115 struct ExecIFace *IExec = 0;
 116 struct DOSIFace *IDOS = 0;
 117 struct UtilityIFace *IUtility = 0;
 118
 119
 120 void _start()
 121 {
 122 }
 123
 124
 125 struct ExpatBase *libInit(struct ExpatBase *libBase, BPTR seglist, struct ExecIFace *ISys)
 126 {
 127         libBase->libNode.lib_Node.ln_Type = NT_LIBRARY;
 128         libBase->libNode.lib_Node.ln_Pri = LIBPRI;
 129         libBase->libNode.lib_Node.ln_Name = LIBNAME;
 130         libBase->libNode.lib_Flags = LIBF_SUMUSED|LIBF_CHANGED;
 131         libBase->libNode.lib_Version = VERSION;
 132         libBase->libNode.lib_Revision = REVISION;
 133         libBase->libNode.lib_IdString = VSTRING;
 134         libBase->SegList = seglist;
 135
 136         IExec = ISys;
 137
 138         DOSLib = OpenLibrary("dos.library", 51);
 139         if ( DOSLib != 0 )  {
 140                 IDOS = (struct DOSIFace *)GetInterface(DOSLib, "main", 1, NULL);
 141                 if ( IDOS != 0 )  {
 142                         UtilityBase = OpenLibrary("utility.library", 51);
 143                         if ( UtilityBase != 0 )  {
 144                                 IUtility = (struct UtilityIFace*)GetInterface(UtilityBase, "main", 1, NULL);
 145                                 if ( IUtility != 0 )  {
 146                                         return libBase;
 147                                 }
 148
 149                                 CloseLibrary(UtilityBase);
 150                         }
 151
 152                         DropInterface((struct Interface *)IDOS);
 153                 }
 154
 155                 CloseLibrary(DOSLib);
 156         }
 157
 158         return NULL;
 159 }
 160
 161
 162 uint32 libObtain( struct LibraryManagerInterface *Self )
 163 {
 164         ++Self->Data.RefCount;
 165         return Self->Data.RefCount;
 166 }
 167
 168
 169 uint32 libRelease( struct LibraryManagerInterface *Self )
 170 {
 171         --Self->Data.RefCount;
 172         return Self->Data.RefCount;
 173 }
 174
 175
 176 struct ExpatBase *libOpen( struct LibraryManagerInterface *Self, uint32 version )
 177 {
 178         struct ExpatBase *libBase;
 179
 180         libBase = (struct ExpatBase *)Self->Data.LibBase;
 181
 182         ++libBase->libNode.lib_OpenCnt;
 183         libBase->libNode.lib_Flags &= ~LIBF_DELEXP;
 184
 185         return libBase;
 186 }
 187
 188
 189 BPTR libClose( struct LibraryManagerInterface *Self )
 190 {
 191         struct ExpatBase *libBase;
 192
 193         libBase = (struct ExpatBase *)Self->Data.LibBase;
 194
 195         --libBase->libNode.lib_OpenCnt;
 196         if ( libBase->libNode.lib_OpenCnt ) {
 197                 return 0;
 198         }
 199
 200         if ( libBase->libNode.lib_Flags & LIBF_DELEXP ) {
 201                 return (BPTR)Self->LibExpunge();
 202         }
 203         else {
 204                 return 0;
 205         }
 206 }
 207
 208
 209 BPTR libExpunge( struct LibraryManagerInterface *Self )
 210 {
 211         struct ExpatBase *libBase;
 212         BPTR result = 0;
 213
 214         libBase = (struct ExpatBase *)Self->Data.LibBase;
 215
 216         if (libBase->libNode.lib_OpenCnt == 0) {
 217                 Remove(&libBase->libNode.lib_Node);
 218
 219                 result = libBase->SegList;
 220
 221                 DropInterface((struct Interface *)IUtility);
 222                 CloseLibrary(UtilityBase);
 223                 DropInterface((struct Interface *)IDOS);
 224                 CloseLibrary(DOSLib);
 225
 226                 DeleteLibrary(&libBase->libNode);
 227         }
 228         else {
 229                 libBase->libNode.lib_Flags |= LIBF_DELEXP;
 230         }
 231
 232         return result;
 233 }