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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/print-as-c.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/print-as-c.sml

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

revision 525, Sat Feb 12 22:59:18 2011 UTC revision 527, Sun Feb 13 02:08:31 2011 UTC
# Line 10  Line 10 
10    
11      val new : TextIO.outstream -> strm      val new : TextIO.outstream -> strm
12    
13        val close : strm -> unit
14    
15      val output : strm * CLang.decl -> unit      val output : strm * CLang.decl -> unit
16    
17    end = struct    end = struct
# Line 23  Line 25 
25    
26      fun new outs = PP.openOut {dst = outs, wid = 90}      fun new outs = PP.openOut {dst = outs, wid = 90}
27    
28        val close = PP.closeStream
29    
30      fun output (strm, decl) = let      fun output (strm, decl) = let
31            val str = PP.string strm            val str = PP.string strm
32            fun sp () = PP.space strm 1            fun sp () = PP.space strm 1

Legend:
Removed from v.525  
changed lines
  Added in v.527

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