/* ** $VER: StartUp.c 37.31 (18.3.98) ** ** Library startup-code and function table definition ** ** (C) Copyright 1996-98 Andreas R. Kleinert ** All Rights Reserved. */ #define __USE_SYSBASE // perhaps only recognized by SAS/C #include #include #include #include #include #include #ifdef __MAXON__ #include #include #else #include // all other compilers #endif #include "compiler.h" #ifdef __GNUC__ #include "../include/example/examplebase.h" #elif VBCC #include "include/example/examplebase.h" #else #include "/include/example/examplebase.h" #endif #include "SampleFuncs.h" extern ULONG __saveds __stdargs L_OpenLibs(struct ExampleBase *ExampleBase); extern void __saveds __stdargs L_CloseLibs(void); struct ExampleBase * __saveds ASM InitLib( register __a6 struct ExecBase *sysbase GNUCREG(a6), register __a0 SEGLISTPTR seglist GNUCREG(a0), register __d0 struct ExampleBase *exb GNUCREG(d0)); struct ExampleBase * __saveds ASM OpenLib( register __a6 struct ExampleBase *ExampleBase GNUCREG(a6)); SEGLISTPTR __saveds ASM CloseLib( register __a6 struct ExampleBase *ExampleBase GNUCREG(a6)); SEGLISTPTR __saveds ASM ExpungeLib( register __a6 struct ExampleBase *exb GNUCREG(a6)); ULONG ASM ExtFuncLib(void); /* ---------------------------------------------------------------------------------------- ! LibStart: ! ! If someone tries to start a library as an executable, it must return (LONG) -1 ! as result. That's what we are doing here. ---------------------------------------------------------------------------------------- */ LONG ASM LibStart(void) { return(-1); } /* ---------------------------------------------------------------------------------------- ! Function and Data Tables: ! ! The function and data tables have been placed here for traditional reasons. ! Placing the RomTag structure before (-> LibInit.c) would also be a good idea, ! but it depends on whether you would like to keep the "version" stuff separately. ---------------------------------------------------------------------------------------- */ extern APTR FuncTab []; /* extern struct MyDataInit DataTab; */ extern DataTab; /* DICE fix */ /* Instead you may place ROMTag + Datatab directly, here */ /* (see LibInit.c). This may fix "Installer" version */ /* checking problems, too - try it. */ struct InitTable /* do not change */ { ULONG LibBaseSize; APTR *FunctionTable; struct MyDataInit *DataTable; APTR InitLibTable; } InitTab = { (ULONG) sizeof(struct ExampleBase), (APTR *) &FuncTab[0], (struct MyDataInit *) &DataTab, (APTR) InitLib }; APTR FuncTab [] = { OpenLib, CloseLib, ExpungeLib, ExtFuncLib, EXF_TestRequest, /* add your own functions here */ (APTR) ((LONG)-1) }; extern struct ExampleBase *ExampleBase; /* ---------------------------------------------------------------------------------------- ! InitLib: ! ! This one is single-threaded by the Ramlib process. Theoretically you can do, what ! you like here, since you have full exclusive control over all the library code and data. ! But due to some bugs in Ramlib V37-40, you can easily cause a deadlock when opening ! certain libraries here (which open other libraries, that open other libraries, that...) ! ---------------------------------------------------------------------------------------- */ struct ExampleBase * __saveds ASM InitLib( register __a6 struct ExecBase *sysbase GNUCREG(a6), register __a0 SEGLISTPTR seglist GNUCREG(a0), register __d0 struct ExampleBase *exb GNUCREG(d0)) { ExampleBase = exb; ExampleBase->exb_SysBase = sysbase; ExampleBase->exb_SegList = seglist; if(L_OpenLibs(ExampleBase)) return(ExampleBase); L_CloseLibs(); { ULONG negsize, possize, fullsize; UBYTE *negptr = (UBYTE *) ExampleBase; negsize = ExampleBase->exb_LibNode.lib_NegSize; possize = ExampleBase->exb_LibNode.lib_PosSize; fullsize = negsize + possize; negptr -= negsize; FreeMem(negptr, fullsize); #ifdef __MAXON__ CleanupModules(); #endif } return(NULL); } /* ---------------------------------------------------------------------------------------- ! OpenLib: ! ! This one is enclosed within a Forbid/Permit pair by Exec V37-40. Since a Wait() call ! would break this Forbid/Permit(), you are not allowed to start any operations that ! may cause a Wait() during their processing. It's possible, that future OS versions ! won't turn the multi-tasking off, but instead use semaphore protection for this ! function. ! ! Currently you only can bypass this restriction by supplying your own semaphore ! mechanism. ---------------------------------------------------------------------------------------- */ struct ExampleBase * __saveds ASM OpenLib( register __a6 struct ExampleBase *ExampleBase GNUCREG(a6)) { #ifdef __MAXON__ GetBaseReg(); InitModules(); #endif ExampleBase->exb_LibNode.lib_OpenCnt++; ExampleBase->exb_LibNode.lib_Flags &= ~LIBF_DELEXP; return(ExampleBase); } /* ---------------------------------------------------------------------------------------- ! CloseLib: ! ! This one is enclosed within a Forbid/Permit pair by Exec V37-40. Since a Wait() call ! would break this Forbid/Permit(), you are not allowed to start any operations that ! may cause a Wait() during their processing. It's possible, that future OS versions ! won't turn the multi-tasking off, but instead use semaphore protection for this ! function. ! ! Currently you only can bypass this restriction by supplying your own semaphore ! mechanism. ---------------------------------------------------------------------------------------- */ SEGLISTPTR __saveds ASM CloseLib( register __a6 struct ExampleBase *ExampleBase GNUCREG(a6)) { ExampleBase->exb_LibNode.lib_OpenCnt--; if(!ExampleBase->exb_LibNode.lib_OpenCnt) { if(ExampleBase->exb_LibNode.lib_Flags & LIBF_DELEXP) { return( ExpungeLib(ExampleBase) ); } } return(NULL); } /* ---------------------------------------------------------------------------------------- ! ExpungeLib: ! ! This one is enclosed within a Forbid/Permit pair by Exec V37-40. Since a Wait() call ! would break this Forbid/Permit(), you are not allowed to start any operations that ! may cause a Wait() during their processing. It's possible, that future OS versions ! won't turn the multi-tasking off, but instead use semaphore protection for this ! function. ! ! Currently you only could bypass this restriction by supplying your own semaphore ! mechanism - but since expunging can't be done twice, one should avoid it here. ---------------------------------------------------------------------------------------- */ SEGLISTPTR __saveds ASM ExpungeLib( register __a6 struct ExampleBase *exb GNUCREG(a6)) { struct ExampleBase *ExampleBase = exb; SEGLISTPTR seglist; if(!ExampleBase->exb_LibNode.lib_OpenCnt) { ULONG negsize, possize, fullsize; UBYTE *negptr = (UBYTE *) ExampleBase; seglist = ExampleBase->exb_SegList; Remove((struct Node *)ExampleBase); L_CloseLibs(); negsize = ExampleBase->exb_LibNode.lib_NegSize; possize = ExampleBase->exb_LibNode.lib_PosSize; fullsize = negsize + possize; negptr -= negsize; FreeMem(negptr, fullsize); #ifdef __MAXON__ CleanupModules(); #endif return(seglist); } ExampleBase->exb_LibNode.lib_Flags |= LIBF_DELEXP; return(NULL); } /* ---------------------------------------------------------------------------------------- ! ExtFunct: ! ! This one is enclosed within a Forbid/Permit pair by Exec V37-40. Since a Wait() call ! would break this Forbid/Permit(), you are not allowed to start any operations that ! may cause a Wait() during their processing. It's possible, that future OS versions ! won't turn the multi-tasking off, but instead use semaphore protection for this ! function. ! ! Currently you only can bypass this restriction by supplying your own semaphore ! mechanism - but since this function currently is unused, you should not touch ! it, either. ---------------------------------------------------------------------------------------- */ ULONG ASM ExtFuncLib(void) { return(NULL); } struct ExampleBase *ExampleBase = NULL; /* ---------------------------------------------------------------------------------------- ! __SASC stuff: ! ! This is only for SAS/C - its intention is to turn off internal CTRL-C handling ! for standard C functions and to avoid calls to exit() et al. ---------------------------------------------------------------------------------------- */ #ifdef __SASC #ifdef ARK_OLD_STDIO_FIX ULONG XCEXIT = NULL; /* These symbols may be referenced by */ ULONG _XCEXIT = NULL; /* some functions of sc.lib, but should */ ULONG ONBREAK = NULL; /* never be used inside a shared library */ ULONG _ONBREAK = NULL; ULONG base = NULL; /* Note, that XCEXIT/ONBREAK actually */ ULONG _base = NULL; /* should have been defined as functions */ ULONG ProgramName = NULL; /* and not as ULONGs... */ ULONG _ProgramName = NULL; ULONG StackPtr = NULL; ULONG _StackPtr = NULL; ULONG oserr = NULL; ULONG _oserr = NULL; ULONG OSERR = NULL; ULONG _OSERR = NULL; #endif /* ARK_OLD_STDIO_FIX */ void __regargs __chkabort(void) { } /* a shared library cannot be */ void __regargs _CXBRK(void) { } /* CTRL-C aborted when doing I/O */ #endif /* __SASC */