Mercurial > urweb
diff lib/ur/basis.urs @ 1776:8f28c3295148
Compiled a window function use
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 02 Jun 2012 16:00:50 -0400 |
parents | 6bc2a8cb3a67 |
children | 59b07fdae1ff |
line wrap: on
line diff
--- a/lib/ur/basis.urs Sat Jun 02 15:35:58 2012 -0400 +++ b/lib/ur/basis.urs Sat Jun 02 16:00:50 2012 -0400 @@ -564,6 +564,22 @@ val sql_max : t ::: Type -> nt ::: Type -> sql_maxable t -> nullify t nt -> sql_aggregate t nt val sql_min : t ::: Type -> nt ::: Type -> sql_maxable t -> nullify t nt -> sql_aggregate t nt +con sql_window :: {{Type}} -> {{Type}} -> {Type} -> Type -> Type +val sql_window : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> t ::: Type + -> sql_window tables agg exps t + -> sql_exp tables agg exps allow_window t + +val sql_window_aggregate : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> t ::: Type -> nt ::: Type + -> sql_aggregate t nt + -> sql_exp tables agg exps allow_window t + -> sql_window tables agg exps nt +val sql_window_count : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> sql_window tables agg exps int +val sql_window_rank : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> sql_window tables agg exps int + con sql_nfunc :: Type -> Type val sql_nfunc : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> aw ::: {Unit} -> t ::: Type