workbench/libs/realtime/realtime_init.c

   1 /*
   2     Copyright © 1995-2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Realtime.library initialization code.
   6     Lang: English.
   7 */
   8
   9 /* HISTORY:      25.06.99   SDuvan  Began implementing... */
  10
  11 #ifndef DEBUG
  12 #define DEBUG 0
  13 #endif
  14 #include <aros/debug.h>
  15
  16 #include <exec/types.h>
  17 #include <exec/resident.h>
  18 #include <proto/exec.h>
  19 #include <aros/symbolsets.h>
  20
  21 #include <exec/libraries.h>
  22
  23 #include "realtime_intern.h"
  24 #include LC_LIBDEFS_FILE
  25
  26
  27 BOOL AllocTimer(struct internal_RealTimeBase *RealTimeBase);
  28 void FreeTimer(struct internal_RealTimeBase *RealTimeBase);
  29
  30 static int Init(LIBBASETYPEPTR LIBBASE)
  31 {
  32     /* This function is single-threaded by exec by calling Forbid. */
  33
  34     WORD   i;                   /* Loop variable */
  35
  36     for(i = 0; i < RT_MAXLOCK; i++)
  37     {
  38         InitSemaphore(&RealTimeBase->rtb_Locks[i]);
  39     }
  40
  41     NEWLIST(&RealTimeBase->rtb_ConductorList);
  42
  43     if (!AllocTimer((struct internal_RealTimeBase *)RealTimeBase))
  44     {
  45         return FALSE;
  46     }
  47
  48     D(bug("[realtime.library] initialized\n");)
  49
  50     return TRUE;
  51 }
  52
  53
  54 static int Expunge(LIBBASETYPEPTR LIBBASE)
  55 {
  56     /*
  57         This function is single-threaded by exec by calling Forbid.
  58         Never break the Forbid() or strange things might happen.
  59     */
  60
  61     FreeTimer(RealTimeBase);
  62
  63     return TRUE;
  64 }
  65
  66
  67 ADD2INITLIB(Init, 0);
  68 ADD2EXPUNGELIB(Expunge, 0);