2 Copyright © 1995-2006, The AROS Development Team. All rights reserved.
5 Desc: RexxSys initialization code.
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;
32 ADD2INITLIB(InitData
, 0);