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