Home My Page Projects Code Snippets Project Openings diderot

# SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-to-mid/Transform.sml
 [diderot] / branches / charisee / src / compiler / high-to-mid / Transform.sml

# Diff of /branches/charisee/src/compiler/high-to-mid/Transform.sml

revision 2837, Wed Nov 19 23:42:17 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 32  Line 32
32  structure DstV = DstIL.Var  structure DstV = DstIL.Var
33  structure SrcV = SrcIL.Var  structure SrcV = SrcIL.Var
34  structure P=Printer  structure P=Printer
35  structure shift=ShiftEin
structure split=SplitEin
36
37  in  in
38  val testing=1  val testing=1
# Line 43  Line 42
42  (*Transform differentiation index to world-space*)  (*Transform differentiation index to world-space*)
43  (*Returns new deltas, summations, and List of Tensor Products*)  (*Returns new deltas, summations, and List of Tensor Products*)
44  fun ImgtoWorldSpace(dels, outerShape,dim,Pid,ns)= let  fun ImgtoWorldSpace(dels, outerShape,dim,Pid,ns)= let
45      val _=print "\n In ImgtoWorld space"
46      val dim'=dim-1      val dim'=dim-1
47      fun setMatrix(imgix,wrdix) = E.Tensor(Pid,[ E.V imgix, E.V wrdix])      fun setMatrix(imgix,wrdix) = E.Tensor(Pid,[ E.V imgix, E.V wrdix])
48
# Line 74  Line 73
73              body=E.Sum(sx,E.Prod([E.Tensor(0,tshape@newdels)]@rest))              body=E.Sum(sx,E.Prod([E.Tensor(0,tshape@newdels)]@rest))
74          }          }
75
76      val _ = print(String.concat["\n Super Lift Transform \n ",(split.printA (newArg,newbie',[oldArg,PArg])) ,"\n"])
77      val data=assignEin (newArg, newbie', [oldArg,PArg])      val data=assignEin (newArg, newbie', [oldArg,PArg])
78      val ix=List.tabulate((length(dels)),fn _=> dim)      val ix=List.tabulate((length(dels)),fn _=> dim)
79      in      in

Legend:
 Removed from v.2837 changed lines Added in v.2838