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

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, _USR, startTimeMs

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

terminate_program, toString

Methods inherited from class simula.runtime.RTS_ENVIRONMENT

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

Methods inherited from class simula.runtime.RTS_RTObject

_GOTO, _JUMPTABLE, _SIM_LABEL, _STM, _TREAT_GOTO_CATCH_BLOCK, _VALUE, arrayValue, BBLK, booleanValue, call, call, charValue, CONC, detach, detach, detach, doubleValue, EBLK, edObjectAttributes, edObjectIdent, floatValue, intValue, isDetachUsed, isQPSystemBlock, objectTraceIdentifier, objectTraceIdentifier, objectValue, procValue, resume, resume, resume, swapCoroutines, sysin, sysout, TRACE_GOTO

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