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 3405, Wed Nov 11 14:46:13 2015 UTC revision 3406, Wed Nov 11 15:55:00 2015 UTC
# Line 53  Line 53 
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)
57                    | AST.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))                    | AST.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))
58                    | AST.E_Apply(f, mvs, args, _) => (                    | AST.E_Apply(f, mvs, args, _) => (
59                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))                        var f; ppTyArgs (ppStrm, mvs); sp(); ppArgs (ppStrm, args))
# Line 61  Line 62 
62                          pp e; sp(); string "|"; sp();                          pp e; sp(); string "|"; sp();
63                          ppList ppIter ("(", ",", "") (ppStrm, iters);                          ppList ppIter ("(", ",", "") (ppStrm, iters);
64                        string "}")                        string "}")
65                    | AST.E_Cons(es, _) => (                    | AST.E_Tensor(es, _) => (
66                        ppList ppExp ("[", ",", "]") (ppStrm, es))                        ppList ppExp ("[", ",", "]") (ppStrm, es))
67                    | AST.E_Seq(es, _) => (                    | AST.E_Seq(es, _) => (
68                        ppList ppExp ("{", ",", "}") (ppStrm, es))                        ppList ppExp ("{", ",", "}") (ppStrm, es))
# Line 85  Line 86 
86                        case e                        case e
87                         of AST.E_Var _ => pp e                         of AST.E_Var _ => pp e
88                          | AST.E_Lit _ => pp e                          | AST.E_Lit _ => pp e
89                          | AST.E_Cons _ => pp e                          | AST.E_Tensor _ => pp e
90                          | AST.E_Seq _ => pp e                          | AST.E_Seq _ => pp e
91                          | _ => (string "("; pp e; string ")")                          | _ => (string "("; pp e; string ")")
92                        (* end case *))                        (* end case *))

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

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