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

SCM Repository

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

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

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

revision 3994, Sat Jun 18 18:41:33 2016 UTC revision 3995, Sat Jun 18 20:00:19 2016 UTC
# Line 220  Line 220 
220                (ppStrm, params)                (ppStrm, params)
221            end            end
222    
223      fun ppStrand (ppStrm, AST.Strand{name, params, state, initM, updateM, stabilizeM}) = let      fun ppStrand (ppStrm, AST.Strand{name, params, state, stateInit, initM, updateM, stabilizeM}) = let
224            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
225            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
226            val string = PP.string ppStrm            val string = PP.string ppStrm
# Line 243  Line 243 
243                string "{";                string "{";
244                List.app (fn vdcl => (nl(); ppVarDecl ppStrm vdcl)) state;                List.app (fn vdcl => (nl(); ppVarDecl ppStrm vdcl)) state;
245                nl();                nl();
246                  Option.app (fn stm => (
247                      PP.openHBox ppStrm;
248                        string "stateInit"; sp();
249                        ppBlockStmt (ppStrm, stm);
250                      PP.closeBox ppStrm))
251                    stateInit;
252                Option.app (ppMethod "initially") initM;                Option.app (ppMethod "initially") initM;
253                ppMethod "update" updateM;                ppMethod "update" updateM;
254                Option.app (ppMethod "stabilize") stabilizeM;                Option.app (ppMethod "stabilize") stabilizeM;
# Line 318  Line 324 
324      fun output (outS, message, prog) = let      fun output (outS, message, prog) = let
325            val AST.Program{            val AST.Program{
326                    props, const_dcls, input_dcls, globals,                    props, const_dcls, input_dcls, globals,
327                    strand, init, create, update                    globInit, strand, create, init, update
328                  } = prog                  } = prog
329            val ppStrm = PP.openOut {dst = outS, wid = 120}            val ppStrm = PP.openOut {dst = outS, wid = 120}
330            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
# Line 343  Line 349 
349                List.app (ppInput ppStrm) input_dcls;                List.app (ppInput ppStrm) input_dcls;
350                List.app (ppDecl ppStrm) globals;                List.app (ppDecl ppStrm) globals;
351                ppStrand (ppStrm, strand);                ppStrand (ppStrm, strand);
352                ppTopBlock ("initially", init);                ppTopBlock ("globalInit", globInit);
353                ppCreate (ppStrm, create);                ppCreate (ppStrm, create);
354                  ppTopBlock ("initially", init);
355                ppTopBlock ("update", update);                ppTopBlock ("update", update);
356                string "/* Program end */"; PP.newline ppStrm;                string "/* Program end */"; PP.newline ppStrm;
357              PP.closeBox ppStrm;              PP.closeBox ppStrm;

Legend:
Removed from v.3994  
changed lines
  Added in v.3995

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