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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/main/say.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 309, Wed Jun 2 03:21:57 1999 UTC revision 310, Wed Jun 2 07:28:27 1999 UTC
# Line 6  Line 6 
6   * author: Matthias Blume (blume@cs.princeton.edu)   * author: Matthias Blume (blume@cs.princeton.edu)
7   *)   *)
8  signature SAY = sig  signature SAY = sig
9      val say: string -> unit      val say: string list -> unit
10      val vsay: string -> unit      val vsay: string list -> unit
11      val dsay: string -> unit      val dsay: string list -> unit
12  end  end
13    
14  structure Say :> SAY = struct  structure Say :> SAY = struct
15    
16      structure Print = GenericVC.Control.Print      structure Print = GenericVC.Control.Print
17    
18      fun say s = (Print.say s; Print.flush ())      fun say l = (Print.say (concat l); Print.flush ())
19    
20      fun csay cnd s = if cnd NONE then say s else ()      fun csay cnd l = if cnd NONE then say l else ()
21      val vsay = csay StdConfig.verbose      val vsay = csay StdConfig.verbose
22      val dsay = csay StdConfig.debug      val dsay = csay StdConfig.debug
23  end  end

Legend:
Removed from v.309  
changed lines
  Added in v.310

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