Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Stdio, Wr, Thread; PROCEDURE Err Msg (a, b, c, d: TEXT := NIL) = <*FATAL Wr.Failure, Thread.Alerted*> BEGIN IF (a # NIL) THEN Wr.PutText (Stdio.stderr, a); END; IF (b # NIL) THEN Wr.PutText (Stdio.stderr, b); END; IF (c # NIL) THEN Wr.PutText (Stdio.stderr, c); END; IF (d # NIL) THEN Wr.PutText (Stdio.stderr, d); END; Wr.PutChar (Stdio.stderr, '\n'); Wr.Flush (Stdio.stderr); END Msg; BEGIN END Err.