Mercurial > urweb

comparison lib/ur/basis.urs @ 658:81c5c2674215

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update old Ur/Web library section, before adding new stuff
author Adam Chlipala <adamc@hcoop.net>
date Thu, 12 Mar 2009 11:56:10 -0400
parents e68de2a5506b
children b0c1a46b1f15
comparison
equal deleted inserted replaced
657:74140535291d 658:81c5c2674215
126 126
127 val sql_query1 : tables ::: {{Type}} 127 val sql_query1 : tables ::: {{Type}}
128 -> grouped ::: {{Type}} 128 -> grouped ::: {{Type}}
129 -> selectedFields ::: {{Type}} 129 -> selectedFields ::: {{Type}}
130 -> selectedExps ::: {Type} 130 -> selectedExps ::: {Type}
131 -> {From : $(map (fn fields :: {Type} => sql_table fields) tables), 131 -> {From : $(map sql_table tables),
132 Where : sql_exp tables [] [] bool, 132 Where : sql_exp tables [] [] bool,
133 GroupBy : sql_subset tables grouped, 133 GroupBy : sql_subset tables grouped,
134 Having : sql_exp grouped tables [] bool, 134 Having : sql_exp grouped tables [] bool,
135 SelectFields : sql_subset grouped selectedFields, 135 SelectFields : sql_subset grouped selectedFields,
136 SelectExps : $(map (fn (t :: Type) => sql_exp grouped tables [] t) selectedExps) } 136 SelectExps : $(map (sql_exp grouped tables []) selectedExps) }
137 -> sql_query1 tables selectedFields selectedExps 137 -> sql_query1 tables selectedFields selectedExps
138 138
139 type sql_relop 139 type sql_relop
140 val sql_union : sql_relop 140 val sql_union : sql_relop
141 val sql_intersect : sql_relop 141 val sql_intersect : sql_relop