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

tools reader compat for shadow.css

Browse source
This commit is contained in:
Michiel Borkent 2023-12-09 11:07:13 +01:00
parent fc19382b5e
commit 4af5f1fd61
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/babashka/impl/clojure/tools/reader.clj
View file

@ -16,6 +16,15 @@
:location? seq? :location? seq?
:end-location false})) :end-location false}))
(def default-data-reader-fn (sci/new-dynamic-var '*default-data-reader-fn* {:ns rns}))
(def alias-map (sci/new-dynamic-var '*alias-map* {:ns rns}))
(defn resolve-tag [sym]
;; https://github.com/clojure/tools.reader/blob/ff18b1b872398a99e3e2941a0ed9abc0c2dec151/src/main/clojure/clojure/tools/reader.clj#L858
(or (default-data-readers sym)
(when-let [f @default-data-reader-fn]
(f sym))))
;; Added for compatibility with tools.namespace ;; Added for compatibility with tools.namespace
(defn read (defn read
"Reads the first object from an IPushbackReader or a java.io.PushbackReader. "Reads the first object from an IPushbackReader or a java.io.PushbackReader.
@ -39,7 +48,11 @@
([{eof :eof :as opts :or {eof :eofthrow}} reader] ([{eof :eof :as opts :or {eof :eofthrow}} reader]
(let [opts (assoc default-opts (let [opts (assoc default-opts
:read-cond (:read-cond opts) :read-cond (:read-cond opts)
:features (:features opts)) :features (:features opts)
:readers (fn [sym]
(resolve-tag sym))
:auto-resolve (fn [alias]
(@alias-map alias)))
v (e/parse-next reader opts)] v (e/parse-next reader opts)]
(if (identical? ::e/eof v) (if (identical? ::e/eof v)
(if (identical? :eofthrow eof) (if (identical? :eofthrow eof)
@ -57,5 +70,8 @@
(defn resolve-symbol [sym] (defn resolve-symbol [sym]
(p/fully-qualify (ctx/get-ctx) sym)) (p/fully-qualify (ctx/get-ctx) sym))
(def reader-namespace {'read (sci/copy-var read rns) (def reader-namespace
'resolve-symbol (sci/copy-var resolve-symbol rns)}) {'read (sci/copy-var read rns)
'resolve-symbol (sci/copy-var resolve-symbol rns)
'*default-data-reader-fn* default-data-reader-fn
'*alias-map* alias-map})