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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/translate/translate-basis.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/translate/translate-basis.sml

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

revision 2608, Fri May 2 18:04:54 2014 UTC revision 2611, Mon May 5 21:21:12 2014 UTC
# Line 233  Line 233 
233                                          end),                                          end),
234    
235                  (BV.op_innerField,           fn (y,  [_,Ty.SHAPE dd1,Ty.DIM d,Ty.SHAPE dd2,_], xs) =>                  (BV.op_innerField,           fn (y,  [_,Ty.SHAPE dd1,Ty.DIM d,Ty.SHAPE dd2,_], xs) =>
236                                                      let                                              [assignEin(y, mk.innerProductField(dd1,d,dd2),xs)]),
                                                     val  _=print(String.concat["Translate Inner product Field. "])  
                                                 in  
                                                 [assignEin(y, mk.innerProductField(dd1,d,dd2),xs)] end ),  
   
237                  (BV.op_colon,           fn (y, [sh1, sh2, _], xs) => let                  (BV.op_colon,           fn (y, [sh1, sh2, _], xs) => let
238                                              val ty1 as DstTy.TensorTy dd1 = shapeVarToTensor sh1                                              val ty1 as DstTy.TensorTy dd1 = shapeVarToTensor sh1
239                                              val ty2 as DstTy.TensorTy dd2 = shapeVarToTensor sh2                                              val ty2 as DstTy.TensorTy dd2 = shapeVarToTensor sh2
240                                          in                                          in
241                                              [assignEin(y, (mk.doubleDot(dd1,dd2)),xs)]                                              [assignEin(y, (mk.doubleDot(dd1,dd2)),xs)]
242                                          end),                                          end),
243                    (BV.op_colonField,       fn (y, [_,Ty.SHAPE dd1,_,Ty.SHAPE dd2, _], xs) =>
244                                                [assignEin(y, (mk.doubleDotField(dd1,dd2)),xs)]),
245                  (BV.fn_inside,          fn (y, [_, Ty.DIM d, _], xs) => assign(y, Op.Inside d, xs)),                  (BV.fn_inside,          fn (y, [_, Ty.DIM d, _], xs) => assign(y, Op.Inside d, xs)),
246                  (BV.clamp_rrr,          simpleOp (Op.Clamp DstTy.realTy)),                  (BV.clamp_rrr,          simpleOp (Op.Clamp DstTy.realTy)),
247                  (BV.clamp_vvv,          vectorOp Op.Clamp),                  (BV.clamp_vvv,          vectorOp Op.Clamp),

Legend:
Removed from v.2608  
changed lines
  Added in v.2611

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