diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-07 15:41:03 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-07 15:41:03 +0000 |
| commit | 7dfd0d90b11f00de5ad1ad30c690a4f12d426c3b (patch) | |
| tree | 5f1aa4b6a292da8c653b70055ffc08a437eeaec6 /src/clojure/contrib/datalog/magic.clj | |
| parent | 042c0445b39d40c798ec1cc8eeee4927b817282a (diff) | |
More semi-naive work
Diffstat (limited to 'src/clojure/contrib/datalog/magic.clj')
| -rw-r--r-- | src/clojure/contrib/datalog/magic.clj | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/clojure/contrib/datalog/magic.clj b/src/clojure/contrib/datalog/magic.clj index 72d8865b..ff6891a4 100644 --- a/src/clojure/contrib/datalog/magic.clj +++ b/src/clojure/contrib/datalog/magic.clj @@ -75,6 +75,18 @@ sr (seed-relation mq)] (build-rule mq [sr]))) +(defn build-partial-tuple + "Given a query and a set of bindings, build a partial tuple needed + to extract the relation from the database." + [q bindings] + (into {} (remove nil? (map (fn [[k v :as pair]] + (if (is-var? v) + nil + (if (is-query-var? v) + [k (bindings v)] + pair))) + (:term-bindings q))))) + (defn seed-predicate-for-insertion "Given a query, return the predicate to use for database insertion." [q] |