Mercurial > urweb

view tests/rpc2.ur @ 2070:382911d72e63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check realloc's return code to prevent segfault on out of memory condition (Part 3)
author Sergey Mironov <grrwlf@gmail.com>
date Tue, 02 Sep 2014 17:37:22 +0000
parents c5991cdb0c4b
children
line wrap: on
line source
sequence s
sequence s2

fun dint src = n <- signal src; return <xml>{[n]}</xml>

fun main () : transaction page =
    let
        fun getNext () =
            n <- nextval s;
            n2 <- nextval s2;
            return (n, n2)
    in
        src1 <- source 0;
        src2 <- source 0;
        return <xml><body>
          <button value="Get It On!"
                  onclick={p <- getNext ();
                           case p of
                               (n1, n2) => set src1 n1;
                                           set src2 n2}/>
          <br/>
          Current1: <dyn signal={dint src1}/>
          Current2: <dyn signal={dint src2}/>
        </body></xml>
    end