SCM Repository
[diderot] Annotation of /trunk/src/parser/operators.sml
Annotation of /trunk/src/parser/operators.sml
Parent Directory
| 
Revision Log
Revision 32 -
(view)
(download)
| 1 : |
jhr |
32 |
(* operators.sml
|
| 2 : |
|
|
*
|
| 3 : |
|
|
* COPYRIGHT (c) 2010 The Diderot Project (http://diderot.cs.uchicago.edu)
|
| 4 : |
|
|
* All rights reserved.
|
| 5 : |
|
|
*)
|
| 6 : |
|
|
|
| 7 : |
|
|
structure Operators =
|
| 8 : |
|
|
struct
|
| 9 : |
|
|
|
| 10 : |
|
|
(* binary operators *)
|
| 11 : |
|
|
val andAlso = Atom.atom "&&"
|
| 12 : |
|
|
val orElse = Atom.atom "||"
|
| 13 : |
|
|
val lt = Atom.atom "<"
|
| 14 : |
|
|
val lte = Atom.atom "<="
|
| 15 : |
|
|
val equ = Atom.atom "=="
|
| 16 : |
|
|
val neq = Atom.atom "!="
|
| 17 : |
|
|
val gt = Atom.atom ">"
|
| 18 : |
|
|
val gte = Atom.atom ">="
|
| 19 : |
|
|
val plus = Atom.atom "+"
|
| 20 : |
|
|
val minus = Atom.atom "+"
|
| 21 : |
|
|
val times = Atom.atom "*"
|
| 22 : |
|
|
val divide = Atom.atom "/"
|
| 23 : |
|
|
|
| 24 : |
|
|
(* selector operators *)
|
| 25 : |
|
|
val at = Atom.atom "@"
|
| 26 : |
|
|
val sub = Atom.atom "[]"
|
| 27 : |
|
|
|
| 28 : |
|
|
(* unary operators *)
|
| 29 : |
|
|
val uMinus = Atom.atom "unary -"
|
| 30 : |
|
|
val bNot = Atom.atom "not"
|
| 31 : |
|
|
|
| 32 : |
|
|
end
|
