Mercurial > urweb

view tests/dlist2.ur @ 2166:8a01e8f21de9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make OpenSSL usage thread-safe (closes #206) Enable OpenSSL?s multithreading support by defining locking and thread-ID callbacks. Remove a lock obviated by this change.
author Benjamin Barenblat <bbaren@mit.edu>
date Thu, 06 Aug 2015 10:15:53 -0400
parents 1a9171e31fd1
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]} <ctextbox/> :: {delistSource s}</xml>

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

fun main () : transaction page =
    tail0 <- source Nil;
    tail <- source tail0;
    tb <- source "";
    return <xml><body>
      {delist (Cons ("ROOT", tail0))}
      <br/>
      <ctextbox source={tb}/>
      <button value="Add" onclick={hd <- get tb;
                                   tl <- source Nil;
                                   old <- get tail;

                                   set old (Cons (hd, tl));
                                   set tail tl}/>
      <button value="Reset" onclick={set tail0 Nil; set tail tail0}/>
    </body></xml>