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__) || defined(__AROS__)
  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   BPTR            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 LibraryHeader *, __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 LibraryHeader *, __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 LibraryHeader *, __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 LibraryHeader *, __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 LibraryHeader *, __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 static AROS_UFP3 (struct LibraryHeader *, LibInit,
 263                   AROS_UFPA(struct LibraryHeader *, base, D0),
 264                   AROS_UFPA(BPTR, librarySegment, A0),
 265                   AROS_UFPA(struct ExecBase *, sb, A6)
 266 );
 267 static AROS_LD1 (struct LibraryHeader *, LibOpen,
 268                  AROS_LPA (UNUSED ULONG, version, D0),
 269                  struct LibraryHeader *, base, 1, example
 270 );
 271 static AROS_LD0 (BPTR, LibClose,
 272                  struct LibraryHeader *, base, 2, example
 273 );
 274 static AROS_LD1(BPTR, LibExpunge,
 275                 AROS_LPA(UNUSED struct LibraryHeader *, __extrabase, D0),
 276                 struct LibraryHeader *, base, 3, example
 277 );
 278
 279 #else
 280
 281 LIBFUNC static struct LibraryHeader * LibInit    (REG(a0, BPTR Segment), REG(d0, struct LibraryHeader *lh), REG(a6, struct ExecBase *sb));
 282 LIBFUNC static BPTR                   LibExpunge (REG(a6, struct LibraryHeader *base));
 283 LIBFUNC static struct LibraryHeader * LibOpen    (REG(a6, struct LibraryHeader *base));
 284 LIBFUNC static BPTR                   LibClose   (REG(a6, struct LibraryHeader *base));
 285 LIBFUNC static LONG                   LibNull    (void);
 286
 287 #endif
 288
 289 /******************************************************************************/
 290 /* Dummy entry point and LibNull() function all in one                        */
 291 /******************************************************************************/
 292
 293 #if defined(__amigaos4__)
 294 int _start(void)
 295 #elif defined(__AROS__)
 296 __startup int Main(void)
 297 #else
 298 int Main(void)
 299 #endif
 300 {
 301   return RETURN_FAIL;
 302 }
 303
 304 #if !defined(__amigaos4__)
 305 LIBFUNC static LONG LibNull(VOID)
 306 {
 307   return(0);
 308 }
 309 #endif
 310
 311 /******************************************************************************/
 312 /* Local data structures                                                      */
 313 /******************************************************************************/
 314
 315 #if defined(__amigaos4__)
 316 /* ------------------- OS4 Manager Interface ------------------------ */
 317 STATIC ULONG LibObtain(struct LibraryManagerInterface *Self)
 318 {
 319   return(Self->Data.RefCount++);
 320 }
 321
 322 STATIC ULONG LibRelease(struct LibraryManagerInterface *Self)
 323 {
 324   return(Self->Data.RefCount--);
 325 }
 326
 327 STATIC CONST APTR LibManagerVectors[] =
 328 {
 329   (APTR)LibObtain,
 330   (APTR)LibRelease,
 331   (APTR)NULL,
 332   (APTR)NULL,
 333   (APTR)LibOpen,
 334   (APTR)LibClose,
 335   (APTR)LibExpunge,
 336   (APTR)NULL,
 337   (APTR)-1
 338 };
 339
 340 STATIC CONST struct TagItem LibManagerTags[] =
 341 {
 342   {MIT_Name,             (ULONG)"__library"},
 343   {MIT_VectorTable,      (ULONG)LibManagerVectors},
 344   {MIT_Version,          1},
 345   {TAG_DONE,             0}
 346 };
 347
 348 /* ------------------- Library Interface(s) ------------------------ */
 349
 350 STATIC CONST APTR LibVectors[] =
 351 {
 352   (APTR)LibObtain,
 353   (APTR)LibRelease,
 354   (APTR)NULL,
 355   (APTR)NULL,
 356   (APTR)libvector,
 357   (APTR)-1
 358 };
 359
 360 STATIC CONST struct TagItem MainTags[] =
 361 {
 362   {MIT_Name,              (ULONG)"main"},
 363   {MIT_VectorTable,       (ULONG)LibVectors},
 364   {MIT_Version,           1},
 365   {TAG_DONE,              0}
 366 };
 367
 368
 369 STATIC CONST ULONG LibInterfaces[] =
 370 {
 371   (ULONG)LibManagerTags,
 372   (ULONG)MainTags,
 373   (ULONG)0
 374 };
 375
 376 /* --------------------- m68k Library stubs ------------------------ */
 377
 378 STATIC ULONG stub_OpenPPC(ULONG *regarray)
 379 {
 380         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 381         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 382         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 383
 384         return (ULONG) Self->Open(0);
 385 }
 386 struct EmuTrap stub_Open = { TRAPINST, TRAPTYPE, stub_OpenPPC };
 387
 388 STATIC ULONG stub_ClosePPC(ULONG *regarray)
 389 {
 390         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 391         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 392         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 393
 394         return (ULONG) Self->Close();
 395 }
 396 struct EmuTrap stub_Close = { TRAPINST, TRAPTYPE, stub_ClosePPC };
 397
 398 STATIC ULONG stub_ExpungePPC(ULONG *regarray)
 399 {
 400   return 0UL;
 401 }
 402 struct EmuTrap stub_Expunge = { TRAPINST, TRAPTYPE, stub_ExpungePPC };
 403
 404 STATIC ULONG stub_ReservedPPC(ULONG *regarray)
 405 {
 406   return 0UL;
 407 }
 408 struct EmuTrap stub_Reserved = { TRAPINST, TRAPTYPE, stub_ReservedPPC };
 409
 410 STATIC ULONG stub_SayHelloOS4PPC(ULONG *regarray)
 411 {
 412         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 413         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 414         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 415
 416         return (char *)Self->SayHelloOS4();
 417 }
 418 struct EmuTrap stub_SayHelloOS4 = { TRAPINST, TRAPTYPE, stub_SayHelloOS4PPC };
 419
 420 STATIC ULONG stub_SayHelloOS3PPC(ULONG *regarray)
 421 {
 422         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 423         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 424         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 425
 426         return (char *)Self->SayHelloOS3();
 427 }
 428 struct EmuTrap stub_SayHelloOS3 = { TRAPINST, TRAPTYPE, stub_SayHelloOS3PPC };
 429
 430 STATIC ULONG stub_SayHelloMOSPPC(ULONG *regarray)
 431 {
 432         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 433         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 434         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 435
 436         return (char *)Self->SayHelloMOS();
 437 }
 438 struct EmuTrap stub_SayHelloMOS = { TRAPINST, TRAPTYPE, stub_SayHelloMOSPPC };
 439
 440 STATIC ULONG stub_UppercasePPC(ULONG *regarray)
 441 {
 442         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 443         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 444         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 445
 446         return (char *)Self->Uppercase(
 447                 (char *)regarray[8]
 448         );
 449 }
 450 struct EmuTrap stub_Uppercase = { TRAPINST, TRAPTYPE, stub_UppercasePPC };
 451
 452 STATIC ULONG stub_SPrintfAPPC(ULONG *regarray)
 453 {
 454         struct Library *Base = (struct Library *) regarray[REG68K_A6/4];
 455         struct ExtendedLibrary *ExtLib = (struct ExtendedLibrary *) ((ULONG)Base + Base->lib_PosSize);
 456         struct LibraryManagerInterface *Self = (struct LibraryManagerInterface *) ExtLib->ILibrary;
 457
 458         return (char *)Self->SPrintfA(
 459                 (char *)regarray[8],
 460                 (char *)regarray[9],
 461                 (APTR)regarray[10]
 462         );
 463 }
 464 struct EmuTrap stub_SPrintfA = { TRAPINST, TRAPTYPE, stub_SPrintfAPPC };
 465
 466 STATIC ULONG VecTable68K[] =
 467 {
 468   (ULONG)&stub_Open,
 469   (ULONG)&stub_Close,
 470   (ULONG)&stub_Expunge,
 471   (ULONG)&stub_Reserved,
 472   (ULONG)&stub_SayHelloOS4,
 473   (ULONG)&stub_SayHelloOS3,
 474   (ULONG)&stub_SayHelloMOS,
 475   (ULONG)&stub_Uppercase,
 476   (ULONG)&stub_SprintfA,
 477   (ULONG)-1
 478 };
 479
 480 /* ----------------------- LibCreate Tags -------------------------- */
 481
 482 STATIC CONST struct TagItem LibCreateTags[] =
 483 {
 484   {CLT_DataSize,   (ULONG)(sizeof(struct LibraryHeader))},
 485   {CLT_InitFunc,   (ULONG)LibInit},
 486   {CLT_Interfaces, (ULONG)LibInterfaces},
 487   {CLT_Vector68K,  (ULONG)VecTable68K},
 488   {TAG_DONE,       0}
 489 };
 490
 491 #else
 492
 493 STATIC CONST APTR LibVectors[] =
 494 {
 495   #ifdef __MORPHOS__
 496   (APTR)FUNCARRAY_32BIT_NATIVE,
 497   #endif
 498   #if defined(__AROS__)
 499     #ifdef AROS_ABI_V1
 500     AROS_SLIB_ENTRY(LibOpen, example, 1),
 501     AROS_SLIB_ENTRY(LibClose, example, 2),
 502     AROS_SLIB_ENTRY(LibExpunge, example, 3),
 503     #else
 504     AROS_SLIB_ENTRY(LibOpen, example),
 505     AROS_SLIB_ENTRY(LibClose, example),
 506     AROS_SLIB_ENTRY(LibExpunge, example),
 507     #endif
 508   #else
 509   (APTR)LibOpen,
 510   (APTR)LibClose,
 511   (APTR)LibExpunge,
 512   #endif
 513   (APTR)LibNull,
 514   (APTR)libvector,
 515   (APTR)-1
 516 };
 517
 518 STATIC CONST IPTR LibInitTab[] =
 519 {
 520   sizeof(struct LibraryHeader),
 521   (IPTR)LibVectors,
 522   (IPTR)NULL,
 523   (IPTR)LibInit
 524 };
 525
 526 #endif
 527
 528 /* ------------------- ROM Tag ------------------------ */
 529 static const USED_VAR struct Resident ROMTag =
 530 {
 531   RTC_MATCHWORD,
 532   (struct Resident *)&ROMTag,
 533   (struct Resident *)&ROMTag + 1,
 534   #if defined(__amigaos4__)
 535   RTF_AUTOINIT|RTF_NATIVE,      // The Library should be set up according to the given table.
 536   #elif defined(__MORPHOS__)
 537   RTF_AUTOINIT|RTF_PPC,
 538   #elif defined(__AROS__)
 539   RTF_AUTOINIT|RTF_EXTENDED,
 540   #else
 541   RTF_AUTOINIT,
 542   #endif
 543   VERSION,
 544   NT_LIBRARY,
 545   0,
 546   (APTR)UserLibName,
 547   VSTRING,
 548   #if defined(__amigaos4__)
 549   (APTR)LibCreateTags           // This table is for initializing the Library.
 550   #else
 551   (APTR)LibInitTab
 552   #endif
 553 };
 554
 555 #if defined(__MORPHOS__)
 556 /*
 557  * To tell the loader that this is a new emulppc elf and not
 558  * one for the ppc.library.
 559  * ** IMPORTANT **
 560  */
 561 ULONG   USED_VAR __amigappc__=1;
 562 ULONG   USED_VAR __abox__=1;
 563
 564 #endif /* __MORPHOS */
 565
 566 /******************************************************************************/
 567 /* Standard Library Functions, all of them are called in Forbid() state.      */
 568 /******************************************************************************/
 569
 570 #ifndef __amigaos4__
 571 #define DeleteLibrary(LIB) \
 572   FreeMem((STRPTR)(LIB)-(LIB)->lib_NegSize, (ULONG)((LIB)->lib_NegSize+(LIB)->lib_PosSize))
 573 #endif
 574
 575 #if defined(__amigaos4__)
 576 static struct LibraryHeader * LibInit(struct LibraryHeader *base, BPTR librarySegment, struct ExecIFace *pIExec)
 577 {
 578   struct ExecBase *sb = (struct ExecBase *)pIExec->Data.LibBase;
 579   IExec = pIExec;
 580 #elif defined(__MORPHOS__)
 581 static struct LibraryHeader * LibInit(struct LibraryHeader *base, BPTR librarySegment, struct ExecBase *sb)
 582 {
 583 #elif defined(__AROS__)
 584 static AROS_UFH3(struct LibraryHeader *, LibInit,
 585                  AROS_UFHA(struct LibraryHeader *, base, D0),
 586                  AROS_UFHA(BPTR, librarySegment, A0),
 587                  AROS_UFHA(struct ExecBase *, sb, A6)
 588 )
 589 {
 590   AROS_USERFUNC_INIT
 591 #else
 592 LIBFUNC static struct LibraryHeader * LibInit(REG(a0, BPTR librarySegment), REG(d0, struct LibraryHeader *base), REG(a6, struct ExecBase *sb))
 593 {
 594 #endif
 595
 596   SysBase = (APTR)sb;
 597
 598   base->libBase.lib_Node.ln_Type = NT_LIBRARY;
 599   base->libBase.lib_Node.ln_Pri  = 0;
 600   base->libBase.lib_Node.ln_Name = (char *)UserLibName;
 601   base->libBase.lib_Flags        = LIBF_CHANGED | LIBF_SUMUSED;
 602   base->libBase.lib_Version      = VERSION;
 603   base->libBase.lib_Revision     = REVISION;
 604   base->libBase.lib_IdString     = (char *)UserLibID;
 605
 606   base->segList = librarySegment;
 607   base->sysBase = (APTR)SysBase;
 608
 609   return(base);
 610 #if defined(__AROS__)
 611     AROS_USERFUNC_EXIT
 612 #endif
 613 }
 614
 615 #if defined(__amigaos4__)
 616 static BPTR LibExpunge(struct LibraryManagerInterface *Self)
 617 {
 618   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 619 #elif defined(__MORPHOS__)
 620 static BPTR LibExpunge(void)
 621 {
 622         struct LibraryHeader *base = (struct LibraryHeader*)REG_A6;
 623 #elif defined(__AROS__)
 624 static AROS_LH1(BPTR, LibExpunge,
 625   AROS_LHA(UNUSED struct LibraryHeader *, __extrabase, D0),
 626   struct LibraryHeader *, base, 3, example
 627 )
 628 {
 629     AROS_LIBFUNC_INIT
 630 #else
 631 LIBFUNC static BPTR LibExpunge(REG(a6, struct LibraryHeader *base))
 632 {
 633 #endif
 634   BPTR rc;
 635
 636   if(base->libBase.lib_OpenCnt > 0)
 637   {
 638     base->libBase.lib_Flags |= LIBF_DELEXP;
 639     return(0);
 640   }
 641
 642   SysBase = (APTR)base->sysBase;
 643   rc = base->segList;
 644
 645   Remove((struct Node *)base);
 646   DeleteLibrary(&base->libBase);
 647
 648   return(rc);
 649 #if defined(__AROS__)
 650   AROS_LIBFUNC_EXIT
 651 #endif
 652 }
 653
 654 #if defined(__amigaos4__)
 655 static struct LibraryHeader *LibOpen(struct LibraryManagerInterface *Self, ULONG version)
 656 {
 657   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 658 #elif defined(__MORPHOS__)
 659 static struct LibraryHeader *LibOpen(void)
 660 {
 661   struct LibraryHeader *base = (struct LibraryHeader*)REG_A6;
 662 #elif defined(__AROS__)
 663 static AROS_LH1(struct LibraryHeader *, LibOpen,
 664                 AROS_LHA(UNUSED ULONG, version, D0),
 665                 struct LibraryHeader *, base, 1, example
 666 )
 667 {
 668   AROS_LIBFUNC_INIT
 669 #else
 670 LIBFUNC static struct LibraryHeader * LibOpen(REG(a6, struct LibraryHeader *base))
 671 {
 672 #endif
 673
 674   base->libBase.lib_Flags &= ~LIBF_DELEXP;
 675   base->libBase.lib_OpenCnt++;
 676
 677   return base;
 678 #if defined(__AROS__)
 679   AROS_LIBFUNC_EXIT
 680 #endif
 681 }
 682
 683 #if defined(__amigaos4__)
 684 static BPTR LibClose(struct LibraryManagerInterface *Self)
 685 {
 686   struct LibraryHeader *base = (struct LibraryHeader *)Self->Data.LibBase;
 687 #elif defined(__MORPHOS__)
 688 static BPTR LibClose(void)
 689 {
 690   struct LibraryHeader *base = (struct LibraryHeader *)REG_A6;
 691 #elif defined(__AROS__)
 692 static AROS_LH0(BPTR, LibClose,
 693                 struct LibraryHeader *, base, 2, example
 694 )
 695 {
 696   AROS_LIBFUNC_INIT
 697 #else
 698 LIBFUNC static BPTR LibClose(REG(a6, struct LibraryHeader *base))
 699 {
 700 #endif
 701
 702   if(base->libBase.lib_OpenCnt > 0 &&
 703      --base->libBase.lib_OpenCnt == 0)
 704   {
 705     if(base->libBase.lib_Flags & LIBF_DELEXP)
 706     {
 707       #if defined(__amigaos4__)
 708       return LibExpunge(Self);
 709       #elif defined(__MORPHOS__)
 710       return LibExpunge();
 711       #elif defined(__AROS__)
 712       return example_3_LibExpunge(base, base);
 713       #else
 714       return LibExpunge(base);
 715       #endif
 716     }
 717   }
 718
 719   return 0;
 720 #if defined(__AROS__)
 721   AROS_LIBFUNC_EXIT
 722 #endif
 723 }