Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /trunk/src/compiler/ast/ast-pp.sml
ViewVC logotype

Annotation of /trunk/src/compiler/ast/ast-pp.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 93 - (view) (download)
Original Path: trunk/src/ast/ast-pp.sml

1 : jhr 93 (* ast-pp.sml
2 :     *
3 :     * COPYRIGHT (c) 2010 The Diderot Project (http://diderot.cs.uchicago.edu)
4 :     * All rights reserved.
5 :     *)
6 :    
7 :     structure ASTPP : sig
8 :    
9 :     val output : TextIO.outstream * AST.program -> unit
10 :    
11 :     end = struct
12 :    
13 :     structure PP = TextIOPP
14 :    
15 :     fun output (outS, prog) = let
16 :     val ppStrm = PP.openOut {dst = outS, wid = 120}
17 :     in
18 :     PP.closeStream ppStrm
19 :     end
20 :    
21 :     end

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