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

Even better require detection

Browse source
This commit is contained in:
Michiel Borkent 2022-12-26 13:10:26 +01:00
parent 39c1390085
commit 073e7e3ce0
1 changed files with 36 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
src/aaaa_this_has_to_be_first/because_patches.clj
View file

@ -3,36 +3,46 @@
(:require [babashka.impl.patches.datafy]
[babashka.impl.pprint]))
;; ;; Enable this for scanning requiring-resolve usage:
;; ;; ---
;; Enable this for scanning requiring usage:
(def enable-require-scan
"(do
(def old-require require)
(def old-resolve resolve)
;; (def old-require require)
;; (def old-resolve resolve)
(def our-requiring-resolve (fn [sym]
(let [ns (symbol (namespace sym))]
(old-require ns)
(old-resolve sym))))
;; (def our-requiring-resolve (fn [sym]
;; (let [ns (symbol (namespace sym))]
;; (old-require ns)
;; (resolve sym))))
(defn static-requiring-resolve [form _ _]
(prn :req-resolve form :args (rest form))
`(let [res# (our-requiring-resolve ~@(rest form))]
res#))
;; (defn static-requiring-resolve [form _ _]
;; (prn :req-resolve form :args (rest form))
;; `(let [res# (our-requiring-resolve ~@(rest form))]
;; res#))
(alter-var-root #'requiring-resolve (constantly @#'static-requiring-resolve))
(doto #'requiring-resolve (.setMacro))
;; (alter-var-root #'requiring-resolve (constantly @#'static-requiring-resolve))
;; (doto #'requiring-resolve (.setMacro))
;; ;; ---
(defn static-require [& [&form _bindings & syms]]
(when (meta &form)
(prn :require &form (meta &form) *file*))
`(old-require ~@syms))
(alter-var-root #'require (constantly @#'static-require))
(doto #'require (.setMacro))
;; ;; Enable this for detecting literal usages of require
;; ;; ---
(alter-var-root #'clojure.core/serialized-require (constantly (fn [& args]
(prn :serialized-req args)))))
;; (defn static-require [& [&form _bindings & syms]]
;; (when (meta &form)
;; (prn :require &form (meta &form) *file*))
;; `(old-require ~@syms))
;; (alter-var-root #'require (constantly @#'static-require))
;; (doto #'require (.setMacro))
;; (alter-var-root #'clojure.core/serialized-require (constantly (fn [& args]
;; (prn :serialized-req args))))
;; ;; ---
(defn static-resolve [& [&form _bindings & syms]]
(when (meta &form)
(prn :require &form (meta &form) *file*))
`(old-resolve ~@syms))
(alter-var-root #'resolve (constantly @#'static-resolve))
(doto #'resolve (.setMacro))
")
(when (System/getenv "BABASHKA_REQUIRE_SCAN")
(load-string enable-require-scan))
;; ---