|
|
1.1 root 1: (* Copyright 1989 by AT&T Bell Laboratories *)
2: signature ERRORMSG =
3: sig
4: exception Syntax
5: val anyErrors : bool ref
6: val lineNum : int ref
7: val fileName : string ref
8: val debugging : bool ref
9: val say : string -> unit
10: val warn : string -> unit
11: val complain : string -> unit
12: val condemn : string -> 'a
13: val impossible : string -> 'a
14: val debugmsg : string -> bool
15: val flaggedmsg : bool ref -> string -> bool
16: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.