Ur/Web: tests/jscomp.ur annotate

Functions working with interpretation

author	Adam Chlipala <adamc@hcoop.net>
date	Tue, 22 Sep 2009 13:27:47 -0400
parents	c22e524a6dd3
children	e30c2409c9d0

rev	line source
adamc@971	1 fun main () =
adamc@971	2 s <- source "";
adamc@972	3 f <- source (plus 1);
adamc@971	4
adamc@971	5 return <xml><body>
adamc@972	6 <ctextbox source={s}/><br/><br/>
adamc@972	7
adamc@972	8 Function: <button value="+1" onclick={set f (plus 1)}/>
adamc@972	9 <button value="*3" onclick={set f (times 3)}/><br/><br/>
adamc@971	10
adamc@971	11 <button value="Echo" onclick={s <- get s; alert s}/>
adamc@971	12 <button value="+1" onclick={s <- get s; alert (show (readError s + 1))}/>
adamc@971	13 <button value="3" onclick={s <- get s; alert (show ((readError s) 3))}/>
adamc@972	14 <button value="f" onclick={s <- get s; f <- get f; alert (show (f (readError s)))}/>
adamc@971	15 </body></xml>

Mercurial > urweb