Mercurial > urweb

annotate tests/strcspn.ur @ 2112:b4702145f8de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Treat getHeader and getenv as vectors for reading request data supplied implicitly by browsers
author Adam Chlipala <adam@chlipala.net>
date Thu, 05 Feb 2015 11:09:25 -0500
parents 446e73902b09
children
rev   line source
adam@1793 1 fun main () : transaction page =
adam@1793 2 s <- source "";
adam@1793 3 return <xml><body>
adam@1793 4 <ctextbox source={s}/>
adam@1793 5 <button onclick={fn _ => v <- get s; alert (show (strcspn v "0123456789"))}/>
adam@1793 6 </body></xml>