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

wip [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2023-03-11 21:26:17 +01:00
parent 7aba75564e
commit a1a53fcc65
2 changed files with 22 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit 8d9f1d2e29b5d359f92b976d45786f7d5e415468
Subproject commit 617bf809d1810b48cab24980864b85249c2a9d8b

33
src/babashka/impl/error_handler.clj
View file

@ -96,24 +96,33 @@
(defn render-native-stacktrace-elem [[sym _ _file _line]]
(render-native-sym sym))
(defn error-handler [^Exception e opts]
(defn via [^Throwable t]
(loop [via [], ^Throwable t t]
(if t
(recur (conj via t) (.getCause t))
via)))
(defn error-handler [^Throwable e opts]
(binding [*out* *err*]
(let [d (ex-data e)
cause-exit (some-> e ex-cause ex-data :babashka/exit)
exit-code (or (:babashka/exit d) cause-exit)
(let [via-exs (reverse (via e))
^Throwable root (first via-exs)
d (ex-data e)
dr (ex-data root)
exit-code (or (:babashka/exit d) (:babashka/exit dr))
sci-error? (isa? (:type d) :sci/error)
ex-name (when sci-error?
(some-> ^Throwable (ex-cause e)
.getClass .getName))
ex-name (when sci-error? (some-> root .getClass .getName))
_ (prn :exes (mapcat sci/stacktrace via-exs))
stacktrace (dedupe
(concat (sequence (comp (map StackTraceElement->vec)
(take-while #(not (str/starts-with? (first %) "sci.impl.")))
(keep render-native-stacktrace-elem))
(.getStackTrace (or (ex-cause e) e)))
(sci/stacktrace e)))]
(.getStackTrace root))
(mapcat sci/stacktrace via-exs)))
;; _ (clojure.pprint/pprint stacktrace)
ex-m (ex-message root)]
(if exit-code
(do
(when-let [m (.getMessage e)]
(when-let [m ex-m]
(println m))
[nil exit-code])
(do
@ -121,9 +130,9 @@
(println "Type: " (or
ex-name
(.. e getClass getName)))
(when-let [m (.getMessage e)]
(when-let [m ex-m]
(println (str "Message: " m)))
(when-let [d (ex-data (.getCause e))]
(when-let [d (ex-data root)]
(print (str "Data: "))
(prn d))
(let [{:keys [:file :line :column]} d]