test/exec/makelib.c

   1 /* Create a Library, add it to the system, and try to open it.
   2  */
   3
   4 #define DUMMY_OPEN_BUG 1
   5 #define INIT_DEBUG_BUG 0
   6 #define REMOVE_DUMMY 1
   7
   8 #include <exec/types.h>
   9 #include <exec/libraries.h>
  10 #include <proto/exec.h>
  11
  12 #ifndef AROS_ASMCALL_H
  13 #   include <aros/asmcall.h>
  14 #endif
  15
  16 struct DummyBase
  17 {
  18     struct Library              library;
  19     struct ExecBase             *sysbase;
  20 };
  21
  22 #undef SysBase
  23 #define SysBase         (DummyBase->sysbase)
  24
  25 #define DEBUG 1
  26 #include <aros/debug.h>
  27
  28 /********/
  29
  30 AROS_UFH3(struct DummyBase *,LIB_init,
  31         AROS_LHA(struct DummyBase *, DummyBase, D0),
  32         AROS_LHA(ULONG, seglist, A0),
  33         AROS_LHA(struct ExecBase *, sysbase, A6))
  34 {
  35     AROS_USERFUNC_INIT
  36
  37 #if INIT_DEBUG_BUG
  38     D(bug("in LIB_init a\n")); /* segfaults */
  39 #endif
  40     DummyBase->sysbase = sysbase;
  41
  42     DummyBase->library.lib_Node.ln_Type = NT_LIBRARY;
  43     DummyBase->library.lib_Node.ln_Name =  "dummy.library";
  44     DummyBase->library.lib_Flags = LIBF_SUMUSED | LIBF_CHANGED;
  45     DummyBase->library.lib_Version = 1;
  46     DummyBase->library.lib_Revision = 0;
  47     DummyBase->library.lib_IdString = "dummy.library";
  48
  49     D(bug("dummy.library: Init succesfull\n"));
  50     return DummyBase;
  51
  52     AROS_USERFUNC_EXIT
  53 }
  54
  55 /********/
  56
  57 AROS_LH1(struct DummyBase *, LIB_open,
  58     AROS_LHA(ULONG, version, D0),
  59     struct DummyBase *, DummyBase, 1, Dummy)
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     DummyBase->library.lib_OpenCnt++;
  64     DummyBase->library.lib_Flags &= ~LIBF_DELEXP;
  65     return DummyBase;
  66
  67     AROS_LIBFUNC_EXIT
  68 }
  69
  70 /********/
  71
  72 AROS_UFH1(ULONG,LIB_expunge,
  73         AROS_UFHA(struct DummyBase *, DummyBase, A6))
  74 {
  75     AROS_USERFUNC_INIT
  76
  77     if (DummyBase->library.lib_OpenCnt == 0)
  78         Remove((struct Node *)DummyBase);
  79     else
  80         DummyBase->library.lib_Flags |= LIBF_DELEXP;
  81     return 0;
  82
  83     AROS_USERFUNC_EXIT
  84 }
  85
  86 /********/
  87
  88 AROS_UFH1(ULONG,LIB_close,
  89         AROS_UFHA(struct DummyBase *, DummyBase, D0))
  90 {
  91     AROS_USERFUNC_INIT
  92
  93     ULONG ret = 0;
  94
  95     DummyBase->library.lib_OpenCnt--;
  96     if (!DummyBase->library.lib_OpenCnt)
  97         if (DummyBase->library.lib_Flags & LIBF_DELEXP)
  98             ret = AROS_UFC1(ULONG,LIB_expunge,
  99                             AROS_UFCA(struct DummyBase *, DummyBase, A6));
 100     return ret;
 101
 102     AROS_USERFUNC_EXIT
 103 }
 104
 105 /********/
 106
 107 int LIB_reserved(void)
 108 {
 109     return 0;
 110 }
 111
 112 static struct Library *dummylib;
 113
 114 static void *function_array[] =
 115 {
 116   AROS_SLIB_ENTRY(LIB_open, Dummy, 1),
 117   LIB_close,
 118   LIB_expunge,
 119   LIB_reserved,
 120   (void*)~0,
 121 };
 122
 123 /* Must use the global sysbase */
 124 #undef SysBase
 125
 126 static struct Library *dummy = NULL;
 127
 128 int AddDummy(void)
 129 {
 130     D(bug("*** at %s:%d\n", __FUNCTION__, __LINE__));
 131
 132     dummylib = MakeLibrary(function_array,NULL,
 133                            (ULONG_FUNC)LIB_init,
 134                            sizeof(struct DummyBase),BNULL);
 135
 136     D(bug("*** at %s:%d\n", __FUNCTION__, __LINE__));
 137     if (dummylib)
 138     {
 139         AddLibrary(dummylib);
 140 #if DUMMY_OPEN_BUG
 141         D(bug("%s: before OpenLibrary\n", __FUNCTION__));
 142         dummy = OpenLibrary("dummy.library", 0); /* segfaults */
 143         D(bug("%s: after OpenLibrary\n", __FUNCTION__));
 144         if (!dummy)
 145             return 0;
 146 #endif
 147         return 1;
 148     }
 149     return 0;
 150 }
 151
 152 int RemoveDummy(void)
 153 {
 154     if (dummy)
 155         CloseLibrary(dummy);
 156     if (dummylib)
 157     {
 158         RemLibrary(dummylib);
 159     }
 160     return 1;
 161 }
 162
 163 int __nocommandline = 1;
 164
 165 int main (void)
 166 {
 167     AddDummy();
 168 #if REMOVE_DUMMY
 169     RemoveDummy();
 170 #endif
 171
 172     return 0;
 173 }
 174