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 3541, Mon Jan 4 18:03:27 2016 UTC revision 3557, Fri Jan 8 19:54:58 2016 UTC
# Line 17  Line 17 
17      fun handleAlpha alpha= String.concat[String.concatWith "," (List.map handleIndex alpha)]      fun handleAlpha alpha= String.concat[String.concatWith "," (List.map handleIndex alpha)]
18      fun handleBeta(a,b)=String.concat["δ_(",handleIndex a, ",", handleIndex b,")"]      fun handleBeta(a,b)=String.concat["δ_(",handleIndex a, ",", handleIndex b,")"]
19      fun handleSumRange (mu,lb,ub)= String.concat[(handleIndex mu),"[",iTos(lb),"-",iTos(ub),"]"]      fun handleSumRange (mu,lb,ub)= String.concat[(handleIndex mu),"[",iTos(lb),"-",iTos(ub),"]"]
20      fun printbody b= (case b      fun printbody b= let
21              val _ ="\nstart printer"
22     (*
23            val str=(case b
24          of E.B(E.Const r) => iTos(r)          of E.B(E.Const r) => iTos(r)
25          | E.B(E.ConstR r) =>RationalEin.toString r          | E.B(E.ConstR r) =>RationalEin.toString r
26          | E.Tensor(id, []) =>String.concat[" S",iTos(id)]          | E.Tensor(id, []) =>String.concat[" S",iTos(id)]
# Line 75  Line 78 
78          | E.EvalKrn  del=>String.concat["Krn1pos ",iTos(del)]          | E.EvalKrn  del=>String.concat["Krn1pos ",iTos(del)]
79          | E.BuildPos(e1,e2)=>String.concat["Buildpos ",printbody e2]          | E.BuildPos(e1,e2)=>String.concat["Buildpos ",printbody e2]
80          (* end case *))          (* end case *))
81            val _ ="\nrtn printer"
82            *)
83            val str=""
84            in str end
85    
86      (*printerE:EIN ->string*)      (*printerE:EIN ->string*)
87      fun printerE (Ein.EIN{params, index, body}) = let      fun printerE (Ein.EIN{params, index, body}) = let

Legend:
Removed from v.3541  
changed lines
  Added in v.3557

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