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

Augment proxy to fulfill custom maps interfaces (#755)

Browse source
This commit is contained in:
Wilker Lúcio 2021-03-13 12:37:51 -03:00 committed by GitHub
parent ae047b5809
commit 6a911fc54f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 28 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/babashka/impl/proxy.clj
View file

@ -8,22 +8,45 @@
(or (get methods k)
(throw (UnsupportedOperationException. "Method not implemented: " k))))
(defn proxy-fn [{:keys [:class :methods]}]
(defn method-or [methods k default]
(or (get methods k)
default))
(defn proxy-fn [{:keys [class methods]}]
(case (.getName ^Class class)
"clojure.lang.APersistentMap"
(proxy [clojure.lang.APersistentMap] []
(proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj] []
(iterator [] ((method-or-bust methods 'iterator) this))
(containsKey [k] ((method-or-bust methods 'containsKey) this k))
(entryAt [k] ((method-or-bust methods 'entryAt) this k))
(valAt
([k] ((method-or-bust methods 'valAt) this k))
([k default] ((method-or-bust methods 'valAt) this k default)))
(cons [v] ((method-or-bust methods 'cons) this v))
(cons [v]
(if-let [m (get methods 'cons)]
(m this v)
(proxy-super cons v)))
(count [] ((method-or-bust methods 'count) this))
(assoc [k v] ((method-or-bust methods 'assoc) this k v))
(without [k] ((method-or-bust methods 'without) this k))
(seq [] ((method-or-bust methods 'seq) this)))
(seq [] ((method-or-bust methods 'seq) this))
(equiv [other]
(if-let [m (get methods 'equiv)]
(m this other)
(proxy-super equiv other)))
(empty [] ((method-or-bust methods 'empty) this))
(meta [] ((method-or methods 'meta nil) this))
(withMeta [meta] ((method-or methods 'withMeta this) this meta))
(toString []
(if-let [m (get methods 'toString)]
(m this)
(proxy-super toString))))
"clojure.lang.AMapEntry"
(proxy [clojure.lang.AMapEntry] []
(key [] ((method-or-bust methods 'key) this))
(val [] ((method-or-bust methods 'val) this)))))
(val [] ((method-or-bust methods 'val) this))
(getKey [] ((method-or-bust methods 'getKey) this))
(getValue [] ((method-or-bust methods 'getValue) this)))))