base normalise function

(normalise {:account/name “Chris” :account/age 10} {:schema (schema/schema examples/account-name-age-sex)} {}) => {:account {:age 10, :name “Chris”}}

(normalise {:link/value “hello”} {:schema (schema/schema examples/link-value-next)} {}) => {:link {:value “hello”}}

(normalise {:link/value “hello” :link {:next/value “world” :next/next {:value “!”}}} {:schema (schema/schema examples/link-value-next)} {})

=> {:link {:next {:next {:value “!”} :value “world”} :value “hello”}}

base function for treating attributes

(normalise-attr “Chris” {:type :string, :cardinality :one, :ident :account/name} :account :name {} {:normalise-single normalise-single} {}) => “Chris”

base normalise function

normalises an expression

base loop for the normalise function

(normalise-loop {:name “Chris”, :age 10} {:name {:type :string, :cardinality :one, :ident :account/name}, :age {:type :long, :cardinality :one, :ident :account/age}, :sex {:type :enum, :cardinality :one, :enum {:ns :account.sex, :values #{:m :f}}, :ident :account/sex}} :account {} {:normalise normalise-loop :normalise-single normalise-single :normalise-attr normalise-attr} {:schema (schema/schema examples/account-name-age-sex)}) => {:name “Chris”, :age 10}

base function for treating nil values

(normalise-nil nil :user :password {} {} nil) => (throws)

verifies and constructs a ref value

(normalise-single {:value “world”} [{:type :ref, :ident :link/next :cardinality :one, :ref {:ns :link, :rval :prev, :type :forward, :key :link/next, :val :next, :rkey :link/_next, :rident :link/prev}}]

              [:link :next]
              {}
              {:normalise-attr normalise-attr
               :normalise normalise-loop
               :normalise-single normalise-single}
              {:schema (schema/schema examples/link-value-next)})

=> {:value “world”}

helper function for normalise-wrappers

adds function wrappers to the normalise functions

creates a submap based upon a lookup subkey (submaps {:allow {:account :check} :ignore {:account :check}} #{:allow :ignore} :account) => {:allow :check, :ignore :check}

Used for tracing the keys through normalise (normalise {:account {:orders {:+ {:account {:WRONG “Chris”}}}}} {:schema (schema/schema examples/account-orders-items-image)} {:normalise wrap-plus :normalise-branch wrap-key-path :normalise-attr wrap-key-path})

=> (throws-info {:key-path :account :orders :+ :account})

Allows additional attributes (besides the link :ns) to be added to the entity (normalise {:account {:orders {:+ {:account {:user “Chris”}}}}} {:schema (schema/schema examples/account-orders-items-image)} {:normalise wrap-plus}) => {:account {:orders {:+ {:account {:user “Chris”}}}}}

Used for tracing the entities through normalise (normalise {:account {:orders {:+ {:account {:WRONG “Chris”}}}}} {:schema (schema/schema examples/account-orders-items-image)} {:normalise wrap-ref-path wrap-plus})

=> (throws-info {:ref-path {:account {:orders {:+ {:account {:WRONG “Chris”}}}}} {:account {:WRONG “Chris”}}})