Mercurial > urweb
view tests/tsource.ur @ 1892:907a82a44f01
Add missing inter-library dependencies
This is needed, at least on recent Ubuntu, to fix these linker errors
when compiling any Ur/Web application:
liburweb.so: undefined reference to `lround'
liburweb.so: undefined reference to `ceil'
liburweb.so: undefined reference to `RAND_bytes'
liburweb.so: undefined reference to `DES_fcrypt'
liburweb.so: undefined reference to `SHA256_Init'
liburweb.so: undefined reference to `SHA256_Final'
liburweb.so: undefined reference to `SHA256_Update'
Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---
src/c/Makefile.am | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
author | Anders Kaseorg <andersk@mit.edu> |
---|---|
date | Thu, 21 Nov 2013 14:32:11 -0500 |
parents | 607657eb2865 |
children |
line wrap: on
line source
fun doSubmit r = return <xml>Done {[readError r.Amount1 * readError r.Amount2 * 2.0]}</xml> fun main () = amount1S <- source "1"; amount2S <- source "1"; return <xml> <body> <form> <table> <tr><td>Amount1:</td><td><textbox{#Amount1} source={amount1S}/></td></tr> <tr><td>Amount2:</td><td><textbox{#Amount2} source={amount2S}/></td></tr> <tr><td>Total:</td><td><dyn signal={showTotal amount1S amount2S}/></td></tr> </table> <submit value="Buy" action={doSubmit}/> </form> </body> </xml> and showTotal amount1S amount2S = a1 <- signal amount1S; a2 <- signal amount2S; return (case ((read a1), (read a2)) of (None, _) => <xml></xml> | (_, None) => <xml></xml> | (Some a, Some b) => <xml>{[a * b * 2.0]}</xml>)