Regarding current function, Stephen posted this code a whie ago so I
don't think he'll mind me regurgitating it for you:
(use 'clojure.contrib.str-utils)
; Stephen C. Gilardi
(defn unmangle
"Given the name of a class that implements a Clojure function,
returns the function's name in Clojure.
Note: If the true Clojure function name contains any underscores
(a rare occurrence), the unmangled name will contain hyphens
at those locations instead."
[class-name]
(.replace
(re-sub #"^(.+)\$(.+)__\d+$" "$1/$2" class-name)
\_ \-))
; Stephen C. Gilardi
(defmacro current-function-name
"Returns a string, the name of the current Clojure function."
[]
`(-> (Throwable.) .getStackTrace first .getClassName unmangle))
I imagine some similar unmangling could be applied to getting the
class-name of an arbitrary function, something like
(unmangle (.toString foo)) ;; but not exactly - this doesn't work
- if you figure that out please post the answer :)
Regards,
Tim.
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
