Return to errormsg.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / util

Annotation of researchv10no/cmd/sml/src/util/errormsg.sml, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: structure ErrorMsg : ERRORMSG = struct
                      3: 
                      4:     exception Syntax
                      5: 
                      6:     val anyErrors = ref false
                      7:     val lineNum = ref 1
                      8:     val fileName = ref ""
                      9:     val debugging = System.Control.debugging
                     10: 
                     11:     fun say (msg: string) =
                     12:        (if !System.interactive then ()
                     13:         else (print (!fileName); print ", "; print "line ";
                     14:                print (makestring(!lineNum)); print ": ");
                     15:          print msg;
                     16:         print "\n";
                     17:          ())
                     18: 
                     19:     fun warn msg = say ("Warning: " ^ msg)
                     20: 
                     21:     fun complain (msg: string) =
                     22:        (say ("Error: " ^ msg); anyErrors := true)
                     23:  
                     24:     fun condemn msg = (complain msg; raise Syntax)
                     25:     fun impossible msg = condemn("Compiler bug: " ^ msg)
                     26: 
                     27:     fun flaggedmsg (flg : bool ref) (msg : string) =
                     28:        let val printit = !flg
                     29:        in  if printit then (print msg; print "\n")
                     30:            else ();
                     31:            printit
                     32:        end
                     33:     val debugmsg = flaggedmsg debugging
                     34: 
                     35: end  (* structure ErrorMsg *)
                     36: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.