• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10/emacs-93/emacs/lisp/progmodes/

Lines Matching defs:project

356   ID string        : compiler identification string (see `vhdl-project-alist')
374 Compile options allows insertion of the library name (see `vhdl-project-alist')
382 customize `vhdl-project-alist'. The library command is inserted in Makefiles
386 overwritten by the project settings if a project is defined (see
387 `vhdl-project-alist'). Directory paths are relative to the source file
482 Is overwritten by project settings if a project is active."
487 (defgroup vhdl-project nil
491 (defcustom vhdl-project-alist
504 -- This is a multi-line project description
505 -- that can be used as a project dependent part of the file header.
508 Name : name used in option `vhdl-project' to choose project
509 Title : title of project (single-line string)
510 Default directory: default project directory (absolute path)
515 Compile options : project-specific options for each compiler
517 Compile options: project-specific compiler options
519 Make options: project-specific make options
525 \"\\3\" project-specific options)
533 Description : description of project (multi-line string)
557 different compilers within one project, these paths and names allow the
562 File-specific compiler options (highest priority) overwrite project-specific
565 default options (e.g. \"-file\") in project- or file-specific options (e.g.
568 NOTE: Reflect the new setting in the choice list of option `vhdl-project'
610 :group 'vhdl-project)
612 (defcustom vhdl-project nil
613 "*Specifies the default for the current project.
614 Select a project name from the ones defined in option `vhdl-project-alist'.
615 Is used to determine the project title and description to be inserted in file
617 browser. The current project can also be changed temporarily in the menu."
618 :type (let ((alist vhdl-project-alist) list)
624 :group 'vhdl-project)
626 (defcustom vhdl-project-file-name '("\\1.prj")
627 "*List of file names/paths for importing/exporting project setups.
628 \"\\1\" is replaced by the project name (SPC is replaced by `_'), \"\\2\" is
629 replaced by the user name (allows to have user-specific project setups).
630 The first entry is used as file name to import/export individual project
631 setups. All entries are used to automatically import project setups at
632 startup (see option `vhdl-project-auto-load'). Projects loaded from the
633 first entry are automatically made current. Hint: specify local project
635 project setup will make it current, while loading the global setups
636 is done without changing the current project.
637 Names can also have an absolute path (i.e. project setups can be stored
640 :group 'vhdl-project)
642 (defcustom vhdl-project-auto-load '(startup)
643 "*Automatically load project setups from files.
644 All project setup files that match the file names specified in option
645 `vhdl-project-file-name' are automatically loaded. The project of the
646 \(alphabetically) last loaded setup of the first `vhdl-project-file-name'
648 A project setup file can be obtained by exporting a project (see menu).
649 At startup: project setup file is loaded at Emacs startup"
651 :group 'vhdl-project)
653 (defcustom vhdl-project-sort t
656 :group 'vhdl-project)
907 -- Project : <project>
940 <project> : replaced by title of current project (`vhdl-project')
941 <projectdesc> : replaced by description of current project (`vhdl-project')
949 The (multi-line) project description <projectdesc> can be used as a project
1150 the current design. Its name can be obtained by modifying the project name
1151 \(e.g. attaching or stripping off a substring). If no project is defined, the
1670 by typing `f' (files), `h' (directory hierarchy) or `H' (project hierarchy)."
1673 (const :tag "Project hierarchy" project))
1724 \"\\1\" is replaced by the project name if a project is specified,
2198 ;; option `vhdl-project-alist' changed format
2199 (when (= (length (car vhdl-project-alist)) 3)
2200 (let ((old-alist vhdl-project-alist)
2205 (setq vhdl-project-alist (nreverse new-alist)))
2206 (customize-save-variable 'vhdl-project-alist vhdl-project-alist))
2208 ;; option `vhdl-project-alist' changed format (3.31.1)
2209 (when (= (length (car vhdl-project-alist)) 4)
2210 (let ((old-alist vhdl-project-alist)
2219 (setq vhdl-project-alist (nreverse new-alist)))
2220 (vhdl-warning-when-idle "Option `vhdl-project-alist' changed format; please re-customize"))
2222 ;; option `vhdl-project-alist' changed format (3.31.12)
2223 (when (= (length (car vhdl-project-alist)) 10)
2224 (let ((tmp-alist vhdl-project-alist))
2229 (customize-save-variable 'vhdl-project-alist vhdl-project-alist))
2274 ;; option `vhdl-project': empty value changed from "" to nil (3.31.1)
2275 (when (equal vhdl-project "")
2276 (setq vhdl-project nil)
2277 (customize-save-variable 'vhdl-project vhdl-project))
2279 ;; option `vhdl-project-file-name': changed format (3.31.17 beta)
2280 (when (stringp vhdl-project-file-name)
2281 (setq vhdl-project-file-name (list vhdl-project-file-name))
2282 (customize-save-variable 'vhdl-project-file-name vhdl-project-file-name))
2301 (defun vhdl-project-p (&optional warning)
2302 "Return non-nil if a project is displayed, i.e. directories or files are
2304 (if (assoc vhdl-project vhdl-project-alist)
2305 vhdl-project
2306 (when (and vhdl-project warning)
2307 (vhdl-warning-when-idle "Project does not exist: \"%s\"" vhdl-project))
2319 "Return the default directory of the current project or the directory of the
2320 current buffer if no project is defined."
2321 (if (vhdl-project-p)
2323 (nth 1 (aget vhdl-project-alist vhdl-project))))
2468 "Refresh directory or project with name KEY."
2701 (define-key vhdl-mode-map "\C-c\C-s\C-p" 'vhdl-set-project)
2702 (define-key vhdl-mode-map "\C-c\C-p\C-d" 'vhdl-duplicate-project)
2703 (define-key vhdl-mode-map "\C-c\C-p\C-m" 'vhdl-import-project)
2704 (define-key vhdl-mode-map "\C-c\C-p\C-x" 'vhdl-export-project)
3174 ["None" (vhdl-set-project "")
3175 :style radio :selected (null vhdl-project)]
3178 (let ((project-alist vhdl-project-alist) menu-list name)
3179 (while project-alist
3180 (setq name (caar project-alist))
3182 (cons `[,name (vhdl-set-project ,name)
3183 :style radio :selected (equal ,name vhdl-project)]
3185 (setq project-alist (cdr project-alist)))
3187 (if vhdl-project-sort
3193 ["Select Project..." vhdl-set-project t]
3194 ["Set As Default Project" vhdl-set-default-project t]
3196 ["Duplicate Project" vhdl-duplicate-project vhdl-project]
3197 ["Import Project..." vhdl-import-project
3199 ["Export Project" vhdl-export-project vhdl-project]
3201 ["Customize Project..." (customize-option 'vhdl-project-alist) t]))
3506 ["Project Setup..." (customize-option 'vhdl-project-alist) t]
3509 ["None" (progn (customize-set-variable 'vhdl-project nil)
3510 (vhdl-set-project ""))
3511 :style radio :selected (null vhdl-project)]
3514 (let ((project-alist vhdl-project-alist) menu-list name)
3515 (while project-alist
3516 (setq name (caar project-alist))
3519 'vhdl-project ,name)
3520 (vhdl-set-project ,name))
3521 :style radio :selected (equal ,name vhdl-project)]
3523 (setq project-alist (cdr project-alist)))
3526 ["Setup File Name..." (customize-option 'vhdl-project-file-name) t]
3529 (customize-set-variable 'vhdl-project-auto-load
3530 (if (memq 'startup vhdl-project-auto-load)
3531 (delq 'startup vhdl-project-auto-load)
3532 (cons 'startup vhdl-project-auto-load)))
3533 :style toggle :selected (memq 'startup vhdl-project-auto-load)])
3535 (customize-set-variable 'vhdl-project-sort (not vhdl-project-sort))
3536 :style toggle :selected vhdl-project-sort]
3538 ["Customize Group..." (customize-group 'vhdl-project) t])
3936 (customize-set-variable 'vhdl-speedbar-display-mode 'project)
3937 :style radio :selected (eq 'project vhdl-speedbar-display-mode)])
4374 projects (see option `vhdl-project-alist').
4377 project hierarchy browsing mode in the speedbar menu or by typing `f',
4423 an entire directory or project (`C-c C-c M-p'). The VHDL'93 direct
4468 [-compiler compilername] [-project projectname]
4489 Projects can be defined in option `vhdl-project-alist' and a current
4490 project be selected using option `vhdl-project' (permanently) or from
4491 the menu or speedbar (temporarily). For each project, title and
4499 Imported setups are not automatically saved in `vhdl-project-alist' but
4502 vhdl-mode\") in a directory with an existing project setup file, it is
4503 automatically loaded and its project activated if option
4504 `vhdl-project-auto-load' is non-nil. Names/paths of the project setup
4505 files can be specified in option `vhdl-project-file-name'. Multiple
4506 project setups can be automatically loaded from global directories.
4507 This is an alternative to specifying project setups with option
4508 `vhdl-project-alist'.
4799 ;; set project
4800 ((equal option "-project")
4801 (vhdl-set-project (car command-line-args-left))
4808 ("-project" . vhdl-process-command-line-option))))
8065 "Return the working library name of the current project or \"work\" if no
8066 project is defined."
8068 (or (nth 6 (aget vhdl-project-alist vhdl-project)) vhdl-default-library)))
9937 (let ((project-title (or (nth 0 (aget vhdl-project-alist vhdl-project)) ""))
9938 (project-desc (or (nth 9 (aget vhdl-project-alist vhdl-project)) ""))
9944 (replace-match project-desc t t))
9960 (while (search-forward "<project>" end t)
9961 (replace-match project-title t t))
10003 (when (or (not project-title) (equal project-title ""))
10004 (message "You can specify a project title in user option `vhdl-project-alist'"))
10005 (when (or (not project-desc) (equal project-desc ""))
10006 (message "You can specify a project description in user option `vhdl-project-alist'"))
12315 (defun vhdl-set-project (name)
12316 "Set current project to NAME."
12319 (completing-read "Project name: " vhdl-project-alist nil t))))
12321 (setq vhdl-project nil)
12322 (message "Current VHDL project: None"))
12323 ((assoc name vhdl-project-alist)
12324 (setq vhdl-project name)
12325 (message "Current VHDL project: \"%s\"" name))
12327 (vhdl-warning (format "Unknown VHDL project: \"%s\"" name))))
12328 (vhdl-speedbar-update-current-project))
12330 (defun vhdl-set-default-project ()
12331 "Set current project as default on startup."
12333 (customize-set-variable 'vhdl-project vhdl-project)
12336 (defun vhdl-toggle-project (name token indent)
12337 "Set current project to NAME or unset if NAME is current project."
12338 (vhdl-set-project (if (equal name vhdl-project) "" name)))
12340 (defun vhdl-export-project (file-name)
12341 "Write project setup for current project."
12345 (cons "\\(.*\\) \\(.*\\)" (car vhdl-project-file-name))
12347 ? ?_ (or (vhdl-project-p)
12348 (error "ERROR: No current project")))
12351 "Write project file: "
12363 " - project setup file for Emacs VHDL Mode " vhdl-version "\n\n"
12364 ";; Project : " vhdl-project "\n"
12367 ";; project name\n"
12368 "(setq vhdl-project \"" vhdl-project "\")\n\n"
12369 ";; project setup\n"
12370 "(aput 'vhdl-project-alist vhdl-project\n'")
12371 (pp (aget vhdl-project-alist vhdl-project) (current-buffer))
12377 (defun vhdl-import-project (file-name &optional auto not-make-current)
12378 "Read project setup and set current project."
12382 (cons "\\(.*\\) \\(.*\\)" (car vhdl-project-file-name))
12385 "Read project file: " (when (file-name-absolute-p name) "") nil t
12389 (let ((current-project vhdl-project))
12391 (when (/= (length (aget vhdl-project-alist vhdl-project t)) 10)
12392 (adelete 'vhdl-project-alist vhdl-project)
12395 (setq vhdl-project current-project))
12399 (message "Current VHDL project: \"%s\"%s"
12400 vhdl-project (if auto " (auto-loaded)" ""))))
12402 (format "ERROR: Invalid project setup file: \"%s\"" file-name))))))
12404 (defun vhdl-duplicate-project ()
12405 "Duplicate setup of current project."
12407 (let ((new-name (read-from-minibuffer "New project name: "))
12408 (project-entry (aget vhdl-project-alist vhdl-project t)))
12409 (setq vhdl-project-alist
12410 (append vhdl-project-alist
12411 (list (cons new-name project-entry))))
12414 (defun vhdl-auto-load-project ()
12415 "Automatically load project setup at startup."
12416 (let ((file-name-list vhdl-project-file-name)
12429 (vhdl-import-project (expand-file-name (car file-list)) t
12434 ;; automatically load project setup when idle after startup
12435 (when (memq 'startup vhdl-project-auto-load)
12437 (vhdl-auto-load-project)
12438 (vhdl-run-when-idle .1 nil 'vhdl-auto-load-project)))
13031 project/directory.")
13042 "Cache with configurations for each project/directory.")
13051 "Cache with packages for each project/directory.")
13063 "Cache with instantiated entities for each project/directory.")
13068 "Cache with design units in each file for each project/directory.")
13075 "Cache with source directories for each project.")
13081 directory and project.")
13083 (defvar vhdl-speedbar-shown-project-list nil
13086 (defvar vhdl-updated-project-list nil
13096 "Non-nil means project hierarchy is displayed in speedbar, directory
13133 (defun vhdl-scan-directory-contents (name &optional project update num-string
13149 (key (or project dir-name))
13151 (or (nth 3 (aget vhdl-project-alist project)) ""))
13157 (when (or project update)
13468 (when (or (and (not project) files-exist)
13469 (and project (not non-final)))
13510 ;; remember updated directory/project
13511 (add-to-list 'vhdl-updated-project-list (or project dir-name)))
13513 (unless project
13528 (unless project (message "Scanning directory...done"))
13532 (when (or (not project) (not non-final))
13537 (defun vhdl-scan-project-contents (project)
13540 (let ((dir-list (or (nth 2 (aget vhdl-project-alist project)) '("")))
13542 (nth 1 (aget vhdl-project-alist project))))
13544 (or (nth 3 (aget vhdl-project-alist project)) ""))
13546 ;; clear project alists
13547 (adelete 'vhdl-entity-alist project)
13548 (adelete 'vhdl-config-alist project)
13549 (adelete 'vhdl-package-alist project)
13550 (adelete 'vhdl-ent-inst-alist project)
13551 (adelete 'vhdl-file-alist project)
13592 (vhdl-scan-directory-contents dir-name project nil
13598 (aput 'vhdl-directory-alist project (list (nreverse dir-list-tmp)))
13599 (message "Scanning project \"%s\"...done" project)))
13609 (let* ((vhdl-project (nth 0 (car directory-alist)))
13610 (project (vhdl-project-p))
13611 (ent-alist (aget vhdl-entity-alist (or project dir-name) t))
13612 (conf-alist (aget vhdl-config-alist (or project dir-name) t))
13613 (pack-alist (aget vhdl-package-alist (or project dir-name) t))
13615 (or project dir-name) t)))
13616 (file-alist (aget vhdl-file-alist (or project dir-name) t))
13625 (cache-key (or project dir-name))
13694 (vhdl-scan-directory-contents file-name project t)
13695 (when (or (and vhdl-speedbar-show-projects project)
13696 (and (not vhdl-speedbar-show-projects) (not project)))
13697 (vhdl-speedbar-refresh project))
13849 (let ((project-list vhdl-updated-project-list))
13851 ;; write updated project caches
13852 (while project-list
13853 (vhdl-save-cache (car project-list))
13854 (setq project-list (cdr project-list)))
13862 (vhdl-project key)
13863 (project (vhdl-project-p))
13870 (subst-char-in-string ? ?_ (or project "dir"))
13873 (cache-key (or project directory))
13874 (key (if project "project" "directory")))
13888 (insert "\n;; " (if project "Project " "Directory") " : ")
13889 (if project (insert project) (prin1 directory (current-buffer)))
13894 "\n;; " (if project "project" "directory") " name"
13896 (prin1 (or project directory) (current-buffer))
13914 (when project
13915 (insert ")\n\n;; source directories in project cache\n"
13925 (setq vhdl-updated-project-list
13926 (delete cache-key vhdl-updated-project-list))
13933 (let* ((vhdl-project key)
13940 (subst-char-in-string ? ?_ (or (vhdl-project-p) "dir"))
13961 (if (vhdl-project-p)
13962 (unless (or (assoc vhdl-project vhdl-file-alist)
13963 (vhdl-load-cache vhdl-project))
13964 (vhdl-scan-project-contents vhdl-project))
13997 '("vhdl project"
13999 (speedbar-line-directory . vhdl-speedbar-line-project)))
14026 (speedbar-change-initial-expansion-list "vhdl project")))
14068 ["Save Caches" vhdl-save-caches vhdl-updated-project-list])))
14074 '("vhdl project" vhdl-speedbar-menu-items vhdl-speedbar-key-map
14079 ("vhdl project" vhdl-speedbar-update-current-project
14088 (when (eq vhdl-speedbar-display-mode 'project)
14089 (setq speedbar-initial-expansion-list-name "vhdl project"))
14104 (defvar vhdl-speedbar-last-selected-project nil
14105 "Name of last selected project.")
14135 (defun vhdl-speedbar-display-projects (project depth &optional rescan)
14140 (setq vhdl-speedbar-last-selected-project nil)
14151 (let ((project-alist (if vhdl-project-sort
14152 (vhdl-sort-alist (copy-alist vhdl-project-alist))
14153 vhdl-project-alist))
14156 (while project-alist
14158 'angle ?+ 'vhdl-speedbar-expand-project
14159 (caar project-alist) (caar project-alist)
14160 'vhdl-toggle-project (caar project-alist) 'speedbar-directory-face 0)
14161 (setq project-alist (cdr project-alist)))
14162 (setq project-alist vhdl-project-alist)
14164 (while project-alist
14165 (when (member (caar project-alist) vhdl-speedbar-shown-project-list)
14168 (concat "^\\([0-9]+:\\s-*<\\)[+]>\\s-+" (caar project-alist) "$") nil t)
14171 (setq project-alist (cdr project-alist))))
14172 ; (vhdl-speedbar-update-current-project)
14176 (defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan)
14179 (when (or rescan (and (not (assoc project vhdl-file-alist))
14180 (not (vhdl-load-cache project))))
14181 (vhdl-scan-project-contents project))
14184 (aget vhdl-entity-alist project t)
14185 (aget vhdl-config-alist project t)
14186 (aget vhdl-package-alist project t)
14187 (car (aget vhdl-ent-inst-alist project t)) indent)
14192 (vhdl-speedbar-expand-units project))
14252 "Rescan hierarchy for the directory or project under the cursor."
14256 ;; current project
14258 (setq key (vhdl-speedbar-line-project))
14259 (vhdl-scan-project-contents key))
14290 "Expand design units in directory/project KEY according to
14294 vhdl-updated-project-list)
14322 "Contract current level in current directory/project."
14336 "Contract all expanded design units in current directory/project."
14340 (progn (setq vhdl-speedbar-shown-project-list nil)
14346 (add-to-list 'vhdl-updated-project-list key)))))
14349 "Expand all design units in current directory/project."
14356 (add-to-list 'vhdl-speedbar-shown-project-list key)
14374 (add-to-list 'vhdl-updated-project-list key))))
14376 (defun vhdl-speedbar-expand-project (text token indent)
14377 "Expand/contract the project under the cursor."
14379 ((string-match "+" text) ; expand project
14381 (unless (member token vhdl-speedbar-shown-project-list)
14382 (setq vhdl-speedbar-shown-project-list
14383 (cons token vhdl-speedbar-shown-project-list)))
14387 (vhdl-speedbar-insert-project-hierarchy token (1+ indent)
14389 ((string-match "-" text) ; contract project
14391 (setq vhdl-speedbar-shown-project-list
14392 (delete token vhdl-speedbar-shown-project-list))
14449 (add-to-list 'vhdl-updated-project-list key))
14462 (add-to-list 'vhdl-updated-project-list key))))
14509 (add-to-list 'vhdl-updated-project-list key))
14521 (add-to-list 'vhdl-updated-project-list key))))
14566 (add-to-list 'vhdl-updated-project-list key))
14579 (add-to-list 'vhdl-updated-project-list key))))
14635 (add-to-list 'vhdl-updated-project-list key))
14648 (add-to-list 'vhdl-updated-project-list key))))
14676 (defun vhdl-speedbar-update-current-project ()
14677 "Highlight project that is currently active."
14679 (not (equal vhdl-speedbar-last-selected-project vhdl-project))
14683 (project-alist vhdl-project-alist)
14688 (while project-alist
14691 (concat "<.> \\(" (caar project-alist) "\\)$") nil t)
14693 (if (equal (caar project-alist) vhdl-project)
14696 (when (equal (caar project-alist) vhdl-project)
14698 (setq project-alist (cdr project-alist))))
14701 (setq vhdl-speedbar-last-selected-project vhdl-project)))
14708 (project-list vhdl-speedbar-shown-project-list)
14718 (while project-list
14720 (car project-list) t)))
14721 (setq project-list (cdr project-list)))
15025 ;; project/directory entry
15088 "Get currently displayed directory of project name."
15090 (vhdl-speedbar-line-project)
15094 (defun vhdl-speedbar-line-project (&optional indent)
15095 "Get currently displayed project name."
15228 (or (vhdl-project-p) default-directory) t))
15234 "Make (compile) design unit or directory/project under the cursor."
15238 (error "ERROR: No primary design unit or directory/project under cursor")
15241 (vhdl-project (vhdl-speedbar-line-project))
15251 "Generate Makefile for directory/project under the cursor."
15253 (let ((vhdl-project (vhdl-speedbar-line-project))
15389 (let ((project (vhdl-project-p)))
15390 (if project
15392 (subst-char-in-string ? ?_ project))
15406 ent-file-name arch-file-name ent-buffer arch-buffer project)
15887 current project/directory."
15890 (let* ((project (vhdl-project-p))
15896 (or project default-directory) t))
16052 (or (vhdl-project-p) default-directory) t))
16054 (or (vhdl-project-p) default-directory) t))
16131 "Return the Makefile name of the current project or the current compiler if
16132 no project is defined."
16133 (let ((project-alist (aget vhdl-project-alist vhdl-project))
16137 (or (nth 8 project-alist) (nth 8 compiler-alist)))
16138 (concat (nth 9 compiler-alist) "\n" (nth 6 project-alist)))))
16142 (let* ((project (aget vhdl-project-alist (vhdl-project-p t)))
16145 (if project
16147 (cons "\\(.*\\)" (nth 5 project)) (nth 9 compiler))
16218 (defun vhdl-get-compile-options (project compiler file-name
16222 (project-entry (aget (nth 4 project) vhdl-compiler))
16223 (project-options (nth 0 project-entry))
16224 (exception-list (and file-name (nth 2 project-entry)))
16240 ;; insert compiler-specific options in project-specific options
16241 (when project-options
16242 (setq project-options
16244 (cons "\\(.*\\)\n\\(.*\\)" project-options)
16246 ;; insert project-specific options in file-specific options
16252 project-options))))
16254 (or file-options project-options compiler-options)))))
16256 (defun vhdl-get-make-options (project compiler)
16259 (project-entry (aget (nth 4 project) vhdl-compiler))
16260 (project-options (nth 1 project-entry))
16266 ;; insert compiler-specific options in project-specific options
16267 (when project-options
16268 (setq project-options
16270 (cons "\\(.*\\)\n\\(.*\\)" project-options)
16273 (or project-options compiler-options)))
16280 (let* ((project (aget vhdl-project-alist vhdl-project))
16285 (options (vhdl-get-compile-options project compiler file-name))
16302 (vhdl-warning "Your project settings tell me not to compile this file"))))
16316 (let* ((project (aget vhdl-project-alist vhdl-project))
16320 (options (vhdl-get-make-options project compiler))
16355 "Generate Makefile for current project or directory."
16357 (if (vhdl-project-p)
16358 (unless (or (assoc vhdl-project vhdl-file-alist)
16359 (vhdl-load-cache vhdl-project))
16360 (vhdl-scan-project-contents vhdl-project))
16366 (project (vhdl-project-p))
16367 (ent-alist (aget vhdl-entity-alist (or project directory) t))
16368 (conf-alist (aget vhdl-config-alist (or project directory) t))
16369 (pack-alist (aget vhdl-package-alist (or project directory) t))
16568 (let* ((project (aget vhdl-project-alist project))
16574 (cons "\\(.*\\)" (or (nth 7 project) (nth 7 compiler)))
16599 (if project
16600 (insert "\n# Project : " (nth 0 project))
16608 "\nOPTIONS = " (vhdl-get-compile-options project compiler nil)
16687 (vhdl-get-compile-options project compiler (nth 0 rule) t))
16762 'vhdl-project-alist
16763 'vhdl-project
16764 'vhdl-project-file-name
16765 'vhdl-project-auto-load
16766 'vhdl-project-sort