<> <> <> <<>> DIRECTORY IO, Rope; 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.