Mercurial > urweb

view tests/strcspn.ur @ 2282:19b233bb3176

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make cache flushes safe for transactions (not sure about LRU bump on read).
author Ziv Scully <ziv@mit.edu>
date Thu, 12 Nov 2015 09:47:20 -0500
parents 446e73902b09
children
line wrap: on
line source
fun main () : transaction page =
    s <- source "";
    return <xml><body>
      <ctextbox source={s}/>
      <button onclick={fn _ => v <- get s; alert (show (strcspn v "0123456789"))}/>
    </body></xml>