Partial impl. Not resolving

Author: Paula Gearon

src/naga/storage/store_util.clj

@@ -0,0 +1,23 @@
+(ns ^{:doc "Some common utilities for storage functions"
+ :author "Paula Gearon"}
+ naga.storage.store-util
+ (:require [schema.core :as s]
+ [naga.schema.structs :as st :refer [EPVPattern Value]]
+ [naga.store :as store]))
+
+(s/defn project-row :- [s/Any]
+ "Creates a new EPVPattern from an existing one, based on existing bindings.
+ Uses the mapping to copy from columns in 'row' to overwrite variables in 'pattern'.
+ 'pattern' must be a vector.
+ The index mappings have already been found and are in the 'mapping' argument"
+ [storage
+ patterns :- [EPVPattern]
+ mapping :- {s/Num s/Num}
+ row :- [Value]]
+ (let [wide-pattern (vec (apply concat patterns))
+ get-node (memoize (fn [n] (store/new-node storage)))
+ update-pattern (fn [p [t f]]
+ (let [v (if (< f 0) (get-node f) (nth row f))]
+ (assoc p t v)))]
+ (partition 3
+ (reduce update-pattern wide-pattern mapping))))