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 1910 - (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 1116 (* binary operators (in precedence order) *)
13 : jhr 47 val op_lt = Atom.atom "<"
14 :     val op_lte = Atom.atom "<="
15 : jhr 79 val op_equ = Atom.atom "=="
16 : jhr 47 val op_neq = Atom.atom "!="
17 :     val op_gte = Atom.atom ">="
18 :     val op_gt = Atom.atom ">"
19 : jhr 1116 val op_add = Atom.atom "+"
20 :     val op_sub = Atom.atom "-"
21 :     val op_mul = Atom.atom "*"
22 :     val op_dot = Atom.atom "•" (* u2022 *)
23 :     val op_cross = Atom.atom "×" (* u00d7 *)
24 :     val op_convolve = Atom.atom "⊛" (* u229b *)
25 :     val op_outer = Atom.atom "⊗" (* u2297 *)
26 :     val op_div = Atom.atom "/"
27 :     val op_exp = Atom.atom "^"
28 : jhr 1296 val op_at = Atom.atom "@" (* obsolete *)
29 : jhr 79
30 : jhr 1296 (* assignment operators *)
31 :     val asgn_add = Atom.atom "+="
32 :     val asgn_sub = Atom.atom "-="
33 :     val asgn_mul = Atom.atom "*="
34 :     val asgn_div = Atom.atom "/="
35 :     (* QUESTION: do we want ^= ? *)
36 :    
37 : jhr 79 (* unary operators *)
38 :     val op_neg = Atom.atom "unary -"
39 :     val op_not = Atom.atom "!"
40 : jhr 1116 val op_D = Atom.atom "∇" (* u2207 *)
41 :     val op_Ddot = Atom.atom "∇•" (* u2207, u2022 *)
42 :     val op_Dotimes = Atom.atom "∇⊗" (* u2207, u2297 *)
43 :     val op_Dtimes = Atom.atom "∇×" (* u2207, u00d7 *)
44 : jhr 47 val op_norm = Atom.atom "|()|"
45 :    
46 :     (* function names *)
47 : jhr 1116 val fn_abs = Atom.atom "abs"
48 :     val fn_atan2 = Atom.atom "atan2"
49 : jhr 1295 val fn_clamp = Atom.atom "clamp"
50 : jhr 47 val fn_cos = Atom.atom "cos"
51 : jhr 1116 val fn_D = Atom.atom "D"
52 :     val fn_evecs = Atom.atom "evecs"
53 :     val fn_evals = Atom.atom "evals"
54 : jhr 1910 val fn_fmod = Atom.atom "fmod"
55 : jhr 47 val fn_inside = Atom.atom "inside"
56 : jhr 1116 val fn_lerp = Atom.atom "lerp"
57 : jhr 47 val fn_load = Atom.atom "load"
58 : jhr 1910 val fn_log10 = Atom.atom "log10"
59 :     val fn_ln = Atom.atom "ln"
60 : jhr 143 val fn_max = Atom.atom "max"
61 :     val fn_min = Atom.atom "min"
62 : jhr 83 val fn_modulate = Atom.atom "modulate"
63 : jhr 1116 val fn_normalize = Atom.atom "normalize"
64 : jhr 57 val fn_principleEvec = Atom.atom "principleEvec"
65 : jhr 47 val fn_sin = Atom.atom "sin"
66 : jhr 1116 val fn_sqrt = Atom.atom "sqrt"
67 :     val fn_tan = Atom.atom "tan"
68 :     val fn_trace = Atom.atom "trace"
69 : jhr 47
70 :     (* kernel names *)
71 :     val kn_bspln3 = Atom.atom "bspln3"
72 : jhr 169 val kn_bspln5 = Atom.atom "bspln5"
73 :     val kn_ctmr = Atom.atom "ctmr"
74 : glk 53 val kn_tent = Atom.atom "tent"
75 : jhr 1116 val kn_c1tent = Atom.atom "c1tent" (* fake version of tent for demo purposes *)
76 :     val kn_c2ctmr = Atom.atom "c2ctmr" (* fake version of ctmr for demo purposes *)
77 : jhr 47
78 :     end

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