workbench/libs/mathtrans/mathtrans_init.c

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