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

SCM Repository

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

Diff of /branches/vis15/src/compiler/tree-ir/tree-pp.sml

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

revision 3923, Wed Jun 1 17:18:20 2016 UTC revision 3924, Fri Jun 3 17:30:27 2016 UTC
# Line 146  Line 146 
146                  pr (out, " else ");                  pr (out, " else ");
147                  ppBlock (out, blk2);                  ppBlock (out, blk2);
148                  pr (out, "\n"))                  pr (out, "\n"))
149                | IR.S_For(x, e1, e2, blk) => (
150                    prln (out, [
151                        "for ", Var.name x, " = ", expToString e1, " to ", expToString e2, " "
152                      ]);
153                    ppBlock (out, blk);
154                    pr (out, "\n"))
155              | IR.S_Foreach(x, e, blk) => (              | IR.S_Foreach(x, e, blk) => (
156                  prln (out, [                  prln (out, [
157                      "foreach ", Ty.toString(Var.ty x), " ", Var.name x, " in ", expToString e, " "                      "foreach ", Ty.toString(Var.ty x), " ", Var.name x, " in ", expToString e, " "
# Line 198  Line 204 
204      fun program (outS, prog) = let      fun program (outS, prog) = let
205            val IR.Program{            val IR.Program{
206                  props, target, consts, inputs, constInit,                  props, target, consts, inputs, constInit,
207                  globals, globalInit, strand, create, update                  globals, globalInit, strand,
208                    create=IR.Create{dim, code}, update
209                } = prog                } = prog
210            val out = (outS, 0)            val out = (outS, 0)
211            val out' = incIndent out            val out' = incIndent out
# Line 222  Line 229 
229              indent out'; ppBlock (out', globalInit); pr (out, "\n");              indent out'; ppBlock (out', globalInit); pr (out, "\n");
230              prln(out, ["//***** STRAND *****\n"]);              prln(out, ["//***** STRAND *****\n"]);
231              ppStrand out strand;              ppStrand out strand;
232              prln(out, ["//***** CREATE *****\n"]);              case dim
233  (* FIXME               of SOME d => prln(out, ["//***** CREATE GRID(", Int.toString d, ") *****\n"])
234              indent out'; ppBlock (out', create); pr (out, "\n");                | NONE => prln(out, ["//***** CREATE COLLECTION *****\n"])
235  *)              (* end case *);
236                indent out'; ppBlock (out', code); pr (out, "\n");
237              case update              case update
238               of SOME blk => (               of SOME blk => (
239                    prln(out, ["//***** GLOBAL UPDATE *****\n"]);                    prln(out, ["//***** GLOBAL UPDATE *****\n"]);

Legend:
Removed from v.3923  
changed lines
  Added in v.3924

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