Function: vhdl-compile-directory

vhdl-compile-directory is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-compile-directory)

Documentation

Return the directory where compilation/make should be run.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-compile-directory ()
  "Return the directory where compilation/make should be run."
  (let* ((project (vhdl-aget vhdl-project-alist (vhdl-project-p t)))
	 (compiler (vhdl-aget vhdl-compiler-alist vhdl-compiler))
	 (directory (vhdl-resolve-env-variable
		     (if project
			 (vhdl-replace-string
			  (cons "\\(.*\\)" (nth 5 project)) (nth 9 compiler))
		       (nth 6 compiler)))))
    (file-name-as-directory
     (if (file-name-absolute-p directory)
	 directory
       (expand-file-name directory (vhdl-default-directory))))))