test/sdi/examples/libraries/example_lib.c

   1 /* Example source
   2
   3         Name:           example_lib.c
   4                 Versionstring:  $VER: example_lib.c 1.2 (21.06.2007)
   5         Author:         Jens Langner
   6         Distribution:   PD
   7         Description:    shows how the SDI_lib.h header include can be used
   8
   9   1.0   05.10.04 : initial version showing how the SDI_lib.h headers can help
  10                    when used for maintaining AmigaOS compatible shared library
  11                    interfaces upon compatible operating systems like AmigaOS3,
  12                    AmigaOS4 and MorphOS.
  13
  14   1.1   20.06.07 : moved LIBFUNC to be first in line acording to changes in
  15                                    SDI_lib.h. (Guido Mersmann)
  16
  17   1.2   21.06.07 : added missing libvector to MorphOS/AmigaOS3 libvectors[]
  18                                    (Guido Mersmann)
  19
  20   Please note that this example is just for educational purposes and wasn't
  21   checked for complete correctness. However, it should compile and probably also
  22   work as expected. But please note that its purpose is to show how a shared
  23   library can held platform independent over all different available AmigaOS
  24   platforms like OS3, OS4 and MorphOS.
  25
  26   Feel free to comment and submit any suggestions directly to
  27   Jens.Langner@light-speed.de
  28
  29 */
  30
  31 #include <exec/types.h>
  32 #include <exec/libraries.h>
  33 #include <exec/resident.h>
  34 #include <dos/dos.h>
  35
  36 #include <proto/exec.h>
  37
  38 #ifdef __amigaos4__
  39 #include <exec/emulation.h>
  40 #endif
  41
  42 #include <stdarg.h>
  43 #include <stdio.h>
  44 #include <ctype.h>
  45
  46 #include <SDI_lib.h>
  47 #include <SDI_stdarg.h>
  48
  49 #define VERSION         1
  50 #define REVISION        4
  51 #define DATE        "25.08.2014"
  52 #define VERS        "example.library 1.4"
  53 #define VSTRING         "example.library 1.4 25.08.2014)\r\n"
  54 #define VERSTAG         "\0$VER: example.library 1.4 25.08.2014)"
  55
  56 static const char UserLibName[] = "example.library";
  57 static const char UserLibID[]   = "\0$VER: example.library 1.4 25.08.2014)";
  58
  59 #if defined(__MORPHOS__)
  60 struct ExecBase *SysBase;
  61 #endif
  62
  63 /******************************************************************************/
  64 /*             >> User defineable library functions start here <<             */
  65 /*  The following section should illustrate how the SDI_lib.h macros make it  */
  66 /*   possible to easily maintain a typical Amiga shared library interface if  */
  67 /*      compatibility over all common (OS3/OS4, MorphOS) is required          */
  68 /******************************************************************************/
  69
  70 /******************************************************************************/
  71 /* Local Structures & Prototypes                                              */
  72 /******************************************************************************/
  73
  74 struct LibraryHeader
  75 {
  76   struct Library        libBase;
  77   struct Library *sysBase;
  78   ULONG           segList;
  79 };
  80
  81 #if defined(__amigaos4__)
  82 #define __BASE_OR_IFACE_TYPE    struct ExampleIFace *
  83 #define __BASE_OR_IFACE_VAR             IExample
  84 #else
  85 #define __BASE_OR_IFACE_TYPE    struct LibraryHeader *
  86 #define __BASE_OR_IFACE_VAR             ExampleBase
  87 #endif
  88 #define __BASE_OR_IFACE                 __BASE_OR_IFACE_TYPE __BASE_OR_IFACE_VAR
  89
  90 // first the prototypes of all our public library functions
  91 LIBPROTO(SayHelloOS4, char *, REG(a6, UNUSED __BASE_OR_IFACE));
  92 LIBPROTO(SayHelloOS3, char *, REG(a6, UNUSED __BASE_OR_IFACE));
  93 LIBPROTO(SayHelloMOS, char *, REG(a6, UNUSED __BASE_OR_IFACE));
  94 LIBPROTO(Uppercase, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *txt));
  95 LIBPROTO(SPrintfA, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *buf), REG(a1, char *format), REG(a2, APTR args));
  96 LIBPROTOVA(SPrintf, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *buf), REG(a1, char *format), ...);
  97
  98 // let us now create the libvector.
  99 // Please note that the start of the vectors has to be always the "LFUNC_FAS"
 100 // macro
 101 #define libvector LFUNC_FAS(SayHelloOS4) \
 102                   LFUNC_FA_(SayHelloOS3) \
 103                   LFUNC_FA_(SayHelloMOS) \
 104                   LFUNC_FA_(Uppercase)   \
 105                   LFUNC_FA_(SPrintfA)    \
 106                   LFUNC_VA_(SPrintf)
 107
 108 // Now the real implementations of the library functions above like in
 109 // a normal AmigaOS shared library follow
 110 LIBPROTO(SayHelloOS4, char *, REG(a6, UNUSED __BASE_OR_IFACE))
 111 {
 112   return "Hello AmigaOS4!!!";
 113 }
 114
 115 LIBPROTO(SayHelloOS3, char *, REG(a6, UNUSED __BASE_OR_IFACE))
 116 {
 117   return "Hello AmigaOS3!!!";
 118 }
 119
 120 LIBPROTO(SayHelloMOS, char *, REG(a6, UNUSED __BASE_OR_IFACE))
 121 {
 122   return "Hello MorphOS!!!";
 123 }
 124
 125 LIBPROTO(Uppercase, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *txt))
 126 {
 127   char *p = txt;
 128
 129   while(p)
 130   {
 131     *p = toupper(*p);
 132     p++;
 133   }
 134
 135   return txt;
 136 }
 137
 138 LIBPROTO(SPrintfA, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *buf), REG(a1, char *format), REG(a2, APTR args))
 139 {
 140   RawDoFmt(format, args, NULL, buf);
 141
 142   return(buf);
 143 }
 144
 145 #if defined(__amigaos4__)
 146 // for AmigaOS4 varargs functions are separate entries in the interface structure and
 147 // hence must be defined as separate functions
 148 LIBPROTOVA(SPrintf, char *, REG(a6, UNUSED __BASE_OR_IFACE), REG(a0, char *buf), REG(a1, char *format), ...)
 149 {
 150   char *ret;
 151   VA_LIST args;
 152
 153   VA_START(args, format);
 154   // the SPrintf function will be call via the interface
 155   ret = SPrintfA(buf, format, VA_ARG(args, ULONG));
 156   VA_END(args);
 157
 158   return(ret);
 159 }
 160 #elif defined(__MORPHOS__)
 161 // define stub functions for all functions in the jump table which take the
 162 // parameters from the emulated 68k registers. The parameters don't need to
 163 // be specified again, because these are really functions taking no direct
 164 // parameters. Only the type of the returned value is required.
 165 LIBSTUB(SayHelloOS4, char *)
 166 {
 167   __BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
 168   return CALL_LFUNC_NP(SayHelloOS4);
 169 }
 170
 171 LIBSTUB(SayHelloOS3, char *)
 172 {
 173   __BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
 174   return CALL_LFUNC_NP(SayHelloOS3);
 175 }
 176
 177 LIBSTUB(SayHelloMOS, char *)
 178 {
 179   __BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
 180   return CALL_LFUNC_NP(SayHelloMOS);
 181 }
 182
 183 LIBSTUB(Uppercase, char *)
 184 {
 185   __BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
 186   return CALL_LFUNC(Uppercase, (char *)REG_A0);
 187 }
 188
 189 LIBSTUB(SPrintfA, char *)
 190 {
 191   __BASE_OR_IFACE = (__BASE_OR_IFACE_TYPE)REG_A6;
 192   return CALL_LFUNC(SprintfA, (char)REG_A0, (char *)REG_A1, (APTR)REG_A2);
 193 }
 194 #elif defined(__AROS__)
 195 AROS_LH0(char *, SayHelloOS4, struct Library *, __BASE_OR_IFACE_VAR, 0, LIBSTUB)
 196 {
 197   AROS_LIBFUNC_INIT
 198   return CALL_LFUNC_NP(SayHelloOS4);
 199   AROS_LIBFUNC_EXIT
 200 }
 201
 202 AROS_LH0(char *, SayHelloOS3, struct Library *, __BASE_OR_IFACE_VAR, 0, LIBSTUB)
 203 {
 204   AROS_LIBFUNC_INIT
 205   return CALL_LFUNC_NP(SayHelloOS3);
 206   AROS_LIBFUNC_EXIT
 207 }
 208
 209 AROS_LH0(char *, SayHelloMOS, struct Library *, __BASE_OR_IFACE_VAR, 0, LIBSTUB)
 210 {
 211   AROS_LIBFUNC_INIT
 212   return CALL_LFUNC_NP(SayHelloMOS);
 213   AROS_LIBFUNC_EXIT
 214 }
 215
 216 AROS_LH1(char *, Uppercase, AROS_LHA(char *, txt, A0), struct Library *, __BASE_OR_IFACE_VAR, 0, LIBSTUB)
 217 {
 218   AROS_LIBFUNC_INIT
 219   return  CALL_LFUNC(Uppercase, txt);
 220   AROS_LIBFUNC_EXIT
 221 }
 222
 223 AROS_LH3(char *, SPrintfA,
 224     AROS_LHA(char *, buf, A0),
 225     AROS_LHA(char *, format, A1),
 226     AROS_LHA(APTR, args, A1),
 227     struct Library *, __BASE_OR_IFACE_VAR, 0, LIBSTUB
 228 )
 229 {
 230   AROS_LIBFUNC_INIT
 231   return CALL_LFUNC(SPrintfA, buf, format, args);
 232   AROS_LIBFUNC_EXIT
 233 }
 234 #endif
 235
 236 /******************************************************************************/
 237 /*    Starting from here starts the "standard" Amiga library initialization.  */
 238 /*  All the above should have illustrated enough how "easy" it is to use the  */
 239 /*  SDI_lib.h header file and how it can help in developing a shared library  */
 240 /*               for multiple AmigaOS compatible platforms.                   */
 241 /******************************************************************************/
 242
 243 #if defined(__amigaos4__)
 244
 245 LIBFUNC static struct LibraryHeader * LibInit    (struct LibraryHeader *base, BPTR librarySegment, struct ExecIFace *pIExec);
 246 LIBFUNC static BPTR                   LibExpunge (struct LibraryManagerInterface *Self);
 247 LIBFUNC static struct LibraryHeader * LibOpen    (struct LibraryManagerInterface *Self, ULONG version);
 248 LIBFUNC static BPTR                   LibClose   (struct LibraryManagerInterface *Self);
 249
 250 #elif defined(__MORPHOS__)
 251
 252 LIBFUNC static struct LibraryHeader * LibInit   (struct LibraryHeader *base, BPTR librarySegment, struct ExecBase *sb);
 253 LIBFUNC static BPTR                   LibExpunge(void);
 254 LIBFUNC static struct LibraryHeader * LibOpen   (void);
 255 LIBFUNC static BPTR                   LibClose  (void);
 256 LIBFUNC static LONG                   LibNull   (void);
 257
 258 #elif defined(__AROS__)
 259
 260 #include <aros/libcall.h>
 261
 262 //#define example_LibOpen LibOpen
 263 //#define example_LibClose LibClose
 264 #define example_3_LibExpunge LibExpunge
 265
 266 static AROS_UFP3 (struct LibraryHeader *, LibInit,
 267                   AROS_UFPA(struct LibraryHeader *, base, D0),
 268                   AROS_UFPA(BPTR, librarySegment, A0),
 269                   AROS_UFPA(struct ExecBase *, sb, A6)
 270 );
 271 static AROS_LD1 (struct LibraryHeader *, LibOpen,
 272                  AROS_LPA (UNUSED ULONG, version, D0),
 273                  struct LibraryHeader *, base, 1, example
 274 );
 275 static AROS_LD0 (BPTR, LibClose,
 276                  struct LibraryHeader *, base, 2, example
 277 );
 278 static AROS_LD1(BPTR, LibExpunge,
 279                 AROS_LPA(UNUSED struct LibraryHeader *, __extrabase, D0),
 280                 struct LibraryHeader *, base, 3, example
 281 );
 282
 283 #else
 284
 285 LIBFUNC static struct LibraryHeader * LibInit    (REG(a0, BPTR Segment), REG(d0, struct LibraryHeader *lh), REG(a6, struct ExecBase *sb));
 286 LIBFUNC static BPTR                   LibExpunge (REG(a6, struct LibraryHeader *base));
 287 LIBFUNC static struct LibraryHeader * LibOpen    (REG(a6, struct LibraryHeader *base));
 288 LIBFUNC static BPTR                   LibClose   (REG(a6, struct LibraryHeader *base));
 289 LIBFUNC static LONG                   LibNull    (void);
 290
 291 #endif
 292
 293 /******************************************************************************/
 294 /* Dummy entry point and LibNull() function all in one                        */
 295 /******************************************************************************/
 296
 297 #if defined(__amigaos4__)
 298 int _start(void)
 299 #else
 300 int Main(void)
 301 #endif
 302 {
 303   return RETURN_FAIL;
 304 }
 305
 306 #if !defined(__amigaos4__)
 307 LIBFUNC static LONG LibNull(VOID)
 308 {
 309   return(0);
 310 }
 311 #endif
 312
 313 /******************************************************************************/
 314 /* Local data structures                                                      */
 315 /******************************************************************************/
 316
 317 #if defined(__amigaos4__)
 318 /* ------------------- OS4 Manager Interface ------------------------ */
 319 STATIC ULONG LibObtain(struct LibraryManagerInterface *Self)
 320 {
 321   return(Self->Data.RefCount++);
 322 }
 323
 324 STATIC ULONG LibRelease(struct LibraryManagerInterface *Self)
 325 {
 326   return(Self->Data.RefCount--);
 327 }
 328
 329 STATIC CONST APTR LibManagerVectors[] =
 330 {
 331   (APTR)LibObtain,
 332   (APTR)LibRelease,
 333   (APTR)NULL,
 334   (APTR)NULL,
 335   (APTR)LibOpen,
 336   (APTR)LibClose,
 337   (APTR)LibExpunge,
 338   (APTR)NULL,
 339   (APTR)-1
 340 };
 341
 342 STATIC CONST struct TagItem LibManagerTags[] =
 343 {
 344   {MIT_Name,             (ULONG)"__library"},
 345   {MIT_VectorTable,      (ULONG)LibManagerVectors},
 346   {MIT_Version,          1},
 347   {TAG_DONE,             0}
 348 };
 349
 350 /* ------------------- Library Interface(s) ------------------------ */
 351
 352 STATIC CONST APTR LibVectors[] =
 353 {
 354   (APTR)LibObtain,
 355   (APTR)LibRelease,
 356   (APTR)NULL,
 357   (APTR)NULL,
 358   (APTR)libvector,
 359   (APTR)-1
 360 };
 361
 362 STATIC CONST struct TagItem MainTags[] =
 363 {
 364   {MIT_Name,              (ULONG)"main"},
 365   {MIT_VectorTable,       (ULONG)LibVectors},
 366   {MIT_Version,           1},
 367   {TAG_DONE,              0}
 368 };
 369
 370
 371 STATIC CONST ULONG LibInterfaces[] =
 372 {
 373   (ULONG)LibManagerTags,
 374   (ULONG)MainTags,
 375   (ULONG)0
 376 };
 377
 378 /* --------------------- m68k Library stubs ------------------------ */
 379
 380 STATIC ULONG stub_OpenPPC(ULONG *regarray)
 381 {
 382         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 383         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 384         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 385
 386         return (ULONG) Self->Open(0);
 387 }
 388 struct EmuTrap stub_Open = { TRAPINST, TRAPTYPE, stub_OpenPPC };
 389
 390 STATIC ULONG stub_ClosePPC(ULONG *regarray)
 391 {
 392         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 393         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 394         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 395
 396         return (ULONG) Self->Close();
 397 }
 398 struct EmuTrap stub_Close = { TRAPINST, TRAPTYPE, stub_ClosePPC };
 399
 400 STATIC ULONG stub_ExpungePPC(ULONG *regarray)
 401 {
 402   return 0UL;
 403 }
 404 struct EmuTrap stub_Expunge = { TRAPINST, TRAPTYPE, stub_ExpungePPC };
 405
 406 STATIC ULONG stub_ReservedPPC(ULONG *regarray)
 407 {
 408   return 0UL;
 409 }
 410 struct EmuTrap stub_Reserved = { TRAPINST, TRAPTYPE, stub_ReservedPPC };
 411
 412 STATIC ULONG stub_SayHelloOS4PPC(ULONG *regarray)
 413 {
 414         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 415         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 416         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 417
 418         return (char *)Self->SayHelloOS4();
 419 }
 420 struct EmuTrap stub_SayHelloOS4 = { TRAPINST, TRAPTYPE, stub_SayHelloOS4PPC };
 421
 422 STATIC ULONG stub_SayHelloOS3PPC(ULONG *regarray)
 423 {
 424         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 425         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 426         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 427
 428         return (char *)Self->SayHelloOS3();
 429 }
 430 struct EmuTrap stub_SayHelloOS3 = { TRAPINST, TRAPTYPE, stub_SayHelloOS3PPC };
 431
 432 STATIC ULONG stub_SayHelloMOSPPC(ULONG *regarray)
 433 {
 434         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 435         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 436         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 437
 438         return (char *)Self->SayHelloMOS();
 439 }
 440 struct EmuTrap stub_SayHelloMOS = { TRAPINST, TRAPTYPE, stub_SayHelloMOSPPC };
 441
 442 STATIC ULONG stub_UppercasePPC(ULONG *regarray)
 443 {
 444         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 445         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 446         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 447
 448         return (char *)Self->Uppercase(
 449                 (char *)regarray[8]
 450         );
 451 }
 452 struct EmuTrap stub_Uppercase = { TRAPINST, TRAPTYPE, stub_UppercasePPC };
 453
 454 STATIC ULONG stub_SPrintfAPPC(ULONG *regarray)
 455 {
 456         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 457         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 458         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 459
 460         return (char *)Self->SPrintfA(
 461                 (char *)regarray[8],
 462                 (char *)regarray[9],
 463                 (APTR)regarray[10]
 464         );
 465 }
 466 struct EmuTrap stub_SPrintfA = { TRAPINST, TRAPTYPE, stub_SPrintfAPPC };
 467
 468 STATIC ULONG VecTable68K[] =
 469 {
 470   (ULONG)&stub_Open,
 471   (ULONG)&stub_Close,
 472   (ULONG)&stub_Expunge,
 473   (ULONG)&stub_Reserved,
 474   (ULONG)&stub_SayHelloOS4,
 475   (ULONG)&stub_SayHelloOS3,
 476   (ULONG)&stub_SayHelloMOS,
 477   (ULONG)&stub_Uppercase,
 478   (ULONG)&stub_SprintfA,
 479   (ULONG)-1
 480 };
 481
 482 /* ----------------------- LibCreate Tags -------------------------- */
 483
 484 STATIC CONST struct TagItem LibCreateTags[] =
 485 {
 486   {CLT_DataSize,   (ULONG)(sizeof(struct LibraryHeader))},
 487   {CLT_InitFunc,   (ULONG)LibInit},
 488   {CLT_Interfaces, (ULONG)LibInterfaces},
 489   {CLT_Vector68K,  (ULONG)VecTable68K},
 490   {TAG_DONE,       0}
 491 };
 492
 493 #else
 494
 495 STATIC CONST APTR LibVectors[] =
 496 {
 497   #ifdef __MORPHOS__
 498   (APTR)FUNCARRAY_32BIT_NATIVE,
 499   #endif
 500   #if defined(__AROS__)
 501     #ifdef AROS_ABI_V1
 502     AROS_SLIB_ENTRY(LibOpen, example, 1),
 503     AROS_SLIB_ENTRY(LibClose, example, 2),
 504     AROS_SLIB_ENTRY(LibExpunge, example, 3),
 505     #else
 506     AROS_SLIB_ENTRY(LibOpen, example),
 507     AROS_SLIB_ENTRY(LibClose, example),
 508     AROS_SLIB_ENTRY(LibExpunge, example),
 509     #endif
 510   #else
 511   (APTR)LibOpen,
 512   (APTR)LibClose,
 513   (APTR)LibExpunge,
 514   #endif
 515   (APTR)LibNull,
 516   (APTR)libvector,
 517   (APTR)-1
 518 };
 519
 520 STATIC CONST ULONG LibInitTab[] =
 521 {
 522   sizeof(struct LibraryHeader),
 523   (ULONG)LibVectors,
 524   (ULONG)NULL,
 525   (ULONG)LibInit
 526 };
 527
 528 #endif
 529
 530 /* ------------------- ROM Tag ------------------------ */
 531 static const USED_VAR struct Resident ROMTag =
 532 {
 533   RTC_MATCHWORD,
 534   (struct Resident *)&ROMTag,
 535   (struct Resident *)&ROMTag + 1,
 536   #if defined(__amigaos4__)
 537   RTF_AUTOINIT|RTF_NATIVE,      // The Library should be set up according to the given table.
 538   #elif defined(__MORPHOS__)
 539   RTF_AUTOINIT|RTF_PPC,
 540   #elif defined(__AROS__)
 541   RTF_AUTOINIT|RTF_EXTENDED,
 542   #else
 543   RTF_AUTOINIT,
 544   #endif
 545   VERSION,
 546   NT_LIBRARY,
 547   0,
 548   (APTR)UserLibName,
 549   VSTRING,
 550   #if defined(__amigaos4__)
 551   (APTR)LibCreateTags           // This table is for initializing the Library.
 552   #else
 553   (APTR)LibInitTab
 554   #endif
 555 };
 556
 557 #if defined(__MORPHOS__)
 558 /*
 559  * To tell the loader that this is a new emulppc elf and not
 560  * one for the ppc.library.
 561  * ** IMPORTANT **
 562  */
 563 ULONG   USED_VAR __amigappc__=1;
 564 ULONG   USED_VAR __abox__=1;
 565
 566 #endif /* __MORPHOS */
 567
 568 /******************************************************************************/
 569 /* Standard Library Functions, all of them are called in Forbid() state.      */
 570 /******************************************************************************/
 571
 572 #ifndef __amigaos4__
 573 #define DeleteLibrary(LIB) \
 574   FreeMem((STRPTR)(LIB)-(LIB)->lib_NegSize, (ULONG)((LIB)->lib_NegSize+(LIB)->lib_PosSize))
 575 #endif
 576
 577 #if defined(__amigaos4__)
 578 static struct LibraryHeader * LibInit(struct LibraryHeader *base, BPTR librarySegment, struct ExecIFace *pIExec)
 579 {
 580   struct ExecBase *sb = (struct ExecBase *)pIExec->Data.LibBase;
 581   IExec = pIExec;
 582 #elif defined(__MORPHOS__)
 583 static struct LibraryHeader * LibInit(struct LibraryHeader *base, BPTR librarySegment, struct ExecBase *sb)
 584 {
 585 #elif defined(__AROS__)
 586 static AROS_UFH3(struct LibraryHeader *, LibInit,
 587                  AROS_UFHA(struct LibraryHeader *, base, D0),
 588                  AROS_UFHA(BPTR, librarySegment, A0),
 589                  AROS_UFHA(struct ExecBase *, sb, A6)
 590 )
 591 {
 592   AROS_USERFUNC_INIT
 593 #else
 594 LIBFUNC static struct LibraryHeader * LibInit(REG(a0, BPTR librarySegment), REG(d0, struct LibraryHeader *base), REG(a6, struct ExecBase *sb))
 595 {
 596 #endif
 597
 598   SysBase = (APTR)sb;
 599
 600   base->libBase.lib_Node.ln_Type = NT_LIBRARY;
 601   base->libBase.lib_Node.ln_Pri  = 0;
 602   base->libBase.lib_Node.ln_Name = (char *)UserLibName;
 603   base->libBase.lib_Flags        = LIBF_CHANGED | LIBF_SUMUSED;
 604   base->libBase.lib_Version      = VERSION;
 605   base->libBase.lib_Revision     = REVISION;
 606   base->libBase.lib_IdString     = (char *)UserLibID;
 607
 608   base->segList = librarySegment;
 609   base->sysBase = (APTR)SysBase;
 610
 611   return(base);
 612 #if defined(__AROS__)
 613     AROS_USERFUNC_EXIT
 614 #endif
 615 }
 616
 617 #if defined(__amigaos4__)
 618 static BPTR LibExpunge(struct LibraryManagerInterface *Self)
 619 {
 620   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 621 #elif defined(__MORPHOS__)
 622 static BPTR LibExpunge(void)
 623 {
 624         struct LibraryHeader *base = (struct LibraryHeader*)REG_A6;
 625 #elif defined(__AROS__)
 626 static AROS_LH1(BPTR, LibExpunge,
 627   AROS_LHA(UNUSED struct LibraryHeader *, __extrabase, D0),
 628   struct LibraryHeader *, base, 3, example
 629 )
 630 {
 631     AROS_LIBFUNC_INIT
 632 #else
 633 LIBFUNC static BPTR LibExpunge(REG(a6, struct LibraryHeader *base))
 634 {
 635 #endif
 636   BPTR rc;
 637
 638   if(base->libBase.lib_OpenCnt > 0)
 639   {
 640     base->libBase.lib_Flags |= LIBF_DELEXP;
 641     return(0);
 642   }
 643
 644   SysBase = (APTR)base->sysBase;
 645   rc = base->segList;
 646
 647   Remove((struct Node *)base);
 648   DeleteLibrary(&base->libBase);
 649
 650   return(rc);
 651 #if defined(__AROS__)
 652   AROS_LIBFUNC_EXIT
 653 #endif
 654 }
 655
 656 #if defined(__amigaos4__)
 657 static struct LibraryHeader *LibOpen(struct LibraryManagerInterface *Self, ULONG version)
 658 {
 659   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 660 #elif defined(__MORPHOS__)
 661 static struct LibraryHeader *LibOpen(void)
 662 {
 663   struct LibraryHeader *base = (struct LibraryHeader*)REG_A6;
 664 #elif defined(__AROS__)
 665 static AROS_LH1(struct LibraryHeader *, LibOpen,
 666                 AROS_LHA(UNUSED ULONG, version, D0),
 667                 struct LibraryHeader *, base, 1, example
 668 )
 669 {
 670   AROS_LIBFUNC_INIT
 671 #else
 672 LIBFUNC static struct LibraryHeader * LibOpen(REG(a6, struct LibraryHeader *base))
 673 {
 674 #endif
 675
 676   base->libBase.lib_Flags &= ~LIBF_DELEXP;
 677   base->libBase.lib_OpenCnt++;
 678
 679   return base;
 680 #if defined(__AROS__)
 681   AROS_LIBFUNC_EXIT
 682 #endif
 683 }
 684
 685 #if defined(__amigaos4__)
 686 static BPTR LibClose(struct LibraryManagerInterface *Self)
 687 {
 688   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 689 #elif defined(__MORPHOS__)
 690 static BPTR LibClose(void)
 691 {
 692   struct LibraryHeader *base = (struct LibraryHeader *)REG_A6;
 693 #elif defined(__AROS__)
 694 static AROS_LH0(BPTR, LibClose,
 695                 struct LibraryHeader *, base, 2, example
 696 )
 697 {
 698   AROS_LIBFUNC_INIT
 699 #else
 700 LIBFUNC static BPTR LibClose(REG(a6, struct LibraryHeader *base))
 701 {
 702 #endif
 703
 704   if(base->libBase.lib_OpenCnt > 0 &&
 705      --base->libBase.lib_OpenCnt == 0)
 706   {
 707     if(base->libBase.lib_Flags & LIBF_DELEXP)
 708     {
 709       #if defined(__amigaos4__)
 710       return LibExpunge(Self);
 711       #elif defined(__MORPHOS__)
 712       return LibExpunge();
 713       #elif defined(__AROS__)
 714       return example_3_LibExpunge(base, base);
 715       #else
 716       return LibExpunge(base);
 717       #endif
 718     }
 719   }
 720
 721   return 0;
 722 #if defined(__AROS__)
 723   AROS_LIBFUNC_EXIT
 724 #endif
 725 }