workbench/libs/rexxsyslib/rexxsyslib_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: RexxSys initialization code.
   6     Lang: English
   7 */
   8
   9 #include <aros/debug.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/alib.h>
  13
  14 #include "rexxsyslib_intern.h"
  15
  16 #include <aros/symbolsets.h>
  17 #include LC_LIBDEFS_FILE
  18
  19 static int InitData(LIBBASETYPEPTR LIBBASE)
  20 {
  21    LIBBASE->rexxmsgid = "RexxMsgId";
  22    InitSemaphore(&LIBBASE->semaphore);
  23    NewList(&LIBBASE->library.rl_LibList);
  24    LIBBASE->library.rl_NumLib = 0;
  25    NewList(&LIBBASE->library.rl_ClipList);
  26    LIBBASE->library.rl_NumClip = 0;
  27
  28    return TRUE;
  29 }
  30
  31 ADD2INITLIB(InitData, 0);