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

SCM Repository

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

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

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

revision 3406, Wed Nov 11 15:55:00 2015 UTC revision 3407, Wed Nov 11 18:53:18 2015 UTC
# Line 51  Line 51 
51            fun ppIndex (ppStrm, NONE) = PP.string ppStrm ":"            fun ppIndex (ppStrm, NONE) = PP.string ppStrm ":"
52              | ppIndex (ppStrm, SOME e) = ppExp (ppStrm, e)              | ppIndex (ppStrm, SOME e) = ppExp (ppStrm, e)
53            fun pp e = (case e            fun pp e = (case e
54                   of AST.E_Var x => var x                   of AST.E_Var(x, _) => var x
55                    | AST.E_Lit lit => string (Literal.toString lit)                    | AST.E_Lit lit => string (Literal.toString lit)
56                    | AST.E_Select(e, field) => (pp e; string "."; var field)                    | AST.E_Select(e, (field, _)) => (pp e; string "."; var field)
57                    | AST.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))                    | AST.E_Prim(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))
58                    | AST.E_Apply(f, mvs, args, _) => (                    | AST.E_Prim(f, mvs, args, _) => (
59                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))
60                      | AST.E_Apply((f, _), args, _) => (var f; sp(); ppArgs (ppStrm, args))
61                    | AST.E_Comprehension(e, iters, _) => (                    | AST.E_Comprehension(e, iters, _) => (
62                        string "{";                        string "{";
63                          pp e; sp(); string "|"; sp();                          pp e; sp(); string "|"; sp();

Legend:
Removed from v.3406  
changed lines
  Added in v.3407

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