mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

Imenu support changed.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-02-17 07:10:49 +00:00
parent bb7830ef8a
commit f1063b2f66
1 changed files with 58 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
lisp/progmodes/cc-menus.el
View File

@ -1,6 +1,6 @@
;;; cc-menus.el --- imenu support for CC Mode
;; Copyright (C) 1985,87,92,93,94,95,96,97 Free Software Foundation, Inc.
;; Copyright (C) 1985,87,92,93,94,95,96,97,98 Free Software Foundation, Inc.
;; Authors: 1992-1997 Barry A. Warsaw
;; 1987 Dave Detlefs and Stewart Clamen
@ -80,7 +80,9 @@ A sample value might look like: `\\(_P\\|_PROTO\\)'.")
(concat
"^"
"\\([a-zA-Z_][a-zA-Z0-9_:<>~]*\\)" ; match function name
"[ \t]*([^)]*)[ \t]*[^ \t;]" ; see above
"[ \t]*(" ; see above, BUT
"[ \t]*\\([^ \t(*][^)]*\\)?)" ; the arg list must not start
"[ \t]*[^ \t;(]" ; with an asterisk or parentheses
)) 1)
;; General function name regexp
(nil
@ -90,8 +92,8 @@ A sample value might look like: `\\(_P\\|_PROTO\\)'.")
"[^a-zA-Z0-9_:<>~]" ; match any non-identifier char
"\\([a-zA-Z_][a-zA-Z0-9_:<>~]*\\)" ; match function name
"[ \t]*(" ; see above, BUT
"[ \t]*[^ \t(][^)]*)[ \t]*[^ \t;]" ; the argument list must not start
; with a parentheses
"[ \t]*\\([^ \t(*][^)]*\\)?)" ; the arg list must not start
"[ \t]*[^ \t;(]" ; with an asterisk or parentheses
)) 1)
;; Special case for definitions using phony prototype macros like:
;; `int main _PROTO( (int argc,char *argv[]) )'.
@ -143,32 +145,56 @@ A sample value might look like: `\\(_P\\|_PROTO\\)'.")
)) 6)))
"Imenu generic expression for Java mode. See `imenu-generic-expression'.")
;; *Warning for cc-mode developers*
;;
;; `cc-imenu-objc-generic-expression' elements depend on
;; `cc-imenu-c++-generic-expression'. So if you change this
;; expression, you need to change following variables,
;; `cc-imenu-objc-generic-expression-*-index',
;; too. `cc-imenu-objc-function' uses these *-index variables, in
;; order to know where the each regexp *group \\(foobar\\)* elements
;; are started.
;;
;; *-index variables are initialized during `cc-imenu-objc-generic-expression'
;; being initialized.
;;
;; Internal variables
(defvar cc-imenu-objc-generic-expression-noreturn-index nil)
(defvar cc-imenu-objc-generic-expression-general-func-index nil)
(defvar cc-imenu-objc-generic-expression-proto-index nil)
(defvar cc-imenu-objc-generic-expression-objc-base-index nil)
(defvar cc-imenu-objc-generic-expression
(concat
;;
;; For C
;; *Warning for developers*
;; This expression elements depend on `cc-imenu-c++-generic-expression'.
;;
;; > Special case to match a line like `main() {}'
;; > e.g. no return type, not even on the previous line.
;; Pick a token by (match-string 1)
(car (cdr (nth 1 cc-imenu-c++-generic-expression))) ;
(car (cdr (nth 1 cc-imenu-c++-generic-expression))) ; -> index += 2
(prog2 (setq cc-imenu-objc-generic-expression-noreturn-index 1) "")
"\\|"
;; > General function name regexp
;; Pick a token by (match-string 2)
(car (cdr (nth 2 cc-imenu-c++-generic-expression)))
;; Pick a token by (match-string 3)
(car (cdr (nth 2 cc-imenu-c++-generic-expression))) ; -> index += 2
(prog2 (setq cc-imenu-objc-generic-expression-general-func-index 3) "")
;; > Special case for definitions using phony prototype macros like:
;; > `int main _PROTO( (int argc,char *argv[]) )'.
;; Pick a token by (match-string 3)
;; Pick a token by (match-string 5)
(if cc-imenu-c-prototype-macro-regexp
(concat
"\\|"
(car (cdr (nth 3 cc-imenu-c++-generic-expression))))
"")
(car (cdr (nth 3 cc-imenu-c++-generic-expression))) ; -> index += 1
(prog2 (setq cc-imenu-objc-generic-expression-objc-base-index 6) "")
)
(prog2 (setq cc-imenu-objc-generic-expression-objc-base-index 5) "")
"") ; -> index += 0
(prog2 (setq cc-imenu-objc-generic-expression-proto-index 5) "")
;;
;; For Objective-C
;; Pick a token by (match-string 3 or 4)
;; Pick a token by (match-string 5 or 6)
;;
"\\|\\("
"^[-+][:a-zA-Z0-9()*_<>\n\t ]*[;{]" ; Methods
@ -252,19 +278,18 @@ Example:
(let (methodlist
clist
;;
;; OBJC, C1, C2, C3 are constants.
;; OBJC, Cnoreturn, Cgeneralfunc, Cproto are constants.
;;
;; *Warning for developers*
;; These constants depend on `cc-imenu-c++-generic-expression'.
;;
(OBJC
(if cc-imenu-c-prototype-macro-regexp 4 3))
(C1 ; > Special case to match a line like `main() {}'
1)
(C2 ; > General function name regexp
2)
(C3 ; > Special case for definitions using phony prototype macros like:
3)
(OBJC cc-imenu-objc-generic-expression-objc-base-index)
;; Special case to match a line like `main() {}'
(Cnoreturn cc-imenu-objc-generic-expression-noreturn-index)
;; General function name regexp
(Cgeneralfunc cc-imenu-objc-generic-expression-general-func-index)
;; Special case for definitions using phony prototype macros like:
(Cproto cc-imenu-objc-generic-expression-proto-index)
langnum
;;
(classcount 0)
@ -275,13 +300,13 @@ Example:
(intflen (length "@interface"))
(implen (length "@implementation"))
(prtlen (length "@protocol"))
bufsubst-fun)
;;
;; Does this emacs has buffer-substring-no-properties?
;;
(setq bufsubst-fun (if (fboundp 'buffer-substring-no-properties)
(symbol-function 'buffer-substring-no-properties)
(symbol-function 'buffer-substring)))
(func
;;
;; Does this emacs has buffer-substring-no-properties?
;;
(if (fboundp 'buffer-substring-no-properties)
'buffer-substring-no-properties
'buffer-substring)))
(goto-char (point-max))
(imenu-progress-message stupid 0)
;;
@ -290,11 +315,10 @@ Example:
(setq langnum (if (match-beginning OBJC)
OBJC
(cond
((match-beginning C3) C3)
((match-beginning C2) C2)
((match-beginning C1) C1))))
(setq str (funcall bufsubst-fun
(match-beginning langnum) (match-end langnum)))
((match-beginning Cproto) Cproto)
((match-beginning Cgeneralfunc) Cgeneralfunc)
((match-beginning Cnoreturn) Cnoreturn))))
(setq str (funcall func (match-beginning langnum) (match-end langnum)))
;;
(cond
;;