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 1995, Wed Oct 3 13:59:20 2012 UTC revision 1996, Thu Oct 4 10:42:57 2012 UTC
# Line 64  Line 64 
64                        ppList ppIndex ("[", ",", "]") (ppStrm, indices))                        ppList ppIndex ("[", ",", "]") (ppStrm, indices))
65                    | AST.E_Cond(e1, e2, e3, _) => (                    | AST.E_Cond(e1, e2, e3, _) => (
66                        pp e2; sp(); string "if"; sp(); pp e1; sp(); string "else"; sp(); pp e3)                        pp e2; sp(); string "if"; sp(); pp e1; sp(); string "else"; sp(); pp e3)
67                      | AST.E_LoadNrrd(mvs, name, ty) => (
68                          case TU.pruneHead ty
69                           of Types.T_DynSequence _ => string "loadSeq"
70                            | Types.T_Image _ => string "loadImage"
71                            | _ => raise Fail "impossible"
72                          (* end case *);
73                          ppTyArgs (ppStrm, mvs); sp();
74                          string(concat["(\"", name, "\")"]))
75                    | AST.E_Coerce{dstTy, e, ...} => (                    | AST.E_Coerce{dstTy, e, ...} => (
76                        PP.openHBox ppStrm;                        PP.openHBox ppStrm;
77                          string "("; string(TU.toString dstTy); string ")";                          string "("; string(TU.toString dstTy); string ")";

Legend:
Removed from v.1995  
changed lines
  Added in v.1996

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