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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/print-as-cxx.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/print-as-cxx.sml

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

revision 3904, Mon May 23 18:44:15 2016 UTC revision 3905, Mon May 23 20:36:28 2016 UTC
# Line 10  Line 10 
10    
11  structure PrintAsCxx : sig  structure PrintAsCxx : sig
12    
13      type strm      val output : TextIOPP.stream * CLang.decl -> unit
   
     val new : TextIO.outstream -> strm  
   
     val close : strm -> unit  
   
     val output : strm * CLang.decl -> unit  
14    
15    end = struct    end = struct
16    
17      structure CL = CLang      structure CL = CLang
18      structure PP = TextIOPP      structure PP = TextIOPP
19    
     type strm = PP.stream  
   
20      val indent0 = (PP.Abs 0)      val indent0 = (PP.Abs 0)
21      val indent = (PP.Abs 4)     (* standard indentation amount *)      val indent = (PP.Abs 4)     (* standard indentation amount *)
22    
     fun new outs = PP.openOut {dst = outs, wid = 120}  
   
     val close = PP.closeStream  
   
23      fun output (strm, decl) = let      fun output (strm, decl) = let
24            val str = PP.string strm            val str = PP.string strm
25            fun sp () = PP.space strm 1            fun sp () = PP.space strm 1

Legend:
Removed from v.3904  
changed lines
  Added in v.3905

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