Mercurial > urweb

comparison tests/stypes.ur @ 585:35471f067980

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reactive record pattern
author Adam Chlipala <adamc@hcoop.net>
date Thu, 01 Jan 2009 11:04:09 -0500
parents 101eb0058136
children 1c969230ee7f
comparison
equal deleted inserted replaced
584:101eb0058136 585:35471f067980
8 return <xml><body> 8 return <xml><body>
9 <dyn signal={n <- signal sInt; return <xml>{[n + 3]}</xml>}/> <a onclick={set sInt 1}>Change</a><br/> 9 <dyn signal={n <- signal sInt; return <xml>{[n + 3]}</xml>}/> <a onclick={set sInt 1}>Change</a><br/>
10 10
11 <dyn signal={n <- signal sFloat; return <xml>{[n + 1.0]}</xml>}/> <a onclick={set sFloat 4.56}>Change</a><br/> 11 <dyn signal={n <- signal sFloat; return <xml>{[n + 1.0]}</xml>}/> <a onclick={set sFloat 4.56}>Change</a><br/>
12 12
13 <dyn signal={p <- signal sBoth; return <xml>{[p.1]}, {[p.2]}</xml>}/> <a onclick={set sBoth (8, 100.001)}>Change</a><br/> 13 <dyn signal={p <- signal sBoth; return <xml>{[p.1]}, {[p.2]}</xml>}/>;
14 <dyn signal={p <- signal sBoth; case p of
15 (7, _) => return <xml>Initial</xml>
16 | (fst, snd) => return <xml>{[fst]}, {[snd]}</xml>}/>
17 <a onclick={set sBoth (8, 100.001)}>Change</a><br/>
14 18
15 <dyn signal={o <- signal sOpt; case o of 19 <dyn signal={o <- signal sOpt; case o of
16 None => return <xml>None</xml> 20 None => return <xml>None</xml>
17 | Some n => return <xml>{[n]}</xml>}/> 21 | Some n => return <xml>{[n]}</xml>}/>
18 <a onclick={set sOpt (Some 7)}>Change</a><br/> 22 <a onclick={set sOpt (Some 7)}>Change</a><br/>