summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xMisc/pyimenu.el305
1 files changed, 305 insertions, 0 deletions
diff --git a/Misc/pyimenu.el b/Misc/pyimenu.el
new file mode 100755
index 0000000..738de7d
--- /dev/null
+++ b/Misc/pyimenu.el
@@ -0,0 +1,305 @@
+;;; PYIMENU.EL ---
+
+;; Copyright (C) 1995 Perry A. Stoll
+
+;; Author: Perry A. Stoll <stoll@atr-sw.atr.co.jp>
+;; Created: 12 May 1995
+;; Version: 1.0
+;; Keywords: tools python imenu
+
+;; 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, or (at your option)
+;; 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.
+
+;; A copy of the GNU General Public License can be obtained from the
+;; Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
+;; USA.
+
+;;;; COMMENTS
+
+;; I use the imenu package a lot for looking at Lisp and C/C++
+;; code. When I started using Python, I was dismayed that I couldn't
+;; use it to look at Python source. So here's a rough go at it.
+
+;;;; USAGE
+
+;; This program is used in conjunction with the imenu package. When
+;; you call imenu in python-mode in a python buffer, a list of
+;; functions and classes is built. The top level menu has a list of
+;; all functions and classes defined at the top indentation
+;; level. Classes which have methods defined in them have a submenu
+;; which contains all definitions contained in them. Selecting any
+;; item will bring you to that point in the file.
+
+;;;; INSTALLATION
+
+;; You know the routine:
+;; 1) Save this file as pyimenu.el,
+;; 2) Place that file somewhere in your emacs load path (maybe ~/emacs
+;; or ~/emacs/lisp),
+;; 3) Byte compile it (M-x byte-compile-file),
+;; 4) Add the following (between "cut here" and "end here") to your
+;; ~/.emacs file,
+;; 5) Reboot. (joke: DON'T do that, although you'll probably have to
+;; either reload your ~/.emacs file or start a new emacs)
+
+;;--------------cut here-------------------------------------------
+;;;; Load the pyimenu index function
+;;(autoload 'imenu "imenu" nil t)
+;;(autoload 'imenu-example--create-python-index "pyimenu")
+;;;; Add the index creation function to the python-mode-hook
+;;(add-hook 'python-mode-hook
+;; (function
+;; (lambda ()
+;; (setq imenu-create-index-function
+;; (function imenu-example--create-python-index)))))
+;;----------------end here--------------------------------------------
+;;
+;; That is all you need. Of course, the following provides a more
+;; useful interface. i.e. this is how I have it set up ;-)
+;;
+;;----------------optionally cut here----------------------------------
+;;(autoload 'imenu-add-to-menubar "imenu" nil t)
+;;(defun my-imenu-install-hook ()
+;; (imenu-add-to-menubar (format "%s-%s" "IM" mode-name)))
+;;(add-hook 'python-mode-hook (function my-imenu-install-hook))
+;;;; Bind imenu to some convenient (?) mouse key. This really lets you
+;;;; fly around the buffer. Here it is set to Meta-Shift-Mouse3Click.
+;;(global-set-key [M-S-down-mouse-3] (function imenu))
+;;-----------------optionaly end here-----------------------------------
+
+;;;; CAVEATS/NOTES
+
+;; 0) I'm not a professional elisp programmer and it shows in the code
+;; below. If anyone there has suggestions/changes, I'd love to
+;; hear them. I've tried the code out on a bunch of python files
+;; from the python-1.1.1 Demo distribution and it worked with
+;; them - your mileage may very.
+;;
+;; 1) You must have the imenu package to use this file. This file
+;; works with imenu version 1.11 (the version included with emacs
+;; 19.28) and imenu version 1.14; if you have a later version, this
+;; may not work with it.
+;;
+;; 2) This setup assumes you also have python-mode.el, so that it can
+;; use the python-mode-hook. It comes with the python distribution.
+;;
+;; 3) I don't have the Python 1.2 distribution yet, so again, this may
+;; not work with that.
+;;
+
+(require 'imenu)
+
+;;;
+;;; VARIABLES: customizable in your .emacs file.
+;;;
+
+(defvar imenu-example--python-show-method-args-p nil
+ "*When using imenu package with python-mode, whether the arguments of
+the function/methods should be printed in the imenu buffer in addition
+to the function/method name. If non-nil, args are printed.")
+
+;;;
+;;; VARIABLES: internal use.
+;;;
+(defvar imenu-example--python-class-regexp
+ (concat ; <<classes>>
+ "\\(" ;
+ "^[ \t]*" ; newline and maybe whitespace
+ "\\(class[ \t]+[a-zA-Z0-9_]+\\)" ; class name
+ ; possibly multiple superclasses
+ "\\([ \t]*\\((\\([a-zA-Z0-9_, \t\n]\\)*)\\)?\\)"
+ "[ \t]*:" ; and the final :
+ "\\)" ; >>classes<<
+ )
+ "Regexp for Python classes for use with the imenu package."
+)
+
+(defvar imenu-example--python-method-regexp
+ (concat ; <<methods and functions>>
+ "\\(" ;
+ "^[ \t]*" ; new line and maybe whitespace
+ "\\(def[ \t]+" ; function definitions start with def
+ "\\([a-zA-Z0-9_]+\\)" ; name is here
+ ; function arguments...
+ "[ \t]*(\\([a-zA-Z0-9_=,\* \t\n]*\\))"
+ "\\)" ; end of def
+ "[ \t]*:" ; and then the :
+ "\\)" ; >>methods and functions<<
+ )
+ "Regexp for Python methods/functions for use with the imenu package."
+ )
+
+(defvar imenu-example--python-method-no-arg-parens '(2 8)
+ "Indicies into the parenthesis list of the regular expression for
+python for use with imenu. Using these values will result in smaller
+imenu lists, as arguments to functions are not listed.
+
+See the variable imenu-example--python-show-method-args-p to for
+information")
+
+(defvar imenu-example--python-method-arg-parens '(2 7)
+ "Indicies into the parenthesis list of the regular expression for
+python for use with imenu. Using these values will result in large
+imenu lists, as arguments to functions are listed.
+
+See the variable imenu-example--python-show-method-args-p to for
+information")
+
+;; Note that in this format, this variable can still be used with the
+;; imenu--generic-function. Otherwise, there is no real reason to have
+;; it.
+(defvar imenu-example--generic-python-expression
+ (cons
+ (concat
+ imenu-example--python-class-regexp
+ "\\|" ; or...
+ imenu-example--python-method-regexp
+ )
+ imenu-example--python-method-no-arg-parens)
+ "Generic Python expression which may be used directly with imenu by
+setting the variable imenu-generic-expression to this value. Also, see
+the function \\[imenu-example--create-python-index] for an alternate
+way of finding the index.")
+
+;; These next two variables are used when searching for the python
+;; class/definitions. Just saving some time in accessing the
+;; generic-python-expression, really.
+(defvar imenu-example--python-generic-regexp)
+(defvar imenu-example--python-generic-parens)
+
+;;;
+;;; CODE:
+;;;
+
+;; Note:
+;; At first, I tried using some of the functions supplied by
+;; python-mode to navigate through functions and classes, but after a
+;; while, I decided dump it. This file is relatively self contained
+;; and I liked it that.
+
+;;;###autoload
+(defun imenu-example--create-python-index ()
+ "Interface function for imenu package to find all python classes and
+functions/methods. Calls function
+\\[imenu-example--create-python-index-engine]. See that function for
+the details of how this works."
+ (setq imenu-example--python-generic-regexp
+ (car imenu-example--generic-python-expression))
+ (setq imenu-example--python-generic-parens
+ (if imenu-example--python-show-method-args-p
+ imenu-example--python-method-arg-parens
+ imenu-example--python-method-no-arg-parens))
+ (goto-char (point-min))
+ (imenu-example--create-python-index-engine nil))
+
+(defun imenu-example--create-python-index-engine (&optional start-indent)
+"Function for finding all definitions (classes, methods, or functions)
+in a python file for the imenu package.
+
+Retuns a possibly nested alist of the form \(INDEX-NAME
+ INDEX-POSITION). The second element of the alist may be an alist,
+producing a nested list as in \(INDEX-NAME . INDEX-ALIST).
+
+This function should not be called directly, as it calls itself
+recursively and requires some setup. Rather this is the engine for the
+function \\[imenu-example--create-python-index].
+
+It works recursively by looking for all definitions at the current
+indention level. When it finds one, it adds it to the alist. If it
+finds a definition at a greater indentation level, it removes the
+previous definition from the alist. In it's place it adds all
+definitions found at the next indentation level. When it finds a
+definition that is less indented then the current level, it retuns the
+alist it has created thus far.
+
+ The optional argument START-INDENT indicates the starting indentation
+at which to continue looking for python classes, methods, or
+functions. If this is not supplied, the function uses the indentation
+of the first definition found. "
+ (let ((index-alist '())
+ (sub-method-alist '())
+ looking-p
+ def-name prev-name
+ cur-indent def-pos
+ (class-paren (first imenu-example--python-generic-parens))
+ (def-paren (second imenu-example--python-generic-parens)))
+ (setq looking-p
+ (re-search-forward imenu-example--python-generic-regexp
+ (point-max) t))
+ (while looking-p
+ (save-excursion
+ ;; used to set def-name to this value but generic-extract-name is
+ ;; new to imenu-1.14. this way it still works with imenu-1.11
+ ;;(imenu--generic-extract-name imenu-example--python-generic-parens))
+ (let ((cur-paren (if (match-beginning class-paren)
+ class-paren def-paren)))
+ (setq def-name
+ (buffer-substring (match-beginning cur-paren)
+ (match-end cur-paren))))
+ (beginning-of-line)
+ (setq cur-indent (current-indentation)))
+
+ ;; HACK: want to go to the correct definition location. Assuming
+ ;; here that there are only two..which is true for python.
+ (setq def-pos
+ (or (match-beginning class-paren)
+ (match-beginning def-paren)))
+
+ ; if we don't have a starting indent level, take this one
+ (or start-indent
+ (setq start-indent cur-indent))
+
+ ; if we don't have class name yet, take this one
+ (or prev-name
+ (setq prev-name def-name))
+
+ ;; what level is the next definition on?
+ ;; must be same, deeper or shallower indentation
+ (cond
+
+ ;; at the same indent level, add it to the list...
+ ((= start-indent cur-indent)
+ (push (cons def-name def-pos) index-alist))
+
+ ;; deeper indented expression, recur...
+ ((< start-indent cur-indent)
+
+ ;; the point is currently on the expression we're supposed to
+ ;; start on, so go back to the last expression. The recursive
+ ;; call will find this place again and add it to the correct
+ ;; list
+ (re-search-backward imenu-example--python-generic-regexp
+ (point-min) 'move)
+ (setq sub-method-alist (imenu-example--create-python-index-engine
+ cur-indent))
+
+ (if sub-method-alist
+ ;; we put the last element on the index-alist on the start
+ ;; of the submethod alist so the user can still get to it.
+ (let ((save-elmt (pop index-alist)))
+ (push (cons (imenu-create-submenu-name prev-name)
+ (cons save-elmt sub-method-alist))
+ index-alist))))
+
+ ;; found less indented expression, we're done.
+ (t
+ (setq looking-p nil)
+ (re-search-backward imenu-example--python-generic-regexp
+ (point-min) t)))
+ (setq prev-name def-name)
+ (and looking-p
+ (setq looking-p
+ (re-search-forward imenu-example--python-generic-regexp
+ (point-max) 'move))))
+ (nreverse index-alist)))
+
+(provide 'pyimenu)
+
+;;; PyImenu.EL ends here