1.2.0 permalink Arrow_down_16x16

source-location-for-frame

swank.commands.basic

  • (source-location-for-frame frame)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/commands/basic.clj:372 top

(defn source-location-for-frame [#^StackTraceElement frame]
  (let [line     (.getLineNumber frame)
        filename (if (.. frame getFileName (endsWith ".java"))
                   (.. frame getClassName (replace \. \/)
                       (substring 0 (.lastIndexOf (.getClassName frame) "."))
                       (concat (str File/separator (.getFileName frame))))
                   (let [ns-path (classname-to-path
                                  ((re-find #"(.*?)\$"
                                            (.getClassName frame)) 1))]
                     (if ns-path
                       (str ns-path File/separator (.getFileName frame))
                       (.getFileName frame))))
        path     (slime-find-file filename)]
    `(:location ~path (:line ~line) nil)))
Vars in swank.commands.basic/source-location-for-frame: defn let concat list seq
Used in 0 other vars

Comments top

No comments for source-location-for-frame. Log in to add a comment.