-- JaMFnsDefs.mesa
-- Written by John Warnock
-- Last changed by Doug Wyatt, September 30, 1980  5:31 PM

DIRECTORY
	JaMMasterDefs: FROM "JaMMasterDefs" USING [Object],
	StreamDefs: FROM "StreamDefs" USING [StreamHandle];

JaMFnsDefs: DEFINITIONS =
BEGIN OPEN JaMMasterDefs;

JaMFns: PROGRAM;

Register: PROCEDURE[string: STRING, proc: PROCEDURE];

RegisterInternal: PROCEDURE[proc: PROCEDURE] RETURNS[co: CommandType Object];

JaMExec: PROCEDURE[STRING];

JaMStream: PROCEDURE RETURNS[StreamDefs.StreamHandle];

PushInteger: PROCEDURE[INTEGER];
PopInteger: PROCEDURE RETURNS[INTEGER];

PushLongInteger: PROCEDURE[LONG INTEGER];
PopLongInteger: PROCEDURE RETURNS[LONG INTEGER];
GetLongInteger: PROCEDURE RETURNS[LONG INTEGER];

PushReal: PROCEDURE[REAL];
PopReal: PROCEDURE RETURNS[REAL];
GetReal: PROCEDURE RETURNS[REAL];

PushBoolean: PROCEDURE[BOOLEAN];
PopBoolean: PROCEDURE RETURNS[BOOLEAN];

PushString: PROCEDURE[STRING];
PopString: PROCEDURE[STRING];

PushStream: PROCEDURE[StreamDefs.StreamHandle];
PopStream: PROCEDURE RETURNS[StreamDefs.StreamHandle];

PushUser: PROCEDURE[type: INTEGER, address: LONG POINTER];
PopUser: PROCEDURE RETURNS[type: INTEGER, address: LONG POINTER];

PushObject: PROCEDURE[obj: Object];
PopObject: PROCEDURE RETURNS[Object];

SetMouseProc: PROCEDURE [stream: StreamDefs.StreamHandle,
	mouseXYProc: PROCEDURE[CARDINAL,CARDINAL]];

GetJaMBreak: PROCEDURE RETURNS[BOOLEAN];
SetJaMBreak: PROCEDURE[flag: BOOLEAN _ TRUE];

END.

DKW  March 25, 1980  3:24 PM
	added SetMouseProc

DKW  July 25, 1980  4:49 PM
	added GetLongInteger

DKW  September 30, 1980  5:31 PM
	added GetJaMBreak, SetJaMBreak
(673)\223b10B43b6B12b8B46b17B63b7B22b9B47b11B22b10B31b15B27b14B35b14B36b8B19b7B27b7B28b11B22b10B30b11B21b9B22b10B38b9B47b8B51b7B60b10B26b9B30b12B92b11B30b11B