semantic: Add support for typedef references

* admin/grammars/c.by (typedefname): Also parse optional reference
  qualifier.

* lisp/cedet/semantic/bovine/c.el (semantic-expand-c-tag-namelist):
  Add :reference attribute for typedefs.

diff --git a/admin/grammars/c.by b/admin/grammars/c.by
index c312fd636df16db109fd53d4eccf48e1f9b9d111..b8c150a9e6ce5001b89d8a223ed547cd124f26c7 100644 (file)
--- a/admin/grammars/c.by
+++ b/admin/grammars/c.by
@@ -450,8 +450,8 @@ typedef-symbol-list
 ;; TODO: Klaus Berndl: symbol -> namespace-symbol?!  Answer: Probably
 ;; symbol is correct here!
 typedefname
-  : opt-stars symbol opt-bits opt-array
-    ( $1 $2 )
+  : opt-stars opt-ref symbol opt-bits opt-array
+    ( $1 $2 $3 )
   ;
 
 struct-or-class

diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 5d7d5a6af5ffe9429a952f92e633240b5b68a28c..47a54579956742dca6bbf47c70f7740be92b1829 100644 (file)
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -1187,13 +1187,16 @@ is its own toplevel tag.  This function will return (cons A B)."
           (while names
 
             (setq vl (cons (semantic-tag-new-type
-                            (nth 1 (car names)) ; name
+                            (nth 2 (car names)) ; name
                             "typedef"
                             (semantic-tag-type-members tag)
                             nil
                             :pointer
                             (let ((stars (car (car (car names)))))
                               (if (= stars 0) nil stars))
+                            :reference
+                            (let ((refs (car (nth 1 (car names)))))
+                              (when (> refs 0) refs))
                             ;; This specifies what the typedef
                             ;; is expanded out as.  Just the
                             ;; name shows up as a parent of this