naga.storage.datomic.core — org.clojars.quoll/naga 0.3.12

Storage wrapper around Datomic

assertion-from-triple clj

(assertion-from-triple attr->type->new [e a v])

Inputs: [attr->type->new :- #:s{Keyword #:s{Keyword s/Keyword}} [e a v] :- ss/Triple] Returns: [(s/one s/Keyword "assertion") (s/one s/Any "entity") (s/one s/Keyword "attribute") (s/one s/Any "value")]

Converts a triple into a Datomic assertion

build-uri clj

(build-uri uri m)

Inputs: [uri :- URI m :- String] Returns: String

Reads a configuration map, or creates a Datomic URI. Reports an error if both are not valid

create-store clj

(create-store {uri :uri user-data :init data-file :json mp :map :as config})

Inputs: [{uri :uri, user-data :init, data-file :json, mp :map, :as config}] Returns: (s/pred (fn* [p1__6719#] (extends? Storage (class p1__6719#))))

Factory function to create a store

DatomicStore clj

dvar? clj

(dvar? v)

expand-symbol clj

(expand-symbol sym-test? [e a v :as pattern])

Converts a pattern with a variable attribute into a pair that converts the requested attribute into its identifier. Returns a seq of patterns.

file-type clj

(file-type file)

Inputs: [file] Returns: s/Keyword

Guesses at the type of file provided

generic-type clj

(generic-type d)

Determines a general data type for the given data

get-attrib-projection clj

(get-attrib-projection {o :originals} [_ attr _ :as p])

Returns a projection function, given a pattern and the current attributes.

init! clj

(init! connection)

Inputs: [connection]

Initializes storage, and returns the result of any transaction. Returns nil if no transaction was needed.

kw-from-type clj

kw-from-type* clj

(kw-from-type* t prefix)

Determines a keyword for a provided type

matching-vars clj

(matching-vars to from)

Inputs: [to :- [s/Any] from :- [Symbol]] Returns: [[s/Num s/Num]]

Returns pairs of indexes into seqs where the vars match. For any variable that appears in both sequences, the column number in the 'from' parameter gets mapped to the column number of the same variable in the 'to' parameter.

project-row clj

(project-row pattern mapping row)

Inputs: [pattern :- EPVPattern mapping :- [[s/Num s/Num]] row :- [Value]] Returns: [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

query-pattern clj

(query-pattern db attributes pattern)

read-attribute-info clj

(read-attribute-info db)

Inputs: [db] Returns: {(s/required-key :overloads) #:s{Keyword #:s{Keyword s/Keyword}}, (s/required-key :originals) #:s{Keyword s/Keyword}, (s/required-key :types) #:s{Keyword s/Keyword}}

Reads attribute info and uses this to create 3 maps.

1. Maps overloaded attributes to a map of type->name, where the name is the attribute to use for that type.
2. Maps aliases for the overloaded attribute back to the original.
3. Maps attribute names to the type of data they hold.

top-ids clj

(top-ids db ids acc)

Adds to an accumulator all Database entities that represent a top level entity

transaction-fn clj

(transaction-fn {:keys [tx-id db connection]})

Create a transaction function for the given storage configuration

tx clj

(tx db)

Determines the transaction ID for a database

type->dbtype clj

type->suffix clj

user-init-data clj

(user-init-data user-data-file)

Inputs: [user-data-file :- s/Str]

Generates initialization transaction data from user data