Mercurial > urweb

view tests/dlist.ur @ 2135:a159625975a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow file directives to contain slashes Previously, adding a line such as "file /c/foo.css css/foo.css" would cause the compiler to raise an InvalidArc exception.
author Julian Squires <julian@cipht.net>
date Fri, 24 Apr 2015 07:51:47 -0400
parents 20c083327364
children
line wrap: on
line source
datatype dlist = Nil | Cons of string * source dlist

fun delist dl =
    case dl of
        Nil => <xml>[]</xml>
      | Cons (x, s) => <xml>{[x]} :: ({delistSource s})</xml>

and delistSource s = <xml><dyn signal={dl <- signal s; return (delist dl)}/></xml>

fun main () : transaction page =
    ns <- source Nil;
    s <- source ns;
    tb <- source "";
    return <xml><body>
      <dyn signal={s <- signal s; return (delistSource s)}/><br/>
      <br/>
      <ctextbox source={tb}/>
      <button value="Add" onclick={hd <- get tb;
                                   tl <- get s;
                                   s' <- source (Cons (hd, tl));
                                   set s s'}/>
      <button value="Reset" onclick={set s ns}/>
    </body></xml>