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/cm/util/say.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/util/say.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 354 - (view) (download)

1 : blume 354 (*
2 :     * Output of feedback and diagnostics.
3 :     *
4 :     * Copyright (c) 1999 by Lucent Technologies, Bell Laboratories.
5 :     *
6 :     * author: Matthias Blume (blume@cs.princeton.edu)
7 :     *)
8 :     signature SAY = sig
9 :     val say: string list -> unit
10 :     val vsay: string list -> unit
11 :     val dsay: string list -> unit
12 :     end
13 :    
14 :     structure Say :> SAY = struct
15 :    
16 :     structure Print = GenericVC.Control.Print
17 :    
18 :     fun say l = (Print.say (concat l); Print.flush ())
19 :    
20 :     fun csay cnd l = if EnvConfig.getSet cnd NONE then say l else ()
21 :     val vsay = csay StdConfig.verbose
22 :     val dsay = csay StdConfig.debug
23 :     end

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