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

SCM Repository

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

Diff of /branches/vis15/src/compiler/simple/simple-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 271  Line 271 
271    
272      fun output (outS, message, prog) = let      fun output (outS, message, prog) = let
273            val S.Program{            val S.Program{
274                    props, consts, inputs, constInit, globals, funcs, init,                    props, consts, inputs, constInit, globals, funcs, globInit,
275                    strand, create, update                    strand, create, init, update
276                  } = prog                  } = prog
277            val ppStrm = PP.openOut {dst = outS, wid = 120}            val ppStrm = PP.openOut {dst = outS, wid = 120}
278            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
# Line 307  Line 307 
307                ppTopBlock ("constants", SOME constInit);                ppTopBlock ("constants", SOME constInit);
308                List.app (ppVarDecl "global") globals;                List.app (ppVarDecl "global") globals;
309                List.app (ppFunc ppStrm) funcs;                List.app (ppFunc ppStrm) funcs;
310                ppTopBlock ("initially", SOME init);                ppTopBlock ("globalInit", SOME globInit);
311                ppStrand (ppStrm, strand);                ppStrand (ppStrm, strand);
312                case create                case create
313                 of S.Create{dim=SOME d, code} =>                 of S.Create{dim=SOME d, code} =>
314                      ppTopBlock (concat["grid(", Int.toString d, ")"], SOME code)                      ppTopBlock (concat["grid(", Int.toString d, ")"], SOME code)
315                  | S.Create{code, ...} => ppTopBlock ("collection", SOME code)                  | S.Create{code, ...} => ppTopBlock ("collection", SOME code)
316                (* end case *);                (* end case *);
317                  ppTopBlock ("initially", init);
318                ppTopBlock ("update", update);                ppTopBlock ("update", update);
319                string "/* Program end */"; PP.newline ppStrm;                string "/* Program end */"; PP.newline ppStrm;
320              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