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

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/ast/ast-pp.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/ast/ast-pp.sml

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

revision 2634, Mon May 26 13:48:02 2014 UTC revision 2635, Mon May 26 14:06:39 2014 UTC
# Line 268  Line 268 
268               | AST.D_InitialCollection(create, iters) => (* FIXME *) ()               | AST.D_InitialCollection(create, iters) => (* FIXME *) ()
269            end            end
270    
271      fun output (outS, AST.Program decls) = let      fun output (outS, AST.Program{props, decls}) = let
272            val ppStrm = PP.openOut {dst = outS, wid = 120}            val ppStrm = PP.openOut {dst = outS, wid = 120}
273            in            in
274              PP.openVBox ppStrm (PP.Abs 0);              PP.openVBox ppStrm (PP.Abs 0);
275                PP.string ppStrm "/* Program start */"; PP.newline ppStrm;                PP.string ppStrm "/* Program start */"; PP.newline ppStrm;
276                  PP.openHBox ppStrm;
277                    PP.string ppStrm "properties:";
278                    PP.space ppStrm 1;
279                    PP.string ppStrm (StrandUtil.propsToString props);
280                    PP.newline ppStrm;
281                  PP.closeBox ppStrm;
282                List.app (ppDecl ppStrm) decls;                List.app (ppDecl ppStrm) decls;
283                PP.string ppStrm "/* Program end */"; PP.newline ppStrm;                PP.string ppStrm "/* Program end */"; PP.newline ppStrm;
284              PP.closeBox ppStrm;              PP.closeBox ppStrm;

Legend:
Removed from v.2634  
changed lines
  Added in v.2635

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