;;; srecode/cpp.el --- C++ specific handlers for Semantic Recoder
-;; Copyright (C) 2007, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2009-2012 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Jan Moringen <scymtym@users.sourceforge.net>
;;; Code:
-;;; :cpp ARGUMENT HANDLING
-;;
-;; When a :cpp argument is required, fill the dictionary with
-;; information about the current C++ file.
-;;
-;; Error if not in a C++ mode.
-
(require 'srecode)
(require 'srecode/dictionary)
(require 'srecode/semantic)
+(require 'semantic/tag)
+
+;;; Customization
+;;
+
+(defgroup srecode-cpp nil
+ "C++-specific Semantic Recoder settings."
+ :group 'srecode)
+
+(defcustom srecode-cpp-namespaces
+ '("std" "boost")
+ "List expansion candidates for the :using-namespaces argument.
+A dictionary entry of the named PREFIX_NAMESPACE with the value
+NAMESPACE:: is created for each namespace unless the current
+buffer contains a using NAMESPACE; statement "
+ :group 'srecode-cpp
+ :type '(repeat string))
+
+;;; :c ARGUMENT HANDLING
+;;
+;; When a :c argument is required, fill the dictionary with
+;; information about the current C file.
+;;
+;; Error if not in a C mode.
;;;###autoload
-(defun srecode-semantic-handle-:cpp (dict)
- "Add macros into the dictionary DICT based on the current c++ file.
+(defun srecode-semantic-handle-:c (dict)
+ "Add macros into the dictionary DICT based on the current c file.
Adds the following:
FILENAME_SYMBOL - filename converted into a C compat symbol.
HEADER - Shown section if in a header file."
)
)
+;;; :cpp ARGUMENT HANDLING
+;;
+;; When a :cpp argument is required, fill the dictionary with
+;; information about the current C++ file.
+;;
+;; Error if not in a C++ mode.
+;;;###autoload
+(defun srecode-semantic-handle-:cpp (dict)
+ "Add macros into the dictionary DICT based on the current c file.
+Calls `srecode-semantic-handle-:c.
+Also adds the following:
+ - nothing -"
+ (srecode-semantic-handle-:c dict)
+ )
+
+(defun srecode-semantic-handle-:using-namespaces (dict)
+ "Add macros into the dictionary DICT based on used namespaces.
+Adds the following:
+PREFIX_NAMESPACE - for each NAMESPACE in `srecode-cpp-namespaces'."
+ (let ((tags (semantic-find-tags-by-class
+ 'using (semantic-fetch-tags))))
+ (dolist (name srecode-cpp-namespaces)
+ (let ((variable (format "PREFIX_%s" (upcase name)))
+ (prefix (format "%s::" name)))
+ (srecode-dictionary-set-value dict variable prefix)
+ (dolist (tag tags)
+ (when (and (eq (semantic-tag-get-attribute tag :kind)
+ 'namespace)
+ (string= (semantic-tag-name tag) name))
+ (srecode-dictionary-set-value dict variable ""))))))
+ )
+
(define-mode-local-override srecode-semantic-apply-tag-to-dict
- c++-mode (tag-wrapper dict)
- "Apply C++ specific features from TAG-WRAPPER into DICT.
+ c-mode (tag-wrapper dict)
+ "Apply C and C++ specific features from TAG-WRAPPER into DICT.
Calls `srecode-semantic-apply-tag-to-dict-default' first. Adds
-special behavior for tag of classes include, using and function."
+special behavior for tag of classes include, using and function.
+
+This function cannot be split into C and C++ specific variants, as
+the way the tags are created from the parser does not distinguish
+either. The side effect is that you could get some C++ tag properties
+specified in a C file."
;; Use default implementation to fill in the basic properties.
(srecode-semantic-apply-tag-to-dict-default tag-wrapper dict)
(srecode-semantic-tag (semantic-tag-name value-tag)
:prime value-tag)
value-dict))
+
;; Discriminate using statements referring to namespaces and
;; types.
(when (eq (semantic-tag-get-attribute tag :kind) 'namespace)
;; when they make sense. My best bet would be
;; (semantic-tag-function-parent tag), but it is not there, when
;; the function is defined in the scope of a class.
- (let ((member 't)
+ (let ((member t)
+ (templates (semantic-tag-get-attribute tag :template))
(modifiers (semantic-tag-modifiers tag)))
- ;; Add modifiers into the dictionary
+ ;; Mark constructors and destructors as such.
+ (when (semantic-tag-function-constructor-p tag)
+ (srecode-dictionary-show-section dict "CONSTRUCTOR"))
+ (when (semantic-tag-function-destructor-p tag)
+ (srecode-dictionary-show-section dict "DESTRUCTOR"))
+
+ ;; Add modifiers into the dictionary.
(dolist (modifier modifiers)
(let ((modifier-dict (srecode-dictionary-add-section-dictionary
dict "MODIFIERS")))
(srecode-dictionary-set-value modifier-dict "NAME" modifier)))
+ ;; Add templates into child dictionaries.
+ (srecode-c-apply-templates dict templates)
+
;; When the function is a member function, it can have
;; additional modifiers.
(when member
;; If the member function is pure virtual, add a dictionary
;; entry.
(when (semantic-tag-get-attribute tag :pure-virtual-flag)
- (srecode-dictionary-show-section dict "PURE"))
- )
- ))
+ (srecode-dictionary-show-section dict "PURE")))))
+
+ ;;
+ ;; CLASS
+ ;;
+ ((eq class 'type)
+ ;; For classes, add template parameters.
+ (when (or (semantic-tag-of-type-p tag "class")
+ (semantic-tag-of-type-p tag "struct"))
+
+ ;; Add templates into child dictionaries.
+ (let ((templates (semantic-tag-get-attribute tag :template)))
+ (srecode-c-apply-templates dict templates))))
))
)
+\f
+;;; Helper functions
+;;
+
+(defun srecode-c-apply-templates (dict templates)
+ "Add section dictionaries for TEMPLATES to DICT."
+ (when templates
+ (let ((templates-dict (srecode-dictionary-add-section-dictionary
+ dict "TEMPLATES")))
+ (dolist (template templates)
+ (let ((template-dict (srecode-dictionary-add-section-dictionary
+ templates-dict "ARGS")))
+ (srecode-semantic-apply-tag-to-dict
+ (srecode-semantic-tag (semantic-tag-name template)
+ :prime template)
+ template-dict)))))
+ )
+
(provide 'srecode/cpp)
;; Local variables:
;; generated-autoload-load-name: "srecode/cpp"
;; End:
-;; arch-tag: 4659755c-88b4-405e-818f-bb1f776a8e82
;;; srecode/cpp.el ends here
HCoop / bpt / emacs.git / blobdiff