-- JaMFns.mesa
-- Last changed by Doug Wyatt, 20-Jan-82 16:37:25

DIRECTORY
  StreamDefs USING [StreamHandle];

JaMFns: DEFINITIONS = {

Frame: TYPE = LONG POINTER TO FrameObject;
FrameObject: TYPE;

StreamHandle: TYPE = StreamDefs.StreamHandle;

Register: PROC[LONG STRING, PROC[Frame], Frame _ NIL];

Execute: PROC[LONG STRING, Frame _ NIL];

PushInteger: PROC[INTEGER, Frame _ NIL];
PopInteger: PROC[Frame _ NIL] RETURNS[INTEGER];

PushLongInteger: PROC[LONG INTEGER, Frame _ NIL];
PopLongInteger,GetLongInteger: PROC[Frame _ NIL] RETURNS[LONG INTEGER];

PushReal: PROC[REAL, Frame _ NIL];
PopReal,GetReal: PROC[Frame _ NIL] RETURNS[REAL];

PushBoolean: PROC[BOOLEAN, Frame _ NIL];
PopBoolean: PROC[Frame _ NIL] RETURNS[BOOLEAN];

PushString: PROC[LONG STRING, Frame _ NIL];
PopString: PROC[LONG STRING, Frame _ NIL];
StringOverflow: SIGNAL[s: LONG STRING] RETURNS[ns: LONG STRING];

PushStream: PROC[StreamHandle, Frame _ NIL];
PopStream: PROC[Frame _ NIL] RETURNS[StreamHandle];

Pop: PROC[Frame _ NIL];

GetJaMBreak: PROC[Frame _ NIL] RETURNS[BOOLEAN];
SetJaMBreak: PROC[BOOLEAN _ TRUE, Frame _ NIL];

}.