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

Parent Directory | Revision Log | Patch

	revision 276, Mon May 17 06:01:28 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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

---

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