FilesExpand file tree

master

/

stacktrace.clj

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

87 lines (77 loc) · 2.63 KB

master

/

stacktrace.clj

Copy path

Top

File metadata and controls

• Code
• Blame

87 lines (77 loc) · 2.63 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

; Copyright (c) Rich Hickey. All rights reserved.

; The use and distribution terms for this software are covered by the

; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)

; which can be found in the file epl-v10.html at the root of this distribution.

; By using this software in any fashion, you are agreeing to be bound by

; the terms of this license.

; You must not remove this notice, or any other, from this software.

;;; stacktrace.clj: print Clojure-centric stack traces

;; by Stuart Sierra

;; January 6, 2009

(ns ^{:doc "Print stack traces oriented towards Clojure, not Java."

:author "Stuart Sierra"}

clojure.stacktrace)

(set! *warn-on-reflection* true)

(defn root-cause

"Returns the last 'cause' Throwable in a chain of Throwables."

{:added "1.1"}

[^Throwable tr]

(if-let [cause (.getCause tr)]

(recur cause)

tr))

(defn print-trace-element

"Prints a Clojure-oriented view of one element in a stack trace."

{:added "1.1"}

[^StackTraceElement e]

(let [class (.getClassName e)

method (.getMethodName e)]

(let [match (re-matches #"^([A-Za-z0-9_.-]+)\$(\w+)__\d+$" (str class))]

(if (and match (= "invoke" method))

(apply printf "%s/%s" (rest match))

(printf "%s.%s" class method))))

(printf " (%s:%d)" (or (.getFileName e) "") (.getLineNumber e)))

(defn print-throwable

"Prints the class and message of a Throwable. Prints the ex-data map

if present."

{:added "1.1"}

[^Throwable tr]

(printf "%s: %s" (.getName (class tr)) (.getMessage tr))

(when-let [info (ex-data tr)]

(newline)

(pr info)))

(defn print-stack-trace

"Prints a Clojure-oriented stack trace of tr, a Throwable.

Prints a maximum of n stack frames (default: unlimited).

Does not print chained exceptions (causes)."

{:added "1.1"}

([tr] (print-stack-trace tr nil))

([^Throwable tr n]

(let [st (.getStackTrace tr)]

(print-throwable tr)

(newline)

(print " at ")

(if-let [e (first st)]

(print-trace-element e)

(print "[empty stack trace]"))

(newline)

(doseq [e (if (nil? n)

(rest st)

(take (dec n) (rest st)))]

(print " ")

(print-trace-element e)

(newline)))))

(defn print-cause-trace

"Like print-stack-trace but prints chained exceptions (causes)."

{:added "1.1"}

([tr] (print-cause-trace tr nil))

([^Throwable tr n]

(print-stack-trace tr n)

(when-let [cause (.getCause tr)]

(print "Caused by: " )

(recur cause n))))

(defn e

"REPL utility. Prints a brief stack trace for the root cause of the

most recent exception."

{:added "1.1"}

[]

(print-stack-trace (root-cause *e) 8))