Function: vhdl-speedbar-insert-project-hierarchy

vhdl-speedbar-insert-project-hierarchy is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-speedbar-insert-project-hierarchy PROJECT INDENT &optional RESCAN)

Documentation

Insert hierarchy of PROJECT.

Rescan directories if optional argument RESCAN is non-nil, otherwise use cached data.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan)
  "Insert hierarchy of PROJECT.
Rescan directories if optional argument RESCAN is non-nil,
otherwise use cached data."
  (when (or rescan (and (not (assoc project vhdl-file-alist))
			(not (vhdl-load-cache project))))
    (vhdl-scan-project-contents project))
  ;; insert design hierarchy
  (vhdl-speedbar-insert-hierarchy
   (vhdl-aget vhdl-entity-alist project)
   (vhdl-aget vhdl-config-alist project)
   (vhdl-aget vhdl-package-alist project)
   (car (vhdl-aget vhdl-ent-inst-alist project)) indent)
  (insert (int-to-string indent) ":\n")
  (put-text-property (- (point) 3) (1- (point)) 'invisible t)
  (put-text-property (1- (point)) (point) 'invisible nil)
  ;; expand design units
  (vhdl-speedbar-expand-units project))