proxy + protocols

sci

@@ -1 +1 @@
-Subproject commit 139df5af5ab8e80a4988db45f1c7110ff40f3e8f
+Subproject commit bf0fc870e5d9060ea79dd49594487d600bb64571

src/babashka/impl/proxy.clj

@@ -15,11 +15,17 @@
 (defn class-name [^Class clazz]
   (.getName clazz))
 
-(defn proxy-fn [{:keys [class interfaces methods]}]
+(defn proxy-fn [{:keys [class interfaces protocols 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 sci.impl.types.IReified] []
+        (getInterfaces []
+          interfaces)
+        (getMethods []
+          methods)
+        (getProtocols []
+          protocols)
         (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))

test/babashka/proxy_test.clj

@@ -12,6 +12,8 @@
 
 (def code
   '(do
+     (require '[clojure.core.protocols])
+     (require '[clojure.datafy :as d])
      (defn auto-deref
        "If value implements IDeref, deref it, otherwise return original."
        [x]
@@ -21,7 +23,7 @@
      (defn proxy-deref-map
        {:added "1.0"}
        [m]
-       (proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj]
+       (proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj clojure.core.protocols.Datafiable]
            []
          (iterator []
            ::TODO)
@@ -39,7 +41,9 @@
                                    (key [] k)
                                    (val [] (auto-deref (get m k))))) m))
          (withMeta [md] (proxy-deref-map (with-meta m md)))
-         (meta [] (meta m))))
+         (meta [] (meta m))
+
+         (datafy [] {:datafied true})))
      (let [m (proxy-deref-map
               {:a (delay 1)
                :b (delay 2)
@@ -58,11 +62,15 @@
             (contains? :a))
         (seq m)
         (meta (with-meta m {:a 1}))
-        ])))
+        (d/datafy m)
+        ,])))
+
+(require 'clojure.pprint)
 
 (deftest APersistentMap-proxy-test
   (is (= [1 2 3 true [:c 3]
           5 3 5 false
           '([:a 1] [:b 2] [:c 3])
-          {:a 1}]
-         (bb code))))
+          {:a 1}
+          {:datafied true}]
+         (bb (with-out-str (clojure.pprint/pprint code))))))