(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: Error.i3                                              *)
(* Last modified on Wed Feb 14 08:47:44 1990 by kalsow         *)
(*      modified on Thu Feb  8 19:36:18 1990 by muller         *)

INTERFACE Error;

IMPORT String, Text;

PROCEDURE Msg (msg: Text.T);
PROCEDURE Int (n: INTEGER;  msg: Text.T);
PROCEDURE Str (s: String.T;  msg: Text.T);
PROCEDURE QID (READONLY q: String.QID;  msg: Text.T);
PROCEDURE ID  (id, msg: Text.T);

PROCEDURE Warn (level: INTEGER;  msg: Text.T);
PROCEDURE WarnStr (level: INTEGER;  s: String.T;  msg: Text.T);
PROCEDURE WarnNonStandard (feature: Text.T);

PROCEDURE IgnoreWarning (offset: INTEGER);

PROCEDURE Info (msg: Text.T);

PROCEDURE Count (VAR nErrors, nWarnings: INTEGER);

END Error.

(***************************
Error levels:

  0 - informational messages
  1 - "fussy" warnings  (i.e. unsued formals, incomplete CASE...)
  2 - warnings
  3 - errors

***************************)