Function: semanticdb-ebrowse-add-globals-to-table

semanticdb-ebrowse-add-globals-to-table is a byte-compiled function defined in db-ebrowse.el.gz.

Signature

(semanticdb-ebrowse-add-globals-to-table DBE TREE)

Documentation

For database DBE, add the ebrowse TREE into the table.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/db-ebrowse.el.gz
;;; Filename based methods
;;
(defun semanticdb-ebrowse-add-globals-to-table (_dbe tree)
  "For database DBE, add the ebrowse TREE into the table."
  (if (or (not (ebrowse-ts-p tree))
	  (not (ebrowse-globals-tree-p tree)))
      (signal 'wrong-type-argument (list 'ebrowse-ts-p tree)))

  (let* ((class (ebrowse-ts-class tree))
	 ;; (fname (or (ebrowse-cs-source-file class)
	 ;;            (ebrowse-cs-file class)
	 ;;            ;; Not def'd here, assume our current
	 ;;            ;; file
	 ;;            (concat default-directory "/unknown-proxy.hh")))
	 (vars (ebrowse-ts-member-functions tree))
	 (fns (ebrowse-ts-member-variables tree))
	 (toks nil)
	 )
    (while vars
      (let ((nt (semantic-tag (ebrowse-ms-name (car vars))
			      'variable))
	    (defpoint (ebrowse-bs-point class)))
	(when defpoint
	  (semantic--tag-set-overlay nt
				     (vector defpoint defpoint)))
	(setq toks (cons nt toks)))
      (setq vars (cdr vars)))
    (while fns
      (let ((nt (semantic-tag (ebrowse-ms-name (car fns))
			      'function))
	    (defpoint (ebrowse-bs-point class)))
	(when defpoint
	  (semantic--tag-set-overlay nt
				     (vector defpoint defpoint)))
	(setq toks (cons nt toks)))
      (setq fns (cdr fns)))

    ))