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

(* File: Host.i3                                               *)
(* Last modified on Sat May 12 07:05:52 1990 by muller         *)
(*      modified on Wed Feb 14 08:20:40 1990 by kalsow         *)


INTERFACE Host;

IMPORT String, Rd, Wr, Text;

VAR
  filename : String.T := NIL;
  source   : Rd.T;
  errors   : Wr.T;
  output   : Wr.T;
  verbose  : BOOLEAN; (* => diagnostic listing of phases *)
  Clines   : BOOLEAN; (* => don't generate Modula-3 line numbers *)
  asserts  : BOOLEAN; (* => generate checking for ASSERT pragma *)
  errorDie : INTEGER; (* N>=0 => abort on the Nth error *)
  standard : BOOLEAN; (* => non-standard Modula-3 is an error *)
  warnings : INTEGER; (* => ignore warning levels less than this value *)
  coverage : BOOLEAN; (* => generate coverage counts *)
  inlines  : BOOLEAN; (* => expand inline procedures *)
  versionStamps : BOOLEAN := TRUE; (* do emit version stamps *)
  incrementalVersion : INTEGER;
  toCompile: String.T := NIL;

PROCEDURE OpenInterface (name: String.T;  VAR(*OUT*) filename: String.T): Rd.T;

PROCEDURE OpenFile (name: Text.T): Rd.T;
PROCEDURE CloseFile (rd: Rd.T);

PROCEDURE Halt (exit: INTEGER);

PROCEDURE Initialize ();

END Host.