allows multiple forms to be built

build macro for generating functions from protocols

contructs a template from returned vals with support for variadic

((build-template-fn {}) ’([-val (obj(val obj))] [-val (obj k(val obj k))] [-get (obj(get obj))])) => ’((clojure.core/defn val (obj(val obj)) (obj k(val obj k))) (clojure.core/defn get (obj(get obj))))

((build-template-fn {:variadic ’#{-mul}}) ’([-mul (obj ks(mul obj ks))])) => ’((clojure.core/defn mul (obj & ks(mul obj ks))))

helper for build

(build-template-protocol ’{:protocol ITest :outer {:suffix “-outer”} :inner {:prefix “inner-”} :fns {:default {:body-sym-fn impl:unwrap-sym}}})

=> ’((clojure.core/defn val-outer (obj(inner-val obj)) (obj k(inner-val obj k))) (clojure.core/defn get-outer (obj(inner-get obj))))

builds a variadic function if indicated

builds a function with an optional component

creates a body function

((create-body-fn {:body-sym-fn impl:unwrap-sym}) {:name ’-val :arglist ’cache val :prefix “test/”}) => ’(cache val(test/val cache val))

creates a high level deftype or defrecord interface

creates the IFn forms

creates an invoke method

helper for defimpl

creates a print method form

helper function for defimpl

creates forms for the interface

(dimpl-template-interface {:interface ’ITest :method ’{invoke {entry submit-invoke}} :body ’{bulk? {entry false}}}) => ’(ITest (invoke entry(submit-invoke entry)) (bulk? entry false))

coverts the entry into a template

(dimpl-template-protocol {:protocol ’ITest :prefix “impl/” :suffix “-test”}) => ’(ITest (-val obj(impl/val-test obj)) (-val obj k(impl/val-test obj k)) (-get obj(impl/get-test obj)))

creates the extend-impl form

creates a print method form

creates forms compatible with extend-type and extend-protocol

(eimpl-template-fn ’([-val (obj(val obj))] [-val (obj k(val obj k))] [-get (obj(get obj))])) => ’((-val (obj(val obj)) (obj k(val obj k))) (-get (obj(get obj))))

helper for eimpl-form

(eimpl-template-protocol {:protocol ’ITest :prefix “impl/” :suffix “-test”}) => ’(ITest (-val (obj(impl/val-test obj)) (obj k(impl/val-test obj k))) (-get (obj(impl/get-test obj))))

extends a class with the protocols

operates on a proxy and returns object

((impl:doto :) ’[(-add-channel (mq(add-channel-atom mq)))]) => ’((-add-channel mq(do (add-channel-atom :) mq)))

creates a proxy template given a symbol

((impl:proxy :) ’[(-add-channel (mq(add-channel-atom mq) mq))]) => ’((-add-channel mq(add-channel-atom :) mq))

unwraps the protocol symbol

(impl:unwrap-sym {:name ’-val :prefix “test/” :suffix “-mock”}) => ’test/val-mock

wraps the protocol symbol

(impl:wrap-sym {:protocol ’protocol.test/ITest :name ’-val}) => ’protocol.test/-val

helper for interface forms

(interface-fns :body {}) => (contains {:body-output-fn fn?})

parses the different transform types

(parse-impl (template-signatures ’IHello {:prefix “impl/”}) {:body ’{-hi “Hi There”}}) => ’{:method #{}, :body #{-hi}, :default #{-delete}}

helpers for protocol forms

(protocol-fns :body {}) => (contains {:body-output-fn fn?})

splits all entries

(split-all ’[ITest :include -test :body {-val 3} IMore IProtocols :exclude []] :protocol {:prefix “test/”}) => ’[{:prefix “test/”, :include -test, :body {-val 3}, :protocol ITest} {:prefix “test/”, :protocol IMore} {:prefix “test/”, :exclude [], :protocol IProtocols}]

splits a body depending on keyword pairs

(split-body [:a 1 :b 2 ’hello ’there]) => [{:a 1, :b 2} ’(hello there)]

splits out a given entry

creates a standard input function

creates a standard output function

generates forms given various formats

(template-gen protocol-fns :default (template-signatures ’ITest) {} {}) => ’([-val (obj(val obj))] [-val (obj k(val obj k))] [-get (obj(get obj))])

finds template signatures for a protocol

transforms all functions