mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-26 10:38:47 +02:00
gottfriedleibniz
d79382bbfe
* chore: run codespell on source/header files Fixes most reported typos discovered by codespell (while trying to be unopinionated about American vs. British English). * chore: run codespell on build/readme files
100 lines
4.1 KiB
C
100 lines
4.1 KiB
C
/* HREXX_O.C (C) Copyright Enrico Sorichetti, 2012 */
|
|
/* (C) Copyright "Fish" (David B. Trout), 2017 */
|
|
/* OORexx Interpreter Support */
|
|
/* */
|
|
/* 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"
|
|
|
|
#define _HREXX_O_C_
|
|
#define _HENGINE_DLL_
|
|
|
|
#include "hercules.h"
|
|
#include "hRexx.h"
|
|
|
|
#ifdef OBJECT_REXX // Support for Object Rexx
|
|
#define REXX_PKG OOREXX_PKG
|
|
#define REXX_PKGNUM OOREXX_PKGNUM
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Macro to build unique name similar to Hercules ARCH_DEP macro */
|
|
/*-------------------------------------------------------------------*/
|
|
#define PASTEM( _p, _n ) _p ## _n
|
|
#define REXX_DEP2( _p, _n ) PASTEM( _p, _n )
|
|
#define REXX_DEP( _name ) REXX_DEP2( REXX_PKG, _name )
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Object Rexx Support headers */
|
|
/*-------------------------------------------------------------------*/
|
|
#include "rexx.h"
|
|
#include "oorexxapi.h"
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Hercules Rexx implementation equivalents for Object Rexx types */
|
|
/*-------------------------------------------------------------------*/
|
|
#define HR_REXXRC_T RexxReturnCode // (API return code)
|
|
#define HR_ENTRY REXXENTRY // (calling convention)
|
|
#define HR_PFN_T REXXPFN // (func ptr type)
|
|
|
|
#define HR_EXITHAND_RC_T RexxReturnCode // (exit handler rc)
|
|
#define HR_SUBCOM_RC_T RexxReturnCode // (subcom handler rc)
|
|
#define HR_EXTFUNC_RC_T size_t // (extern func rc)
|
|
|
|
#define HR_ARGC_T size_t // (array count)
|
|
#define HR_ARGV_T PCONSTRXSTRING // (RXSTRING array)
|
|
#define HR_PCSZ_T CONSTANT_STRING // (const RXSTRING)
|
|
#define HR_CALLTYPE_T int // (RexxStart call type)
|
|
#define HR_FCODE_T int // (func/subfunc code)
|
|
#define HR_MEMSIZE_T size_t // (AllocateMemory size)
|
|
#define HR_PROCESS_ID_T process_id_t // (RexxSetHalt argument)
|
|
#define HR_THREAD_ID_T thread_id_t // (RexxSetHalt argument)
|
|
#define HR_USERINFO_T CONSTANT_STRING // (RegisterExit argument)
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Object Rexx PRIMARY library names */
|
|
/*-------------------------------------------------------------------*/
|
|
#if defined( _MSVC_ )
|
|
#define REXX_LIBNAME "rexx.dll"
|
|
#define REXX_APILIBNAME "rexxapi.dll"
|
|
#elif defined( __APPLE__ )
|
|
#define REXX_LIBNAME "librexx.dylib"
|
|
#define REXX_APILIBNAME "librexxapi.dylib"
|
|
#else // *nix
|
|
#define REXX_LIBNAME "librexx.so"
|
|
#define REXX_APILIBNAME "librexxapi.so"
|
|
#endif
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Object Rexx EXTRA library names */
|
|
/*-------------------------------------------------------------------*/
|
|
static char* REXX_DEP( ExtraLibs )[] =
|
|
{
|
|
#if defined( _MSVC_ )
|
|
"hostemu.dll" ,
|
|
"oodialog.dll" ,
|
|
"orexxole.dll" ,
|
|
"rexxutil.dll" ,
|
|
"rxmath.dll" ,
|
|
"rxregexp.dll" ,
|
|
"rxsock.dll" ,
|
|
"rxwinsys.dll" ,
|
|
#elif defined( __APPLE__ )
|
|
"librexxutil.dylib" ,
|
|
#else
|
|
"librexxutil.so" ,
|
|
#endif
|
|
};
|
|
|
|
#define NUM_EXTRALIBS _countof( REXX_DEP( ExtraLibs ))
|
|
|
|
/*-------------------------------------------------------------------*/
|
|
/* Include the remainder of Hercules generic Rexx support functions */
|
|
/*-------------------------------------------------------------------*/
|
|
#include "hRexxapi.c"
|
|
|
|
#endif // OBJECT_REXX
|