From 39d53ff26b1db70d260201cbb2b21d2a739a74b1 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 3 May 2009 15:13:00 -0400 Subject: view demo --- demo/view.ur | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 demo/view.ur (limited to 'demo/view.ur') diff --git a/demo/view.ur b/demo/view.ur new file mode 100644 index 00000000..ce1242e0 --- /dev/null +++ b/demo/view.ur @@ -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}} =>

{[r.X.A]}

); + return +

{[title]}

{xml} + + +fun main () = + listT <- list "T" t; + listV <- list "V" v; + return + {listT} + {listV} +
+ + + +and ins r = + dml (INSERT INTO t (A) VALUES ({[readError r.A]})); + main () -- cgit v1.2.3