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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1115, Thu May 5 04:42:18 2011 UTC revision 1116, Thu May 5 04:49:02 2011 UTC
# Line 9  Line 9 
9  structure BasisNames =  structure BasisNames =
10    struct    struct
11    
12    (* binary operators *)    (* binary operators (in precedence order) *)
     val op_at = Atom.atom "@"  
     val op_add = Atom.atom "+"  
     val op_sub = Atom.atom "-"  
     val op_mul = Atom.atom "*"  
     val op_convolve = Atom.atom "(*)"  
     val op_div = Atom.atom "/"  
13      val op_lt = Atom.atom "<"      val op_lt = Atom.atom "<"
14      val op_lte = Atom.atom "<="      val op_lte = Atom.atom "<="
15      val op_equ = Atom.atom "=="      val op_equ = Atom.atom "=="
16      val op_neq = Atom.atom "!="      val op_neq = Atom.atom "!="
17      val op_gte = Atom.atom ">="      val op_gte = Atom.atom ">="
18      val op_gt = Atom.atom ">"      val op_gt = Atom.atom ">"
19        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        val op_at = Atom.atom "@"
29    
30    (* unary operators *)    (* unary operators *)
31      val op_neg = Atom.atom "unary -"      val op_neg = Atom.atom "unary -"
32      val op_not = Atom.atom "!"      val op_not = Atom.atom "!"
33      val op_D = Atom.atom "D"      val op_D = Atom.atom "∇"                  (* u2207 *)
34        val op_Ddot = Atom.atom "∇•"            (* u2207, u2022 *)
35        val op_Dotimes = Atom.atom "∇⊗"         (* u2207, u2297 *)
36        val op_Dtimes = Atom.atom "∇×"           (* u2207, u00d7 *)
37      val op_norm = Atom.atom "|()|"      val op_norm = Atom.atom "|()|"
38    
39    (* function names *)    (* function names *)
40        val fn_abs = Atom.atom "abs"
41        val fn_atan2 = Atom.atom "atan2"
42      val fn_CL = Atom.atom "CL"                  (* linear anisotropy measure *)      val fn_CL = Atom.atom "CL"                  (* linear anisotropy measure *)
43      val fn_convolve = Atom.atom "convolve"      val fn_convolve = Atom.atom "convolve"
44      val fn_cos = Atom.atom "cos"      val fn_cos = Atom.atom "cos"
45      val fn_dot = Atom.atom "dot"      val fn_cross = Atom.atom "cross"            (* to be replaced by infix operator *)
46        val fn_dot = Atom.atom "dot"                (* to be replaced by infix operator *)
47        val fn_D = Atom.atom "D"
48        val fn_evecs = Atom.atom "evecs"
49        val fn_evals = Atom.atom "evals"
50      val fn_inside = Atom.atom "inside"      val fn_inside = Atom.atom "inside"
51        val fn_lerp = Atom.atom "lerp"
52      val fn_load = Atom.atom "load"      val fn_load = Atom.atom "load"
53      val fn_max = Atom.atom "max"      val fn_max = Atom.atom "max"
54      val fn_min = Atom.atom "min"      val fn_min = Atom.atom "min"
55      val fn_modulate = Atom.atom "modulate"      val fn_modulate = Atom.atom "modulate"
56        val fn_normalize = Atom.atom "normalize"
57        val fn_outer = Atom.atom "outer"
58      val fn_pow = Atom.atom "pow"      val fn_pow = Atom.atom "pow"
59      val fn_principleEvec = Atom.atom "principleEvec"      val fn_principleEvec = Atom.atom "principleEvec"
60      val fn_sin = Atom.atom "sin"      val fn_sin = Atom.atom "sin"
61        val fn_sqrt = Atom.atom "sqrt"
62        val fn_tan = Atom.atom "tan"
63        val fn_trace = Atom.atom "trace"
64    
65    (* kernel names *)    (* kernel names *)
66      val kn_bspln3 = Atom.atom "bspln3"      val kn_bspln3 = Atom.atom "bspln3"
67      val kn_bspln5 = Atom.atom "bspln5"      val kn_bspln5 = Atom.atom "bspln5"
68      val kn_ctmr = Atom.atom "ctmr"      val kn_ctmr = Atom.atom "ctmr"
69      val kn_tent = Atom.atom "tent"      val kn_tent = Atom.atom "tent"
70        val kn_c1tent = Atom.atom "c1tent"  (* fake version of tent for demo purposes *)
71        val kn_c2ctmr = Atom.atom "c2ctmr"  (* fake version of ctmr for demo purposes *)
72    
73      (* standard method names *)
74        val meth_update = Atom.atom "update"
75        val meth_stabilize = Atom.atom "stabilize"
76    
77    end    end

Legend:
Removed from v.1115  
changed lines
  Added in v.1116

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