Function: semantic-grammar-token-%type-properties

semantic-grammar-token-%type-properties is a byte-compiled function defined in grammar.el.gz.

Signature

(semantic-grammar-token-%type-properties &optional PROPS)

Documentation

Return properties set by %type statements.

This declare a new type if necessary. If optional argument PROPS is non-nil, it is an existing list of properties where to add new properties.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/grammar.el.gz
(defun semantic-grammar-token-%type-properties (&optional props)
  "Return properties set by %type statements.
This declare a new type if necessary.
If optional argument PROPS is non-nil, it is an existing list of
properties where to add new properties."
  (let (type)
    (dolist (tag (semantic-find-tags-by-class 'type (current-buffer)))
      (setq type (semantic-tag-name tag))
      ;; Indicate to auto-generate the analyzer for this type
      (push (list type :declared t) props)
      (dolist (e (semantic-tag-get-attribute tag :value))
        (push (list type (intern (car e)) (read (or (cdr e) "nil")))
              props)))
    props))