luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 12:47:25 +01:00
parent 8551817724
commit ea88219ad6
1 changed files with 30 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/babashka/impl/reify.clj
View file

@ -27,10 +27,8 @@
(getProtocols [this]
protocols))]
(list 'fn [{:keys '[interfaces methods protocols]}]
`(cond ~'(empty? interfaces) ~prelude
~'(> (count interfaces)
1)
(throw (new Exception "Babashka currently does not support reifying more than one interface."))
`(cond ~'(empty? interfaces) ~prelude ~'(> (count interfaces)
1) (throw (new Exception "Babashka currently does not support reifying more than one interface."))
:else
(case (.getName ~(with-meta '(first interfaces)
{:tag 'Class}))
@ -52,16 +50,16 @@
arity)))
arities))
methods)))))
methods)))))
methods))))))
;; (require 'clojure.pprint)
;; (clojure.pprint/pprint
;; (macroexpand '(gen-reify-combos {java.nio.file.FileVisitor
;; {preVisitDirectory [[this p attrs]]
;; postVisitDirectory [[this p attrs]]
;; visitFile [[this p attrs]]}})))
;; (require 'clojure.pprint)
;; (clojure.pprint/pprint
;; (macroexpand '(gen-reify-combos {java.nio.file.FileVisitor
;; {preVisitDirectory [[this p attrs]]
;; postVisitDirectory [[this p attrs]]
;; visitFile [[this p attrs]]}})))
#_:clj-kondo/ignore)
#_:clj-kondo/ignore
(def reify-fn
(gen-reify-combos
{java.lang.Object