workbench/libs/reqtools/reqtools_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     ReqTools initialization code.
   6 */
   7
   8 /****************************************************************************************/
   9
  10
  11 #include "reqtools_intern.h"
  12 #include <exec/types.h>
  13 #include <exec/resident.h>
  14 #include <dos/dos.h>
  15 #include <intuition/intuition.h>
  16 #include <devices/conunit.h>
  17 #include <utility/utility.h>
  18 #include <proto/exec.h>
  19 #include <proto/dos.h>
  20 #include <proto/intuition.h>
  21 #include <intuition/classes.h>
  22 #include <libraries/reqtools.h>
  23 #include <aros/symbolsets.h>
  24 #include <aros/macros.h>
  25
  26 #include <string.h>
  27
  28 #define DEBUG 1
  29 #include <aros/debug.h>
  30
  31 #include <exec/libraries.h>
  32 #include <exec/alerts.h>
  33 #include LC_LIBDEFS_FILE
  34
  35 #include "general.h"
  36 #include "boopsigads.h"
  37 #include "rtfuncs.h"
  38
  39 /****************************************************************************************/
  40
  41 /* Global variables */
  42
  43 #define __RT_DEFINEVARS
  44 #include "globalvars.h"
  45 #undef __RT_DEFINEVARS
  46
  47 /****************************************************************************************/
  48
  49
  50 static int Init(LIBBASETYPEPTR RTBase)
  51 {
  52     ReqToolsBase = (struct ReqToolsBase *)RTBase;
  53
  54     D(bug("reqtools.library: Inside libinit func\n"));
  55
  56     return RTFuncs_Init((struct ReqToolsBase *) RTBase, BNULL) != NULL;
  57 }
  58
  59 /****************************************************************************************/
  60
  61 static int OpenLib(LIBBASETYPEPTR RTBase)
  62 {
  63     D(bug("reqtools.library: Inside libopen func\n"));
  64
  65     /*
  66       This function is single-threaded by exec by calling Forbid.
  67       If you break the Forbid() another task may enter this function
  68       at the same time. Take care.
  69     */
  70
  71     D(bug("reqtools.library: Inside libopen func\n"));
  72
  73     return RTFuncs_Open((struct ReqToolsBase *) RTBase, 0) != NULL;
  74 }
  75
  76 /****************************************************************************************/
  77
  78 static void CloseLib(LIBBASETYPEPTR RTBase)
  79 {
  80     /*
  81         This function is single-threaded by exec by calling Forbid.
  82         If you break the Forbid() another task may enter this function
  83         at the same time. Take care.
  84     */
  85
  86     D(bug("reqtools.library: Inside libclose func.\n"));
  87
  88     RTFuncs_Close((struct ReqToolsBase *) RTBase);
  89 }
  90
  91 /****************************************************************************************/
  92
  93 static int Expunge(LIBBASETYPEPTR RTBase)
  94 {
  95     /*
  96         This function is single-threaded by exec by calling Forbid.
  97         Never break the Forbid() or strange things might happen.
  98     */
  99
 100     /* Test for openers. */
 101
 102     D(bug("reqtools.library: Inside libexpunge func.\n"));
 103
 104     return RTFuncs_Expunge((struct ReqToolsBase *) RTBase) != BNULL;
 105 }
 106
 107 /****************************************************************************************/
 108
 109 ADD2INITLIB(Init, 0);
 110 ADD2OPENLIB(OpenLib, 0);
 111 ADD2CLOSELIB(CloseLib, 0);
 112 ADD2EXPUNGELIB(Expunge, 0);