Kevin,
I tried using the jde-overview.el by invoking M-x jde-overview, but instead
of showing me all of the methods it only showed me the class definition without
any of the methods.
What should i do in order for it to show me all of the method signatures as
well as the class definition?
thanks,
aaron
>-----BEGIN PGP SIGNED MESSAGE-----
>Hash: SHA1
>
>
>
>This provides an overview of Java buffers in the format of:
>
>
>//JDE overview for file:
>/projects/reptile/src/java/org/openprivacy/reptile/SequenceDispatchEngine.java
>29: package org.openprivacy.reptile;
>
>52: public class SequenceDispatchEngine {
>
>60: public static void dispatch( HttpServletRequest request,
>61: HttpServletResponse response,
>62: ParameterPasser params ) throws ServletException
{
>
>88: public static String dispatch( ParameterPasser params ) throws Exception
{
>
>
>
>Have fun...
>
>
>;;; jde-overview.el --- Obtain an overview of Java buffers.
>
>;; $Id: jde-overview.el,v 1.1 2001/07/13 12:36:21 burton Exp $
>
>;; Copyright (C) 2000-2003 Free Software Foundation, Inc.
>;; Copyright (C) 2000-2003 Kevin A. Burton ([EMAIL PROTECTED])
>
>;; Author: Kevin A. Burton ([EMAIL PROTECTED])
>;; Maintainer: Kevin A. Burton ([EMAIL PROTECTED])
>;; Location: http://relativity.yi.org
>;; Keywords:
>;; Version: 1.0.0
>
>;; This file is [not yet] part of GNU Emacs.
>
>;; This program is free software; you can redistribute it and/or modify it
under
>;; the terms of the GNU General Public License as published by the Free Software
>;; Foundation; either version 2 of the License, or any later version.
>;;
>;; This program is distributed in the hope that it will be useful, but WITHOUT
>;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
>;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
>;; details.
>;;
>;; You should have received a copy of the GNU General Public License along
with
>;; this program; if not, write to the Free Software Foundation, Inc., 59 Temple
>;; Place - Suite 330, Boston, MA 02111-1307, USA.
>
>;;; Commentary:
>;;
>;; JDE overview provides a quick "overview" of a Java class from its Java
>;; source. This overview provides misc information defined in the source file
>;; including class and method declarations. The main benefit is that since
the
>;; overview is based on the source file it's format is not modified from how
it
>;; was entered.
>
>;;TODO:
>;;
>;;
>;; - support java interface methods.
>
>;;; Code:
>(defvar jde-overview-buffer-name "*jde-overview*" "Name of the temp buffer.")
>
>(defvar jde-overview-current-class-or-interface nil "If the currently parsed
>file is a class the value will be 'class' and if it is an interface it will
be
>set to 'interface'.")
>
>(defun jde-overview-class-at-point()
> "Get an overview for the class at the current point."
> (interactive)
>
> (save-window-excursion
> (jde-open-class-source)
>
> (jde-overview))
>
> (display-buffer jde-overview-buffer-name))
>
>(defun jde-overview()
> "Show an overview of the current Java buffer."
> (interactive)
>
> (save-excursion
>
> (jde-overview-init)
>
> (beginning-of-buffer)
>
> (jde-overview-insert (format "//JDE overview for file: %s\n" (buffer-file-name))
1)
>
> (jde-overview-do-package)
>
> (jde-overview-do-class)
>
> (let(method-start method-end regexp)
>
> (if (string-equal jde-overview-current-class-or-interface "class")
> (setq regexp "[ ]+public [^{;=]+{")
> (setq regexp "[ ]+public [^{=]+;"))
>
> ;; should contain ;=
> (while (re-search-forward regexp nil t)
>
> (setq method-start (match-beginning 0))
>
> (setq method-end (match-end 0))
>
> (jde-overview-insert (concat (buffer-substring method-start method-end)
"\n\n")
> (jde-overview-line-number method-start))))
>
> (jde-overview-fontify)
> (display-buffer jde-overview-buffer-name)
> (set-buffer jde-overview-buffer-name)
> (jde-overview-mode)))
>
>(defun jde-overview-do-package()
> "Do the overview entry fo the current package."
>
> (assert (re-search-forward "^package .*;" nil t)
> nil "Could not find package statement")
>
> (jde-overview-insert (concat (buffer-substring (match-beginning 0)
> (match-end 0))
> "\n\n")
> (jde-overview-line-number (match-beginning 0))))
>
>
>(defun jde-overview-do-class()
> "Do the overview entry for the current class."
>
> (let(start end)
>
> (assert (re-search-forward "public \\(class\\|interface\\)" nil t)
> nil "Could not find class")
>
> (setq jde-overview-current-class-or-interface (match-string 1))
>
> (setq start (match-beginning 0))
>
> (assert (re-search-forward "{" nil t)
> nil "Could not find end of class")
>
> (setq end (match-end 0))
>
> (jde-overview-insert (concat (buffer-substring start end) "\n\n")
> (jde-overview-line-number start))))
>
>(defun jde-overview-init()
> "Perform any necesary initialization."
>
> (save-excursion
>
> (set-buffer (get-buffer-create jde-overview-buffer-name))
>
> (toggle-read-only -1)
>
> (erase-buffer)))
>
>(defun jde-overview-fontify()
> "Highlght the buffer where necessary."
>
> (save-excursion
>
> (set-buffer (get-buffer-create jde-overview-buffer-name))
>
> (beginning-of-buffer)
>
> (save-excursion
> (while (re-search-forward "//.+$" nil t)
>
> (add-text-properties (match-beginning 0) (match-end 0)
> '(comment t face font-lock-comment-face))))
>
> (save-excursion
> (while (re-search-forward "^[ ]*[0-9]+" nil t)
>
> (add-text-properties (match-beginning 0) (match-end 0)
> '(face font-lock-variable-name-face))))))
>
>(defun jde-overview-line-number(point)
> "Get the line number for the current point. If the optional value of point
is
>given we use this as the base of the line number."
>
> (1+ (count-lines (point-min) point)))
>
>(defun jde-overview-insert(value line-number)
> "Insert the given value and keep track of the line number it is using."
>
> (let(start end)
> (save-excursion
>
> (set-buffer (get-buffer-create jde-overview-buffer-name))
>
> (end-of-buffer)
>
> (setq start (point))
> (insert value)
>
> (setq end (point))
>
> (jde-overview-lineify start end line-number)
>
> (put-text-property start end 'jde-overview-line-number line-number))))
>
>(defun jde-overview-lineify(start end start-line-number)
> "Add line number entries in the overview buffer"
>
> (save-excursion
> (let(line-distance (i 1))
>
> (goto-char start)
> (beginning-of-line)
>
> (setq line-distance (count-lines start end))
>
> (while (< i line-distance)
>
> (beginning-of-line)
>
> (insert (jde-overview-format-line-number start-line-number))
>
> (forward-line 1)
>
> (setq start-line-number (1+ start-line-number))
>
> (setq i (1+ i ))))))
>
>(defun jde-overview-format-line-number(line-number)
> "Format a line number including padding for inclusing in the overview buffer."
>
> (if (< line-number 10)
> (concat (number-to-string line-number) ": ")
> (if (< line-number 100)
> (concat (number-to-string line-number) ": ")
>
> (concat (number-to-string line-number) ": "))))
>
>(defun jde-overview-goto-line-number()
> "Goto the current line number."
> (interactive)
>
> (let(filename line-number)
>
> (save-excursion
>
> (beginning-of-buffer)
>
> (assert (re-search-forward "file: \\(.*\\)$" nil t)
> nil "Could not find filename.")
>
> (setq filename (match-string 1)))
>
> (setq line-number (get-text-property (point) 'jde-overview-line-number))
>
> (find-file-other-window filename)
>
> (goto-line line-number)))
>
>(define-derived-mode jde-overview-mode fundamental-mode "JDEOverview"
> "Mode for JDE overviews."
>
> (toggle-read-only 1))
>
>;;key binding so that one can quickly jump an entry in the overview buffer
>(define-key jde-overview-mode-map [return] 'jde-overview-goto-line-number)
>
>(define-key java-mode-map [S-C-return] 'jde-overview-class-at-point)
>
>(provide 'jde-overview)
>
>;;; jde-overview.el ends here
>
>- --
>Kevin A. Burton ( [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
)
> Cell: 408-910-6145 URL: http://relativity.yi.org ICQ: 73488596
>
>Linux is both Open Source and Free Software, Java is neither!
>
>
>
>-----BEGIN PGP SIGNATURE-----
>Version: GnuPG v1.0.4 (GNU/Linux)
>Comment: Get my public key at: http://relativity.yi.org/pgpkey.txt
>
>iD8DBQE7TlAeAwM6xb2dfE0RAndNAJ0R1IaIM86ef7e9jtjGuUYBobf7PwCfTsQN
>fV7XWoysDJttWn+IyrVbQ2k=
>=y5JG
>-----END PGP SIGNATURE-----
>
>
-------------------
http://www.pcez.com
