Mercurial > urweb
changeset 778:7b47fc964a0f
view demo
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 03 May 2009 15:13:00 -0400 |
| parents | 87a7702d681d |
| children | 7394368a5cad |
| files | demo/prose demo/view.ur demo/view.urp demo/view.urs |
| diffstat | 4 files changed, 34 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/demo/prose Sun May 03 14:57:33 2009 -0400 +++ b/demo/prose Sun May 03 15:13:00 2009 -0400 @@ -139,6 +139,10 @@ <p>SQL outer joins are no problem, as this demo shows. Unlike with SQL, here we have static type inference determining for us which columns may become nullable as a result of an outer join, and the compiler will reject programs that make the wrong assumptions about that process. The details of that nullification don't appear in this example, where the magic of type classes determines both the post-join type of each field and the right pretty-printing and parsing function for each of those types.</p> +view.urp + +<p>SQL views are also supported with a special declaration form, analogous to <tt>table</tt>. A multi-parameter type class <tt>fieldsOf</tt> is used to characterize places where both tables and views are allowed. For instance, the polymorphic function <tt>list</tt> shown here lists the contents of any table or view containing just a single <tt>int</tt> column named <tt>A</tt>.</p> + sum.urp <p>Metaprogramming is one of the most important facilities of Ur. This example shows how to write a function that is able to sum up the fields of records of integers, no matter which set of fields the particular record has.</p>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/demo/view.ur Sun May 03 15:13:00 2009 -0400 @@ -0,0 +1,25 @@ +table t : { A : int } +view v = SELECT t.A AS A FROM t WHERE t.A > 7 + +fun list (u ::: Type) (_ : fieldsOf u [A = int]) (title : string) (x : u) = + xml <- queryX (SELECT * FROM x) + (fn r : {X : {A : int}} => <xml><li>{[r.X.A]}</li></xml>); + return <xml> + <h2>{[title]}</h2> + <ul>{xml}</ul> + </xml> + +fun main () = + listT <- list "T" t; + listV <- list "V" v; + return <xml><body> + {listT} + {listV} + <br/> + + <form>Insert: <textbox{#A}/> <submit action={ins}/></form> + </body></xml> + +and ins r = + dml (INSERT INTO t (A) VALUES ({[readError r.A]})); + main ()