52 #include "SystemInterpreter.hpp"
408 size_t optionCount = 0;
416 options[optionCount].
option = (
void *)exits;
476 temp = conditionObj->
at(OREF_ERRORTEXT);
482 temp = conditionObj->
at(OREF_DESCRIPTION);
490 temp = conditionObj->
at(OREF_POSITION);
500 temp = conditionObj->
at(OREF_PROGRAM);
506 temp = conditionObj->
at(OREF_ADDITIONAL);
561 printf(
"Logic error: %s\n",desc);
571 const char *decimalPoint;
580 for (decimalPoint = errorcode->
getStringData(), count = 0; *decimalPoint && *decimalPoint !=
'.'; decimalPoint++, count++);
602 return primary + secondary;
void reportException(wholenumber_t error)
#define Error_Expression_result_raise
RexxReturnCode RexxEntry RexxCreateSessionQueue()
RexxReturnCode RexxEntry RexxDeleteSessionQueue()
#define memory_mark(oref)
#define memory_mark_general(oref)
RexxString * new_string(const char *s, stringsizeB_t bl, sizeC_t cl=-1)
static void createLocks()
static RexxObject * getLocalEnvironment(RexxString *name)
static RexxActivity * getRootActivity()
InterpreterInstance * instance
static RexxObject * localServer
static bool lastInstance()
static bool timeSliceElapsed
static void logicError(const char *desc)
static void decodeConditionData(RexxDirectory *conditionObj, RexxCondition *condData)
static wholenumber_t messageNumber(RexxString *)
static void startInterpreter(InterpreterStartupMode mode, const char *imageTarget)
static bool terminateInterpreter()
static bool terminateInterpreterInstance(InterpreterInstance *instance)
static void createLocks()
static RexxString * versionNumber
static RexxList * interpreterInstances
static void liveGeneral(int reason)
static RexxClass * findClass(RexxString *className)
static RexxString * getCurrentQueue()
static int createInstance(RexxInstance *&instance, RexxThreadContext *&threadContext, RexxOption *options)
static void processStartup()
static InterpreterInstance * createInterpreterInstance()
static bool haltAllActivities(RexxString *)
static void processShutdown()
static SysMutex resourceLock
RexxInstance * getInstanceContext()
RexxActivity * getRootActivity()
bool haltAllActivities(RexxString *)
void initialize(RexxActivity *activity, RexxOption *options)
RexxThreadContext * getRootThreadContext()
RexxObject * at(RexxString *)
RexxObject * append(RexxObject *)
size_t nextIndex(size_t i)
RexxObject * removeItem(RexxObject *)
RexxObject * getValue(size_t i)
void initialize(bool restoringImage, const char *imageTarget)
static void createLocks()
void verboseMessage(const char *message)
bool messageSend(RexxString *, RexxObject **, size_t, size_t, ProtectedObject &, bool processUnknown=true)
void sendMessage(RexxString *, RexxArray *, RexxDirectory *, ProtectedObject &)
RexxString * stringValue()
bool numberValue(wholenumber_t &result, size_t precision)
const char * getStringData()
static void terminateInterpreter()
static void startInterpreter()
#define INITIAL_ADDRESS_ENVIRONMENT
struct _RexxStringObject * RexxStringObject
struct _RexxArrayObject * RexxArrayObject
RexxStringObject description
RexxArrayObject additional
RexxStringObject conditionName
RexxStringObject errortext