File: SVErrorImpl.mesa
Last edited by: Eric Bier on July 3, 1984 5:27:31 pm PDT
Contents: Routines for handling user error messages throughout Solidviews. (It's never too late to try to do it right.
DIRECTORY
IO,
MessageWindow,
Rope,
SVError;
SVErrorImpl:
CEDAR
PROGRAM
IMPORTS IO, MessageWindow
EXPORTS SVError =
BEGIN
Global Variables
gErrorStream: IO.STREAM;
SetErrorStream:
PUBLIC
PROC [errorStream:
IO.
STREAM] = {
gErrorStream ← errorStream;
};
GetErrorStream:
PUBLIC
PROC []
RETURNS [errorStream:
IO.
STREAM] = {
RETURN[gErrorStream];
};
Append:
PUBLIC
PROC [msg: Rope.
ROPE, clearHerald:
BOOL ←
FALSE, addCR:
BOOL ←
FALSE] = {
MessageWindow.Append[msg, clearHerald];
gErrorStream.PutF[msg];
IF addCR THEN gErrorStream.PutChar[IO.CR];
};
AppendHerald:
PUBLIC
PROC [msg: Rope.
ROPE, clearHerald:
BOOL] = {
MessageWindow.Append[msg, clearHerald];
};
AppendTypescript:
PUBLIC
PROC [msg: Rope.
ROPE] = {
gErrorStream.PutF[msg];
gErrorStream.PutChar[IO.CR];
};
Blink:
PUBLIC
PROC [] = {
MessageWindow.Blink[];
};
NotYetImplemented: PUBLIC SIGNAL = CODE;
END.