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

proxy

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 17:04:35 +01:00
parent 6a911fc54f
commit c0e512e304
3 changed files with 51 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit 02409735ac3e085a407352ea3d0fbd29a3777816 Subproject commit 139df5af5ab8e80a4988db45f1c7110ff40f3e8f

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

@ -10,11 +10,15 @@
(defn method-or [methods k default] (defn method-or [methods k default]
(or (get methods k) (or (get methods k)
default)) (constantly default)))
(defn proxy-fn [{:keys [class methods]}] (defn class-name [^Class clazz]
(case (.getName ^Class class) (.getName clazz))
"clojure.lang.APersistentMap"
(defn proxy-fn [{:keys [class interfaces methods]}]
(let [interfaces (set (map class-name interfaces))]
(case [(class-name class) interfaces ]
["clojure.lang.APersistentMap" #{"clojure.lang.IMeta" "clojure.lang.IObj"}]
(proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj] [] (proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj] []
(iterator [] ((method-or-bust methods 'iterator) this)) (iterator [] ((method-or-bust methods 'iterator) this))
(containsKey [k] ((method-or-bust methods 'containsKey) this k)) (containsKey [k] ((method-or-bust methods 'containsKey) this k))
@ -37,16 +41,16 @@
(proxy-super equiv other))) (proxy-super equiv other)))
(empty [] ((method-or-bust methods 'empty) this)) (empty [] ((method-or-bust methods 'empty) this))
(meta [] ((method-or methods 'meta nil) this)) (meta [] ((method-or-bust methods 'meta) this))
(withMeta [meta] ((method-or methods 'withMeta this) this meta)) (withMeta [meta] ((method-or-bust methods 'withMeta) this meta))
(toString [] (toString []
(if-let [m (get methods 'toString)] (if-let [m (get methods 'toString)]
(m this) (m this)
(proxy-super toString)))) (proxy-super toString))))
"clojure.lang.AMapEntry" ["clojure.lang.AMapEntry" #{}]
(proxy [clojure.lang.AMapEntry] [] (proxy [clojure.lang.AMapEntry] []
(key [] ((method-or-bust methods 'key) this)) (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)) (getKey [] ((method-or-bust methods 'getKey) this))
(getValue [] ((method-or-bust methods 'getValue) this))))) (getValue [] ((method-or-bust methods 'getValue) this))))))

13
test/babashka/proxy_test.clj
View file

@ -21,7 +21,7 @@
(defn proxy-deref-map (defn proxy-deref-map
{:added "1.0"} {:added "1.0"}
[m] [m]
(proxy [clojure.lang.APersistentMap] (proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj]
[] []
(iterator [] (iterator []
::TODO) ::TODO)
@ -37,7 +37,9 @@
(without [k] (proxy-deref-map (dissoc m k))) (without [k] (proxy-deref-map (dissoc m k)))
(seq [] (map (fn [[k v]](proxy [clojure.lang.AMapEntry] [] (seq [] (map (fn [[k v]](proxy [clojure.lang.AMapEntry] []
(key [] k) (key [] k)
(val [] (auto-deref (get m k))))) m)))) (val [] (auto-deref (get m k))))) m))
(withMeta [md] (proxy-deref-map (with-meta m md)))
(meta [] (meta m))))
(let [m (proxy-deref-map (let [m (proxy-deref-map
{:a (delay 1) {:a (delay 1)
:b (delay 2) :b (delay 2)
@ -54,10 +56,13 @@
:d) :d)
(-> (dissoc m :a) (-> (dissoc m :a)
(contains? :a)) (contains? :a))
(seq m)]))) (seq m)
(meta (with-meta m {:a 1}))
])))
(deftest APersistentMap-proxy-test (deftest APersistentMap-proxy-test
(is (= [1 2 3 true [:c 3] (is (= [1 2 3 true [:c 3]
5 3 5 false 5 3 5 false
'([:a 1] [:b 2] [:c 3])] '([:a 1] [:b 2] [:c 3])
{:a 1}]
(bb code)))) (bb code))))