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

SCM Repository

[diderot] Annotation of /trunk/src/compiler/basis/basis-names.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 435 - (view) (download)

1 : jhr 47 (* basis-names.sml
2 :     *
3 : jhr 435 * COPYRIGHT (c) 2010 The Diderot Project (http://diderot-language.cs.uchicago.edu)
4 : jhr 47 * 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 : jhr 247 val op_convolve = Atom.atom "(*)"
18 : jhr 47 val op_div = Atom.atom "/"
19 :     val op_lt = Atom.atom "<"
20 :     val op_lte = Atom.atom "<="
21 : jhr 79 val op_equ = Atom.atom "=="
22 : jhr 47 val op_neq = Atom.atom "!="
23 :     val op_gte = Atom.atom ">="
24 :     val op_gt = Atom.atom ">"
25 : jhr 79
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