Last edited by: Eric Bier on January 27, 1987 11:24:37 pm PST

Contents: Routines for handling user error messages throughout Solidviews. (It's never too late to try to do it right.

DIRECTORY

SVError: CEDAR DEFINITIONS = BEGIN

Problem: SIGNAL [msg: Rope.ROPE];

MsgType: TYPE = {oneLiner, begin, middle, end};

SetErrorStream: PROC [errorStream: IO.STREAM];

GetErrorStream: PROC [] RETURNS [errorStream: IO.STREAM];

Blink: PROC [];

Append: PROC [msg: Rope.ROPE, msgType: MsgType];

AppendHerald: PROC [msg: Rope.ROPE, msgType: MsgType];

AppendTypescript: PROC [msg: Rope.ROPE, msgType: MsgType];

PutF: PROC [msgType: MsgType, format: Rope.ROPE ← NIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to script and feedback line

PutFHerald: PROC [msgType: MsgType, format: Rope.ROPE ← NIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to feedback line only

PutFTypescript: PROC [msgType: MsgType, format: Rope.ROPE ← NIL, v1, v2, v3, v4, v5: IO.Value ← [null[]] ]; -- to script only

NotYetImplemented: SIGNAL;

END.