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

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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