Mercurial > urweb

comparison src/sql.sml @ 2235:0aae15c2a05a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactored a lot and fixed an and/or swap, but still not good on current test.
author Ziv Scully <ziv@mit.edu>
date Mon, 29 Jun 2015 01:33:47 -0700
parents 70ec9bb337be
children 7f92d70a326e
comparison
equal deleted inserted replaced
2234:2f7ed04332a0 2235:0aae15c2a05a
212 cmp "<>" Ne, 212 cmp "<>" Ne,
213 cmp "<=" Le, 213 cmp "<=" Le,
214 cmp "<" Lt, 214 cmp "<" Lt,
215 cmp ">=" Ge, 215 cmp ">=" Ge,
216 cmp ">" Gt, 216 cmp ">" Gt,
217 wrap (const "AND") (fn () => RLop Or), 217 wrap (const "AND") (fn () => RLop And),
218 wrap (const "OR") (fn () => RLop And)] 218 wrap (const "OR") (fn () => RLop Or)]
219 219
220 datatype ('a, 'b) sum = inl of 'a | inr of 'b 220 datatype ('a, 'b) sum = inl of 'a | inr of 'b
221 221
222 fun string chs = 222 fun string chs =
223 case chs of 223 case chs of