workbench/libs/mathieeesingtrans/mathieeesingtrans_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Init of mathieeesingtrans.library
   6     Lang: english
   7 */
   8
   9 #include <aros/symbolsets.h>
  10
  11 #include "mathieeesingtrans_intern.h"
  12 #include LC_LIBDEFS_FILE
  13
  14 #define DEBUG 0
  15 #include <aros/debug.h>
  16 #undef kprintf
  17
  18 struct Library * MathIeeeSingBasBase;
  19
  20 static int Init(LIBBASETYPEPTR LIBBASE)
  21 {
  22     MathIeeeSingBasBase = OpenLibrary ("mathieeesingbas.library", 39);
  23     if (!MathIeeeSingBasBase)
  24         return FALSE;
  25
  26     return TRUE;
  27 }
  28
  29
  30 static int Expunge(LIBBASETYPEPTR LIBBASE)
  31 {
  32     if (MathIeeeSingBasBase)
  33         CloseLibrary ((struct Library *)MathIeeeSingBasBase);
  34
  35     return TRUE;
  36 }
  37
  38 ADD2INITLIB(Init, 0);
  39 ADD2EXPUNGELIB(Expunge, 0);