[WIP] Stats

modules/cql/src/blaze/elm/compiler/core.clj

@@ -15,6 +15,7 @@
 (defprotocol Expression
   (-static [expression])
   (-attach-cache [expression cache])
+  (-patient-count [expression])
   (-resolve-refs [expression expression-defs])
   (-resolve-params [expression parameters])
   (-eval [expression context resource scope]
@@ -37,6 +38,8 @@
     true)
   (-attach-cache [expr _]
     expr)
+  (-patient-count [_]
+    0)
   (-resolve-refs [expr _]
     expr)
   (-resolve-params [expr _]
@@ -51,6 +54,8 @@
     true)
   (-attach-cache [expr _]
     expr)
+  (-patient-count [_]
+    0)
   (-resolve-refs [expr _]
     expr)
   (-resolve-params [expr _]
@@ -65,6 +70,8 @@
     true)
   (-attach-cache [expr _]
     expr)
+  (-patient-count [_]
+    0)
   (-resolve-refs [expr _]
     expr)
   (-resolve-params [expr _]

modules/cql/src/blaze/elm/compiler/logical_operators.clj

@@ -15,6 +15,8 @@
       false)
     (-attach-cache [_ cache]
       (and-nil-op (core/-attach-cache x cache)))
+    (-patient-count [_]
+      0)
     (-resolve-refs [_ expression-defs]
       (and-nil-op (core/-resolve-refs x expression-defs)))
     (-resolve-params [_ parameters]
@@ -42,6 +44,8 @@
       false)
     (-attach-cache [_ cache]
       (and-op (core/-attach-cache a cache) (core/-attach-cache b cache)))
+    (-patient-count [_]
+      (min (core/-patient-count a) (core/-patient-count b)))
     (-resolve-refs [_ expression-defs]
       (and-op (core/-resolve-refs a expression-defs)
               (core/-resolve-refs b expression-defs)))
@@ -102,6 +106,8 @@
       false)
     (-attach-cache [_ cache]
       (or-nil-op (core/-attach-cache x cache)))
+    (-patient-count [_]
+      (core/-patient-count x))
     (-resolve-refs [_ expression-defs]
       (or-nil-op (core/-resolve-refs x expression-defs)))
     (-resolve-params [_ parameters]
@@ -128,7 +134,15 @@
     (-static [_]
       false)
     (-attach-cache [_ cache]
-      (or-op (core/-attach-cache a cache) (core/-attach-cache b cache)))
+      (let [a (core/-attach-cache a cache)
+            b (core/-attach-cache b cache)
+            a-count (core/-patient-count a)
+            b-count (core/-patient-count b)]
+        (if (< a-count b-count)
+          (or-op b a)
+          (or-op a b))))
+    (-patient-count [_]
+      (max (core/-patient-count a) (core/-patient-count b)))
     (-resolve-refs [_ expression-defs]
       (or-op (core/-resolve-refs a expression-defs)
              (core/-resolve-refs b expression-defs)))

modules/cql/src/blaze/elm/compiler/macros.clj

@@ -69,6 +69,8 @@
                            ~operand ~elm-expr)
                         `(~(symbol (str name "-caching-op"))
                            ~operand))))
+                 (~'-patient-count [~'_]
+                   (::bloom-filter/patient-count ~bloom-filter))
                  (~'-resolve-refs [~'_ ~'expression-defs]
                    ~(if elm-expr-binding
                       `(~(symbol (str name "-caching-op"))
@@ -131,6 +133,8 @@
                            ~operand ~elm-expr)
                         `(~(symbol (str name "-caching-op"))
                            ~operand))))
+                 (~'-patient-count [~'_]
+                   0)
                  (~'-resolve-refs [~'_ ~'expression-defs]
                    ~(if elm-expr-binding
                       `(~(symbol (str name "-caching-op"))
@@ -171,6 +175,8 @@
                    (core/-attach-cache ~operand ~'cache) ~elm-expr)
                 `(~(symbol (str name "-op"))
                    (core/-attach-cache ~operand ~'cache))))
+           (~'-patient-count [~'_]
+             0)
            (~'-resolve-refs [~'_ ~'expression-defs]
              ~(if elm-expr-binding
                 `(~(symbol (str name "-op"))