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(struct RexxSysBase_intern *RSBI)
  20 {
  21    struct RxsLib *RexxSysBase = &RSBI->library;
  22    RSBI->rexxmsgid = "RexxMsgId";
  23    InitSemaphore(&RSBI->semaphore);
  24    NewList(&RexxSysBase->rl_LibList);
  25    RexxSysBase->rl_NumLib = 0;
  26    NewList(&RexxSysBase->rl_ClipList);
  27    RexxSysBase->rl_NumClip = 0;
  28
  29    return TRUE;
  30 }
  31
  32 ADD2INITLIB(InitData, 0);