-- JaMIODefs.mesa
-- Written by John Warnock, January, 1978.
-- Last changed by Doug Wyatt, February 10, 1981 5:45 PM

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

JaMIODefs: DEFINITIONS = {
OPEN JaMMasterDefs;

-- RdLine and WrtString get and put StringType Objects on the stack.
RdLine: PROCEDURE [stack: Stack];
WrtString: PROCEDURE [stack: Stack];
WrtLine: PROCEDURE [stack: Stack];

-- RdAllocLine reads and allocates VM storage for the line.
-- The string and stream are left on the stack.
RdAllocLine: PROCEDURE [stack:Stack];

-- "Print" prints the string on top of the stack onto the defaultkeystream.
Print: PROCEDURE;

-- NByteStream, given the file name and options,
-- returns a stream on the stack.
NByteStream: PROCEDURE;

NKeyStream: PROCEDURE;


--** Edited streams **

EditedHandle: TYPE = StreamDefs.OtherStreamHandle;

MakeIntoEditedStream: PROCEDURE [stream: StreamDefs.StreamHandle]
RETURNS [edstream: EditedHandle];
-- Takes a stream as input and returns another stream which will be
-- edited on a line by line basis.

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

JaMIO: PROGRAM;

}.

MN February 6, 1980 9:39 PM
added SetMouseXYProc