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

SCM Repository

[diderot] Diff of /branches/chiw17/src/compiler/ein/ein-pp.sml
ViewVC logotype

Diff of /branches/chiw17/src/compiler/ein/ein-pp.sml

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

revision 5029, Tue Jul 11 22:38:23 2017 UTC revision 5030, Tue Jul 11 22:53:10 2017 UTC
# Line 62  Line 62 
62                  | iter ((e2, n1)::es) =                  | iter ((e2, n1)::es) =
63                  concat ["[", expToString e2 , concat ["{", shp2s n1, "}"],  "]", iter(es)]                  concat ["[", expToString e2 , concat ["{", shp2s n1, "}"],  "]", iter(es)]
64                  in concat ["Cmp(", expToString e1,")", (iter(es))] end                  in concat ["Cmp(", expToString e1,")", (iter(es))] end
65   | E.PolyWrap(e1, e2, [])   | E.OField(E.PolyWrap, e1, e2, [])
66   => concat ["PolyWrap(", expToString e1, ",", expToString e2,  ")"]   => concat ["PolyWrap(", expToString e1, ",", expToString e2,  ")"]
67              | E.PolyWrap(e1, e2, alpha)    | E.OField(E.PolyWrap, e1, e2, alpha)
68                  => concat ["PolyWrap(", expToString e1, ",", expToString e2, "dx^", multiIndex2s alpha, ")"]                  => concat ["PolyWrap(", expToString e1, ",", expToString e2, "dx^", multiIndex2s alpha, ")"]
69     | E.OField(E.Fem, e1, e2, [])
70     => concat ["FEM(", expToString e1, ",", expToString e2,  ")"]
71     | E.OField(E.Fem, e1, e2, alpha)
72     => concat ["FEM(", expToString e1, ",", expToString e2, "dx^", multiIndex2s alpha, ")"]
73    
74   | E.Poly(tid, cx, 1, []) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ")"]   | E.Poly(tid, cx, 1, []) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ")"]
75   | E.Poly(tid, cx, 1, dx) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ") dx",multiIndex2s  dx]   | E.Poly(tid, cx, 1, dx) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ") dx",multiIndex2s  dx]
76               | E.Poly(tid, cx, n, []) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ")^",  i2s n]               | E.Poly(tid, cx, n, []) => concat ["(P", i2s tid,"_", multiIndex2s  cx, ")^",  i2s n]

Legend:
Removed from v.5029  
changed lines
  Added in v.5030

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