annotate demo/crud.urs @ 1840:146ec8e90063

Add some name-mangling rules to allow XML attribute 'name' and attributes with dashes
author Adam Chlipala <adam@chlipala.net>
date Thu, 27 Dec 2012 15:34:11 -0500
parents bb3fc575cfe7
children
rev   line source
adamc@1002 1 con colMeta = fn (db :: Type, widget :: Type) =>
adamc@421 2 {Nam : string,
adamc@1002 3 Show : db -> xbody,
adamc@1002 4 Widget : nm :: Name -> xml form [] [nm = widget],
adamc@1002 5 WidgetPopulated : nm :: Name -> db -> xml form [] [nm = widget],
adamc@1002 6 Parse : widget -> db,
adamc@1002 7 Inject : sql_injectable db}
adamc@622 8 con colsMeta = fn cols :: {(Type * Type)} => $(map colMeta cols)
adamc@421 9
adamc@421 10 val int : string -> colMeta (int, string)
adamc@421 11 val float : string -> colMeta (float, string)
adamc@421 12 val string : string -> colMeta (string, string)
adamc@421 13 val bool : string -> colMeta (bool, bool)
adamc@421 14
adamc@421 15 functor Make(M : sig
adamc@421 16 con cols :: {(Type * Type)}
adamc@421 17 constraint [Id] ~ cols
adamc@632 18 val fl : folder cols
adamc@632 19
adamc@706 20 table tab : ([Id = int] ++ map fst cols)
adamc@421 21
adamc@421 22 val title : string
adamc@421 23
adamc@421 24 val cols : colsMeta cols
adamc@421 25 end) : sig
adamc@421 26 val main : unit -> transaction page
adamc@421 27 end