Annotation of /trunk/src/compiler/basis/basis-names.sml

Parent Directory | Revision Log

---

Revision 169 - (view) (download)

1 :	jhr	47	(* basis-names.sml
2 :			*
3 :			* COPYRIGHT (c) 2010 The Diderot Project (http://diderot.cs.uchicago.edu)
4 :			* All rights reserved.
5 :			*
6 :			* Builtin names used for Basis functions.
7 :			*)
8 :
9 :			structure BasisNames =
10 :			struct
11 :
12 :	jhr	79	(* binary operators *)
13 :	jhr	47	val op_at = Atom.atom "@"
14 :			val op_add = Atom.atom "+"
15 :			val op_sub = Atom.atom "-"
16 :			val op_mul = Atom.atom "*"
17 :			val op_div = Atom.atom "/"
18 :			val op_lt = Atom.atom "<"
19 :			val op_lte = Atom.atom "<="
20 :	jhr	79	val op_equ = Atom.atom "=="
21 :	jhr	47	val op_neq = Atom.atom "!="
22 :			val op_gte = Atom.atom ">="
23 :			val op_gt = Atom.atom ">"
24 :	jhr	79	val op_subscript = Atom.atom "[]"
25 :
26 :			(* unary operators *)
27 :			val op_neg = Atom.atom "unary -"
28 :			val op_not = Atom.atom "!"
29 :	jhr	47	val op_D = Atom.atom "D"
30 :			val op_norm = Atom.atom "|()|"
31 :
32 :			(* function names *)
33 :	jhr	57	val fn_CL = Atom.atom "CL" (* linear anisotropy measure *)
34 :	jhr	47	val fn_convolve = Atom.atom "convolve"
35 :			val fn_cos = Atom.atom "cos"
36 :			val fn_dot = Atom.atom "dot"
37 :			val fn_inside = Atom.atom "inside"
38 :			val fn_load = Atom.atom "load"
39 :	jhr	143	val fn_max = Atom.atom "max"
40 :			val fn_min = Atom.atom "min"
41 :	jhr	83	val fn_modulate = Atom.atom "modulate"
42 :	jhr	47	val fn_pow = Atom.atom "pow"
43 :	jhr	57	val fn_principleEvec = Atom.atom "principleEvec"
44 :	jhr	47	val fn_sin = Atom.atom "sin"
45 :
46 :			(* kernel names *)
47 :			val kn_bspln3 = Atom.atom "bspln3"
48 :	jhr	169	val kn_bspln5 = Atom.atom "bspln5"
49 :			val kn_ctmr = Atom.atom "ctmr"
50 :	glk	53	val kn_tent = Atom.atom "tent"
51 :	jhr	47
52 :			end

---

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