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

fs [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2021-02-06 17:51:19 +01:00
parent 8326825494
commit 4daef2fbcc
2 changed files with 35 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
fs

@ -1 +1 @@
Subproject commit f4e36fe231fc7041c3d2dc65df5d3608f1648a24 Subproject commit 6c150a1b48cac48151f13223b1cf5f889e8e9ef9

52
src/babashka/impl/classes.clj
View file

@ -319,9 +319,7 @@
(def class-map (gen-class-map)) (def class-map (gen-class-map))
(defn generate-reflection-file (defn reflection-file-entries []
"Generate reflection.json file"
[& args]
(let [entries (vec (for [c (sort (:all classes)) (let [entries (vec (for [c (sort (:all classes))
:let [class-name (str c)]] :let [class-name (str c)]]
{:name class-name {:name class-name
@ -344,24 +342,42 @@
:let [class-name (str c)]] :let [class-name (str c)]]
(assoc v :name class-name)) (assoc v :name class-name))
all-entries (concat entries constructors methods fields custom-entries)] all-entries (concat entries constructors methods fields custom-entries)]
all-entries))
(defn generate-reflection-file
"Generate reflection.json file"
[& args]
(let [all-entries (reflection-file-entries)]
(spit (or (spit (or
(first args) (first args)
"reflection.json") (json/generate-string all-entries {:pretty true})))) "reflection.json") (json/generate-string all-entries {:pretty true}))))
(defn public-declared-method? [c m]
(and (= c (.getDeclaringClass m))
(not (.getAnnotation m Deprecated))))
(defn public-declared-method-names [c]
(->> (.getMethods c)
(keep (fn [m]
(when (public-declared-method? c m)
{:class c
:name (.getName m)})))
(distinct)
(sort-by :name)
(vec)))
(defn all-methods []
(->> (reflection-file-entries)
(map :name)
(map #(Class/forName %))
(mapcat public-declared-method-names)))
(comment (comment
(defn public-declared-method? [c m]
(and (= c (.getDeclaringClass m))
(not (.getAnnotation m Deprecated))))
(defn public-declared-method-names [c]
(->> (.getMethods c)
(keep (fn [m]
(when (public-declared-method? c m)
{:name (.getName m)})))
(distinct)
(sort-by :name)
(vec)))
(public-declared-method-names java.net.URL) (public-declared-method-names java.net.URL)
(public-declared-method-names java.util.Properties)) (public-declared-method-names java.util.Properties)
(->> (reflection-file-entries)
(map :name)
(map #(Class/forName %)))
)