ImagerToJaM.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Michael Plass, April 11, 1985 4:32:40 pm PST
Rick Beach, June 4, 1985 9:03:50 pm PDT
DIRECTORY
Imager
USING [Context],
IO
USING [
STREAM],
Rope
USING [
ROPE];
ImagerToJaM:
CEDAR
DEFINITIONS
~
BEGIN
OPEN Imager,
IO, Rope;
Create:
PROC [stream:
IO.
STREAM, id:
ROPE ←
NIL]
RETURNS [context: Context];
Creates a context that will write JaM code to the stream; each imager operation will be prefixed with the specified id.
Close:
PROC [context: Context];
Closes the underlying stream; a
NOP if context is the wrong kind.
END.