summaryrefslogtreecommitdiff
path: root/demo/more/dbgrid.urs
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/dbgrid.urs')
-rw-r--r--demo/more/dbgrid.urs8
1 files changed, 8 insertions, 0 deletions
diff --git a/demo/more/dbgrid.urs b/demo/more/dbgrid.urs
index cfbdff89..908f4b2a 100644
--- a/demo/more/dbgrid.urs
+++ b/demo/more/dbgrid.urs
@@ -14,6 +14,11 @@ con colMeta = fn (row :: {Type}) (global_t :: (Type * Type)) =>
{Initialize : transaction global_t.1,
Handlers : global_t.1 -> colMeta' row global_t.2}
+con aggregateMeta = fn (row :: {Type}) (acc :: Type) =>
+ {Initial : acc,
+ Step : $row -> acc -> acc,
+ Display : acc -> xbody}
+
structure Direct : sig
con metaBase = fn actual_input :: (Type * Type) =>
{Display : actual_input.2 -> xbody,
@@ -95,6 +100,9 @@ functor Make(M : sig
val keyFolder : folder key
val rowFolder : folder row
val colsFolder : folder cols
+
+ con aggregates :: {Type}
+ val aggregates : $(map (aggregateMeta (key ++ row)) aggregates)
end) : sig
type grid