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

SCM Repository

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

Diff of /trunk/src/compiler/translate/translate-basis.sml

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

revision 255, Sun Aug 8 14:55:53 2010 UTC revision 256, Mon Aug 9 17:28:57 2010 UTC
# Line 81  Line 81 
81                  (BV.neg_t,              tensorOp Op.Neg),                  (BV.neg_t,              tensorOp Op.Neg),
82                  (BV.neg_f,              fn (y, _, xs) => assign(y, Op.NegField, xs)),                  (BV.neg_f,              fn (y, _, xs) => assign(y, Op.NegField, xs)),
83                  (BV.op_at,              fn (y, _, xs) => assign(y, Op.Probe, xs)),                  (BV.op_at,              fn (y, _, xs) => assign(y, Op.Probe, xs)),
84                    (BV.op_convolve,        fn (y, _, xs) => assign(y, Op.Convolve, xs)),
85                  (BV.op_D,               fn (y, _, xs) => assign(y, Op.DiffField, xs)),                  (BV.op_D,               fn (y, _, xs) => assign(y, Op.DiffField, xs)),
86                  (BV.op_norm,            tensorOp Op.Norm),                  (BV.op_norm,            tensorOp Op.Norm),
87                  (BV.op_not,             simpleOp Op.Not),                  (BV.op_not,             simpleOp Op.Not),
# Line 88  Line 89 
89                  (BV.op_subscript,       fn (y, [SK, NK], xs) => ??), (*FIXME*)                  (BV.op_subscript,       fn (y, [SK, NK], xs) => ??), (*FIXME*)
90  *)  *)
91                  (BV.fn_CL,              fn (y, _, xs) => assign(y, Op.CL, xs)),                  (BV.fn_CL,              fn (y, _, xs) => assign(y, Op.CL, xs)),
92                  (BV.fn_convolve,        fn (y, _, xs) => assign(y, Op.Convolve, xs)),                  (BV.fn_convolve,        fn (y, _, [h, img]) => assign(y, Op.Convolve, [img, h])),
93                  (BV.fn_cos,             simpleOp Op.Cos),                  (BV.fn_cos,             simpleOp Op.Cos),
94                  (BV.fn_dot,             vectorOp Op.Dot),                  (BV.fn_dot,             vectorOp Op.Dot),
95                  (BV.fn_inside,          fn (y, _, xs) => assign(y, Op.Inside, xs)),                  (BV.fn_inside,          fn (y, _, xs) => assign(y, Op.Inside, xs)),
# Line 115  Line 116 
116    
117      fun translate (y, f, mvs, xs) = (case VTbl.find tbl f      fun translate (y, f, mvs, xs) = (case VTbl.find tbl f
118             of SOME transFn => transFn(y, mvs, xs)             of SOME transFn => transFn(y, mvs, xs)
119              | NONE => raise Fail("TranslateBasis.translate: unknown function " ^ Var.nameOf f)              | NONE => raise Fail("TranslateBasis.translate: unknown function " ^ Var.uniqueNameOf f)
120            (* end case *))            (* end case *))
121    
122    end    end

Legend:
Removed from v.255  
changed lines
  Added in v.256

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