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:
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.