Mercurial > urweb
diff tests/fromString.ur @ 289:0cc956a3216f
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 diff
--- a/tests/fromString.ur Sun Sep 07 11:33:13 2008 -0400 +++ b/tests/fromString.ur Sun Sep 07 11:41:04 2008 -0400 @@ -1,10 +1,26 @@ -fun i2s s = +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 _ (i2s "Error"))}<br/> - 3 = {cdata (show _ (i2s "+3"))}<br/> + 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> -