Mercurial > urweb
view tests/pquery.ur @ 2174:ce312cad5ecd
Use correct OpenSSL thread safety macros on OS X (closes #209)
Create an Autoconf test to determine if pthread_t is a pointer or scalar
type, and use the appropriate CRYPTO_THREADID_set macro based on the
result.
author | Benjamin Barenblat <bbaren at mit.edu> |
---|---|
date | Sun, 20 Sep 2015 17:46:07 -0400 |
parents | 43f35291433d |
children |
line wrap: on
line source
table t1 : {A : int, B : string, C : float, D : bool} fun display (q : sql_query [T1 = [A = int, B = string, C = float, D = bool]] []) = s <- query q (fn fs _ => return (Some fs.T1)) None; return <html><body> {case s of None => cdata "Row not found." | Some s => <body> A: {cdata (show _ s.A)}<br/> B: {cdata (show _ s.B)}<br/> C: {cdata (show _ s.C)}<br/> D: {cdata (show _ s.D)}<br/> </body>} </body></html> fun lookupA (inp : {A : string}) = display (SELECT * FROM t1 WHERE t1.A = {readError _ inp.A}) fun lookupB (inp : {B : string}) = display (SELECT * FROM t1 WHERE t1.B = {inp.B}) fun lookupC (inp : {C : string}) = display (SELECT * FROM t1 WHERE t1.C = {readError _ inp.C}) fun lookupD (inp : {D : string}) = display (SELECT * FROM t1 WHERE t1.D = {readError _ inp.D}) fun main () : transaction page = return <html><body> <lform> A: <textbox{#A}/> <submit action={lookupA}/> </lform> <lform> B: <textbox{#B}/> <submit action={lookupB}/> </lform> <lform> C: <textbox{#C}/> <submit action={lookupC}/> </lform> <lform> D: <textbox{#D}/> <submit action={lookupD}/> </lform> </body></html>