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 5584, Sun Aug 5 19:54:36 2018 UTC revision 5585, Mon Aug 6 14:41:53 2018 UTC
# Line 298  Line 298 
298                              str name; sp(); str "="; sp(); ppExp e))                              str name; sp(); str "="; sp(); ppExp e))
299                        in                        in
300                          if inClass then nl() else ();                          if inClass then nl() else ();
301                          PP.openVBox strm indent0;                          PP.openHVBox strm indent0;
302                            inHBox (fn () => (                            inHBox (fn () => (
303                              str "enum"; sp();                              str "enum"; sp();
304                              if isClass then (str "class"; sp()) else ();                              if isClass then (str "class"; sp()) else ();
# Line 309  Line 309 
309                              (* end case *);                              (* end case *);
310                              str "{"));                              str "{"));
311                            PP.openHVBox strm indent;                            PP.openHVBox strm indent;
312                                PP.cut strm;
313                              ppCon con;                              ppCon con;
314                              List.app (fn c => (str ","; sp(); ppCon con)) conr;                              List.app (fn c => (str ","; sp(); ppCon c)) conr;
315                            PP.closeBox strm;                            PP.closeBox strm;
316                              PP.cut strm;
317                            str "};";                            str "};";
318                          PP.closeBox strm                          PP.closeBox strm
319                        end                        end

Legend:
Removed from v.5584  
changed lines
  Added in v.5585

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