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 3691, Fri Mar 18 20:58:57 2016 UTC revision 3749, Wed Apr 13 07:31:31 2016 UTC
# Line 134  Line 134 
134                    ]);                    ]);
135                  ppBlock (out, blk);                  ppBlock (out, blk);
136                  pr (out, "\n"))                  pr (out, "\n"))
             | IR.S_New(strand, args) =>  
                 prln (out, [argsToString("new "^Atom.toString strand, args), ";\n"])  
             | IR.S_Save([x], rhs) =>  
                 prln (out, [IR.StateVar.toString x, " = ", expToString rhs, ";\n"])  
             | IR.S_Save(x::xs, e) => (  
                 prln(out, ["(", IR.StateVar.toString x]);  
                 List.app (fn x => prl(out, [",", IR.StateVar.toString x])) xs;  
                 prl (out, [") = ", expToString e, ";\n"]))  
137              | IR.S_LoadNrrd(x, ty, nrrd) =>              | IR.S_LoadNrrd(x, ty, nrrd) =>
138                  prln (out, [                  prln (out, [
139                      Var.name x, " = load<", Ty.toString ty, "> (\"", String.toString nrrd, "\");\n"                      Var.name x, " = load<", Ty.toString ty, "> (\"", String.toString nrrd, "\");\n"
# Line 168  Line 160 
160                      String.toString name, "\",\"", descToString desc, "\",\"",                      String.toString name, "\",\"", descToString desc, "\",\"",
161                      String.toString dflt, "\");\n"                      String.toString dflt, "\");\n"
162                    ])                    ])
163                | IR.S_New(strand, args) =>
164                    prln (out, [argsToString("new "^Atom.toString strand, args), ";\n"])
165                | IR.S_Save([], _) => raise Fail "bogus Save statement"
166                | IR.S_Save([x], rhs) =>
167                    prln (out, [IR.StateVar.toString x, " = ", expToString rhs, ";\n"])
168                | IR.S_Save(x::xs, e) => (
169                    prln(out, ["(", IR.StateVar.toString x]);
170                    List.app (fn x => prl(out, [",", IR.StateVar.toString x])) xs;
171                    prl (out, [") = ", expToString e, ";\n"]))
172              | IR.S_Exit es => prln (out, [argsToString("exit", es), ";\n"])              | IR.S_Exit es => prln (out, [argsToString("exit", es), ";\n"])
173            (* return functions for methods *)            (* return functions for methods *)
174              | IR.S_Active => prln (out, ["active;\n"])              | IR.S_Active => prln (out, ["active;\n"])

Legend:
Removed from v.3691  
changed lines
  Added in v.3749

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