customisable invocation forms

(definvoke -another- [:compose {:val (partial + 10) :arglists ’(& more)}])

macro body for extensible function

(fn x x) => fn?

creates a function body

(fn-body :clojure ’([](+ 1 1))) => ’(clojure.core/fn [](+ 1 1))

creates a clojure function body

(fn-body-clojure nil ’([](+ 1 1))) => ’(clojure.core/fn [](+ 1 1))

main function to call for definvoke

(invoke-intern :method ’-hello-method- {:multi ’-hello-multi- :val :apple} ’(x x)) => ’(clojure.core/let [v (def -hello-method- (clojure.core/fn -hello-method- x x))] (std.lib.invoke/multi:add -hello-multi- :apple -hello-method-) v)

method body for :compose form

(invoke-intern-compose :compose ’-compose-form- {:val ’(partial + 1 2) :arglists ''(& more)} nil)

constructs a body for the :dynamic keyword

(invoke-intern-dynamic nil ’-hello- {:val :world} nil)

method body for :fn invoke

(invoke-intern-fn :fn ’-fn-form- {} ’(x x))

method body for :macro form

(defn -macro-fn- [] ’[(clojure.core/fn x x) {:arglists (x)}])

(invoke-intern-macro :macro ’-macro-form- {:fn ’-macro-fn- :args []} nil)

creates a :method form, similar to defmethod

(defmulti -hello-multi- identity) (invoke-intern-method ’-hello-method- {:multi ’-hello-multi- :val :apple} ’(x x))

method body for :multi form

(invoke-intern-multi :multi ’-multi-form- {} ’(x x))

creates a body for recent

returns the arglists of a form

(invoke:arglists ’(x x)) => ’(quote (x))

(invoke:arglists ’((x x) (x y(+ x y)))) => ’(quote (x x y))

adds an entry to the multimethod

(multi:add hello :c (clojure.core/fn m(assoc m :c 3))) => hello

creates a multimethod from an existing one

returns all entries in the multimethod

(multi:get hello :a) => fn?

returns all entries in the multimethod

(keys (multi:list world)) => (contains :a :b :in-any-order)

checks if the multi dispatch matches the arguments

(multi:match? (.dispatchFn ^MultiFn hello) (clojure.core/fn _)) => true

removes an entry

(multi:remove world :b) => ifn?

returns true if obj is a multimethod

(multi? print-method) => true

(multi? println) => false

creates a recent function

resolves a package related to a label

(resolve-method protocol.invoke/-invoke-intern protocol.invoke/-invoke-package :fn +default-packages+) => nil