dps/src/Err.m3


Copyright (C) 1994, Digital Equipment Corp.

MODULE Err;

IMPORT Stdio, Wr, Thread;

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

interface Err is in: