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

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/cl-target/print-as-cl.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/cl-target/print-as-cl.sml

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

revision 2643, Thu May 29 15:33:16 2014 UTC revision 2644, Thu May 29 15:38:32 2014 UTC
# Line 34  Line 34 
34            val str = PP.string strm            val str = PP.string strm
35            fun sp () = PP.space strm 1            fun sp () = PP.space strm 1
36            fun inHBox f = (PP.openHBox strm; f(); PP.closeBox strm)            fun inHBox f = (PP.openHBox strm; f(); PP.closeBox strm)
37            fun ppComLn s = (            fun ppCom s = inHBox (fn () => (str "// "; str s))
38                  inHBox (fn () => (str "// "; str s));            fun ppComLn s = (ppCom s; PP.newline strm)
                 PP.newline strm)  
39            fun ppList {pp, sep, l} = let            fun ppList {pp, sep, l} = let
40                  fun ppList' [] = ()                  fun ppList' [] = ()
41                    | ppList' [x] = pp x                    | ppList' [x] = pp x
# Line 190  Line 189 
189                  str "}")                  str "}")
190            and ppStm stm = (case stm            and ppStm stm = (case stm
191                   of CL.S_Block stms => ppBlock stms                   of CL.S_Block stms => ppBlock stms
192                    | CL.S_Comment l => List.app ppComLn l                    | CL.S_Comment l => List.app ppCom l
193                    | CL.S_Verbatim [] => ()                    | CL.S_Verbatim [] => ()
194                    | CL.S_Verbatim (stm::stms) => (                    | CL.S_Verbatim (stm::stms) => (
195                        str stm;                        str stm;

Legend:
Removed from v.2643  
changed lines
  Added in v.2644

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