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 3930, Sun Jun 5 14:13:06 2016 UTC revision 3931, Sun Jun 5 14:13:21 2016 UTC
# Line 140  Line 140 
140                            sp(); str "(";                            sp(); str "(";
141                            ppList {pp=ppParam, sep=fn () => (str ","; sp()), l=params};                            ppList {pp=ppParam, sep=fn () => (str ","; sp()), l=params};
142                            if Option.isNone body then str ");" else str ")"));                            if Option.isNone body then str ");" else str ")"));
                         PP.newline strm;  
143                          case body                          case body
144                           of SOME body => (                           of SOME body => (
145                                  PP.newline strm;
146  (* TODO inits *)  (* TODO inits *)
147                                ppBlock (case body of CL.S_Block stms => stms | stm => [stm]))                                ppBlock (case body of CL.S_Block stms => stms | stm => [stm]))
148                            | NONE => ()                            | NONE => ()
# Line 160  Line 160 
160                                str "~"; str cls; str "::"; str cls);                                str "~"; str cls; str "::"; str cls);
161                            sp();                            sp();
162                            if Option.isNone body then str "();" else str "()"));                            if Option.isNone body then str "();" else str "()"));
                         PP.newline strm;  
163                          case body                          case body
164                           of SOME(CL.S_Block stms) => ppBlock stms                           of SOME(CL.S_Block stms) => (PP.newline strm; ppBlock stms)
165                            | SOME stm => ppBlock [stm]                            | SOME stm => (PP.newline strm; ppBlock [stm])
166                            | NONE => ()                            | NONE => ()
167                          (* end case *);                          (* end case *);
168                        PP.closeBox strm;                        PP.closeBox strm;

Legend:
Removed from v.3930  
changed lines
  Added in v.3931

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