SCM Repository
Annotation of /trunk/src/compiler/basis/basis-names.sml
Parent Directory
| 
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 |
