Mercurial > urweb

diff tests/treeDyn.ur @ 1457:aa2398e58306

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Escape less-than in JavaScript strings
author Adam Chlipala <adam@chlipala.net>
date Thu, 12 May 2011 17:14:13 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/treeDyn.ur	Thu May 12 17:14:13 2011 -0400
@@ -0,0 +1,18 @@
+table t : {Id : int, Parent : option int}
+
+fun recurse (root : option int) =
+    queryX' (SELECT * FROM t WHERE {eqNullable' (SQL t.Parent) root})
+            (fn r =>
+                children <- recurse (Some r.T.Id);
+                (*s <- source False;*)
+                return <xml>
+                  <dyn signal={(*v <- signal s;
+                               if v then*)
+                                   return <xml><b>HI</b>{children}<b>BYE</b></xml>
+                               (*else
+                                   return <xml/>*)}/>
+                </xml>)
+
+fun main () =
+    x <- recurse None;
+    return <xml><body>{x}</body></xml>