Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/ml-burg/errormsg.sml
ViewVC logotype

Annotation of /sml/trunk/src/ml-burg/errormsg.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : monnier 249 (* errormsg.sml
2 :     *
3 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :     *
5 :     * $Log$
6 : monnier 651 * Revision 1.2 2000/06/01 18:33:42 monnier
7 :     * bring revisions from the vendor branch to the trunk
8 :     *
9 : monnier 249 * Revision 1.1.1.8 1999/04/17 18:56:04 monnier
10 :     * version 110.16
11 :     *
12 :     * Revision 1.1.1.1 1997/01/14 01:37:59 george
13 :     * Version 109.24
14 :     *
15 :     * Revision 1.1.1.2 1997/01/11 18:52:30 george
16 :     * ml-burg Version 109.24
17 :     *
18 :     * Revision 1.1.1.1 1996/01/31 16:01:24 george
19 :     * Version 109
20 :     *
21 :     *)
22 :    
23 :     structure ErrorMsg = struct
24 :    
25 :     exception Compiler
26 :     val anyErrors = ref false
27 :    
28 :     fun say (msg:string) = (print msg; print "\n")
29 :    
30 :     fun warning msg = say ("\tWarning: " ^ msg);
31 :    
32 :     fun complain msg = (say ("\tError: " ^ msg); anyErrors := true)
33 :    
34 :     fun impossible msg = (complain("Internal bug: " ^ msg); raise Compiler)
35 :     end

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