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 /smlnj-lib/trunk/PP/devices/textio-pp.sml
ViewVC logotype

Annotation of /smlnj-lib/trunk/PP/devices/textio-pp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2144 - (view) (download)

1 : monnier 467 (* textio-pp.sml
2 :     *
3 :     * COPYRIGHT (c) 1999 Bell Labs, Lucent Technologies.
4 :     *
5 :     * A pretty printer with TextIO output; there are no styles and
6 :     * tokens are atoms.
7 :     *)
8 :    
9 :     structure TextIOPP : sig
10 :    
11 :     include PP_STREAM
12 : jhr 1815 where type token = string
13 : monnier 467
14 :     val openOut : {dst : TextIO.outstream, wid : int} -> stream
15 :    
16 :     end = struct
17 :    
18 :     structure PP = PPStreamFn (
19 : jhr 1815 structure Token = StringToken
20 : monnier 467 structure Device = SimpleTextIODev)
21 :    
22 :     open PP
23 :    
24 :     fun openOut arg = openStream(SimpleTextIODev.openDev arg)
25 :    
26 :     end;
27 :    

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