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.