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

SCM Repository

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

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

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

revision 2489, Mon Oct 21 19:43:32 2013 UTC revision 2490, Mon Oct 21 21:17:25 2013 UTC
# Line 222  Line 222 
222            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
223            val string = PP.string ppStrm            val string = PP.string ppStrm
224            fun var x = string(Var.nameOf x)            fun var x = string(Var.nameOf x)
225              fun ppDesc NONE = ()
226                | ppDesc (SOME desc) = (
227                    string(concat["(\"", String.toString desc, "\")"]); sp())
228            in            in
229              fn AST.D_Input(x, desc, NONE) => (              fn AST.D_Input(x, desc, NONE) => (
230                  PP.openHBox ppStrm;                  PP.openHBox ppStrm;
231                    string "input"; sp();                    string "input"; sp();
232                    string(concat["(\"", String.toString desc, "\")"]); sp();                    ppDesc desc;
233                    string(TU.toString(#2(Var.typeOf x))); sp(); var x; string ";";                    string(TU.toString(#2(Var.typeOf x))); sp(); var x; string ";";
234                  PP.closeBox ppStrm;                  PP.closeBox ppStrm;
235                  nl())                  nl())
236               | AST.D_Input(x, desc, SOME e) => (               | AST.D_Input(x, desc, SOME e) => (
237                  PP.openHBox ppStrm;                  PP.openHBox ppStrm;
238                    string "input"; sp();                    string "input"; sp();
239                    string(concat["(\"", String.toString desc, "\")"]); sp();                    ppDesc desc;
240                    string(TU.toString(#2(Var.typeOf x))); sp(); var x;                    string(TU.toString(#2(Var.typeOf x))); sp(); var x;
241                    sp(); string "="; sp(); ppExp(ppStrm, e); string ";";                    sp(); string "="; sp(); ppExp(ppStrm, e); string ";";
242                  PP.closeBox ppStrm;                  PP.closeBox ppStrm;

Legend:
Removed from v.2489  
changed lines
  Added in v.2490

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