Module Simula

Package simula.runtime

Class RTS_PROCEDURE

java.lang.Object

simula.runtime.RTS_RTObject

simula.runtime.RTS_ENVIRONMENT

simula.runtime.RTS_BASICIO

simula.runtime.RTS_PROCEDURE

public abstract class RTS_PROCEDURE
extends RTS_BASICIO

Utility class PROCEDURE.

This class is used as prefix to all java classes representing Simula Procedures.

Link to GitHub: Source File.

Author:

Øystein Myhre Andersen

Nested Class Summary

Nested classes/interfaces inherited from class simula.runtime.RTS_RTObject

RTS_RTObject.ForElt, RTS_RTObject.ForList, RTS_RTObject.ForListIterator, RTS_RTObject.OperationalState, RTS_RTObject.RTS_BOOLEAN_ARRAY, RTS_RTObject.RTS_BOUNDS, RTS_RTObject.RTS_CHARACTER_ARRAY, RTS_RTObject.RTS_INTEGER_ARRAY, RTS_RTObject.RTS_LABEL, RTS_RTObject.RTS_LONG_REAL_ARRAY, RTS_RTObject.RTS_NAME<T>, RTS_RTObject.RTS_REAL_ARRAY, RTS_RTObject.RTS_REALTYPE_ARRAY, RTS_RTObject.RTS_REF_ARRAY<T>, RTS_RTObject.RTS_TEXT_ARRAY, RTS_RTObject.SingleElt<T>, RTS_RTObject.SingleTValElt, RTS_RTObject.StepUntil, RTS_RTObject.UncaughtExceptionHandler, RTS_RTObject.WhileElt<T>, RTS_RTObject.WhileTValElt

Field Summary

Fields

Modifier and Type	Field	Description
protected int	_nParLeft	Number of actual parameters left to be transmitted.

Fields inherited from class simula.runtime.RTS_ENVIRONMENT

_STARTTIME, CURRENTDECIMALMARK, CURRENTLOWTEN, EXCEPTION_HANDLER, maxint, maxlongreal, maxreal, minint, minlongreal, minreal, simulaReleaseID

Fields inherited from class simula.runtime.RTS_RTObject

_CORUT, _CTX, _CUR, _DL, _INPUT_LINELENGTH, _JTX, _OUTPUT_LINELENGTH, _SL, _STATE, _SYSIN, _SYSOUT, NOTEXT

Constructor Summary

Constructors

Constructor	Description
RTS_PROCEDURE(RTS_RTObject SL)	Create a normal procedure.
RTS_PROCEDURE(RTS_RTObject SL, int nPar)	Create a formal/virtual Procedure.

Method Summary

Modifier and Type	Method	Description
RTS_PROCEDURE	_ENT()	Enter formal procedure
Object	_RESULT()	Deliver the result from the Simula procedure.
RTS_PROCEDURE	setPar(Object obj)	Sets next procedure parameter value.

Methods inherited from class simula.runtime.RTS_BASICIO

toString

Methods inherited from class simula.runtime.RTS_ENVIRONMENT

_char, _IPOW, _IS, abs, abs, abs, addepsilon, addepsilon, arccos, arcsin, arctan, arctan2, Char, clocktime, cos, cosh, cotan, cputime, datetime, decimalmark, DEFEXCEPTION, digit, discrete, draw, edfix, edit, edit, edit, edit, edit, edtime, entier, Erlang, error, exp, getIntInfo, getTextInfo, giveIntInfo, giveTextInfo, hash, histd, histo, isochar, isorank, letter, linear, ln, loadChar, log10, lowcase, lowerbound, lowten, max, max, max, max, max, min, min, min, min, min, mod, negexp, normal, Poisson, printStaticChain, printThreadList, randint, rank, rem, rts_utility, sign, simulaid, sin, sinh, sqrt, storeChar, subepsilon, subepsilon, tan, tanh, uniform, upcase, upperbound, waitSomeTime

Methods inherited from class simula.runtime.RTS_RTObject

_ASGSTR, _ASGTXT, _GOTO, _JUMPTABLE, _JUMPTABLE, _LABEL, _PRE_LABEL, _PRE_TABLE, _SIM_LABEL, _STM, _TXTREL_EQ, _TXTREL_GE, _TXTREL_GT, _TXTREL_LE, _TXTREL_LT, _TXTREL_NE, _VALUE, arrayValue, BBLK, blanks, BPRG, call, call, CONC, copy, detach, detach, detach, doubleValue, EBLK, edObjectAttributes, edObjectIdent, floatValue, getErrorMessage, intValue, isDetachUsed, isQPSystemBlock, objectTraceIdentifier, objectTraceIdentifier, objectValue, procValue, resume, resume, resume, swapCoroutines, sysin, sysout, terminate_program, TRACE_GOTO, TRF_EQ, TRF_NE

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, wait, wait, wait

Field Details

_nParLeft

protected int _nParLeft

Number of actual parameters left to be transmitted.

Constructor Details

RTS_PROCEDURE

public RTS_PROCEDURE(RTS_RTObject SL)

Create a normal procedure.

Parameters:

SL - staticLink

RTS_PROCEDURE

public RTS_PROCEDURE(RTS_RTObject SL,
 int nPar)

Create a formal/virtual Procedure.

Parameters:

SL - staticLink

nPar - number of actual parameters

Method Details

setPar

public RTS_PROCEDURE setPar(Object obj)

Sets next procedure parameter value.

This method is virtual and must be redefined in all procedure blocks with parameters.

Parameters:

obj - Procedure's Parameter Value Object

Returns:

this object

_RESULT

public Object _RESULT()

Deliver the result from the Simula procedure.

This method is virtual and must be redefined in all type procedure blocks

Returns:

the result from the Simula procedure.

_ENT

public RTS_PROCEDURE _ENT()

Enter formal procedure

Returns:

this class instance

Throws:

RTS_SimulaRuntimeError - if too few parameters