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

SCM Repository

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

Diff of /branches/charisee/src/compiler/tree-il/tree-il-pp.sml

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

revision 1232, Mon May 16 23:37:52 2011 UTC revision 1301, Thu Jun 9 23:58:40 2011 UTC
# Line 120  Line 120 
120                  prln (out, [                  prln (out, [
121                      Var.name x, " = load<", Int.toString dim, "> (", expToString exp, ");\n"                      Var.name x, " = load<", Int.toString dim, "> (", expToString exp, ");\n"
122                    ])                    ])
123              | IL.S_Input(x, name, NONE) =>              | IL.S_Input(x, name, desc, NONE) =>
124                  prln (out, [                  prln (out, [
125                      Var.name x, " = input<", Ty.toString(Var.ty x), "> (\"",                      Var.name x, " = input<", Ty.toString(Var.ty x), "> (\"",
126                      String.toString name, "\");\n"                      String.toString name, "\",\"", String.toString desc, "\");\n"
127                    ])                    ])
128              | IL.S_Input(x, name, SOME dflt) =>              | IL.S_Input(x, name, desc, SOME dflt) =>
129                  prln (out, [                  prln (out, [
130                      Var.name x, " = input<", Ty.toString(Var.ty x), "> (\"",                      Var.name x, " = input<", Ty.toString(Var.ty x), "> (\"",
131                      String.toString name, "\",", expToString dflt, ");\n"                      String.toString name, "\",\"", String.toString desc, "\",",
132                        expToString dflt, ");\n"
133                    ])                    ])
134              | IL.S_Exit es => prln (out, [argsToString("exit", es), ";\n"])              | IL.S_Exit es => prln (out, [argsToString("exit", es), ";\n"])
135            (* return functions for methods *)            (* return functions for methods *)
# Line 170  Line 171 
171              pr (out, "\n")              pr (out, "\n")
172            end            end
173    
174      fun program (outS, IL.Program{props, globals, globalInit, strands, initially}) = let      fun program (outS, IL.Program{props, globals, inputInit, globalInit, strands, initially}) = let
175            val out = (outS, 0)            val out = (outS, 0)
176            val out' = incIndent out            val out' = incIndent out
177            in            in
# Line 181  Line 182 
182              (* end case *);              (* end case *);
183              prln(out, ["//***** GLOBALS *****\n"]);              prln(out, ["//***** GLOBALS *****\n"]);
184              List.app (ppVarDecl out') globals;              List.app (ppVarDecl out') globals;
185                prln(out, ["//***** INPUT INIT *****\n"]);
186                indent out'; ppBlock (out', inputInit); pr (out, "\n");
187              prln(out, ["//***** GLOBAL INIT *****\n"]);              prln(out, ["//***** GLOBAL INIT *****\n"]);
188              indent out'; ppBlock (out', globalInit); pr (out, "\n");              indent out'; ppBlock (out', globalInit); pr (out, "\n");
189              prln(out, ["//***** STRANDS *****\n"]);              prln(out, ["//***** STRANDS *****\n"]);

Legend:
Removed from v.1232  
changed lines
  Added in v.1301

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