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 57 - (view) (download)
Original Path: trunk/src/basis/basis-names.sml

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 :     (* operators *)
13 :     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 :     val op_eql = Atom.atom "=="
21 :     val op_neq = Atom.atom "!="
22 :     val op_gte = Atom.atom ">="
23 :     val op_gt = Atom.atom ">"
24 :     val op_D = Atom.atom "D"
25 :     val op_orelse = Atom.atom "||"
26 :     val op_andalso = Atom.atom "&&"
27 :     val op_norm = Atom.atom "|()|"
28 :    
29 :     (* function names *)
30 : jhr 57 val fn_CL = Atom.atom "CL" (* linear anisotropy measure *)
31 : jhr 47 val fn_convolve = Atom.atom "convolve"
32 :     val fn_cos = Atom.atom "cos"
33 :     val fn_dot = Atom.atom "dot"
34 :     val fn_inside = Atom.atom "inside"
35 :     val fn_load = Atom.atom "load"
36 :     val fn_pow = Atom.atom "pow"
37 : jhr 57 val fn_principleEvec = Atom.atom "principleEvec"
38 : jhr 47 val fn_sin = Atom.atom "sin"
39 :    
40 :     (* kernel names *)
41 :     val kn_bspln3 = Atom.atom "bspln3"
42 : glk 53 val kn_tent = Atom.atom "tent"
43 : jhr 47
44 :     end

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