Mercurial > urweb

diff caching-tests/test.ur @ 2294:f8903af753ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support nested queries but disable UrFlow for now.
author Ziv Scully <ziv@mit.edu>
date Thu, 19 Nov 2015 01:59:00 -0500
parents b7615e0ac4b0
children e6c5bb62fef8
line wrap: on
line diff
--- a/caching-tests/test.ur	Wed Nov 18 14:48:24 2015 -0500
+++ b/caching-tests/test.ur	Thu Nov 19 01:59:00 2015 -0500
@@ -1,9 +1,7 @@
 table tab : {Id : int, Val : int, Foo : int} PRIMARY KEY Id
 
 fun cache id =
-    res <- oneOrNoRows (SELECT tab.Val
-                        FROM tab
-                        WHERE tab.Id = {[id]});
+    res <- oneOrNoRows (SELECT tab.Val FROM tab WHERE tab.Id = {[id]});
     return <xml><body>
       cache
       {case res of
@@ -11,21 +9,32 @@
          | Some row => <xml>{[row.Tab.Val]}</xml>}
     </body></xml>
 
-fun sillyRecursive {Id = id : int, FooBar = fooBar} =
-    if fooBar <= 0
-    then 0
-    else 1 + sillyRecursive {Id = id, FooBar = fooBar - 1}
+(* fun cacheAlt id = *)
+(*     res <- oneOrNoRows (SELECT Q.Id *)
+(*                         FROM (SELECT Tab.Id AS Id FROM tab WHERE Tab.Id = {[id]}) *)
+(*                         AS Q); *)
+(*     return <xml><body> *)
+(*       cacheAlt *)
+(*       {case res of *)
+(*            None => <xml>?</xml> *)
+(*          | Some row => <xml>{[row.Q.Id]}</xml>} *)
+(*     </body></xml> *)
 
-fun cacheR (r : {Id : int, FooBar : int}) =
-    res <- oneOrNoRows (SELECT tab.Val
-                        FROM tab
-                        WHERE tab.Id = {[r.Id]});
-    return <xml><body>
-      cacheR {[r.FooBar]}
-      {case res of
-           None => <xml>?</xml>
-         | Some row => <xml>{[row.Tab.Val]}</xml>}
-    </body></xml>
+(* fun sillyRecursive {Id = id : int, FooBar = fooBar} = *)
+(*     if fooBar <= 0 *)
+(*     then 0 *)
+(*     else 1 + sillyRecursive {Id = id, FooBar = fooBar - 1} *)
+
+(* fun cacheR (r : {Id : int, FooBar : int}) = *)
+(*     res <- oneOrNoRows (SELECT tab.Val *)
+(*                         FROM tab *)
+(*                         WHERE tab.Id = {[r.Id]}); *)
+(*     return <xml><body> *)
+(*       cacheR {[r.FooBar]} *)
+(*       {case res of *)
+(*            None => <xml>?</xml> *)
+(*          | Some row => <xml>{[row.Tab.Val]}</xml>} *)
+(*     </body></xml> *)
 
 (* fun cache2 id v = *)
 (*     res <- oneOrNoRows (SELECT tab.Val *)
@@ -60,21 +69,21 @@
       Changed {[id]}!
     </body></xml>
 
-fun flash id =
-    dml (UPDATE tab
-         SET Foo = Val
-         WHERE Id = {[id]} OR Id = {[id - 1]} OR Id = {[id + 1]});
-    return <xml><body>
-      Maybe changed {[id]}?
-    </body></xml>
+(* fun flash id = *)
+(*     dml (UPDATE tab *)
+(*          SET Foo = Val *)
+(*          WHERE Id = {[id]} OR Id = {[id - 1]} OR Id = {[id + 1]}); *)
+(*     return <xml><body> *)
+(*       Maybe changed {[id]}? *)
+(*     </body></xml> *)
 
-fun floosh id =
-    dml (UPDATE tab
-         SET Id = {[id + 1]}
-         WHERE Id = {[id]});
-    return <xml><body>
-      Shifted {[id]}!
-    </body></xml>
+(* fun floosh id = *)
+(*     dml (UPDATE tab *)
+(*          SET Id = {[id + 1]} *)
+(*          WHERE Id = {[id]} OR Id = {[id - 1]} OR Id = {[id + 1]}); *)
+(*     return <xml><body> *)
+(*       Shifted {[id]}! *)
+(*     </body></xml> *)
 
 (* val flush17 = *)
 (*     dml (UPDATE tab *)