Re: hooking jode to emacs

[kgold]

Kai Grossjohann <kai@emptydomain.de> writes:
> [great suggestions]

This version puts the output in a .class.java buffer and eliminates
the two extra jode lines.

It works for classes that aren't in a package.

For classes in a package, passing the file name without the directory
is wrong.  Rather, one must discard only from the current working
directory up toward the root, and then create a relative path by
replacing the Unix "/" directory separator with the Java separator
".".

Anyone have too much free time?  :-)

(defun decompile-class-file (&optional file)
   "Run `class-file-decompile-command' on FILE, but only if it's a .class file.
 If FILE is nil, run it on `buffer-file-name'."
   (interactive "fFile: ")
   (or file (setq file buffer-file-name))
   (and (equal (file-name-extension file) "class")
        (set-buffer (create-file-buffer (concat (file-name-sans-extension file)
                                                ".class.java")))
        (shell-command (concat class-file-decompile-command " " 
                               (file-name-nondirectory 
(file-name-sans-extension file)))
        t                       ; output to current buffer
        nil)                    ; stderr goes to same buffer as stdout
        (java-mode)
        (goto-char (point-min))
        (kill-line 2)
    )
)

--