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 |