Mercurial > urweb

annotate demo/crud1.ur @ 822:d4e811beb8eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fn-pattern code in but not tested yet; hello compiles
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 10:16:50 -0400
parents 1a317a707d71
children
rev   line source
adamc@421 1 table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@708 2 PRIMARY KEY Id
adamc@421 3
adamc@421 4 open Crud.Make(struct
adamc@421 5 val tab = t1
adamc@421 6
adamc@421 7 val title = "Crud1"
adamc@421 8
adamc@421 9 val cols = {A = Crud.int "A",
adamc@421 10 B = Crud.string "B",
adamc@421 11 C = Crud.float "C",
adamc@421 12 D = Crud.bool "D"}
adamc@421 13 end)