-- JaMLiteralDefs.mesa
-- Written by: John Warnock, January, 1979
-- Last changed by Doug Wyatt, February 10, 1981 4:23 PM

DIRECTORY
JaMMasterDefs USING [Object, Stack],
StreamDefs USING [StreamHandle];

JaMLiteralDefs: DEFINITIONS = {
OPEN JaMMasterDefs;

-- The following routines implement a set of literal building routines.
-- The resulting constructed literal is pushed on the specified stack.

IntegerLit: PROCEDURE[i: INTEGER, s: Stack];

LongIntegerLit: PROCEDURE[l: LONG INTEGER, s: Stack];

RealLit: PROCEDURE[r: REAL, s: Stack];

BooleanLit: PROCEDURE[b: BOOLEAN, s: Stack];

StringLit: PROCEDURE[string: STRING, s: Stack];

StreamLit: PROCEDURE[stream: StreamDefs.StreamHandle, s: Stack];

UserLit: PROCEDURE[type: INTEGER, address: LONG POINTER, s: Stack];

MakeStringObject: PROCEDURE[string: STRING] RETURNS[StringType Object];

JaMLiteral: PROGRAM;

}.

DKW March 27, 1980 6:17 PM
added JaMLiteral: PROGRAM;