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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/ein/printer.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/ein/printer.sml

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

revision 2448, Tue Oct 1 00:57:08 2013 UTC revision 2449, Thu Oct 3 20:15:16 2013 UTC
# Line 21  Line 21 
21    
22      fun handleBeta(a,b)=String.concat["Delta_(",printIndex a, ",", printIndex b,")"]      fun handleBeta(a,b)=String.concat["Delta_(",printIndex a, ",", printIndex b,")"]
23    
24      fun printerE (Ein.EIN{params, index, body}) = let  
25            fun printbody term = (case term            fun printbody term = (case term
26              of E.Const r => Real.toString(r)              of E.Const r => Real.toString(r)
27              | E.Tensor(id, []) =>String.concat[" S",Int.toString(id)]              | E.Tensor(id, []) =>String.concat[" S",Int.toString(id)]
# Line 50  Line 50 
50                      String.concat [printbody(e1),"[", position,"]"]                      String.concat [printbody(e1),"[", position,"]"]
51                  end                  end
52              (* end case *))              (* end case *))
53            fun printerE (Ein.EIN{params, index, body}) = let
54          fun Index ((E.IX(dim))::i, count) = String.concat["(", Int.toString count,          fun Index ((E.IX(dim))::i, count) = String.concat["(", Int.toString count,
55                  " DIM:", Int.toString dim, ")", Index(i,count+1)]                  " DIM:", Int.toString dim, ")", Index(i,count+1)]
56              | Index ((E.SX(lb,ub))::i, count) = String.concat[ "} {Summation:(",Int.toString(count),              | Index ((E.SX(lb,ub))::i, count) = String.concat[ "} {Summation:(",Int.toString(count),

Legend:
Removed from v.2448  
changed lines
  Added in v.2449

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