Mercurial > urweb

view tests/fromString.ur @ 289:0cc956a3216f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parsing strings for floats and bools
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Sep 2008 11:41:04 -0400
parents 4260ad920c36
children df00701f2323
line wrap: on
line source
fun s2i s =
        case stringToInt s of
          None => 0
        | Some n => n

fun s2f s =
        case stringToFloat s of
          None => 0.0
        | Some n => n

fun s2b s =
        case stringToBool s of
          None => False
        | Some b => b

fun main () : transaction page = return <html><body>
        Error = {cdata (show _ (s2i "Error"))}<br/>
        3 = {cdata (show _ (s2i "+3"))}<br/>
        <br/>
        Error = {cdata (show _ (s2f "Error"))}<br/>
        98.76 = {cdata (show _ (s2f "98.76"))}<br/>
        <br/>
        Error = {cdata (show _ (s2b "Error"))}<br/>
        False = {cdata (show _ (s2b "false"))}<br/>
        True = {cdata (show _ (s2b "trUE"))}<br/>
</body></html>