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

trunk/src/basis/basis-names.sml revision 47, Tue Apr 13 14:57:27 2010 UTC trunk/src/compiler/basis/basis-names.sml revision 169, Thu Jul 22 20:07:37 2010 UTC
# Line 9  Line 9 
9  structure BasisNames =  structure BasisNames =
10    struct    struct
11    
12    (* operators *)    (* binary operators *)
13      val op_at = Atom.atom "@"      val op_at = Atom.atom "@"
14      val op_add = Atom.atom "+"      val op_add = Atom.atom "+"
15      val op_sub = Atom.atom "-"      val op_sub = Atom.atom "-"
# Line 17  Line 17 
17      val op_div = Atom.atom "/"      val op_div = Atom.atom "/"
18      val op_lt = Atom.atom "<"      val op_lt = Atom.atom "<"
19      val op_lte = Atom.atom "<="      val op_lte = Atom.atom "<="
20      val op_eql = Atom.atom "=="      val op_equ = Atom.atom "=="
21      val op_neq = Atom.atom "!="      val op_neq = Atom.atom "!="
22      val op_gte = Atom.atom ">="      val op_gte = Atom.atom ">="
23      val op_gt = Atom.atom ">"      val op_gt = Atom.atom ">"
24        val op_subscript = Atom.atom "[]"
25    
26      (* unary operators *)
27        val op_neg = Atom.atom "unary -"
28        val op_not = Atom.atom "!"
29      val op_D = Atom.atom "D"      val op_D = Atom.atom "D"
     val op_orelse = Atom.atom "||"  
     val op_andalso = Atom.atom "&&"  
30      val op_norm = Atom.atom "|()|"      val op_norm = Atom.atom "|()|"
31    
32    (* function names *)    (* function names *)
33        val fn_CL = Atom.atom "CL"                  (* linear anisotropy measure *)
34      val fn_convolve = Atom.atom "convolve"      val fn_convolve = Atom.atom "convolve"
35      val fn_cos = Atom.atom "cos"      val fn_cos = Atom.atom "cos"
36      val fn_dot = Atom.atom "dot"      val fn_dot = Atom.atom "dot"
37      val fn_inside = Atom.atom "inside"      val fn_inside = Atom.atom "inside"
38      val fn_load = Atom.atom "load"      val fn_load = Atom.atom "load"
39        val fn_max = Atom.atom "max"
40        val fn_min = Atom.atom "min"
41        val fn_modulate = Atom.atom "modulate"
42      val fn_pow = Atom.atom "pow"      val fn_pow = Atom.atom "pow"
43        val fn_principleEvec = Atom.atom "principleEvec"
44      val fn_sin = Atom.atom "sin"      val fn_sin = Atom.atom "sin"
45    
46    (* kernel names *)    (* kernel names *)
47      val kn_bspln3 = Atom.atom "bspln3"      val kn_bspln3 = Atom.atom "bspln3"
48        val kn_bspln5 = Atom.atom "bspln5"
49        val kn_ctmr = Atom.atom "ctmr"
50        val kn_tent = Atom.atom "tent"
51    
52    end    end

Legend:
Removed from v.47  
changed lines
  Added in v.169

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