Annotation of /sml/branches/SMLNJ/src/ml-burg/errormsg.sml

Parent Directory | Revision Log

---

Revision 3 - (view) (download)

1 :	monnier	2	(* errormsg.sml
2 :			*
3 :			* COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :			*
5 :			* $Log$
6 :			* Revision 1.1 1997/10/04 23:33:22 monnier
7 :			* Initial revision
8 :			*
9 :			# Revision 1.1.1.1 1997/01/14 01:37:59 george
10 :			# Version 109.24
11 :			#
12 :			* Revision 1.1.1.2 1997/01/11 18:52:30 george
13 :			* ml-burg Version 109.24
14 :			*
15 :			* Revision 1.1.1.1 1996/01/31 16:01:24 george
16 :			* Version 109
17 :			*
18 :			*)
19 :
20 :			structure ErrorMsg = struct
21 :
22 :			exception Compiler
23 :			val anyErrors = ref false
24 :
25 :			fun say (msg:string) = (print msg; print "\n")
26 :
27 :			fun warning msg = say ("\tWarning: " ^ msg);
28 :
29 :			fun complain msg = (say ("\tError: " ^ msg); anyErrors := true)
30 :
31 :			fun impossible msg = (complain("Internal bug: " ^ msg); raise Compiler)
32 :			end

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0