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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 310 - (view) (download)

1 : blume 275 (*
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 : blume 310 val say: string list -> unit
10 :     val vsay: string list -> unit
11 :     val dsay: string list -> unit
12 : blume 275 end
13 :    
14 :     structure Say :> SAY = struct
15 :    
16 :     structure Print = GenericVC.Control.Print
17 :    
18 : blume 310 fun say l = (Print.say (concat l); Print.flush ())
19 : blume 275
20 : blume 310 fun csay cnd l = if cnd NONE then say l else ()
21 : blume 276 val vsay = csay StdConfig.verbose
22 :     val dsay = csay StdConfig.debug
23 : blume 275 end

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