|
|
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.