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

SCM Repository

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

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

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

revision 1113, Thu May 5 04:11:52 2011 UTC revision 1301, Thu Jun 9 23:58:40 2011 UTC
# Line 193  Line 193 
193            val string = PP.string ppStrm            val string = PP.string ppStrm
194            fun var x = string(Var.nameOf x)            fun var x = string(Var.nameOf x)
195            in            in
196              fn AST.D_Input(x, NONE) => (              fn AST.D_Input(x, desc, NONE) => (
197                  PP.openHBox ppStrm;                  PP.openHBox ppStrm;
198                    string "input"; sp();                    string "input"; sp();
199                      string(concat["(\"", String.toString desc, "\")"]); sp();
200                    string(TU.toString(#2(Var.typeOf x))); sp(); var x; string ";";                    string(TU.toString(#2(Var.typeOf x))); sp(); var x; string ";";
201                  PP.closeBox ppStrm;                  PP.closeBox ppStrm;
202                  nl())                  nl())
203               | AST.D_Input(x, SOME e) => (               | AST.D_Input(x, desc, SOME e) => (
204                  PP.openHBox ppStrm;                  PP.openHBox ppStrm;
205                    string "input"; sp();                    string "input"; sp();
206                      string(concat["(\"", String.toString desc, "\")"]); sp();
207                    string(TU.toString(#2(Var.typeOf x))); sp(); var x;                    string(TU.toString(#2(Var.typeOf x))); sp(); var x;
208                    sp(); string "="; sp(); ppExp(ppStrm, e); string ";";                    sp(); string "="; sp(); ppExp(ppStrm, e); string ";";
209                  PP.closeBox ppStrm;                  PP.closeBox ppStrm;

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

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