MessagesOut.mesa
Russ Atkinson, November 10, 1983 11:23 am
DIRECTORY
IO USING [STREAM],
Rope USING [ROPE];
MessagesOut: CEDAR DEFINITIONS
= BEGIN OPEN IO, Rope;
The following two operations provide a small measure of atomicity for writing several ropes to a given source.
PutRopes: PROC [stream: STREAM, r1,r2,r3,r4: ROPENIL];
If the stream # NIL, then a leading '\n is written to the stream, followed by the given ropes.
PutMsg: PROC [r1,r2,r3,r4: ROPENIL];
First the message window is cleared, then the ropes are written to it.
END.