Mercurial > urweb

comparison demo/more/meta.ur @ 1011:16f7cb0891b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial support for char in SQL
author Adam Chlipala <adamc@hcoop.net>
date Thu, 22 Oct 2009 16:15:56 -0400
parents 59097824f19b
children 6bcc1020d5cd
comparison
equal deleted inserted replaced
1010:6b0f3853cc81 1011:16f7cb0891b6
50 {useMore acc} 50 {useMore acc}
51 </xml>) 51 </xml>)
52 <xml/> 52 <xml/>
53 [_] fl r 53 [_] fl r
54 54
55 fun allPopulated [ts ::: {(Type * Type)}] (r : $(map meta ts)) (vs : $(map fst ts)) (fl : folder ts) =
56 foldR2 [meta] [fst] [fn cols :: {(Type * Type)} =>
57 xml form [] (map snd cols)]
58 (fn [nm :: Name] [p :: (Type * Type)] [rest :: {(Type * Type)}] [[nm] ~ rest]
59 (m : meta p) v (acc : xml form [] (map snd rest)) =>
60 <xml>
61 {[m.Nam]}: {m.WidgetPopulated [nm] v}<br/>
62 {useMore acc}
63 </xml>)
64 <xml/>
65 [_] fl r vs
66
55 fun allPopulatedTr [ts ::: {(Type * Type)}] (r : $(map meta ts)) (vs : $(map fst ts)) (fl : folder ts) = 67 fun allPopulatedTr [ts ::: {(Type * Type)}] (r : $(map meta ts)) (vs : $(map fst ts)) (fl : folder ts) =
56 foldR2 [meta] [fst] [fn cols :: {(Type * Type)} => 68 foldR2 [meta] [fst] [fn cols :: {(Type * Type)} =>
57 xml [Body, Form, Tr] [] (map snd cols)] 69 xml [Body, Form, Tr] [] (map snd cols)]
58 (fn [nm :: Name] [p :: (Type * Type)] [rest :: {(Type * Type)}] [[nm] ~ rest] 70 (fn [nm :: Name] [p :: (Type * Type)] [rest :: {(Type * Type)}] [[nm] ~ rest]
59 (m : meta p) v (acc : xml [Body, Form, Tr] [] (map snd rest)) => 71 (m : meta p) v (acc : xml [Body, Form, Tr] [] (map snd rest)) =>