MessagesOut.mesa
Copyright Ó 1985, 1992 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 7, 1985 2:25:24 pm PST
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: ROPE ¬ NIL];
If the stream # NIL, then a leading '\n is written to the stream, followed by the given ropes.
PutMsg: PROC [r1,r2,r3,r4: ROPE ¬ NIL];
First the message window is cleared, then the ropes are written to it.
END.