Mercurial > urweb
annotate caching-tests/test.ur @ 2239:f70a91f7810d
Add limited support for parsing SQL arithmetic.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Tue, 07 Jul 2015 00:07:24 -0700 |
parents | 7f92d70a326e |
children | 200a7ed4343b |
rev | line source |
---|---|
ziv@2213 | 1 table tab : {Id : int, Val : int} PRIMARY KEY Id |
ziv@2203 | 2 |
ziv@2213 | 3 fun cache id = |
ziv@2225 | 4 res <- oneOrNoRows (SELECT tab.Val |
ziv@2225 | 5 FROM tab |
ziv@2225 | 6 WHERE tab.Id = {[id]}); |
ziv@2204 | 7 return <xml><body> |
ziv@2213 | 8 Reading {[id]}. |
ziv@2204 | 9 {case res of |
ziv@2213 | 10 None => <xml>?</xml> |
ziv@2213 | 11 | Some row => <xml>{[row.Tab.Val]}</xml>} |
ziv@2204 | 12 </body></xml> |
ziv@2203 | 13 |
ziv@2213 | 14 fun flush id = |
ziv@2239 | 15 dml (UPDATE tab |
ziv@2239 | 16 SET Val = Val * (Id + 2) / Val - 3 |
ziv@2239 | 17 WHERE Id = {[id]} OR Id = {[id - 1]} OR Id = {[id + 1]}); |
ziv@2204 | 18 return <xml><body> |
ziv@2235 | 19 Changed {[id]}! |
ziv@2204 | 20 </body></xml> |
ziv@2234 | 21 |
ziv@2235 | 22 (* fun flush id = *) |
ziv@2235 | 23 (* res <- oneOrNoRows (SELECT tab.Val *) |
ziv@2235 | 24 (* FROM tab *) |
ziv@2235 | 25 (* WHERE tab.Id = {[id]}); *) |
ziv@2235 | 26 (* (case res of *) |
ziv@2235 | 27 (* None => dml (INSERT INTO tab (Id, Val) *) |
ziv@2235 | 28 (* VALUES ({[id]}, 0)) *) |
ziv@2235 | 29 (* | Some row => dml (UPDATE tab *) |
ziv@2235 | 30 (* SET Val = {[row.Tab.Val + 1]} *) |
ziv@2235 | 31 (* WHERE Id = {[id]} OR Id = {[id + 1]})); *) |
ziv@2235 | 32 (* return <xml><body> *) |
ziv@2235 | 33 (* {case res of *) |
ziv@2235 | 34 (* None => <xml>Initialized {[id]}!</xml> *) |
ziv@2235 | 35 (* | Some row => <xml>Incremented {[id]}!</xml>} *) |
ziv@2235 | 36 (* </body></xml> *) |