SCM Repository
Annotation of /sml/trunk/src/cm/main/say.sml
Parent Directory
| 
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 |
