hara.module.base.link — hara/base 3.0.12

*bind-root* clj

+ns-metadata clj

cache for hara.module.base.link/ns-metadata

+registry clj

registry for all links

bind-init clj

(bind-init link key)

automatically loads the var if possible

(deflink -byte0?- hara.core.base.check/byte?)

(binding [bind-root true] (bind-init -byte0?- :auto)) => hara.core.base.check/byte?

(deflink -to-element0- hara.object.element/to-element)

(binding [bind-root true] (bind-init -to-element0- :resolve)) => hara.object.element/to-element

bind-metadata clj

(bind-metadata link)

retrievess the metadata of a function from source code

(declare -metadata-) (def -metadata- (link {:ns 'hara.core.base.check :name 'bytes?} #'-metadata-))

(bind-metadata -metadata-)

(-> (meta #'-metadata-) :arglists) => '([x])

bind-preempt clj

(bind-preempt link)

retrieves the source var if available

(deflink -byte0?- hara.core.base.check/byte?)

(binding [bind-root true] (bind-preempt -byte0?-)) => hara.core.base.check/byte?

bind-resolve clj

(bind-resolve link)

binds a link or a series of links

(deflink -byte0?- hara.core.base.check/byte?)

(deflink -byte1?- -byte0?-)

(deflink -byte2?- -byte1?-)

(binding [bind-root true] (bind-resolve -byte2?-)) (fn? -byte2?-) => true (fn? -byte1?-) => true (fn? -byte0?-) => true

bind-source clj

(bind-source sink source-var transform)

retrieves the source var

(declare -source-) (def -source- (link {} #'-source-))

(bind-source (.sink -source-) #'hara.core.base.check/bytes? (.transform -source-)) => hara.core.base.check/bytes?

bind-verify clj

(bind-verify link)

retrieves the source var if available

(deflink -byte0?- hara.core.base.check/byte?)

(binding [bind-root true] (bind-verify -byte0?-)) => (exactly #'hara.module.base.link-test/-byte0?-)

deflink clj macro

(deflink lname doc? & [attrs? sym])

defines a link

(deflink -byte3?- hara.core.base.check/byte?) @-byte3?- => hara.core.base.check/byte?

(deflink -atom?- hara.core.base.check/atom?) @-atom?- => hara.core.base.check/atom?

deregister-link clj

(deregister-link link)

(deregister-link link sink registry)

removes a link from global registry

(deregister-link -lnk-) => #'hara.module.base.link-test/-lnk-

(registered-link? -lnk-) => false

find-source-var clj

(find-source-var link)

finds the source var in the link

(find-source-var (->Link {:ns 'hara.core.base.check :name 'bytes?} nil nil nil)) => #'hara.core.base.check/bytes?

intern-link clj

(intern-link name source)

(intern-link ns name source)

(intern-link ns name source transform)

(intern-link ns name source transform registry)

creates a registers a link

(intern-link '-byte0?- {:ns 'hara.core.base.check :name 'bytes?}) ;;#link{:source hara.core.base.check/bytes?, :bound true, :status :resolved, :synced false, :registered true} => link?

invoke-intern-link clj

(invoke-intern-link _ lname config _)

creates a set of forms constructing a link

(invoke-intern-link :link '-link- {:ns 'hara.core.base.check :name 'bytes?} nil)

link clj

(link source sink)

(link source sink transform)

(link source sink transform registry)

creates a link (ns-unmap ns '-byte0?-) (declare -byte0?-)

(link {:ns 'hara.core.base.check :name 'bytes?} #'-byte0?-) ;; #link{:source hara.core.base.check/bytes?, :bound false, :status :resolved, :synced false, :registered false} => link?

link-bound? clj

(link-bound? link)

checks if the var of the link has been bound, should be true

(link-bound? -lnk-) => true

(link-bound? (->Link {:ns 'hara.core.base.check :name 'bytes?} nil nil nil)) => false

link-display clj

(link-display link)

displays the link

(link-display -selfied-) => {:source 'hara.module.base.link-test/-selfied- :bound true, :status :linked, :synced false, :registered false}

link-invoke clj

(link-invoke link & args)

invokes a link

(deflink -byte0?- hara.core.base.check/byte?)

(deflink -byte1?- -byte0?-)

(deflink -byte2?- -byte1?-)

(-byte2?- (byte 1)) => true

link-selfied? clj

(link-selfied? link)

checks if the source and sink have the same value

(declare -selfied-) (def -selfied- (link {:name '-selfied-} #'-selfied- ))

(link-selfied? -selfied-) => true

link-status clj

(link-status link)

lists the current status of the link

(link-status (->Link {:ns 'hara.core.base.check :name 'bytes?} nil nil nil)) => :resolved

link-synced? clj

(link-synced? link)

checks if the source and sink have the same value

(def -bytes?- hara.core.base.check/bytes?)

(link-synced? (->Link {:ns 'hara.core.base.check :name 'bytes?} #'-bytes?- nil nil)) => true

link? clj

(link? obj)

checks if object is a link

(link? -lnk-) => true

ns-metadata clj

(ns-metadata ns)

provides source metadata support for links

(ns-metadata 'hara.core.base.check) => (contains '{ideref? {:arglists ([obj])} bigint? {:arglists ([x])} boolean? {:arglists ([x])}})

register-link clj

(register-link link)

(register-link link sink registry)

adds link to global registry

(register-link -lnk-) => #'hara.module.base.link-test/-lnk-

(registered-link? -lnk-) => true

registered-link? clj

(registered-link? link)

checks if a link is registered

(registered-link? -lnk-) => false

registered-links clj

(registered-links)

(registered-links registry)

returns all registered links

(register-link -lnk-) => #'hara.module.base.link-test/-lnk-

(registered-links) => (contains [(exactly #'-lnk-)])

resolve-links clj

(resolve-links)

(resolve-links registry)

resolves all unresolved links in a background thread

(resolve-links)

transform-metadata clj

(transform-metadata sink transform metadata)

helper function for adding metadata to vars

unresolved-links clj

(unresolved-links)

(unresolved-links registry)

returns all unresolved links

(unresolved-links)