regina/regina_init.c

   1 /*
   2   Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3   $Id$
   4
   5   Desc: Regina code for initialization during opening and closing of the library
   6 */
   7
   8 #define DEBUG 0
   9 #include <exec/types.h>
  10 #include <exec/memory.h>
  11 #include <aros/libcall.h>
  12 #include <aros/debug.h>
  13 #include <proto/exec.h>
  14 #include <proto/alib.h>
  15 #include <proto/dos.h>
  16
  17 #include <stddef.h>
  18 #include "rexx.h"
  19
  20 #include <aros/symbolsets.h>
  21 #include LC_LIBDEFS_FILE
  22
  23 struct MinList *__regina_tsdlist = NULL;
  24
  25 static int InitLib(LIBBASETYPEPTR LIBBASE)
  26 {
  27    D(bug("Inside Init func of regina.library\n"));
  28
  29    __regina_semaphorepool = CreatePool(MEMF_PUBLIC, 1024, 256);
  30
  31    __regina_tsdlist = (struct MinList *)AllocPooled (__regina_semaphorepool, sizeof(struct MinList));
  32    NewList((struct List *)__regina_tsdlist);
  33
  34    return TRUE;
  35 }
  36
  37 static int ExpungeLib(LIBBASETYPEPTR LIBBASE)
  38 {
  39    D(bug("Inside Expunge func of regina.library\n"));
  40
  41    DeletePool(__regina_semaphorepool);
  42
  43    return TRUE;
  44 }
  45
  46 ADD2INITLIB(InitLib, 0);
  47 ADD2EXPUNGELIB(ExpungeLib, 0);