Imenu support changed.

diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el
index d840b744b42e4d40fb67aaceb109ee862de71f50..cc9a9c01c2d6a2ae1e9cbe7a58b0c7c15eb39885 100644 (file)
--- a/lisp/progmodes/cc-menus.el
+++ b/lisp/progmodes/cc-menus.el
@@ -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 
        ;;