mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-04-15 00:15:30 +02:00
e3ac31986c
implemented also the interface to issue commands as an external function ( choice to be preferred IMO , no need change the script logic when it will be possible to script Hercules form the outside )
110 lines
3.5 KiB
C
110 lines
3.5 KiB
C
/* HREXX_O.C (c)Copyright Enrico Sorichetti, 2012 */
|
|
/* Rexx Interpreter Support (Object Rexx ) */
|
|
/* */
|
|
/* Released under "The Q Public License Version 1" */
|
|
/* (http://www.hercules-390.org/herclic.html) as modifications to */
|
|
/* Hercules. */
|
|
|
|
/* inspired by the previous Rexx implementation by Jan Jaeger */
|
|
|
|
#include "hstdinc.h"
|
|
|
|
#ifndef _HREXX_O_C_
|
|
#define _HREXX_O_C_
|
|
|
|
#if defined(ENABLE_OBJECT_REXX)
|
|
|
|
#define HREXXDROPVAR ObjectRexxDropVar
|
|
#define HREXXFETCHVAR ObjectRexxFetchVar
|
|
#define HREXXSETVAR ObjectRexxSetVar
|
|
#define HREXXEXECCMD ObjectRexxExecCmd
|
|
#define HREXXEXECINSTORECMD ObjectRexxExecInstoreCmd
|
|
#define HREXXEXECSUB ObjectRexxExecSub
|
|
|
|
#define HREXXREGISTERFUNCTIONS ObjectRexxRegisterFunctions
|
|
#define HREXXEXTERNALFUNCTION_T size_t REXXENTRY
|
|
|
|
#define HREXXAWSCMD ObjectRexxawscmd
|
|
|
|
#define HREXXREGISTERHANDLERS ObjectRexxRegisterHandlers
|
|
#define HREXXPFN REXXPFN
|
|
#define HREXXSTRING CONSTRXSTRING
|
|
|
|
#define HREXXEXITHANDLER_T RexxReturnCode REXXENTRY
|
|
#define HREXXLONG int
|
|
|
|
#define HREXXSUBCOMHANDLER_T RexxReturnCode REXXENTRY
|
|
#define HREXXPSTRING PCONSTRXSTRING
|
|
|
|
#define _HENGINE_DLL_
|
|
#include "hercules.h"
|
|
|
|
#include "hRexx.h"
|
|
|
|
#include "rexx.h"
|
|
#include "oorexxapi.h"
|
|
|
|
extern void *hRexxLibHandle; /* Library handle */
|
|
extern void *hRexxApiLibHandle; /* Api Library handle */
|
|
|
|
extern char *RexxPackage;
|
|
|
|
extern char *RexxLibrary;
|
|
extern char *RexxApiLibrary;
|
|
|
|
extern int MessageLevel;
|
|
extern char *MessagePrefix;
|
|
extern char *ErrorPrefix;
|
|
|
|
extern int (*RexxDynamicLoader)();
|
|
extern int (*RexxRegisterFunctions)();
|
|
extern int (*RexxRegisterHandlers)();
|
|
extern int (*RexxExecCmd)();
|
|
extern int (*RexxExecInstoreCmd)();
|
|
extern int (*RexxExecSub)();
|
|
|
|
static PFNREXXSTART hRexxStart;
|
|
static PFNREXXREGISTERFUNCTIONEXE hRexxRegisterFunction;
|
|
static PFNREXXDEREGISTERFUNCTION hRexxDeregisterFunction;
|
|
static PFNREXXREGISTERSUBCOMEXE hRexxRegisterSubcom;
|
|
static PFNREXXDEREGISTERSUBCOM hRexxDeregisterSubcom;
|
|
static PFNREXXREGISTEREXITEXE hRexxRegisterExit;
|
|
static PFNREXXDEREGISTEREXIT hRexxDeregisterExit;
|
|
static PFNREXXALLOCATEMEMORY hRexxAllocateMemory;
|
|
static PFNREXXFREEMEMORY hRexxFreeMemory;
|
|
static PFNREXXVARIABLEPOOL hRexxVariablePool;
|
|
|
|
int ObjectRexxDynamicLoader()
|
|
{
|
|
HDLOPEN( hRexxLibHandle, OOREXX_LIBRARY, RTLD_LAZY);
|
|
|
|
HDLOPEN( hRexxApiLibHandle, OOREXX_API_LIBRARY, RTLD_LAZY);
|
|
|
|
HDLSYM ( hRexxStart, hRexxLibHandle, REXX_START);
|
|
|
|
HDLSYM ( hRexxRegisterFunction, hRexxApiLibHandle, REXX_REGISTER_FUNCTION);
|
|
|
|
HDLSYM ( hRexxDeregisterFunction, hRexxApiLibHandle, REXX_DEREGISTER_FUNCTION);
|
|
|
|
HDLSYM ( hRexxRegisterSubcom, hRexxApiLibHandle, REXX_REGISTER_SUBCOM);
|
|
|
|
HDLSYM ( hRexxDeregisterSubcom, hRexxApiLibHandle, REXX_DEREGISTER_SUBCOM);
|
|
|
|
HDLSYM ( hRexxRegisterExit, hRexxApiLibHandle, REXX_REGISTER_EXIT);
|
|
|
|
HDLSYM ( hRexxDeregisterExit, hRexxApiLibHandle, REXX_DEREGISTER_EXIT);
|
|
|
|
HDLSYM ( hRexxAllocateMemory, hRexxApiLibHandle, REXX_ALLOCATE_MEMORY);
|
|
|
|
HDLSYM ( hRexxFreeMemory, hRexxApiLibHandle, REXX_FREE_MEMORY);
|
|
|
|
HDLSYM ( hRexxVariablePool, hRexxLibHandle, REXX_VARIABLE_POOL);
|
|
|
|
return 0;
|
|
}
|
|
|
|
#include "hRexxapi.h"
|
|
|
|
#endif /* defined(ENABLE_OBJECT_REXX) */
|
|
#endif /* #ifndef _HREXX_O_C_ */
|