[hcoop/domtool2.git] / src / errormsg.sig

(* This file comes mostly from "Modern Compiler Implementation in ML," by Andrew Appel
 * http://www.cs.princeton.edu/~appel/modern/ml/
 *)

signature ERRORMSG =
  sig
    val reset : unit -> unit
      
    val anyErrors : bool ref
    val errorText : string ref
      
    val fileName : string ref
    val sourceStream : TextIO.instream ref
      
    val lineNum : int ref
    val linePos : int list ref

    val error : (int * int) option -> string -> unit

    val dummyLoc : int * int

    exception Error
end
Commit	Line	Data
42198578 AC	1	(* This file comes mostly from "Modern Compiler Implementation in ML," by Andrew Appel
	2	* http://www.cs.princeton.edu/~appel/modern/ml/
	3	*)
	4
	5	signature ERRORMSG =
	6	sig
	7	val reset : unit -> unit
	8
	9	val anyErrors : bool ref
	10	val errorText : string ref
	11
	12	val fileName : string ref
	13	val sourceStream : TextIO.instream ref
	14
	15	val lineNum : int ref
	16	val linePos : int list ref
	17
	18	val error : (int * int) option -> string -> unit
	19
	20	val dummyLoc : int * int
	21
	22	exception Error
	23	end