From 5cb7aed37f27bdfb90de5f62806dbd4665054fab Mon Sep 17 00:00:00 2001 From: Eric Ludlam Date: Wed, 22 Apr 2015 20:58:47 -0400 Subject: [PATCH] semantic: New c-mode override for analyzing tag type members * lisp/cedet/semantic/bovine/c.el (semantic-analyze-tag-type-members): New override. --- lisp/cedet/semantic/bovine/c.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 48521f91f50..449a7631956 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -1872,6 +1872,23 @@ These are constants which are of type TYPE." "Assemble the list of names NAMELIST into a namespace name." (mapconcat 'identity namelist "::")) +(define-mode-local-override semantic-analyze-tag-type-members c-mode (tag) + "Return a list of :members of TAG. +Merges in all members of anonymous unions that are :members of TAG." + (let ((raw (semantic-tag-type-members tag)) + (ans nil)) + (dolist (T raw) + (cond ((and (semantic-tag-of-class-p T 'type) + (semantic-tag-of-type-p T "union") + (string= (semantic-tag-name T) "")) + ;; Merge in all the union members. + (dolist (Ts (semantic-analyze-tag-type-members T)) + (setq ans (cons Ts ans)))) + ;; Be default, just push the tag. + (t + (setq ans (cons T ans))))) + (nreverse ans))) + (define-mode-local-override semantic-ctxt-scoped-types c++-mode (&optional point) "Return a list of tags of CLASS type based on POINT. DO NOT return the list of tags encompassing point." -- 2.39.5