revert between 56095 -> 55830 in arch
[AROS.git] / workbench / libs / rexxsyslib / rexxsyslib_init.c
blobaae1533daccea391ca94f78197d59000fd430ea7
1 /*
2 Copyright © 1995-2006, The AROS Development Team. All rights reserved.
3 $Id$
5 Desc: RexxSys initialization code.
6 Lang: English
7 */
9 #include <aros/debug.h>
11 #include <proto/exec.h>
12 #include <proto/alib.h>
14 #include "rexxsyslib_intern.h"
16 #include <aros/symbolsets.h>
17 #include LC_LIBDEFS_FILE
19 static int InitData(struct RexxSysBase_intern *RSBI)
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;
29 return TRUE;
32 ADD2INITLIB(InitData, 0);