Mercurial > emacs
annotate lisp/progmodes/vhdl-mode.el @ 63476:a02cb15bf34c
2005-06-15 Matt Hodges <MPHodges@member.fsf.org>
* ido.el (ido-incomplete-regexp): New variable.
(ido-set-matches-1): Handle invalid-regexp error and set
ido-incomplete-regexp.
(ido-incomplete-regexp): New face.
(ido-completions): Use it.
(ido-complete, ido-exit-minibuffer, ido-completions): Handle
incomplete regexps.
(ido-completions): Add check for complete match when entering a
regexp.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 15 Jun 2005 22:44:09 +0000 |
parents | 68bd40c50926 |
children | 65b21147737a e58cb448e07c a1b34dec1104 |
rev | line source |
---|---|
20665 | 1 ;;; vhdl-mode.el --- major mode for editing VHDL code |
2 | |
60925
a9c571ede913
* progmodes/cperl-mode.el, progmodes/idlw-shell.el,
Werner LEMBERG <wl@gnu.org>
parents:
59253
diff
changeset
|
3 ;; Copyright (C) 1992-2003, 2005 Free Software Foundation, Inc. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5 ;; Authors: Reto Zimmermann <reto@gnu.org> |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6 ;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net> |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7 ;; Maintainer: Reto Zimmermann <reto@gnu.org> |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8 ;; Keywords: languages vhdl |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9 ;; WWW: http://opensource.ethz.ch/emacs/vhdl-mode.html |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11 (defconst vhdl-version "3.32.12" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12 "VHDL Mode version number.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14 (defconst vhdl-time-stamp "2003-02-28" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15 "VHDL Mode time stamp for last update.") |
20665 | 16 |
17 ;; This file is part of GNU Emacs. | |
18 | |
19 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
20 ;; it under the terms of the GNU General Public License as published by | |
21 ;; the Free Software Foundation; either version 2, or (at your option) | |
22 ;; any later version. | |
23 | |
24 ;; GNU Emacs is distributed in the hope that it will be useful, | |
25 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
26 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
27 ;; GNU General Public License for more details. | |
28 | |
29 ;; You should have received a copy of the GNU General Public License | |
30 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
31 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
32 ;; Boston, MA 02111-1307, USA. | |
33 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 35 ;;; Commentary: |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 37 |
38 ;; This package provides an Emacs major mode for editing VHDL code. | |
39 ;; It includes the following features: | |
40 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
41 ;; - Syntax highlighting |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
42 ;; - Indentation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
43 ;; - Template insertion (electrification) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
44 ;; - Insertion of file headers |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
45 ;; - Insertion of user-specified models |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
46 ;; - Port translation / testbench generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
47 ;; - Sensitivity list updating |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
48 ;; - File browser |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
49 ;; - Design hierarchy browser |
20665 | 50 ;; - Source file compilation (syntax analysis) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
51 ;; - Makefile generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
52 ;; - Code hiding |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
53 ;; - Word/keyword completion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
54 ;; - Block commenting |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
55 ;; - Code fixing/alignment/beautification |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
56 ;; - Postscript printing |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
57 ;; - VHDL'87/'93 and VHDL-AMS supported |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
58 ;; - Comprehensive menu |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
59 ;; - Fully customizable |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
60 ;; - Works under GNU Emacs (recommended) and XEmacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
61 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
62 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
63 ;; Documentation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
64 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
65 ;; See comment string of function `vhdl-mode' or type `C-c C-h' in Emacs. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
66 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
67 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 68 ;; Emacs Versions |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
69 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
70 ;; supported: GNU Emacs 20.X/21.X, XEmacs 20.X/21.X |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
71 ;; tested on: GNU Emacs 20.4, XEmacs 21.1 (marginally) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
72 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
74 ;; Installation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
75 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
76 ;; Prerequisites: GNU Emacs 20.X/21.X, XEmacs 20.X/21.X. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
77 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
78 ;; Put `vhdl-mode.el' into the `site-lisp' directory of your Emacs installation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
79 ;; or into an arbitrary directory that is added to the load path by the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
80 ;; following line in your Emacs start-up file `.emacs': |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
81 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
82 ;; (setq load-path (cons (expand-file-name "<directory-name>") load-path)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
83 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
84 ;; If you already have the compiled `vhdl-mode.elc' file, put it in the same |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
85 ;; directory. Otherwise, byte-compile the source file: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
86 ;; Emacs: M-x byte-compile-file RET vhdl-mode.el RET |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
87 ;; Unix: emacs -batch -q -no-site-file -f batch-byte-compile vhdl-mode.el |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
88 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
89 ;; Add the following lines to the `site-start.el' file in the `site-lisp' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
90 ;; directory of your Emacs installation or to your Emacs start-up file `.emacs' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
91 ;; (not required in Emacs 20.X): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
92 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
93 ;; (autoload 'vhdl-mode "vhdl-mode" "VHDL Mode" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
94 ;; (setq auto-mode-alist (cons '("\\.vhdl?\\'" . vhdl-mode) auto-mode-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
95 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
96 ;; More detailed installation instructions are included in the official |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
97 ;; VHDL Mode distribution. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
98 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
99 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 100 ;; Acknowledgements |
101 | |
102 ;; Electrification ideas by Bob Pack <rlpst@cislabs.pitt.edu> | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
103 ;; and Steve Grout. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
104 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
105 ;; Fontification approach suggested by Ken Wood <ken@eda.com.au>. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
106 ;; Ideas about alignment from John Wiegley <johnw@gnu.org>. |
20665 | 107 |
108 ;; Many thanks to all the users who sent me bug reports and enhancement | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
109 ;; requests. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
110 ;; Thanks to Colin Marquardt for his serious beta testing, his innumerable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
111 ;; enhancement suggestions and the fruitful discussions. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
112 ;; Thanks to Dan Nicolaescu for reviewing the code and for his valuable hints. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
113 ;; Thanks to Ulf Klaperski for the indentation speedup hint. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
114 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
115 ;; Special thanks go to Wolfgang Fichtner and the crew from the Integrated |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
116 ;; Systems Laboratory, Swiss Federal Institute of Technology Zurich, for |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
117 ;; giving me the opportunity to develop this code. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
118 ;; This work has been funded in part by MICROSWISS, a Microelectronics Program |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
119 ;; of the Swiss Government. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
120 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
121 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 122 |
123 ;;; Code: | |
124 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
125 ;; XEmacs handling |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
126 (defconst vhdl-xemacs (string-match "XEmacs" emacs-version) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
127 "Non-nil if XEmacs is used.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
128 ;; Emacs 21 handling |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
129 (defconst vhdl-emacs-21 (and (= emacs-major-version 21) (not vhdl-xemacs)) |
62917
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
130 "Non-nil if Emacs 21 is used.") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
131 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
132 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
133 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
134 ;;; Variables |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
135 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
136 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
137 ;; help function for user options |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
138 (defun vhdl-custom-set (variable value &rest functions) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
139 "Set variables as in `custom-set-default' and call FUNCTIONS afterwards." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
140 (if (fboundp 'custom-set-default) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
141 (custom-set-default variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
142 (set-default variable value)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
143 (while functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
144 (when (fboundp (car functions)) (funcall (car functions))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
145 (setq functions (cdr functions)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
146 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
147 (defun vhdl-widget-directory-validate (widget) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
148 "Check that the value of WIDGET is a valid directory entry (i.e. ends with |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
149 '/' or is empty)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
150 (let ((val (widget-value widget))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
151 (unless (string-match "^\\(\\|.*/\\)$" val) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
152 (widget-put widget :error "Invalid directory entry: must end with '/'") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
153 widget))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
154 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
155 ;; help string for user options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
156 (defconst vhdl-name-doc-string " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
157 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
158 FROM REGEXP is a regular expression matching the original name: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
159 \".*\" matches the entire string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
160 \"\\(...\\)\" matches a substring |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
161 TO STRING specifies the string to be inserted as new name: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
162 \"\\&\" means substitute entire matched text |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
163 \"\\N\" means substitute what matched the Nth \"\\(...\\)\" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
164 Examples: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
165 \".*\" \"\\&\" inserts original string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
166 \".*\" \"\\&_i\" attaches \"_i\" to original string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
167 \"\\(.*\\)_[io]$\" \"\\1\" strips off \"_i\" or \"_o\" from original string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
168 \".*\" \"foo\" inserts constant string \"foo\" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
169 \".*\" \"\" inserts empty string") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
170 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
172 ;; User variables |
20665 | 173 |
174 (defgroup vhdl nil | |
175 "Customizations for VHDL Mode." | |
176 :prefix "vhdl-" | |
21651
86fcccceba7b
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21466
diff
changeset
|
177 :group 'languages |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
178 ; :version "20.4" ; comment out for XEmacs |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
179 ) |
20665 | 180 |
181 (defgroup vhdl-mode nil | |
182 "Customizations for modes." | |
183 :group 'vhdl) | |
184 | |
185 (defcustom vhdl-electric-mode t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
186 "*Non-nil enables electrification (automatic template generation). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
187 If nil, template generators can still be invoked through key bindings and |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
188 menu. Is indicated in the modeline by \"/e\" after the mode name and can be |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
189 toggled by `\\[vhdl-electric-mode]'." |
20665 | 190 :type 'boolean |
191 :group 'vhdl-mode) | |
192 | |
193 (defcustom vhdl-stutter-mode t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
194 "*Non-nil enables stuttering. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
195 Is indicated in the modeline by \"/s\" after the mode name and can be toggled |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
196 by `\\[vhdl-stutter-mode]'." |
20665 | 197 :type 'boolean |
198 :group 'vhdl-mode) | |
199 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
200 (defcustom vhdl-indent-tabs-mode nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
201 "*Non-nil means indentation can insert tabs. |
20665 | 202 Overrides local variable `indent-tabs-mode'." |
203 :type 'boolean | |
204 :group 'vhdl-mode) | |
205 | |
206 | |
207 (defgroup vhdl-compile nil | |
208 "Customizations for compilation." | |
209 :group 'vhdl) | |
210 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
211 (defcustom vhdl-compiler-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
212 '( |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
213 ;; Cadence Leapfrog: cv -file test.vhd |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
214 ;; duluth: *E,430 (test.vhd,13): identifier (POSITIV) is not declared |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
215 ("Cadence Leapfrog" "cv" "-work \\1 -file" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
216 nil "mkdir \\1" "./" "work/" "Makefile" "leapfrog" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
217 ("duluth: \\*E,[0-9]+ (\\(.+\\),\\([0-9]+\\)):" 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
218 ("\\1/entity" "\\2/\\1" "\\1/configuration" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
219 "\\1/package" "\\1/body" downcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
220 ;; Cadence Affirma NC vhdl: ncvhdl test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
221 ;; ncvhdl_p: *E,IDENTU (test.vhd,13|25): identifier |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
222 ;; (PLL_400X_TOP) is not declared [10.3]. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
223 ("Cadence NC" "ncvhdl" "-work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
224 nil "mkdir \\1" "./" "work/" "Makefile" "ncvhdl" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
225 ("ncvhdl_p: \\*E,\\w+ (\\(.+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2 3) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
226 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
227 ;; Ikos Voyager: analyze test.vhd |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
228 ;; analyze test.vhd |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
229 ;; E L4/C5: this library unit is inaccessible |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
230 ("Ikos" "analyze" "-l \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
231 nil "mkdir \\1" "./" "work/" "Makefile" "ikos" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
232 ("E L\\([0-9]+\\)/C\\([0-9]+\\):" 0 1 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
233 ("^analyze +\\(.+ +\\)*\\(.+\\)$" 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
234 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
235 ;; ModelSim, Model Technology: vcom test.vhd |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
236 ;; ERROR: test.vhd(14): Unknown identifier: positiv |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
237 ;; WARNING[2]: test.vhd(85): Possible infinite loop |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
238 ;; ** Error: adder.vhd(190): Unknown identifier: ctl_numb |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
239 ("ModelSim" "vcom" "-93 -work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
240 nil "vlib \\1; vmap \\2 \\1" "./" "work/" "Makefile" "modelsim" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
241 ("\\(ERROR\\|WARNING\\|\\*\\* Error\\|\\*\\* Warning\\)[^:]*: \\(.+\\)(\\([0-9]+\\)):" 2 3 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
242 ("\\1/_primary.dat" "\\2/\\1.dat" "\\1/_primary.dat" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
243 "\\1/_primary.dat" "\\1/body.dat" downcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
244 ;; ProVHDL, Synopsys LEDA: provhdl -w work -f test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
245 ;; test.vhd:34: error message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
246 ("LEDA ProVHDL" "provhdl" "-w \\1 -f" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
247 nil "mkdir \\1" "./" "work/" "Makefile" "provhdl" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
248 ("\\([^ \t\n]+\\):\\([0-9]+\\): " 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
249 ("ENTI/\\1.vif" "ARCH/\\1-\\2.vif" "CONF/\\1.vif" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
250 "PACK/\\1.vif" "BODY/BODY-\\1.vif" upcase)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
251 ;; QuickHDL, Mentor Graphics: qvhcom test.vhd |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
252 ;; ERROR: test.vhd(24): near "dnd": expecting: END |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
253 ;; WARNING[4]: test.vhd(30): A space is required between ... |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
254 ("QuickHDL" "qvhcom" "-work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
255 nil "mkdir \\1" "./" "work/" "Makefile" "quickhdl" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
256 ("\\(ERROR\\|WARNING\\)[^:]*: \\(.+\\)(\\([0-9]+\\)):" 2 3 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
257 ("\\1/_primary.dat" "\\2/\\1.dat" "\\1/_primary.dat" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
258 "\\1/_primary.dat" "\\1/body.dat" downcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
259 ;; Savant: scram -publish-cc test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
260 ;; test.vhd:87: _set_passed_through_out_port(IIR_Boolean) not defined for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
261 ("Savant" "scram" "-publish-cc -design-library-name \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
262 nil "mkdir \\1" "./" "work._savant_lib/" "Makefile" "savant" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
263 ("\\([^ \t\n]+\\):\\([0-9]+\\): " 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
264 ("\\1_entity.vhdl" "\\2_secondary_units._savant_lib/\\2_\\1.vhdl" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
265 "\\1_config.vhdl" "\\1_package.vhdl" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
266 "\\1_secondary_units._savant_lib/\\1_package_body.vhdl" downcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
267 ;; Simili: vhdlp -work test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
268 ;; Error: CSVHDL0002: test.vhd: (line 97): Invalid prefix |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
269 ("Simili" "vhdlp" "-work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
270 nil "mkdir \\1" "./" "work/" "Makefile" "simili" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
271 ("\\(Error\\|Warning\\): \\w+: \\(.+\\): (line \\([0-9]+\\)): " 2 3 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
272 ("\\1/prim.var" "\\2/_\\1.var" "\\1/prim.var" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
273 "\\1/prim.var" "\\1/_body.var" downcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
274 ;; Speedwave (Innoveda): analyze -libfile vsslib.ini -src test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
275 ;; ERROR[11]::File test.vhd Line 100: Use of undeclared identifier |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
276 ("Speedwave" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
277 nil "mkdir \\1" "./" "work/" "Makefile" "speedwave" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
278 ("^ *ERROR\[[0-9]+\]::File \\(.+\\) Line \\([0-9]+\\):" 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
279 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
280 ;; Synopsys, VHDL Analyzer (sim): vhdlan -nc test.vhd |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
281 ;; **Error: vhdlan,703 test.vhd(22): OTHERS is not legal in this context. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
282 ("Synopsys" "vhdlan" "-nc -work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
283 nil "mkdir \\1" "./" "work/" "Makefile" "synopsys" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
284 ("\\*\\*Error: vhdlan,[0-9]+ \\(.+\\)(\\([0-9]+\\)):" 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
285 ("\\1.sim" "\\2__\\1.sim" "\\1.sim" "\\1.sim" "\\1__.sim" upcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
286 ;; Synopsys, VHDL Analyzer (syn): vhdlan -nc -spc test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
287 ;; **Error: vhdlan,703 test.vhd(22): OTHERS is not legal in this context. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
288 ("Synopsys Design Compiler" "vhdlan" "-nc -spc -work \\1" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
289 nil "mkdir \\1" "./" "work/" "Makefile" "synopsys_dc" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
290 ("\\*\\*Error: vhdlan,[0-9]+ \\(.+\\)(\\([0-9]+\\)):" 1 2 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
291 ("\\1.syn" "\\2__\\1.syn" "\\1.syn" "\\1.syn" "\\1__.syn" upcase)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
292 ;; Synplify: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
293 ;; @W:"test.vhd":57:8:57:9|Optimizing register bit count_x(5) to a constant 0 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
294 ("Synplify" "n/a" "n/a" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
295 nil "mkdir \\1" "./" "work/" "Makefile" "synplify" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
296 ("@[EWN]:\"\\(.+\\)\":\\([0-9]+\\):\\([0-9]+\\):" 1 2 3) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
297 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
298 ;; Vantage: analyze -libfile vsslib.ini -src test.vhd |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
299 ;; Compiling "test.vhd" line 1... |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
300 ;; **Error: LINE 49 *** No aggregate value is valid in this context. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
301 ("Vantage" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
302 nil "mkdir \\1" "./" "work/" "Makefile" "vantage" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
303 ("\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" 0 1 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
304 ("^ *Compiling \"\\(.+\\)\" " 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
305 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
306 ;; VeriBest: vc vhdl test.vhd |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
307 ;; (no file name printed out!) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
308 ;; 32: Z <= A and BitA ; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
309 ;; ^^^^ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
310 ;; [Error] Name BITA is unknown |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
311 ("VeriBest" "vc" "vhdl" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
312 nil "mkdir \\1" "./" "work/" "Makefile" "veribest" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
313 ("^ +\\([0-9]+\\): +[^ ]" 0 1 0) ("" 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
314 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
315 ;; Viewlogic: analyze -libfile vsslib.ini -src test.vhd |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
316 ;; Compiling "test.vhd" line 1... |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
317 ;; **Error: LINE 49 *** No aggregate value is valid in this context. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
318 ("Viewlogic" "analyze" "-libfile vsslib.ini -src" "make" "-f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
319 nil "mkdir \\1" "./" "work/" "Makefile" "viewlogic" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
320 ("\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" 0 1 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
321 ("^ *Compiling \"\\(.+\\)\" " 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
322 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
323 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
324 "*List of available VHDL compilers and their properties. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
325 Each list entry specifies the following items for a compiler: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
326 Compiler: |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
327 Compiler name : name used in option `vhdl-compiler' to choose compiler |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
328 Compile command : command used for source file compilation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
329 Compile options : compile options (\"\\1\" inserts library name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
330 Make command : command used for compilation using a Makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
331 Make options : make options (\"\\1\" inserts Makefile name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
332 Generate Makefile: use built-in function or command to generate a Makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
333 \(\"\\1\" inserts Makefile name, \"\\2\" inserts library name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
334 Library command : command to create library directory \(\"\\1\" inserts |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
335 library directory, \"\\2\" inserts library name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
336 Compile directory: where compilation is run and the Makefile is placed |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
337 Library directory: directory of default library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
338 Makefile name : name of Makefile (default is \"Makefile\") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
339 ID string : compiler identification string (see `vhdl-project-alist') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
340 Error message: |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
341 Regexp : regular expression to match error messages |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
342 File subexp index: index of subexpression that matches the file name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
343 Line subexp index: index of subexpression that matches the line number |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
344 Column subexp idx: index of subexpression that matches the column number |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
345 File message: |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
346 Regexp : regular expression to match a file name message |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
347 File subexp index: index of subexpression that matches the file name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
348 Unit-to-file name mapping: mapping of library unit names to names of files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
349 generated by the compiler (used for Makefile generation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
350 To string : string a name is mapped to (\"\\1\" inserts the unit name, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
351 \"\\2\" inserts the entity name for architectures) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
352 Case adjustment : adjust case of inserted unit names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
353 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
354 Compile options allows insertion of the library name (see `vhdl-project-alist') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
355 in order to set the compilers library option (e.g. \"vcom -work my_lib\"). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
356 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
357 For Makefile generation, the built-in function can be used (requires |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
358 specification of the unit-to-file name mapping). Alternatively, an |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
359 external command can be specified. Work directory allows specification of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
360 an alternative \"work\" library path (e.g. \"WORK/\" instead of \"work/\", |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
361 used for Makefile generation). To use another library name than \"work\", |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
362 customize `vhdl-project-alist'. The library command is inserted in Makefiles |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
363 to automatically create the library directory if not existent. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
364 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
365 Compile options, compile directory, library directory, and Makefile name are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
366 overwritten by the project settings if a project is defined (see |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
367 `vhdl-project-alist'). Directory paths are relative to the source file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
368 directory. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
369 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
370 Some compilers do not include the file name in the error message, but print |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
371 out a file name message in advance. In this case, set \"File Subexp Index\" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
372 under \"Error Message\" to 0 and fill out the \"File Message\" entries. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
373 If no file name at all is printed out, set both \"File Message\" entries to 0 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
374 \(a default file name message will be printed out instead, does not work in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
375 XEmacs). |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
376 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
377 A compiler is selected for syntax analysis (`\\[vhdl-compile]') by |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
378 assigning its name to option `vhdl-compiler'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
379 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
380 Please send any missing or erroneous compiler properties to the maintainer for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
381 updating. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
382 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
383 NOTE: Reflect the new setting in the choice list of option `vhdl-compiler' |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
384 by restarting Emacs." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
385 :type '(repeat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
386 (list :tag "Compiler" :indent 2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
387 (string :tag "Compiler name ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
388 (string :tag "Compile command ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
389 (string :tag "Compile options " "-work \\1") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
390 (string :tag "Make command " "make") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
391 (string :tag "Make options " "-f \\1") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
392 (choice :tag "Generate Makefile " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
393 (const :tag "Built-in function" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
394 (string :tag "Command" "vmake \\2 > \\1")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
395 (string :tag "Library command " "mkdir \\1") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
396 (directory :tag "Compile directory " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
397 :validate vhdl-widget-directory-validate "./") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
398 (directory :tag "Library directory " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
399 :validate vhdl-widget-directory-validate "work/") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
400 (file :tag "Makefile name " "Makefile") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
401 (string :tag "ID string ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
402 (list :tag "Error message" :indent 4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
403 (regexp :tag "Regexp ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
404 (integer :tag "File subexp index") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
405 (integer :tag "Line subexp index") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
406 (integer :tag "Column subexp idx")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
407 (list :tag "File message" :indent 4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
408 (regexp :tag "Regexp ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
409 (integer :tag "File subexp index")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
410 (choice :tag "Unit-to-file name mapping" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
411 :format "%t: %[Value Menu%] %v\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
412 (const :tag "Not defined" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
413 (list :tag "To string" :indent 4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
414 (string :tag "Entity " "\\1.vhd") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
415 (string :tag "Architecture " "\\2_\\1.vhd") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
416 (string :tag "Configuration " "\\1.vhd") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
417 (string :tag "Package " "\\1.vhd") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
418 (string :tag "Package Body " "\\1_body.vhd") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
419 (choice :tag "Case adjustment " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
420 (const :tag "None" identity) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
421 (const :tag "Upcase" upcase) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
422 (const :tag "Downcase" downcase)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
423 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
424 (vhdl-custom-set variable value 'vhdl-update-mode-menu)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
425 :group 'vhdl-compile) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
426 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
427 (defcustom vhdl-compiler "ModelSim" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
428 "*Specifies the VHDL compiler to be used for syntax analysis. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
429 Select a compiler name from the ones defined in option `vhdl-compiler-alist'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
430 :type (let ((alist vhdl-compiler-alist) list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
431 (while alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
432 (setq list (cons (list 'const (caar alist)) list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
433 (setq alist (cdr alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
434 (append '(choice) (nreverse list))) |
20665 | 435 :group 'vhdl-compile) |
436 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
437 (defcustom vhdl-compile-use-local-error-regexp t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
438 "*Non-nil means use buffer-local `compilation-error-regexp-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
439 In this case, only error message regexps for VHDL compilers are active if |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
440 compilation is started from a VHDL buffer. Otherwise, the error message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
441 regexps are appended to the predefined global regexps, and all regexps are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
442 active all the time. Note that by doing that, the predefined global regexps |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
443 might result in erroneous parsing of error messages for some VHDL compilers. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
444 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
445 NOTE: Activate the new setting by restarting Emacs." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
446 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
447 :group 'vhdl-compile) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
448 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
449 (defcustom vhdl-makefile-generation-hook nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
450 "*Functions to run at the end of Makefile generation. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
451 Allows to insert user specific parts into a Makefile. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
452 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
453 Example: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
454 \(lambda nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
455 \(re-search-backward \"^# Rule for compiling entire design\") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
456 \(insert \"# My target\\n\\n.MY_TARGET :\\n\\n\\n\"))" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
457 :type 'hook |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
458 :group 'vhdl-compile) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
459 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
460 (defcustom vhdl-default-library "work" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
461 "*Name of default library. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
462 Is overwritten by project settings if a project is active." |
20665 | 463 :type 'string |
464 :group 'vhdl-compile) | |
465 | |
466 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
467 (defgroup vhdl-project nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
468 "Customizations for projects." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
469 :group 'vhdl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
470 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
471 (defcustom vhdl-project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
472 '(("Example 1" "Source files in two directories, custom library name, VHDL'87" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
473 "~/example1/" ("src/system/" "src/components/") "" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
474 (("ModelSim" "-87 \\2" "-f \\1 top_level" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
475 ("Synopsys" "-vhdl87 \\2" "-f \\1 top_level" ((".*/datapath/.*" . "-optimize \\3") (".*_tb\\.vhd" . nil)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
476 "lib/" "example3_lib" "lib/example3/" "Makefile_\\2" "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
477 ("Example 2" "Individual source files, multiple compilers in different directories" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
478 "$EXAMPLE2/" ("vhdl/system.vhd" "vhdl/component_*.vhd") "" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
479 nil "\\1/" "work" "\\1/work/" "Makefile" "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
480 ("Example 3" "Source files in a directory tree, multiple compilers in same directory" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
481 "/home/me/example3/" ("-r ./*/vhdl/") "/CVS/" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
482 nil "./" "work" "work-\\1/" "Makefile-\\1" "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
483 ------------------------------------------------------------------------------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
484 -- This is a multi-line project description |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
485 -- that can be used as a project dependent part of the file header. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
486 ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
487 "*List of projects and their properties. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
488 Name : name used in option `vhdl-project' to choose project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
489 Title : title of project (single-line string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
490 Default directory: default project directory (absolute path) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
491 Sources : a) source files : path + \"/\" + file name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
492 b) directory : path + \"/\" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
493 c) directory tree: \"-r \" + path + \"/\" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
494 Exclude regexp : matches file/directory names to be excluded as sources |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
495 Compile options : project-specific options for each compiler |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
496 Compiler name : name of compiler for which these options are valid |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
497 Compile options: project-specific compiler options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
498 (\"\\1\" inserts library name, \"\\2\" default options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
499 Make options: project-specific make options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
500 (\"\\1\" inserts Makefile name, \"\\2\" default options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
501 Exceptions : file-specific exceptions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
502 File name regexp: matches file names for which exceptions are valid |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
503 - Options : file-specific compiler options string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
504 (\"\\1\" inserts library name, \"\\2\" default options, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
505 \"\\3\" project-specific options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
506 - Do not compile: do not compile this file (in Makefile) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
507 Compile directory: where compilation is run and the Makefile is placed |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
508 \(\"\\1\" inserts compiler ID string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
509 Library name : name of library (default is \"work\") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
510 Library directory: path to library (\"\\1\" inserts compiler ID string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
511 Makefile name : name of Makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
512 (\"\\1\" inserts compiler ID string, \"\\2\" library name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
513 Description : description of project (multi-line string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
514 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
515 Project title and description are used to insert into the file header (see |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
516 option `vhdl-file-header'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
517 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
518 The default directory must have an absolute path (use `M-TAB' for completion). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
519 All other paths can be absolute or relative to the default directory. All |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
520 paths must end with '/'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
521 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
522 The design units found in the sources (files and directories) are shown in the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
523 hierarchy browser. Path and file name can contain wildcards `*' and `?' as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
524 well as \"./\" and \"../\" (\"sh\" syntax). Paths can also be absolute. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
525 Environment variables (e.g. \"$EXAMPLE2\") are resolved. If no sources are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
526 specified, the default directory is taken as source directory. Otherwise, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
527 the default directory is only taken as source directory if there is a sources |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
528 entry with the empty string or \"./\". Exclude regexp allows to filter out |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
529 specific file and directory names from the list of sources (e.g. CVS |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
530 directories). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
531 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
532 Files are compiled in the compile directory. Makefiles are also placed into |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
533 the compile directory. Library directory specifies which directory the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
534 compiler compiles into (used to generate the Makefile). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
535 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
536 Since different compile/library directories and Makefiles may exist for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
537 different compilers within one project, these paths and names allow the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
538 insertion of a compiler-dependent ID string (defined in `vhdl-compiler-alist'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
539 Compile options, compile directory, library directory, and Makefile name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
540 overwrite the settings of the current compiler. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
541 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
542 File-specific compiler options (highest priority) overwrite project-specific |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
543 options which overwrite default options (lowest priority). Lower priority |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
544 options can be inserted in higher priority options. This allows to reuse |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
545 default options (e.g. \"-file\") in project- or file-specific options (e.g. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
546 \"-93 -file\"). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
547 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
548 NOTE: Reflect the new setting in the choice list of option `vhdl-project' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
549 by restarting Emacs." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
550 :type `(repeat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
551 (list :tag "Project" :indent 2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
552 (string :tag "Name ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
553 (string :tag "Title ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
554 (directory :tag "Default directory" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
555 :validate vhdl-widget-directory-validate |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
556 ,(abbreviate-file-name default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
557 (repeat :tag "Sources " :indent 4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
558 (directory :format " %v" "./")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
559 (regexp :tag "Exclude regexp ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
560 (repeat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
561 :tag "Compile options " :indent 4 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
562 (list :tag "Compiler" :indent 6 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
563 ,(let ((alist vhdl-compiler-alist) list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
564 (while alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
565 (setq list (cons (list 'const (caar alist)) list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
566 (setq alist (cdr alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
567 (append '(choice :tag "Compiler name") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
568 (nreverse list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
569 (string :tag "Compile options" "\\2") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
570 (string :tag "Make options " "\\2") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
571 (repeat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
572 :tag "Exceptions " :indent 8 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
573 (cons :format "%v" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
574 (regexp :tag "File name regexp ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
575 (choice :format "%[Value Menu%] %v" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
576 (string :tag "Options" "\\3") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
577 (const :tag "Do not compile" nil)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
578 (directory :tag "Compile directory" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
579 :validate vhdl-widget-directory-validate "./") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
580 (string :tag "Library name " "work") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
581 (directory :tag "Library directory" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
582 :validate vhdl-widget-directory-validate "work/") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
583 (file :tag "Makefile name " "Makefile") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
584 (string :tag "Description: (type `C-j' for newline)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
585 :format "%t\n%v\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
586 :set (lambda (variable value) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
587 (vhdl-custom-set variable value |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
588 'vhdl-update-mode-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
589 'vhdl-speedbar-refresh)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
590 :group 'vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
591 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
592 (defcustom vhdl-project nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
593 "*Specifies the default for the current project. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
594 Select a project name from the ones defined in option `vhdl-project-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
595 Is used to determine the project title and description to be inserted in file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
596 headers and the source files/directories to be scanned in the hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
597 browser. The current project can also be changed temporarily in the menu." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
598 :type (let ((alist vhdl-project-alist) list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
599 (while alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
600 (setq list (cons (list 'const (caar alist)) list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
601 (setq alist (cdr alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
602 (append '(choice (const :tag "None" nil) (const :tag "--")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
603 (nreverse list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
604 :group 'vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
605 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
606 (defcustom vhdl-project-file-name '("\\1.prj") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
607 "*List of file names/paths for importing/exporting project setups. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
608 \"\\1\" is replaced by the project name (SPC is replaced by `_'), \"\\2\" is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
609 replaced by the user name (allows to have user-specific project setups). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
610 The first entry is used as file name to import/export individual project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
611 setups. All entries are used to automatically import project setups at |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
612 startup (see option `vhdl-project-auto-load'). Projects loaded from the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
613 first entry are automatically made current. Hint: specify local project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
614 setups in first entry, global setups in following entries; loading a local |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
615 project setup will make it current, while loading the global setups |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
616 is done without changing the current project. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
617 Names can also have an absolute path (i.e. project setups can be stored |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
618 in global directories)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
619 :type '(repeat (string :tag "File name" "\\1.prj")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
620 :group 'vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
621 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
622 (defcustom vhdl-project-auto-load '(startup) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
623 "*Automatically load project setups from files. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
624 All project setup files that match the file names specified in option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
625 `vhdl-project-file-name' are automatically loaded. The project of the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
626 \(alphabetically) last loaded setup of the first `vhdl-project-file-name' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
627 entry is activated. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
628 A project setup file can be obtained by exporting a project (see menu). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
629 At startup: project setup file is loaded at Emacs startup" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
630 :type '(set (const :tag "At startup" startup)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
631 :group 'vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
632 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
633 (defcustom vhdl-project-sort t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
634 "*Non-nil means projects are displayed in alphabetical order." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
635 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
636 :group 'vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
637 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
638 |
20665 | 639 (defgroup vhdl-style nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
640 "Customizations for coding styles." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
641 :group 'vhdl |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
642 :group 'vhdl-template |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
643 :group 'vhdl-port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
644 :group 'vhdl-compose) |
20665 | 645 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
646 (defcustom vhdl-standard '(87 nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
647 "*VHDL standards used. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
648 Basic standard: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
649 VHDL'87 : IEEE Std 1076-1987 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
650 VHDL'93 : IEEE Std 1076-1993 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
651 Additional standards: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
652 VHDL-AMS : IEEE Std 1076.1 (analog-mixed-signal) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
653 Math packages: IEEE Std 1076.2 (`math_real', `math_complex') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
654 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
655 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
656 \"Activate Options\"." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
657 :type '(list (choice :tag "Basic standard" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
658 (const :tag "VHDL'87" 87) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
659 (const :tag "VHDL'93" 93)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
660 (set :tag "Additional standards" :indent 2 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
661 (const :tag "VHDL-AMS" ams) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
662 (const :tag "Math packages" math))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
663 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
664 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
665 'vhdl-template-map-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
666 'vhdl-mode-abbrev-table-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
667 'vhdl-template-construct-alist-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
668 'vhdl-template-package-alist-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
669 'vhdl-update-mode-menu |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
670 'vhdl-words-init 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
671 :group 'vhdl-style) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
672 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
673 (defcustom vhdl-basic-offset 2 |
20665 | 674 "*Amount of basic offset used for indentation. |
675 This value is used by + and - symbols in `vhdl-offsets-alist'." | |
676 :type 'integer | |
677 :group 'vhdl-style) | |
678 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
679 (defcustom vhdl-upper-case-keywords nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
680 "*Non-nil means convert keywords to upper case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
681 This is done when typed or expanded or by the fix case functions." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
682 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
683 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
684 (vhdl-custom-set variable value 'vhdl-abbrev-list-init)) |
20665 | 685 :group 'vhdl-style) |
686 | |
687 (defcustom vhdl-upper-case-types nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
688 "*Non-nil means convert standardized types to upper case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
689 This is done when expanded or by the fix case functions." |
20665 | 690 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
691 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
692 (vhdl-custom-set variable value 'vhdl-abbrev-list-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
693 :group 'vhdl-style) |
20665 | 694 |
695 (defcustom vhdl-upper-case-attributes nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
696 "*Non-nil means convert standardized attributes to upper case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
697 This is done when expanded or by the fix case functions." |
20665 | 698 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
699 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
700 (vhdl-custom-set variable value 'vhdl-abbrev-list-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
701 :group 'vhdl-style) |
20665 | 702 |
703 (defcustom vhdl-upper-case-enum-values nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
704 "*Non-nil means convert standardized enumeration values to upper case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
705 This is done when expanded or by the fix case functions." |
20665 | 706 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
707 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
708 (vhdl-custom-set variable value 'vhdl-abbrev-list-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
709 :group 'vhdl-style) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
710 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
711 (defcustom vhdl-upper-case-constants t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
712 "*Non-nil means convert standardized constants to upper case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
713 This is done when expanded." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
714 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
715 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
716 (vhdl-custom-set variable value 'vhdl-abbrev-list-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
717 :group 'vhdl-style) |
20665 | 718 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
719 (defcustom vhdl-use-direct-instantiation 'standard |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
720 "*Non-nil means use VHDL'93 direct component instantiation. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
721 Never : never |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
722 Standard: only in VHDL standards that allow it (VHDL'93 and higher) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
723 Always : always" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
724 :type '(choice (const :tag "Never" never) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
725 (const :tag "Standard" standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
726 (const :tag "Always" always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
727 :group 'vhdl-style) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
728 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
729 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
730 (defgroup vhdl-naming nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
731 "Customizations for naming conventions." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
732 :group 'vhdl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
733 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
734 (defcustom vhdl-entity-file-name '(".*" . "\\&") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
735 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
736 "*Specifies how the entity file name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
737 The entity file name can be obtained by modifying the entity name (e.g. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
738 attaching or stripping off a substring). The file extension is automatically |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
739 taken from the file name of the current buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
740 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
741 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
742 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
743 :group 'vhdl-naming |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
744 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
745 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
746 (defcustom vhdl-architecture-file-name '("\\(.*\\) \\(.*\\)" . "\\1_\\2") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
747 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
748 "*Specifies how the architecture file name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
749 The architecture file name can be obtained by modifying the entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
750 and/or architecture name (e.g. attaching or stripping off a substring). The |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
751 string that is matched against the regexp is the concatenation of the entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
752 and the architecture name separated by a space. This gives access to both |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
753 names (see default setting as example)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
754 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
755 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
756 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
757 :group 'vhdl-naming |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
758 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
759 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
760 (defcustom vhdl-package-file-name '(".*" . "\\&") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
761 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
762 "*Specifies how the package file name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
763 The package file name can be obtained by modifying the package name (e.g. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
764 attaching or stripping off a substring). The file extension is automatically |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
765 taken from the file name of the current buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
766 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
767 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
768 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
769 :group 'vhdl-naming |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
770 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
771 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
772 (defcustom vhdl-file-name-case 'identity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
773 "*Specifies how to change case for obtaining file names. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
774 When deriving a file name from a VHDL unit name, case can be changed as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
775 follows: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
776 As Is: case is not changed (taken as is) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
777 Lower Case: whole name is changed to lower case |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
778 Upper Case: whole name is changed to upper case |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
779 Capitalize: first letter of each word in name is capitalized" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
780 :type '(choice (const :tag "As Is" identity) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
781 (const :tag "Lower Case" downcase) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
782 (const :tag "Upper Case" upcase) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
783 (const :tag "Capitalize" capitalize)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
784 :group 'vhdl-naming |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
785 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
786 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
787 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
788 (defgroup vhdl-template nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
789 "Customizations for electrification." |
20665 | 790 :group 'vhdl) |
791 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
792 (defcustom vhdl-electric-keywords '(vhdl user) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
793 "*Type of keywords for which electrification is enabled. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
794 VHDL keywords: invoke built-in templates |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
795 User keywords: invoke user models (see option `vhdl-model-alist')" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
796 :type '(set (const :tag "VHDL keywords" vhdl) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
797 (const :tag "User model keywords" user)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
798 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
799 (vhdl-custom-set variable value 'vhdl-mode-abbrev-table-init)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
800 :group 'vhdl-template) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
801 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
802 (defcustom vhdl-optional-labels 'process |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
803 "*Constructs for which labels are to be queried. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
804 Template generators prompt for optional labels for: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
805 None : no constructs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
806 Processes only: processes only (also procedurals in VHDL-AMS) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
807 All constructs: all constructs with optional labels and keyword END" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
808 :type '(choice (const :tag "None" none) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
809 (const :tag "Processes only" process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
810 (const :tag "All constructs" all)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
811 :group 'vhdl-template) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
812 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
813 (defcustom vhdl-insert-empty-lines 'unit |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
814 "*Specifies whether to insert empty lines in some templates. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
815 This improves readability of code. Empty lines are inserted in: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
816 None : no constructs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
817 Design units only: entities, architectures, configurations, packages only |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
818 All constructs : also all constructs with BEGIN...END parts |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
819 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
820 Replaces option `vhdl-additional-empty-lines'." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
821 :type '(choice (const :tag "None" none) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
822 (const :tag "Design units only" unit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
823 (const :tag "All constructs" all)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
824 :group 'vhdl-template |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
825 :group 'vhdl-port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
826 :group 'vhdl-compose) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
827 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
828 (defcustom vhdl-argument-list-indent nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
829 "*Non-nil means indent argument lists relative to opening parenthesis. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
830 That is, argument, association, and port lists start on the same line as the |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
831 opening parenthesis and subsequent lines are indented accordingly. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
832 Otherwise, lists start on a new line and are indented as normal code." |
20665 | 833 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
834 :group 'vhdl-template |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
835 :group 'vhdl-port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
836 :group 'vhdl-compose) |
20665 | 837 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
838 (defcustom vhdl-association-list-with-formals t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
839 "*Non-nil means write association lists with formal parameters. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
840 Templates prompt for formal and actual parameters (ports/generics). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
841 When pasting component instantiations, formals are included. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
842 If nil, only a list of actual parameters is entered." |
20665 | 843 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
844 :group 'vhdl-template |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
845 :group 'vhdl-port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
846 :group 'vhdl-compose) |
20665 | 847 |
848 (defcustom vhdl-conditions-in-parenthesis nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
849 "*Non-nil means place parenthesis around condition expressions." |
20665 | 850 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
851 :group 'vhdl-template) |
20665 | 852 |
853 (defcustom vhdl-zero-string "'0'" | |
854 "*String to use for a logic zero." | |
855 :type 'string | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
856 :group 'vhdl-template) |
20665 | 857 |
858 (defcustom vhdl-one-string "'1'" | |
859 "*String to use for a logic one." | |
860 :type 'string | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
861 :group 'vhdl-template) |
20665 | 862 |
863 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
864 (defgroup vhdl-header nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
865 "Customizations for file header." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
866 :group 'vhdl-template |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
867 :group 'vhdl-compose) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
868 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
869 (defcustom vhdl-file-header "\ |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
870 ------------------------------------------------------------------------------- |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
871 -- Title : <title string> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
872 -- Project : <project> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
873 ------------------------------------------------------------------------------- |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
874 -- File : <filename> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
875 -- Author : <author> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
876 -- Company : <company> |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
877 -- Created : <date> |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
878 -- Last update: <date> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
879 -- Platform : <platform> |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
880 -- Standard : <standard> |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
881 <projectdesc>------------------------------------------------------------------------------- |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
882 -- Description: <cursor> |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
883 <copyright>------------------------------------------------------------------------------- |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
884 -- Revisions : |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
885 -- Date Version Author Description |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
886 -- <date> 1.0 <login>\tCreated |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
887 ------------------------------------------------------------------------------- |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
888 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
889 " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
890 "*String or file to insert as file header. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
891 If the string specifies an existing file name, the contents of the file is |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
892 inserted, otherwise the string itself is inserted as file header. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
893 Type `C-j' for newlines. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
894 If the header contains RCS keywords, they may be written as <RCS>Keyword<RCS> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
895 if the header needs to be version controlled. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
896 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
897 The following keywords for template generation are supported: |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
898 <filename> : replaced by the name of the buffer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
899 <author> : replaced by the user name and email address |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
900 \(`user-full-name',`mail-host-address', `user-mail-address') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
901 <login> : replaced by user login name (`user-login-name') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
902 <company> : replaced by contents of option `vhdl-company-name' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
903 <date> : replaced by the current date |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
904 <year> : replaced by the current year |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
905 <project> : replaced by title of current project (`vhdl-project') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
906 <projectdesc> : replaced by description of current project (`vhdl-project') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
907 <copyright> : replaced by copyright string (`vhdl-copyright-string') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
908 <platform> : replaced by contents of option `vhdl-platform-spec' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
909 <standard> : replaced by the VHDL language standard(s) used |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
910 <... string> : replaced by a queried string (\"...\" is the prompt word) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
911 <title string>: replaced by file title in automatically generated files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
912 <cursor> : final cursor position |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
913 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
914 The (multi-line) project description <projectdesc> can be used as a project |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
915 dependent part of the file header and can also contain the above keywords." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
916 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
917 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
918 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
919 (defcustom vhdl-file-footer "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
920 "*String or file to insert as file footer. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
921 If the string specifies an existing file name, the contents of the file is |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
922 inserted, otherwise the string itself is inserted as file footer (i.e. at |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
923 the end of the file). |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
924 Type `C-j' for newlines. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
925 The same keywords as in option `vhdl-file-header' can be used." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
926 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
927 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
928 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
929 (defcustom vhdl-company-name "" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
930 "*Name of company to insert in file header. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
931 See option `vhdl-file-header'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
932 :type 'string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
933 :group 'vhdl-header) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
934 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
935 (defcustom vhdl-copyright-string "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
936 ------------------------------------------------------------------------------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
937 -- Copyright (c) <year> <company> |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
938 " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
939 "*Copyright string to insert in file header. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
940 Can be multi-line string (type `C-j' for newline) and contain other file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
941 header keywords (see option `vhdl-file-header')." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
942 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
943 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
944 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
945 (defcustom vhdl-platform-spec "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
946 "*Specification of VHDL platform to insert in file header. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
947 The platform specification should contain names and versions of the |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
948 simulation and synthesis tools used. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
949 See option `vhdl-file-header'." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
950 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
951 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
952 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
953 (defcustom vhdl-date-format "%Y-%m-%d" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
954 "*Specifies the date format to use in the header. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
955 This string is passed as argument to the command `format-time-string'. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
956 For more information on format strings, see the documentation for the |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
957 `format-time-string' command (C-h f `format-time-string')." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
958 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
959 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
960 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
961 (defcustom vhdl-modify-date-prefix-string "-- Last update: " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
962 "*Prefix string of modification date in VHDL file header. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
963 If actualization of the modification date is called (menu, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
964 `\\[vhdl-template-modify]'), this string is searched and the rest |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
965 of the line replaced by the current date." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
966 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
967 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
968 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
969 (defcustom vhdl-modify-date-on-saving t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
970 "*Non-nil means update the modification date when the buffer is saved. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
971 Calls function `\\[vhdl-template-modify]'). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
972 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
973 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
974 \"Activate Options\"." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
975 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
976 :group 'vhdl-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
977 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
978 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
979 (defgroup vhdl-sequential-process nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
980 "Customizations for sequential processes." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
981 :group 'vhdl-template) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
982 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
983 (defcustom vhdl-reset-kind 'async |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
984 "*Specifies which kind of reset to use in sequential processes." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
985 :type '(choice (const :tag "None" none) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
986 (const :tag "Synchronous" sync) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
987 (const :tag "Asynchronous" async)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
988 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
989 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
990 (defcustom vhdl-reset-active-high nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
991 "*Non-nil means reset in sequential processes is active high. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
992 Nil means active low." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
993 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
994 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
995 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
996 (defcustom vhdl-clock-rising-edge t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
997 "*Non-nil means rising edge of clock triggers sequential processes. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
998 Nil means falling edge." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
999 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1000 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1001 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1002 (defcustom vhdl-clock-edge-condition 'standard |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1003 "*Syntax of the clock edge condition. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1004 Standard: \"clk'event and clk = '1'\" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1005 Function: \"rising_edge(clk)\"" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1006 :type '(choice (const :tag "Standard" standard) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1007 (const :tag "Function" function)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1008 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1009 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1010 (defcustom vhdl-clock-name "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1011 "*Name of clock signal to use in templates." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1012 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1013 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1014 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1015 (defcustom vhdl-reset-name "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1016 "*Name of reset signal to use in templates." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1017 :type 'string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1018 :group 'vhdl-sequential-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1019 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1020 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1021 (defgroup vhdl-model nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1022 "Customizations for user models." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1023 :group 'vhdl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1024 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1025 (defcustom vhdl-model-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1026 '(("Example Model" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1027 "<label> : process (<clock>, <reset>) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1028 begin -- process <label> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1029 if <reset> = '0' then -- asynchronous reset (active low) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1030 <cursor> |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1031 elsif <clock>'event and <clock> = '1' then -- rising clock edge |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1032 if <enable> = '1' then -- synchronous load |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48465
diff
changeset
|
1033 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1034 end if; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1035 end if; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1036 end process <label>;" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1037 "e" "")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1038 "*List of user models. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1039 VHDL models (templates) can be specified by the user in this list. They can be |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1040 invoked from the menu, through key bindings (`C-c C-m ...'), or by keyword |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1041 electrification (i.e. overriding existing or creating new keywords, see |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1042 option `vhdl-electric-keywords'). |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1043 Name : name of model (string of words and spaces) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1044 String : string or name of file to be inserted as model (newline: `C-j') |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1045 Key Binding: key binding to invoke model, added to prefix `C-c C-m' |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1046 (must be in double-quotes, examples: \"i\", \"\\C-p\", \"\\M-s\") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1047 Keyword : keyword to invoke model |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1048 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1049 The models can contain prompts to be queried. A prompt is of the form \"<...>\". |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1050 A prompt that appears several times is queried once and replaced throughout |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1051 the model. Special prompts are: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1052 <clock> : name specified in `vhdl-clock-name' (if not empty) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1053 <reset> : name specified in `vhdl-reset-name' (if not empty) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1054 <cursor>: final cursor position |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1055 File header prompts (see variable `vhdl-file-header') are automatically |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1056 replaced, so that user models can also be used to insert different types of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1057 headers. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1058 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1059 If the string specifies an existing file name, the contents of the file is |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1060 inserted, otherwise the string itself is inserted. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1061 The code within the models should be correctly indented. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1062 Type `C-j' for newlines. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1063 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1064 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1065 \"Activate Options\"." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1066 :type '(repeat (list :tag "Model" :indent 2 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1067 (string :tag "Name ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1068 (string :tag "String : (type `C-j' for newline)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1069 :format "%t\n%v") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1070 (sexp :tag "Key binding" x) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1071 (string :tag "Keyword " :format "%t: %v\n"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1072 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1073 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1074 'vhdl-model-map-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1075 'vhdl-model-defun |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1076 'vhdl-mode-abbrev-table-init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1077 'vhdl-update-mode-menu)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1078 :group 'vhdl-model) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1079 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1080 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1081 (defgroup vhdl-port nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1082 "Customizations for port translation functions." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1083 :group 'vhdl |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1084 :group 'vhdl-compose) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1085 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1086 (defcustom vhdl-include-port-comments nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1087 "*Non-nil means include port comments when a port is pasted." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1088 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1089 :group 'vhdl-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1090 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1091 (defcustom vhdl-include-direction-comments nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1092 "*Non-nil means include port direction in instantiations as comments." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1093 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1094 :group 'vhdl-port) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1095 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1096 (defcustom vhdl-include-type-comments nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1097 "*Non-nil means include generic/port type in instantiations as comments." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1098 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1099 :group 'vhdl-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1100 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1101 (defcustom vhdl-include-group-comments 'never |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1102 "*Specifies whether to include group comments and spacings. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1103 The comments and empty lines between groups of ports are pasted: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1104 Never : never |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1105 Declarations: in entity/component/constant/signal declarations only |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1106 Always : also in generic/port maps" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1107 :type '(choice (const :tag "Never" never) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1108 (const :tag "Declarations" decl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1109 (const :tag "Always" always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1110 :group 'vhdl-port) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1111 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1112 (defcustom vhdl-actual-port-name '(".*" . "\\&") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1113 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1114 "*Specifies how actual port names are obtained from formal port names. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1115 In a component instantiation, an actual port name can be obtained by |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1116 modifying the formal port name (e.g. attaching or stripping off a substring)." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1117 vhdl-name-doc-string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1118 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1119 (string :tag "To string ")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1120 :group 'vhdl-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1121 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1122 (defcustom vhdl-instance-name '(".*" . "\\&_%d") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1123 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1124 "*Specifies how an instance name is obtained. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1125 The instance name can be obtained by modifying the name of the component to be |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1126 instantiated (e.g. attaching or stripping off a substring). \"%d\" is replaced |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1127 by a unique number (starting with 1). |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1128 If TO STRING is empty, the instance name is queried." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1129 vhdl-name-doc-string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1130 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1131 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1132 :group 'vhdl-port) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1133 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1134 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1135 (defgroup vhdl-testbench nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1136 "Customizations for testbench generation ." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1137 :group 'vhdl-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1138 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1139 (defcustom vhdl-testbench-entity-name '(".*" . "\\&_tb") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1140 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1141 "*Specifies how the testbench entity name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1142 The entity name of a testbench can be obtained by modifying the name of |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1143 the component to be tested (e.g. attaching or stripping off a substring)." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1144 vhdl-name-doc-string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1145 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1146 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1147 :group 'vhdl-testbench) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1148 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1149 (defcustom vhdl-testbench-architecture-name '(".*" . "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1150 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1151 "*Specifies how the testbench architecture name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1152 The testbench architecture name can be obtained by modifying the name of |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1153 the component to be tested (e.g. attaching or stripping off a substring). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1154 If TO STRING is empty, the architecture name is queried." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1155 vhdl-name-doc-string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1156 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1157 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1158 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1159 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1160 (defcustom vhdl-testbench-configuration-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1161 '("\\(.*\\) \\(.*\\)" . "\\1_\\2_cfg") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1162 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1163 "*Specifies how the testbench configuration name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1164 The configuration name of a testbench can be obtained by modifying the entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1165 and/or architecture name (e.g. attaching or stripping off a substring). The |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1166 string that is matched against the regexp is the concatenation of the entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1167 and the architecture name separated by a space. This gives access to both |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1168 names (see default setting as example)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1169 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1170 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1171 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1172 :group 'vhdl-testbench) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1173 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1174 (defcustom vhdl-testbench-dut-name '(".*" . "DUT") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1175 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1176 "*Specifies how a DUT instance name is obtained. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1177 The design-under-test instance name (i.e. the component instantiated in the |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1178 testbench) can be obtained by modifying the component name (e.g. attaching |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1179 or stripping off a substring)." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1180 vhdl-name-doc-string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1181 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1182 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1183 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1184 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1185 (defcustom vhdl-testbench-include-header t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1186 "*Non-nil means include a header in automatically generated files." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1187 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1188 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1189 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1190 (defcustom vhdl-testbench-declarations "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1191 -- clock |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1192 signal Clk : std_logic := '1'; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1193 " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1194 "*String or file to be inserted in the testbench declarative part. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1195 If the string specifies an existing file name, the contents of the file is |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1196 inserted, otherwise the string itself is inserted in the testbench |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1197 architecture before the BEGIN keyword. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1198 Type `C-j' for newlines." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1199 :type 'string |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1200 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1201 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1202 (defcustom vhdl-testbench-statements "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1203 -- clock generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1204 Clk <= not Clk after 10 ns; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1205 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1206 -- waveform generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1207 WaveGen_Proc: process |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1208 begin |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1209 -- insert signal assignments here |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1210 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1211 wait until Clk = '1'; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1212 end process WaveGen_Proc; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1213 " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1214 "*String or file to be inserted in the testbench statement part. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1215 If the string specifies an existing file name, the contents of the file is |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1216 inserted, otherwise the string itself is inserted in the testbench |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1217 architecture before the END keyword. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1218 Type `C-j' for newlines." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1219 :type 'string |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1220 :group 'vhdl-testbench) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1221 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1222 (defcustom vhdl-testbench-initialize-signals nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1223 "*Non-nil means initialize signals with `0' when declared in testbench." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1224 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1225 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1226 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1227 (defcustom vhdl-testbench-include-library t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1228 "*Non-nil means a library/use clause for std_logic_1164 is included." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1229 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1230 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1231 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1232 (defcustom vhdl-testbench-include-configuration t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1233 "*Non-nil means a testbench configuration is attached at the end." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1234 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1235 :group 'vhdl-testbench) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1236 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1237 (defcustom vhdl-testbench-create-files 'single |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1238 "*Specifies whether new files should be created for the testbench. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1239 testbench entity and architecture are inserted: |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1240 None : in current buffer |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1241 Single file : in new single file |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1242 Separate files: in two separate files |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1243 Note that the files have the same name as the contained design unit." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1244 :type '(choice (const :tag "None" none) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1245 (const :tag "Single file" single) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1246 (const :tag "Separate files" separate)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1247 :group 'vhdl-testbench) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1248 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1249 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1250 (defgroup vhdl-compose nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1251 "Customizations for structural composition." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1252 :group 'vhdl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1253 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1254 (defcustom vhdl-compose-create-files 'single |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1255 "*Specifies whether new files should be created for the new component. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1256 The component's entity and architecture are inserted: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1257 None : in current buffer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1258 Single file : in new single file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1259 Separate files: in two separate files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1260 The file names are obtained from variables `vhdl-entity-file-name' and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1261 `vhdl-architecture-file-name'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1262 :type '(choice (const :tag "None" none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1263 (const :tag "Single file" single) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1264 (const :tag "Separate files" separate)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1265 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1266 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1267 (defcustom vhdl-compose-include-header t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1268 "*Non-nil means include a header in automatically generated files." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1269 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1270 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1271 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1272 (defcustom vhdl-compose-architecture-name '(".*" . "str") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1273 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1274 "*Specifies how the component architecture name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1275 The component architecture name can be obtained by modifying the entity name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1276 \(e.g. attaching or stripping off a substring). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1277 If TO STRING is empty, the architecture name is queried." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1278 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1279 :type '(cons (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1280 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1281 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1282 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1283 (defcustom vhdl-components-package-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1284 '((".*" . "\\&_components") . "components") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1285 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1286 "*Specifies how the name for the components package is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1287 The components package is a package containing all component declarations for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1288 the current design. Its name can be obtained by modifying the project name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1289 \(e.g. attaching or stripping off a substring). If no project is defined, the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1290 DIRECTORY entry is chosen." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1291 vhdl-name-doc-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1292 :type '(cons (cons :tag "Project" :indent 2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1293 (regexp :tag "From regexp") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1294 (string :tag "To string ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1295 (string :tag "Directory:\n String ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1296 :group 'vhdl-compose) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1297 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1298 (defcustom vhdl-use-components-package nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1299 "*Non-nil means use a separate components package for component declarations. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1300 Otherwise, component declarations are inserted and searched for in the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1301 architecture declarative parts." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1302 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1303 :group 'vhdl-compose) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1304 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1305 |
20665 | 1306 (defgroup vhdl-comment nil |
1307 "Customizations for comments." | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1308 :group 'vhdl) |
20665 | 1309 |
1310 (defcustom vhdl-self-insert-comments t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1311 "*Non-nil means various templates automatically insert help comments." |
20665 | 1312 :type 'boolean |
1313 :group 'vhdl-comment) | |
1314 | |
1315 (defcustom vhdl-prompt-for-comments t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1316 "*Non-nil means various templates prompt for user definable comments." |
20665 | 1317 :type 'boolean |
1318 :group 'vhdl-comment) | |
1319 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1320 (defcustom vhdl-inline-comment-column 40 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1321 "*Column to indent and align inline comments to. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1322 Overrides local option `comment-column'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1323 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1324 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1325 \"Activate Options\"." |
20665 | 1326 :type 'integer |
1327 :group 'vhdl-comment) | |
1328 | |
1329 (defcustom vhdl-end-comment-column 79 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1330 "*End of comment column. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1331 Comments that exceed this column number are wrapped. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1332 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1333 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1334 \"Activate Options\"." |
20665 | 1335 :type 'integer |
1336 :group 'vhdl-comment) | |
1337 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1338 (defvar end-comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1339 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1340 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1341 (defgroup vhdl-align nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1342 "Customizations for alignment." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1343 :group 'vhdl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1344 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1345 (defcustom vhdl-auto-align t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1346 "*Non-nil means align some templates automatically after generation." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1347 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1348 :group 'vhdl-align) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1349 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1350 (defcustom vhdl-align-groups t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1351 "*Non-nil means align groups of code lines separately. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1352 A group of code lines is a region of consecutive lines between two lines that |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1353 match the regexp in option `vhdl-align-group-separate'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1354 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1355 :group 'vhdl-align) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1356 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1357 (defcustom vhdl-align-group-separate "^\\s-*$" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1358 "*Regexp for matching a line that separates groups of lines for alignment. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1359 Examples: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1360 \"^\\s-*$\": matches an empty line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1361 \"^\\s-*\\(--.*\\)?$\": matches an empty line or a comment-only line" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1362 :type 'regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1363 :group 'vhdl-align) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1364 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1365 (defcustom vhdl-align-same-indent t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1366 "*Non-nil means align blocks with same indent separately. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1367 When a region or the entire buffer is aligned, the code is divided into |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1368 blocks of same indent which are aligned separately (except for argument/port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1369 lists). This gives nicer alignment in most cases. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1370 Option `vhdl-align-groups' still applies within these blocks." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1371 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1372 :group 'vhdl-align) |
20665 | 1373 |
1374 | |
1375 (defgroup vhdl-highlight nil | |
1376 "Customizations for highlighting." | |
1377 :group 'vhdl) | |
1378 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1379 (defcustom vhdl-highlight-keywords t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1380 "*Non-nil means highlight VHDL keywords and other standardized words. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1381 The following faces are used: |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1382 `font-lock-keyword-face' : keywords |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1383 `font-lock-type' : standardized types |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1384 `vhdl-attribute' : standardized attributes |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1385 `vhdl-enumvalue' : standardized enumeration values |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1386 `vhdl-function' : standardized function and package names |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1387 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1388 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1389 entry \"Fontify Buffer\")." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1390 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1391 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1392 (vhdl-custom-set variable value 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1393 :group 'vhdl-highlight) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1394 |
20665 | 1395 (defcustom vhdl-highlight-names t |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1396 "*Non-nil means highlight declaration names and construct labels. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1397 The following faces are used: |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1398 `font-lock-function-name-face' : names in declarations of units, |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1399 subprograms, components, as well as labels of VHDL constructs |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1400 `font-lock-type-face' : names in type/nature declarations |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1401 `vhdl-attribute' : names in attribute declarations |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1402 `font-lock-variable-name-face' : names in declarations of signals, |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1403 variables, constants, subprogram parameters, generics, and ports |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1404 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1405 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1406 entry \"Fontify Buffer\")." |
20665 | 1407 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1408 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1409 (vhdl-custom-set variable value 'vhdl-font-lock-init)) |
20665 | 1410 :group 'vhdl-highlight) |
1411 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1412 (defcustom vhdl-highlight-special-words nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1413 "*Non-nil means highlight words with special syntax. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1414 The words with syntax and color specified in option `vhdl-special-syntax-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1415 are highlighted accordingly. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1416 Can be used for visual support of naming conventions. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1417 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1418 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1419 entry \"Fontify Buffer\")." |
20665 | 1420 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1421 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1422 (vhdl-custom-set variable value 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1423 :group 'vhdl-highlight) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1424 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1425 (defcustom vhdl-highlight-forbidden-words nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1426 "*Non-nil means highlight forbidden words. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1427 The reserved words specified in option `vhdl-forbidden-words' or having the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1428 syntax specified in option `vhdl-forbidden-syntax' are highlighted in a |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1429 warning color (face `vhdl-reserved-word') to indicate not to |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1430 use them. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1431 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1432 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1433 entry \"Fontify Buffer\")." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1434 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1435 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1436 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1437 'vhdl-words-init 'vhdl-font-lock-init)) |
20665 | 1438 :group 'vhdl-highlight) |
1439 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1440 (defcustom vhdl-highlight-verilog-keywords nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1441 "*Non-nil means highlight Verilog keywords as reserved words. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1442 Verilog keywords are highlighted in a warning color (face |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1443 `vhdl-reserved-word') to indicate not to use them. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1444 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1445 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1446 entry \"Fontify Buffer\")." |
20665 | 1447 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1448 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1449 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1450 'vhdl-words-init 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1451 :group 'vhdl-highlight) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1452 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1453 (defcustom vhdl-highlight-translate-off nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1454 "*Non-nil means background-highlight code excluded from translation. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1455 That is, all code between \"-- pragma translate_off\" and |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1456 \"-- pragma translate_on\" is highlighted using a different background color |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1457 \(face `vhdl-translate-off'). |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1458 Note: this might slow down on-the-fly fontification (and thus editing). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1459 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1460 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1461 entry \"Fontify Buffer\")." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1462 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1463 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1464 (vhdl-custom-set variable value 'vhdl-font-lock-init)) |
20665 | 1465 :group 'vhdl-highlight) |
1466 | |
1467 (defcustom vhdl-highlight-case-sensitive nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1468 "*Non-nil means consider case for highlighting. |
20665 | 1469 Possible trade-off: |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1470 non-nil also upper-case VHDL words are highlighted, but case of words with |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1471 special syntax is not considered |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1472 nil only lower-case VHDL words are highlighted, but case of words with |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1473 special syntax is considered |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1474 Overrides local option `font-lock-keywords-case-fold-search'. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1475 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1476 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1477 entry \"Fontify Buffer\")." |
20665 | 1478 :type 'boolean |
1479 :group 'vhdl-highlight) | |
1480 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1481 (defcustom vhdl-special-syntax-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1482 '(("generic/constant" "\\w+_[cg]" "Gold3" "BurlyWood1") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1483 ("type" "\\w+_t" "ForestGreen" "PaleGreen") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1484 ("variable" "\\w+_v" "Grey50" "Grey80")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1485 "*List of special syntax to be highlighted. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1486 If option `vhdl-highlight-special-words' is non-nil, words with the specified |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1487 syntax (as regular expression) are highlighted in the corresponding color. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1488 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1489 Name : string of words and spaces |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1490 Regexp : regular expression describing word syntax |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1491 (e.g. \"\\\w+_c\" matches word with suffix \"_c\") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1492 Color (light): foreground color for light background |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1493 (matching color examples: Gold3, Grey50, LimeGreen, Tomato, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1494 LightSeaGreen, DodgerBlue, Gold, PaleVioletRed) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1495 Color (dark) : foreground color for dark background |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1496 (matching color examples: BurlyWood1, Grey80, Green, Coral, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1497 AquaMarine2, LightSkyBlue1, Yellow, PaleVioletRed1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1498 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1499 Can be used for visual support of naming conventions, such as highlighting |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1500 different kinds of signals (e.g. \"Clk50\", \"Rst_n\") or objects (e.g. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1501 \"Signal_s\", \"Variable_v\", \"Constant_c\") by distinguishing them using |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1502 common substrings or name suffices. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1503 For each entry, a new face is generated with the specified colors and name |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
1504 \"vhdl-\" + name. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1505 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1506 NOTE: Activate a changed regexp in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1507 entry \"Fontify Buffer\"). All other changes require restarting Emacs." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1508 :type '(repeat (list :tag "Face" :indent 2 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1509 (string :tag "Name ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1510 (regexp :tag "Regexp " "\\w+_") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1511 (string :tag "Color (light)") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1512 (string :tag "Color (dark) "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1513 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1514 (vhdl-custom-set variable value 'vhdl-font-lock-init)) |
20665 | 1515 :group 'vhdl-highlight) |
1516 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1517 (defcustom vhdl-forbidden-words '() |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1518 "*List of forbidden words to be highlighted. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1519 If option `vhdl-highlight-forbidden-words' is non-nil, these reserved |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1520 words are highlighted in a warning color to indicate not to use them. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1521 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1522 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1523 entry \"Fontify Buffer\")." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1524 :type '(repeat (string :format "%v")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1525 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1526 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1527 'vhdl-words-init 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1528 :group 'vhdl-highlight) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1529 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1530 (defcustom vhdl-forbidden-syntax "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1531 "*Syntax of forbidden words to be highlighted. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1532 If option `vhdl-highlight-forbidden-words' is non-nil, words with this |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1533 syntax are highlighted in a warning color to indicate not to use them. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1534 Can be used to highlight too long identifiers (e.g. \"\\w\\w\\w\\w\\w\\w\\w\\w\\w\\w+\" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1535 highlights identifiers with 10 or more characters). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1536 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1537 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1538 entry \"Fontify Buffer\")." |
20665 | 1539 :type 'regexp |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1540 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1541 (vhdl-custom-set variable value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1542 'vhdl-words-init 'vhdl-font-lock-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1543 :group 'vhdl-highlight) |
20665 | 1544 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1545 (defcustom vhdl-directive-keywords '("pragma" "synopsys") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1546 "*List of compiler directive keywords recognized for highlighting. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1547 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1548 NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1549 entry \"Fontify Buffer\")." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1550 :type '(repeat (string :format "%v")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1551 :set (lambda (variable value) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1552 (vhdl-custom-set variable value |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1553 'vhdl-words-init 'vhdl-font-lock-init)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1554 :group 'vhdl-highlight) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1555 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1556 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1557 (defgroup vhdl-speedbar nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1558 "Customizations for speedbar." |
20665 | 1559 :group 'vhdl) |
1560 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1561 (defcustom vhdl-speedbar-auto-open nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1562 "*Non-nil means automatically open speedbar at startup. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1563 Alternatively, the speedbar can be opened from the VHDL menu." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1564 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1565 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1566 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1567 (defcustom vhdl-speedbar-display-mode 'files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1568 "*Specifies the default displaying mode when opening speedbar. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1569 Alternatively, the displaying mode can be selected from the speedbar menu or |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1570 by typing `f' (files), `h' (directory hierarchy) or `H' (project hierarchy)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1571 :type '(choice (const :tag "Files" files) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1572 (const :tag "Directory hierarchy" directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1573 (const :tag "Project hierarchy" project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1574 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1575 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1576 (defcustom vhdl-speedbar-scan-limit '(10000000 (1000000 50)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1577 "*Limits scanning of large files and netlists. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1578 Design units: maximum file size to scan for design units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1579 Hierarchy (instances of subcomponents): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1580 File size: maximum file size to scan for instances (in bytes) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1581 Instances per arch: maximum number of instances to scan per architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1582 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1583 \"None\" always means that there is no limit. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1584 In case of files not or incompletely scanned, a warning message and the file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1585 names are printed out. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1586 Background: scanning for instances is considerably slower than scanning for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1587 design units, especially when there are many instances. These limits should |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1588 prevent the scanning of large netlists." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1589 :type '(list (choice :tag "Design units" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1590 :format "%t : %[Value Menu%] %v" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1591 (const :tag "None" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1592 (integer :tag "File size")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1593 (list :tag "Hierarchy" :indent 2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1594 (choice :tag "File size" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1595 :format "%t : %[Value Menu%] %v" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1596 (const :tag "None" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1597 (integer :tag "Size ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1598 (choice :tag "Instances per arch" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1599 (const :tag "None" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1600 (integer :tag "Number ")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1601 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1602 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1603 (defcustom vhdl-speedbar-jump-to-unit t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1604 "*Non-nil means jump to the design unit code when opened in a buffer. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1605 The buffer cursor position is left unchanged otherwise." |
20665 | 1606 :type 'boolean |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1607 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1608 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1609 (defcustom vhdl-speedbar-update-on-saving t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1610 "*Automatically update design hierarchy when buffer is saved." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1611 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1612 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1613 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1614 (defcustom vhdl-speedbar-save-cache '(hierarchy display) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1615 "*Automatically save modified hierarchy caches when exiting Emacs. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1616 Hierarchy: design hierarchy information |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1617 Display: displaying information (which design units to expand)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1618 :type '(set (const :tag "Hierarchy" hierarchy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1619 (const :tag "Display" display)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1620 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1621 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1622 (defcustom vhdl-speedbar-cache-file-name ".emacs-vhdl-cache-\\1-\\2" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1623 "*Name of file for saving hierarchy cache. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1624 \"\\1\" is replaced by the project name if a project is specified, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1625 \"directory\" otherwise. \"\\2\" is replaced by the user name (allows for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1626 different users to have cache files in the same directory). Can also have |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1627 an absolute path (i.e. all caches can be stored in one global directory)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1628 :type 'string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1629 :group 'vhdl-speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1630 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1631 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1632 (defgroup vhdl-menu nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1633 "Customizations for menues." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1634 :group 'vhdl) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1635 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1636 (defcustom vhdl-index-menu nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1637 "*Non-nil means add an index menu for a source file when loading. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1638 Alternatively, the speedbar can be used. Note that the index menu scans a file |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1639 when it is opened, while speedbar only scans the file upon request." |
20665 | 1640 :type 'boolean |
1641 :group 'vhdl-menu) | |
1642 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1643 (defcustom vhdl-source-file-menu nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1644 "*Non-nil means add a menu of all source files in current directory. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1645 Alternatively, the speedbar can be used." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1646 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1647 :group 'vhdl-menu) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1648 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1649 (defcustom vhdl-hideshow-menu nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1650 "*Non-nil means add hideshow menu and functionality at startup. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1651 Hideshow can also be enabled from the VHDL Mode menu. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1652 Hideshow allows hiding code of various VHDL constructs. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1653 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1654 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1655 \"Activate Options\"." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1656 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1657 :group 'vhdl-menu) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1658 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1659 (defcustom vhdl-hide-all-init nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1660 "*Non-nil means hide all design units initially after a file is loaded." |
20665 | 1661 :type 'boolean |
1662 :group 'vhdl-menu) | |
1663 | |
1664 | |
1665 (defgroup vhdl-print nil | |
1666 "Customizations for printing." | |
1667 :group 'vhdl) | |
1668 | |
1669 (defcustom vhdl-print-two-column t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1670 "*Non-nil means print code in two columns and landscape format. |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1671 Adjusts settings in a way that postscript printing (\"File\" menu, `ps-print') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1672 prints VHDL files in a nice two-column landscape style. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1673 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1674 NOTE: Activate the new setting by restarting Emacs. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1675 Overrides `ps-print' settings locally." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1676 :type 'boolean |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1677 :group 'vhdl-print) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1678 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1679 (defcustom vhdl-print-customize-faces t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1680 "*Non-nil means use an optimized set of faces for postscript printing. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1681 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1682 NOTE: Activate the new setting by restarting Emacs. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1683 Overrides `ps-print' settings locally." |
20665 | 1684 :type 'boolean |
1685 :group 'vhdl-print) | |
1686 | |
1687 | |
1688 (defgroup vhdl-misc nil | |
1689 "Miscellaneous customizations." | |
1690 :group 'vhdl) | |
1691 | |
1692 (defcustom vhdl-intelligent-tab t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1693 "*Non-nil means `TAB' does indentation, word completion and tab insertion. |
20665 | 1694 That is, if preceeding character is part of a word then complete word, |
1695 else if not at beginning of line then insert tab, | |
1696 else if last command was a `TAB' or `RET' then dedent one step, | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1697 else indent current line (i.e. `TAB' is bound to `vhdl-electric-tab'). |
20665 | 1698 If nil, TAB always indents current line (i.e. `TAB' is bound to |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1699 `indent-according-to-mode'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1700 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1701 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1702 \"Activate Options\"." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1703 :type 'boolean |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1704 :group 'vhdl-misc) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1705 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1706 (defcustom vhdl-indent-syntax-based t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1707 "*Non-nil means indent lines of code based on their syntactic context. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1708 Otherwise, a line is indented like the previous nonblank line. This can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1709 useful in large files where syntax-based indentation gets very slow." |
20665 | 1710 :type 'boolean |
1711 :group 'vhdl-misc) | |
1712 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1713 (defcustom vhdl-word-completion-case-sensitive nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1714 "*Non-nil means word completion using `TAB' is case sensitive. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1715 That is, `TAB' completes words that start with the same letters and case. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1716 Otherwise, case is ignored." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1717 :type 'boolean |
20665 | 1718 :group 'vhdl-misc) |
1719 | |
1720 (defcustom vhdl-word-completion-in-minibuffer t | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1721 "*Non-nil enables word completion in minibuffer (for template prompts). |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1722 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1723 NOTE: Activate the new setting by restarting Emacs." |
20665 | 1724 :type 'boolean |
1725 :group 'vhdl-misc) | |
1726 | |
1727 (defcustom vhdl-underscore-is-part-of-word nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1728 "*Non-nil means consider the underscore character `_' as part of word. |
20665 | 1729 An identifier containing underscores is then treated as a single word in |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1730 select and move operations. All parts of an identifier separated by underscore |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1731 are treated as single words otherwise. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1732 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1733 NOTE: Activate the new setting in a VHDL buffer by using the menu entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1734 \"Activate Options\"." |
20665 | 1735 :type 'boolean |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1736 :set (lambda (variable value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1737 (vhdl-custom-set variable value 'vhdl-mode-syntax-table-init)) |
20665 | 1738 :group 'vhdl-misc) |
1739 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1740 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1741 (defgroup vhdl-related nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1742 "Related general customizations." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1743 :group 'vhdl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1744 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1745 ;; add related general customizations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1746 (custom-add-to-group 'vhdl-related 'hideshow 'custom-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1747 (if vhdl-xemacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1748 (custom-add-to-group 'vhdl-related 'paren-mode 'custom-variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1749 (custom-add-to-group 'vhdl-related 'paren-showing 'custom-group)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1750 (custom-add-to-group 'vhdl-related 'ps-print 'custom-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1751 (custom-add-to-group 'vhdl-related 'speedbar 'custom-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1752 (custom-add-to-group 'vhdl-related 'line-number-mode 'custom-variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1753 (unless vhdl-xemacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1754 (custom-add-to-group 'vhdl-related 'transient-mark-mode 'custom-variable)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1755 (custom-add-to-group 'vhdl-related 'user-full-name 'custom-variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1756 (custom-add-to-group 'vhdl-related 'mail-host-address 'custom-variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1757 (custom-add-to-group 'vhdl-related 'user-mail-address 'custom-variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1758 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1759 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1760 ;; Internal variables |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1761 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1762 (defvar vhdl-menu-max-size 20 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1763 "*Specifies the maximum size of a menu before splitting it into submenues.") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1764 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1765 (defvar vhdl-progress-interval 1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1766 "*Interval used to update progress status during long operations. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1767 If a number, percentage complete gets updated after each interval of |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1768 that many seconds. To inhibit all messages, set this option to nil.") |
20665 | 1769 |
1770 (defvar vhdl-inhibit-startup-warnings-p nil | |
1771 "*If non-nil, inhibits start up compatibility warnings.") | |
1772 | |
1773 (defvar vhdl-strict-syntax-p nil | |
1774 "*If non-nil, all syntactic symbols must be found in `vhdl-offsets-alist'. | |
1775 If the syntactic symbol for a particular line does not match a symbol | |
1776 in the offsets alist, an error is generated, otherwise no error is | |
1777 reported and the syntactic symbol is ignored.") | |
1778 | |
1779 (defvar vhdl-echo-syntactic-information-p nil | |
1780 "*If non-nil, syntactic info is echoed when the line is indented.") | |
1781 | |
1782 (defconst vhdl-offsets-alist-default | |
1783 '((string . -1000) | |
1784 (block-open . 0) | |
1785 (block-close . 0) | |
1786 (statement . 0) | |
1787 (statement-cont . vhdl-lineup-statement-cont) | |
1788 (statement-block-intro . +) | |
1789 (statement-case-intro . +) | |
1790 (case-alternative . +) | |
1791 (comment . vhdl-lineup-comment) | |
1792 (arglist-intro . +) | |
1793 (arglist-cont . 0) | |
1794 (arglist-cont-nonempty . vhdl-lineup-arglist) | |
1795 (arglist-close . vhdl-lineup-arglist) | |
1796 (entity . 0) | |
1797 (configuration . 0) | |
1798 (package . 0) | |
1799 (architecture . 0) | |
1800 (package-body . 0) | |
1801 ) | |
1802 "Default settings for offsets of syntactic elements. | |
1803 Do not change this constant! See the variable `vhdl-offsets-alist' for | |
1804 more information.") | |
1805 | |
1806 (defvar vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default) | |
1807 "*Association list of syntactic element symbols and indentation offsets. | |
1808 As described below, each cons cell in this list has the form: | |
1809 | |
1810 (SYNTACTIC-SYMBOL . OFFSET) | |
1811 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1812 When a line is indented, `vhdl-mode' first determines the syntactic |
20665 | 1813 context of the line by generating a list of symbols called syntactic |
1814 elements. This list can contain more than one syntactic element and | |
1815 the global variable `vhdl-syntactic-context' contains the context list | |
1816 for the line being indented. Each element in this list is actually a | |
1817 cons cell of the syntactic symbol and a buffer position. This buffer | |
1818 position is call the relative indent point for the line. Some | |
1819 syntactic symbols may not have a relative indent point associated with | |
1820 them. | |
1821 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1822 After the syntactic context list for a line is generated, `vhdl-mode' |
20665 | 1823 calculates the absolute indentation for the line by looking at each |
1824 syntactic element in the list. First, it compares the syntactic | |
1825 element against the SYNTACTIC-SYMBOL's in `vhdl-offsets-alist'. When it | |
1826 finds a match, it adds the OFFSET to the column of the relative indent | |
1827 point. The sum of this calculation for each element in the syntactic | |
1828 list is the absolute offset for line being indented. | |
1829 | |
1830 If the syntactic element does not match any in the `vhdl-offsets-alist', | |
1831 an error is generated if `vhdl-strict-syntax-p' is non-nil, otherwise | |
1832 the element is ignored. | |
1833 | |
1834 Actually, OFFSET can be an integer, a function, a variable, or one of | |
1835 the following symbols: `+', `-', `++', or `--'. These latter | |
1836 designate positive or negative multiples of `vhdl-basic-offset', | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1837 respectively: *1, *-1, *2, and *-2. If OFFSET is a function, it is |
20665 | 1838 called with a single argument containing the cons of the syntactic |
1839 element symbol and the relative indent point. The function should | |
1840 return an integer offset. | |
1841 | |
1842 Here is the current list of valid syntactic element symbols: | |
1843 | |
1844 string -- inside multi-line string | |
1845 block-open -- statement block open | |
1846 block-close -- statement block close | |
1847 statement -- a VHDL statement | |
1848 statement-cont -- a continuation of a VHDL statement | |
1849 statement-block-intro -- the first line in a new statement block | |
1850 statement-case-intro -- the first line in a case alternative block | |
1851 case-alternative -- a case statement alternative clause | |
1852 comment -- a line containing only a comment | |
1853 arglist-intro -- the first line in an argument list | |
1854 arglist-cont -- subsequent argument list lines when no | |
1855 arguments follow on the same line as the | |
1856 the arglist opening paren | |
1857 arglist-cont-nonempty -- subsequent argument list lines when at | |
1858 least one argument follows on the same | |
1859 line as the arglist opening paren | |
1860 arglist-close -- the solo close paren of an argument list | |
1861 entity -- inside an entity declaration | |
1862 configuration -- inside a configuration declaration | |
1863 package -- inside a package declaration | |
1864 architecture -- inside an architecture body | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1865 package-body -- inside a package body") |
20665 | 1866 |
1867 (defvar vhdl-comment-only-line-offset 0 | |
1868 "*Extra offset for line which contains only the start of a comment. | |
1869 Can contain an integer or a cons cell of the form: | |
1870 | |
1871 (NON-ANCHORED-OFFSET . ANCHORED-OFFSET) | |
1872 | |
1873 Where NON-ANCHORED-OFFSET is the amount of offset given to | |
1874 non-column-zero anchored comment-only lines, and ANCHORED-OFFSET is | |
1875 the amount of offset to give column-zero anchored comment-only lines. | |
1876 Just an integer as value is equivalent to (<val> . 0)") | |
1877 | |
1878 (defvar vhdl-special-indent-hook nil | |
1879 "*Hook for user defined special indentation adjustments. | |
1880 This hook gets called after a line is indented by the mode.") | |
1881 | |
1882 (defvar vhdl-style-alist | |
1883 '(("IEEE" | |
1884 (vhdl-basic-offset . 4) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1885 (vhdl-offsets-alist . ()))) |
20665 | 1886 "Styles of Indentation. |
1887 Elements of this alist are of the form: | |
1888 | |
1889 (STYLE-STRING (VARIABLE . VALUE) [(VARIABLE . VALUE) ...]) | |
1890 | |
1891 where STYLE-STRING is a short descriptive string used to select a | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1892 style, VARIABLE is any `vhdl-mode' variable, and VALUE is the intended |
20665 | 1893 value for that variable when using the selected style. |
1894 | |
1895 There is one special case when VARIABLE is `vhdl-offsets-alist'. In this | |
1896 case, the VALUE is a list containing elements of the form: | |
1897 | |
1898 (SYNTACTIC-SYMBOL . VALUE) | |
1899 | |
1900 as described in `vhdl-offsets-alist'. These are passed directly to | |
1901 `vhdl-set-offset' so there is no need to set every syntactic symbol in | |
1902 your style, only those that are different from the default.") | |
1903 | |
1904 ;; dynamically append the default value of most variables | |
1905 (or (assoc "Default" vhdl-style-alist) | |
1906 (let* ((varlist '(vhdl-inhibit-startup-warnings-p | |
1907 vhdl-strict-syntax-p | |
1908 vhdl-echo-syntactic-information-p | |
1909 vhdl-basic-offset | |
1910 vhdl-offsets-alist | |
1911 vhdl-comment-only-line-offset)) | |
1912 (default (cons "Default" | |
1913 (mapcar | |
1914 (function | |
1915 (lambda (var) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1916 (cons var (symbol-value var)))) |
20665 | 1917 varlist)))) |
1918 (setq vhdl-style-alist (cons default vhdl-style-alist)))) | |
1919 | |
1920 (defvar vhdl-mode-hook nil | |
1921 "*Hook called by `vhdl-mode'.") | |
1922 | |
1923 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1924 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1925 ;;; Required packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1926 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1927 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1928 ;; mandatory |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1929 (require 'assoc) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1930 (require 'compile) ; XEmacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1931 (require 'easymenu) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1932 (require 'hippie-exp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1933 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1934 ;; optional (minimize warning messages during compile) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1935 (eval-when-compile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1936 (require 'font-lock) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1937 (require 'ps-print) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1938 (require 'speedbar)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1939 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1940 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1941 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1942 ;;; Compatibility |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1943 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1944 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1945 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1946 ;; XEmacs compatibility |
20665 | 1947 |
1948 ;; active regions | |
1949 (defun vhdl-keep-region-active () | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1950 "Do whatever is necessary to keep the region active in XEmacs. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1951 Ignore byte-compiler warnings you might see." |
20665 | 1952 (and (boundp 'zmacs-region-stays) |
1953 (setq zmacs-region-stays t))) | |
1954 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1955 ;; `wildcard-to-regexp' is included only in XEmacs 21 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1956 (unless (fboundp 'wildcard-to-regexp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1957 (defun wildcard-to-regexp (wildcard) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1958 "Simplified version of `wildcard-to-regexp' from Emacs' `files.el'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1959 (let* ((i (string-match "[*?]" wildcard)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1960 (result (substring wildcard 0 i)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1961 (len (length wildcard))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1962 (when i |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1963 (while (< i len) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1964 (let ((ch (aref wildcard i))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1965 (setq result (concat result |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1966 (cond ((eq ch ?*) "[^\000]*") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1967 ((eq ch ??) "[^\000]") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1968 (t (char-to-string ch))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1969 (setq i (1+ i))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1970 (concat "\\`" result "\\'")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
1971 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1972 ;; `regexp-opt' undefined (`xemacs-devel' not installed) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1973 ;; `regexp-opt' accelerates fontification by 10-20% |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1974 (unless (fboundp 'regexp-opt) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1975 ; (vhdl-warning-when-idle "Please install `xemacs-devel' package.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1976 (defun regexp-opt (strings &optional paren) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1977 (let ((open (if paren "\\(" "")) (close (if paren "\\)" ""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1978 (concat open (mapconcat 'regexp-quote strings "\\|") close)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1979 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1980 ;; `match-string-no-properties' undefined (XEmacs, what else?) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1981 (unless (fboundp 'match-string-no-properties) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1982 (defalias 'match-string-no-properties 'match-string)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1983 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1984 ;; `subst-char-in-string' undefined (XEmacs) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1985 (unless (fboundp 'subst-char-in-string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1986 (defun subst-char-in-string (fromchar tochar string &optional inplace) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1987 (let ((i (length string)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1988 (newstr (if inplace string (copy-sequence string)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1989 (while (> i 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1990 (setq i (1- i)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1991 (if (eq (aref newstr i) fromchar) (aset newstr i tochar))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1992 newstr))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1993 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1994 ;; `itimer.el': idle timer bug fix in version 1.09 (XEmacs 21.1.9) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1995 (when (and vhdl-xemacs (string< itimer-version "1.09") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1996 (not noninteractive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1997 (load "itimer") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1998 (when (string< itimer-version "1.09") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
1999 (message "WARNING: Install included `itimer.el' patch first (see INSTALL file)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2000 (beep) (sit-for 5))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2001 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2002 ;; `file-expand-wildcards' undefined (XEmacs) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2003 (unless (fboundp 'file-expand-wildcards) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2004 (defun file-expand-wildcards (pattern &optional full) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2005 "Taken from Emacs' `files.el'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2006 (let* ((nondir (file-name-nondirectory pattern)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2007 (dirpart (file-name-directory pattern)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2008 (dirs (if (and dirpart (string-match "[[*?]" dirpart)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2009 (mapcar 'file-name-as-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2010 (file-expand-wildcards (directory-file-name dirpart))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2011 (list dirpart))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2012 contents) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2013 (while dirs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2014 (when (or (null (car dirs)) ; Possible if DIRPART is not wild. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2015 (file-directory-p (directory-file-name (car dirs)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2016 (let ((this-dir-contents |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2017 (delq nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2018 (mapcar #'(lambda (name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2019 (unless (string-match "\\`\\.\\.?\\'" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2020 (file-name-nondirectory name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2021 name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2022 (directory-files (or (car dirs) ".") full |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2023 (wildcard-to-regexp nondir)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2024 (setq contents |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2025 (nconc |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2026 (if (and (car dirs) (not full)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2027 (mapcar (function (lambda (name) (concat (car dirs) name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2028 this-dir-contents) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2029 this-dir-contents) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2030 contents)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2031 (setq dirs (cdr dirs))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2032 contents))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2033 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2034 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2035 ;; Compatibility with older VHDL Mode versions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2036 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2037 (defvar vhdl-warnings nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2038 "Warnings to tell the user during start up.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2039 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2040 (defun vhdl-run-when-idle (secs repeat function) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2041 "Wait until idle, then run FUNCTION." |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2042 (if (fboundp 'start-itimer) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2043 (start-itimer "vhdl-mode" function secs repeat t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2044 ; (run-with-idle-timer secs repeat function))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2045 ;; explicitely activate timer (necessary when Emacs is already idle) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2046 (aset (run-with-idle-timer secs repeat function) 0 nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2047 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2048 (defun vhdl-warning-when-idle (&rest args) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2049 "Wait until idle, then print out warning STRING and beep." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2050 (if noninteractive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2051 (vhdl-warning (apply 'format args) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2052 (unless vhdl-warnings |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2053 (vhdl-run-when-idle .1 nil 'vhdl-print-warnings)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2054 (setq vhdl-warnings (cons (apply 'format args) vhdl-warnings)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2055 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2056 (defun vhdl-warning (string &optional nobeep) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2057 "Print out warning STRING and beep." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2058 (message (concat "WARNING: " string)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2059 (unless (or nobeep noninteractive) (beep))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2060 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2061 (defun vhdl-print-warnings () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2062 "Print out messages in variable `vhdl-warnings'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2063 (let ((no-warnings (length vhdl-warnings))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2064 (setq vhdl-warnings (nreverse vhdl-warnings)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2065 (while vhdl-warnings |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2066 (message (concat "WARNING: " (car vhdl-warnings))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2067 (setq vhdl-warnings (cdr vhdl-warnings))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2068 (beep) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2069 (when (> no-warnings 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2070 (message "WARNING: See warnings in message buffer (type `C-c M-m').")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2071 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2072 ;; Backward compatibility checks and fixes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2073 ;; option `vhdl-compiler' changed format |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2074 (unless (stringp vhdl-compiler) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2075 (setq vhdl-compiler "ModelSim") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2076 (vhdl-warning-when-idle "Option `vhdl-compiler' has changed format; customize again")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2077 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2078 ;; option `vhdl-standard' changed format |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2079 (unless (listp vhdl-standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2080 (setq vhdl-standard '(87 nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2081 (vhdl-warning-when-idle "Option `vhdl-standard' has changed format; customize again")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2082 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2083 ;; option `vhdl-model-alist' changed format |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2084 (when (= (length (car vhdl-model-alist)) 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2085 (let ((old-alist vhdl-model-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2086 new-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2087 (while old-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2088 (setq new-alist (cons (append (car old-alist) '("")) new-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2089 (setq old-alist (cdr old-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2090 (setq vhdl-model-alist (nreverse new-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2091 (customize-save-variable 'vhdl-model-alist vhdl-model-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2092 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2093 ;; option `vhdl-project-alist' changed format |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2094 (when (= (length (car vhdl-project-alist)) 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2095 (let ((old-alist vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2096 new-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2097 (while old-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2098 (setq new-alist (cons (append (car old-alist) '("")) new-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2099 (setq old-alist (cdr old-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2100 (setq vhdl-project-alist (nreverse new-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2101 (customize-save-variable 'vhdl-project-alist vhdl-project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2102 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2103 ;; option `vhdl-project-alist' changed format (3.31.1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2104 (when (= (length (car vhdl-project-alist)) 4) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2105 (let ((old-alist vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2106 new-alist elem) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2107 (while old-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2108 (setq elem (car old-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2109 (setq new-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2110 (cons (list (nth 0 elem) (nth 1 elem) "" (nth 2 elem) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2111 nil "./" "work" "work/" "Makefile" (nth 3 elem)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2112 new-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2113 (setq old-alist (cdr old-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2114 (setq vhdl-project-alist (nreverse new-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2115 (vhdl-warning-when-idle "Option `vhdl-project-alist' changed format; please re-customize")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2116 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2117 ;; option `vhdl-project-alist' changed format (3.31.12) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2118 (when (= (length (car vhdl-project-alist)) 10) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2119 (let ((tmp-alist vhdl-project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2120 (while tmp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2121 (setcdr (nthcdr 3 (car tmp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2122 (cons "" (nthcdr 4 (car tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2123 (setq tmp-alist (cdr tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2124 (customize-save-variable 'vhdl-project-alist vhdl-project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2125 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2126 ;; option `vhdl-compiler-alist' changed format (3.31.1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2127 (when (= (length (car vhdl-compiler-alist)) 7) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2128 (let ((old-alist vhdl-compiler-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2129 new-alist elem) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2130 (while old-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2131 (setq elem (car old-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2132 (setq new-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2133 (cons (list (nth 0 elem) (nth 1 elem) "" "make -f \\1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2134 (if (equal (nth 3 elem) "") nil (nth 3 elem)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2135 (nth 4 elem) "work/" "Makefile" (downcase (nth 0 elem)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2136 (nth 5 elem) (nth 6 elem) nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2137 new-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2138 (setq old-alist (cdr old-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2139 (setq vhdl-compiler-alist (nreverse new-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2140 (vhdl-warning-when-idle "Option `vhdl-compiler-alist' changed; please reset and re-customize")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2141 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2142 ;; option `vhdl-compiler-alist' changed format (3.31.10) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2143 (when (= (length (car vhdl-compiler-alist)) 12) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2144 (let ((tmp-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2145 (while tmp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2146 (setcdr (nthcdr 4 (car tmp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2147 (cons "mkdir \\1" (nthcdr 5 (car tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2148 (setq tmp-alist (cdr tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2149 (customize-save-variable 'vhdl-compiler-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2150 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2151 ;; option `vhdl-compiler-alist' changed format (3.31.11) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2152 (when (= (length (car vhdl-compiler-alist)) 13) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2153 (let ((tmp-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2154 (while tmp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2155 (setcdr (nthcdr 3 (car tmp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2156 (cons "" (nthcdr 4 (car tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2157 (setq tmp-alist (cdr tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2158 (customize-save-variable 'vhdl-compiler-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2159 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2160 ;; option `vhdl-compiler-alist' changed format (3.32.7) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2161 (when (= (length (nth 11 (car vhdl-compiler-alist))) 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2162 (let ((tmp-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2163 (while tmp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2164 (setcdr (nthcdr 2 (nth 11 (car tmp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2165 '(0 . nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2166 (setq tmp-alist (cdr tmp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2167 (customize-save-variable 'vhdl-compiler-alist vhdl-compiler-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2168 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2169 ;; option `vhdl-project': empty value changed from "" to nil (3.31.1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2170 (when (equal vhdl-project "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2171 (setq vhdl-project nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2172 (customize-save-variable 'vhdl-project vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2173 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2174 ;; option `vhdl-project-file-name': changed format (3.31.17 beta) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2175 (when (stringp vhdl-project-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2176 (setq vhdl-project-file-name (list vhdl-project-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2177 (customize-save-variable 'vhdl-project-file-name vhdl-project-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2178 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2179 ;; option `speedbar-indentation-width': introduced in speedbar 0.10 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2180 (if (not (boundp 'speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2181 (defvar speedbar-indentation-width 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2182 ;; set default to 2 if not already customized |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2183 (unless (get 'speedbar-indentation-width 'saved-value) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2184 (setq speedbar-indentation-width 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2185 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2186 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2187 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2188 ;;; Help functions / inline substitutions / macros |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2190 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2191 (defun vhdl-standard-p (standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2192 "Check if STANDARD is specified as used standard." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2193 (or (eq standard (car vhdl-standard)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2194 (memq standard (cadr vhdl-standard)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2195 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2196 (defun vhdl-project-p (&optional warning) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2197 "Return non-nil if a project is displayed, i.e. directories or files are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2198 specified." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2199 (if (assoc vhdl-project vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2200 vhdl-project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2201 (when (and vhdl-project warning) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2202 (vhdl-warning-when-idle "Project does not exist: \"%s\"" vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2203 nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2204 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2205 (defun vhdl-resolve-env-variable (string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2206 "Resolve environment variables in STRING." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2207 (while (string-match "\\(.*\\)${?\\(\\(\\w\\|_\\)+\\)}?\\(.*\\)" string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2208 (setq string (concat (match-string 1 string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2209 (getenv (match-string 2 string)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2210 (match-string 4 string)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2211 string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2212 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2213 (defun vhdl-default-directory () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2214 "Return the default directory of the current project or the directory of the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2215 current buffer if no project is defined." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2216 (if (vhdl-project-p) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2217 (expand-file-name (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2218 (nth 1 (aget vhdl-project-alist vhdl-project)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2219 default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2220 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2221 (defmacro vhdl-prepare-search-1 (&rest body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2222 "Enable case insensitive search and switch to syntax table that includes '_', |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2223 then execute BODY, and finally restore the old environment. Used for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2224 consistent searching." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2225 `(let ((case-fold-search t) ; case insensitive search |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2226 (current-syntax-table (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2227 result |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2228 (restore-prog ; program to restore enviroment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2229 '(progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2230 ;; restore syntax table |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2231 (set-syntax-table current-syntax-table)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2232 ;; use extended syntax table |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2233 (set-syntax-table vhdl-mode-ext-syntax-table) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2234 ;; execute BODY safely |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2235 (setq result |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2236 (condition-case info |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2237 (progn ,@body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2238 (error (eval restore-prog) ; restore environment on error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2239 (error (cadr info))))) ; pass error up |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2240 ;; restore environment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2241 (eval restore-prog) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2242 result)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2243 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2244 (defmacro vhdl-prepare-search-2 (&rest body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2245 "Enable case insensitive search, switch to syntax table that includes '_', |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2246 and remove `intangible' overlays, then execute BODY, and finally restore the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2247 old environment. Used for consistent searching." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2248 `(let ((case-fold-search t) ; case insensitive search |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2249 (current-syntax-table (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2250 result overlay-all-list overlay-intangible-list overlay |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2251 (restore-prog ; program to restore enviroment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2252 '(progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2253 ;; restore syntax table |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2254 (set-syntax-table current-syntax-table) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2255 ;; restore `intangible' overlays |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2256 (when (fboundp 'overlay-lists) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2257 (while overlay-intangible-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2258 (overlay-put (car overlay-intangible-list) 'intangible t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2259 (setq overlay-intangible-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2260 (cdr overlay-intangible-list))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2261 ;; use extended syntax table |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2262 (set-syntax-table vhdl-mode-ext-syntax-table) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2263 ;; remove `intangible' overlays |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2264 (when (fboundp 'overlay-lists) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2265 (setq overlay-all-list (overlay-lists)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2266 (setq overlay-all-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2267 (append (car overlay-all-list) (cdr overlay-all-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2268 (while overlay-all-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2269 (setq overlay (car overlay-all-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2270 (when (memq 'intangible (overlay-properties overlay)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2271 (setq overlay-intangible-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2272 (cons overlay overlay-intangible-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2273 (overlay-put overlay 'intangible nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2274 (setq overlay-all-list (cdr overlay-all-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2275 ;; execute BODY safely |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2276 (setq result |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2277 (condition-case info |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2278 (progn ,@body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2279 (error (eval restore-prog) ; restore environment on error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2280 (error (cadr info))))) ; pass error up |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2281 ;; restore environment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2282 (eval restore-prog) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2283 result)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2284 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2285 (defmacro vhdl-visit-file (file-name issue-error &rest body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2286 "Visit file FILE-NAME and execute BODY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2287 `(if (null ,file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2288 (progn ,@body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2289 (unless (file-directory-p ,file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2290 (let ((source-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2291 (visiting-buffer (find-buffer-visiting ,file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2292 file-opened) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2293 (when (or (and visiting-buffer (set-buffer visiting-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2294 (condition-case () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2295 (progn (set-buffer (create-file-buffer ,file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2296 (setq file-opened t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2297 (vhdl-insert-file-contents ,file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2298 (modify-syntax-entry ?\- ". 12" (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2299 (modify-syntax-entry ?\n ">" (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2300 (modify-syntax-entry ?\^M ">" (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2301 (modify-syntax-entry ?_ "w" (syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2302 t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2303 (error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2304 (if ,issue-error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2305 (progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2306 (when file-opened (kill-buffer (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2307 (set-buffer source-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2308 (error (format "ERROR: File cannot be opened: \"%s\"" ,file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2309 (vhdl-warning (format "File cannot be opened: \"%s\"" ,file-name) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2310 nil)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2311 (condition-case info |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2312 (progn ,@body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2313 (error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2314 (if ,issue-error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2315 (progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2316 (when file-opened (kill-buffer (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2317 (set-buffer source-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2318 (error (cadr info))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2319 (vhdl-warning (cadr info)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2320 (when file-opened (kill-buffer (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2321 (set-buffer source-buffer))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2322 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2323 (defun vhdl-insert-file-contents (filename) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2324 "Nicked from `insert-file-contents-literally', but allow coding system |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2325 conversion." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2326 (let ((format-alist nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2327 (after-insert-file-functions nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2328 (jka-compr-compression-info-list nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2329 (insert-file-contents filename t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2330 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2331 (defun vhdl-sort-alist (alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2332 "Sort alist." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2333 (sort alist (function (lambda (a b) (string< (car a) (car b)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2334 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2335 (defun vhdl-get-subdirs (directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2336 "Recursively get subdirectories of DIRECTORY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2337 (let ((dir-list (list (file-name-as-directory directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2338 file-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2339 (setq file-list (vhdl-directory-files directory t "\\w.*")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2340 (while file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2341 (when (file-directory-p (car file-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2342 (setq dir-list (append dir-list (vhdl-get-subdirs (car file-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2343 (setq file-list (cdr file-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2344 dir-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2345 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2346 (defun vhdl-aput (alist-symbol key &optional value) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2347 "As `aput', but delete key-value pair if VALUE is nil." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2348 (if value |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2349 (aput alist-symbol key value) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2350 (adelete alist-symbol key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2351 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2352 (defun vhdl-delete (elt list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2353 "Delete by side effect the first occurrence of ELT as a member of LIST." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2354 (setq list (cons nil list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2355 (let ((list1 list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2356 (while (and (cdr list1) (not (equal elt (cadr list1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2357 (setq list1 (cdr list1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2358 (when list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2359 (setcdr list1 (cddr list1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2360 (cdr list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2361 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2362 (defun vhdl-speedbar-refresh (&optional key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2363 "Refresh directory or project with name KEY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2364 (when (and (boundp 'speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2365 (frame-live-p speedbar-frame)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2366 (let ((pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2367 (last-frame (selected-frame))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2368 (if (null key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2369 (speedbar-refresh) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2370 (select-frame speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2371 (when (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2372 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2373 (re-search-forward (concat "^\\([0-9]+:\\s-*<\\)->\\s-+" key "$") nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2374 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2375 (speedbar-do-function-pointer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2376 (backward-char 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2377 (speedbar-do-function-pointer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2378 (message "Refreshing speedbar...done")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2379 (select-frame last-frame))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2380 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2381 (defun vhdl-show-messages () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2382 "Get *Messages* buffer to show recent messages." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2383 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2384 (display-buffer (if vhdl-xemacs " *Message-Log*" "*Messages*"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2385 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2386 (defun vhdl-use-direct-instantiation () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2387 "Return whether direct instantiation is used." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2388 (or (eq vhdl-use-direct-instantiation 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2389 (and (eq vhdl-use-direct-instantiation 'standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2390 (not (vhdl-standard-p '87))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2391 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2392 (defun vhdl-max-marker (marker1 marker2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2393 "Return larger marker." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2394 (if (> marker1 marker2) marker1 marker2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2395 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2396 (defun vhdl-goto-marker (marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2397 "Goto marker in appropriate buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2398 (when (markerp marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2399 (set-buffer (marker-buffer marker))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2400 (goto-char marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2401 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2402 (defun vhdl-menu-split (list title) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2403 "Split menu LIST into several submenues, if number of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2404 elements > `vhdl-menu-max-size'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2405 (if (> (length list) vhdl-menu-max-size) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2406 (let ((remain list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2407 (result '()) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2408 (sublist '()) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2409 (menuno 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2410 (i 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2411 (while remain |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2412 (setq sublist (cons (car remain) sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2413 (setq remain (cdr remain)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2414 (setq i (+ i 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2415 (if (= i vhdl-menu-max-size) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2416 (progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2417 (setq result (cons (cons (format "%s %s" title menuno) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2418 (nreverse sublist)) result)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2419 (setq i 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2420 (setq menuno (+ menuno 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2421 (setq sublist '())))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2422 (and sublist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2423 (setq result (cons (cons (format "%s %s" title menuno) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2424 (nreverse sublist)) result))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2425 (nreverse result)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2426 list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2427 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2428 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2429 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2430 ;;; Bindings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2431 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2432 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2433 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 2434 ;; Key bindings |
2435 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2436 (defvar vhdl-template-map nil |
20665 | 2437 "Keymap for VHDL templates.") |
2438 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2439 (defun vhdl-template-map-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2440 "Initialize `vhdl-template-map'." |
20665 | 2441 (setq vhdl-template-map (make-sparse-keymap)) |
2442 ;; key bindings for VHDL templates | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2443 (define-key vhdl-template-map "al" 'vhdl-template-alias) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2444 (define-key vhdl-template-map "ar" 'vhdl-template-architecture) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2445 (define-key vhdl-template-map "at" 'vhdl-template-assert) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2446 (define-key vhdl-template-map "ad" 'vhdl-template-attribute-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2447 (define-key vhdl-template-map "as" 'vhdl-template-attribute-spec) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2448 (define-key vhdl-template-map "bl" 'vhdl-template-block) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2449 (define-key vhdl-template-map "ca" 'vhdl-template-case-is) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2450 (define-key vhdl-template-map "cd" 'vhdl-template-component-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2451 (define-key vhdl-template-map "ci" 'vhdl-template-component-inst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2452 (define-key vhdl-template-map "cs" 'vhdl-template-conditional-signal-asst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2453 (define-key vhdl-template-map "Cb" 'vhdl-template-block-configuration) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2454 (define-key vhdl-template-map "Cc" 'vhdl-template-component-conf) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2455 (define-key vhdl-template-map "Cd" 'vhdl-template-configuration-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2456 (define-key vhdl-template-map "Cs" 'vhdl-template-configuration-spec) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2457 (define-key vhdl-template-map "co" 'vhdl-template-constant) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2458 (define-key vhdl-template-map "di" 'vhdl-template-disconnect) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2459 (define-key vhdl-template-map "el" 'vhdl-template-else) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2460 (define-key vhdl-template-map "ei" 'vhdl-template-elsif) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2461 (define-key vhdl-template-map "en" 'vhdl-template-entity) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2462 (define-key vhdl-template-map "ex" 'vhdl-template-exit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2463 (define-key vhdl-template-map "fi" 'vhdl-template-file) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2464 (define-key vhdl-template-map "fg" 'vhdl-template-for-generate) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2465 (define-key vhdl-template-map "fl" 'vhdl-template-for-loop) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2466 (define-key vhdl-template-map "\C-f" 'vhdl-template-footer) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2467 (define-key vhdl-template-map "fb" 'vhdl-template-function-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2468 (define-key vhdl-template-map "fd" 'vhdl-template-function-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2469 (define-key vhdl-template-map "ge" 'vhdl-template-generic) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2470 (define-key vhdl-template-map "gd" 'vhdl-template-group-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2471 (define-key vhdl-template-map "gt" 'vhdl-template-group-template) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2472 (define-key vhdl-template-map "\C-h" 'vhdl-template-header) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2473 (define-key vhdl-template-map "ig" 'vhdl-template-if-generate) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2474 (define-key vhdl-template-map "it" 'vhdl-template-if-then) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2475 (define-key vhdl-template-map "li" 'vhdl-template-library) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2476 (define-key vhdl-template-map "lo" 'vhdl-template-bare-loop) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2477 (define-key vhdl-template-map "\C-m" 'vhdl-template-modify) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2478 (define-key vhdl-template-map "\C-t" 'vhdl-template-insert-date) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2479 (define-key vhdl-template-map "ma" 'vhdl-template-map) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2480 (define-key vhdl-template-map "ne" 'vhdl-template-next) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2481 (define-key vhdl-template-map "ot" 'vhdl-template-others) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2482 (define-key vhdl-template-map "Pd" 'vhdl-template-package-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2483 (define-key vhdl-template-map "Pb" 'vhdl-template-package-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2484 (define-key vhdl-template-map "(" 'vhdl-template-paired-parens) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2485 (define-key vhdl-template-map "po" 'vhdl-template-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2486 (define-key vhdl-template-map "pb" 'vhdl-template-procedure-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2487 (define-key vhdl-template-map "pd" 'vhdl-template-procedure-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2488 (define-key vhdl-template-map "pc" 'vhdl-template-process-comb) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2489 (define-key vhdl-template-map "ps" 'vhdl-template-process-seq) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2490 (define-key vhdl-template-map "rp" 'vhdl-template-report) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2491 (define-key vhdl-template-map "rt" 'vhdl-template-return) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2492 (define-key vhdl-template-map "ss" 'vhdl-template-selected-signal-asst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2493 (define-key vhdl-template-map "si" 'vhdl-template-signal) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2494 (define-key vhdl-template-map "su" 'vhdl-template-subtype) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2495 (define-key vhdl-template-map "ty" 'vhdl-template-type) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2496 (define-key vhdl-template-map "us" 'vhdl-template-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2497 (define-key vhdl-template-map "va" 'vhdl-template-variable) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2498 (define-key vhdl-template-map "wa" 'vhdl-template-wait) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2499 (define-key vhdl-template-map "wl" 'vhdl-template-while-loop) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2500 (define-key vhdl-template-map "wi" 'vhdl-template-with) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2501 (define-key vhdl-template-map "wc" 'vhdl-template-clocked-wait) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2502 (define-key vhdl-template-map "\C-pb" 'vhdl-template-package-numeric-bit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2503 (define-key vhdl-template-map "\C-pn" 'vhdl-template-package-numeric-std) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2504 (define-key vhdl-template-map "\C-ps" 'vhdl-template-package-std-logic-1164) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2505 (define-key vhdl-template-map "\C-pA" 'vhdl-template-package-std-logic-arith) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2506 (define-key vhdl-template-map "\C-pM" 'vhdl-template-package-std-logic-misc) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2507 (define-key vhdl-template-map "\C-pS" 'vhdl-template-package-std-logic-signed) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2508 (define-key vhdl-template-map "\C-pT" 'vhdl-template-package-std-logic-textio) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2509 (define-key vhdl-template-map "\C-pU" 'vhdl-template-package-std-logic-unsigned) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2510 (define-key vhdl-template-map "\C-pt" 'vhdl-template-package-textio) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2511 (define-key vhdl-template-map "\C-dn" 'vhdl-template-directive-translate-on) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2512 (define-key vhdl-template-map "\C-df" 'vhdl-template-directive-translate-off) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2513 (define-key vhdl-template-map "\C-dN" 'vhdl-template-directive-synthesis-on) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2514 (define-key vhdl-template-map "\C-dF" 'vhdl-template-directive-synthesis-off) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2515 (define-key vhdl-template-map "\C-q" 'vhdl-template-search-prompt) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2516 (when (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2517 (define-key vhdl-template-map "br" 'vhdl-template-break) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2518 (define-key vhdl-template-map "cu" 'vhdl-template-case-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2519 (define-key vhdl-template-map "iu" 'vhdl-template-if-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2520 (define-key vhdl-template-map "lm" 'vhdl-template-limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2521 (define-key vhdl-template-map "na" 'vhdl-template-nature) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2522 (define-key vhdl-template-map "pa" 'vhdl-template-procedural) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2523 (define-key vhdl-template-map "qf" 'vhdl-template-quantity-free) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2524 (define-key vhdl-template-map "qb" 'vhdl-template-quantity-branch) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2525 (define-key vhdl-template-map "qs" 'vhdl-template-quantity-source) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2526 (define-key vhdl-template-map "sn" 'vhdl-template-subnature) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2527 (define-key vhdl-template-map "te" 'vhdl-template-terminal) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2528 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2529 (when (vhdl-standard-p 'math) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2530 (define-key vhdl-template-map "\C-pc" 'vhdl-template-package-math-complex) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2531 (define-key vhdl-template-map "\C-pr" 'vhdl-template-package-math-real) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2532 )) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2533 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2534 ;; initialize template map for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2535 (vhdl-template-map-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2536 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2537 (defun vhdl-function-name (prefix string &optional postfix) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2538 "Generate a Lisp function name. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2539 PREFIX, STRING and optional POSTFIX are concatenated by '-' and spaces in |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2540 STRING are replaced by `-' and substrings are converted to lower case." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2541 (let ((name prefix)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2542 (while (string-match "\\(\\w+\\)\\s-*\\(.*\\)" string) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2543 (setq name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2544 (concat name "-" (downcase (substring string 0 (match-end 1))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2545 (setq string (substring string (match-beginning 2)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2546 (when postfix (setq name (concat name "-" postfix))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2547 (intern name))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2548 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2549 (defvar vhdl-model-map nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2550 "Keymap for VHDL models.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2551 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2552 (defun vhdl-model-map-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2553 "Initialize `vhdl-model-map'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2554 (setq vhdl-model-map (make-sparse-keymap)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2555 ;; key bindings for VHDL models |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2556 (let ((model-alist vhdl-model-alist) model) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2557 (while model-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2558 (setq model (car model-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2559 (define-key vhdl-model-map (nth 2 model) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2560 (vhdl-function-name "vhdl-model" (nth 0 model))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2561 (setq model-alist (cdr model-alist))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2562 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2563 ;; initialize user model map for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2564 (vhdl-model-map-init) |
20665 | 2565 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2566 (defvar vhdl-mode-map nil |
20665 | 2567 "Keymap for VHDL Mode.") |
2568 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2569 (defun vhdl-mode-map-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2570 "Initialize `vhdl-mode-map'." |
20665 | 2571 (setq vhdl-mode-map (make-sparse-keymap)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2572 ;; template key bindings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2573 (define-key vhdl-mode-map "\C-c\C-t" vhdl-template-map) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2574 ;; model key bindings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2575 (define-key vhdl-mode-map "\C-c\C-m" vhdl-model-map) |
20665 | 2576 ;; standard key bindings |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2577 (define-key vhdl-mode-map "\M-a" 'vhdl-beginning-of-statement) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2578 (define-key vhdl-mode-map "\M-e" 'vhdl-end-of-statement) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2579 (define-key vhdl-mode-map "\M-\C-f" 'vhdl-forward-sexp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2580 (define-key vhdl-mode-map "\M-\C-b" 'vhdl-backward-sexp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2581 (define-key vhdl-mode-map "\M-\C-u" 'vhdl-backward-up-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2582 (define-key vhdl-mode-map "\M-\C-a" 'vhdl-backward-same-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2583 (define-key vhdl-mode-map "\M-\C-e" 'vhdl-forward-same-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2584 (unless vhdl-xemacs ; would override `M-backspace' in XEmacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2585 (define-key vhdl-mode-map "\M-\C-h" 'vhdl-mark-defun)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2586 (define-key vhdl-mode-map "\M-\C-q" 'vhdl-indent-sexp) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2587 (define-key vhdl-mode-map "\M-^" 'vhdl-delete-indentation) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2588 ;; backspace/delete key bindings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2589 (define-key vhdl-mode-map [backspace] 'backward-delete-char-untabify) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2590 (unless (boundp 'delete-key-deletes-forward) ; XEmacs variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2591 (define-key vhdl-mode-map [delete] 'delete-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2592 (define-key vhdl-mode-map [(meta delete)] 'kill-word)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2593 ;; mode specific key bindings |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2594 (define-key vhdl-mode-map "\C-c\C-m\C-e" 'vhdl-electric-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2595 (define-key vhdl-mode-map "\C-c\C-m\C-s" 'vhdl-stutter-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2596 (define-key vhdl-mode-map "\C-c\C-s\C-p" 'vhdl-set-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2597 (define-key vhdl-mode-map "\C-c\C-p\C-d" 'vhdl-duplicate-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2598 (define-key vhdl-mode-map "\C-c\C-p\C-m" 'vhdl-import-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2599 (define-key vhdl-mode-map "\C-c\C-p\C-x" 'vhdl-export-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2600 (define-key vhdl-mode-map "\C-c\C-s\C-k" 'vhdl-set-compiler) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2601 (define-key vhdl-mode-map "\C-c\C-k" 'vhdl-compile) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2602 (define-key vhdl-mode-map "\C-c\M-\C-k" 'vhdl-make) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2603 (define-key vhdl-mode-map "\C-c\M-k" 'vhdl-generate-makefile) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2604 (define-key vhdl-mode-map "\C-c\C-p\C-w" 'vhdl-port-copy) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2605 (define-key vhdl-mode-map "\C-c\C-p\M-w" 'vhdl-port-copy) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2606 (define-key vhdl-mode-map "\C-c\C-p\C-e" 'vhdl-port-paste-entity) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2607 (define-key vhdl-mode-map "\C-c\C-p\C-c" 'vhdl-port-paste-component) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2608 (define-key vhdl-mode-map "\C-c\C-p\C-i" 'vhdl-port-paste-instance) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2609 (define-key vhdl-mode-map "\C-c\C-p\C-s" 'vhdl-port-paste-signals) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2610 (define-key vhdl-mode-map "\C-c\C-p\M-c" 'vhdl-port-paste-constants) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2611 (if vhdl-xemacs ; `... C-g' not allowed in XEmacs |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2612 (define-key vhdl-mode-map "\C-c\C-p\M-g" 'vhdl-port-paste-generic-map) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2613 (define-key vhdl-mode-map "\C-c\C-p\C-g" 'vhdl-port-paste-generic-map)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2614 (define-key vhdl-mode-map "\C-c\C-p\C-z" 'vhdl-port-paste-initializations) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2615 (define-key vhdl-mode-map "\C-c\C-p\C-t" 'vhdl-port-paste-testbench) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2616 (define-key vhdl-mode-map "\C-c\C-p\C-f" 'vhdl-port-flatten) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2617 (define-key vhdl-mode-map "\C-c\C-p\C-r" 'vhdl-port-reverse-direction) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2618 (define-key vhdl-mode-map "\C-c\C-s\C-w" 'vhdl-subprog-copy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2619 (define-key vhdl-mode-map "\C-c\C-s\M-w" 'vhdl-subprog-copy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2620 (define-key vhdl-mode-map "\C-c\C-s\C-d" 'vhdl-subprog-paste-declaration) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2621 (define-key vhdl-mode-map "\C-c\C-s\C-b" 'vhdl-subprog-paste-body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2622 (define-key vhdl-mode-map "\C-c\C-s\C-c" 'vhdl-subprog-paste-call) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2623 (define-key vhdl-mode-map "\C-c\C-s\C-f" 'vhdl-subprog-flatten) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2624 (define-key vhdl-mode-map "\C-c\C-c\C-n" 'vhdl-compose-new-component) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2625 (define-key vhdl-mode-map "\C-c\C-c\C-p" 'vhdl-compose-place-component) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2626 (define-key vhdl-mode-map "\C-c\C-c\C-w" 'vhdl-compose-wire-components) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2627 (define-key vhdl-mode-map "\C-c\C-c\C-k" 'vhdl-compose-components-package) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2628 (define-key vhdl-mode-map "\C-cc" 'vhdl-comment-uncomment-region) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2629 (define-key vhdl-mode-map "\C-c-" 'vhdl-comment-append-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2630 (define-key vhdl-mode-map "\C-c\M--" 'vhdl-comment-display-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2631 (define-key vhdl-mode-map "\C-c\C-i\C-l" 'indent-according-to-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2632 (define-key vhdl-mode-map "\C-c\C-i\C-g" 'vhdl-indent-group) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2633 (define-key vhdl-mode-map "\M-\C-\\" 'vhdl-indent-region) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2634 (define-key vhdl-mode-map "\C-c\C-i\C-b" 'vhdl-indent-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2635 (define-key vhdl-mode-map "\C-c\C-a\C-g" 'vhdl-align-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2636 (define-key vhdl-mode-map "\C-c\C-a\C-a" 'vhdl-align-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2637 (define-key vhdl-mode-map "\C-c\C-a\C-i" 'vhdl-align-same-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2638 (define-key vhdl-mode-map "\C-c\C-a\C-l" 'vhdl-align-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2639 (define-key vhdl-mode-map "\C-c\C-a\C-d" 'vhdl-align-declarations) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2640 (define-key vhdl-mode-map "\C-c\C-a\M-a" 'vhdl-align-region) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2641 (define-key vhdl-mode-map "\C-c\C-a\C-b" 'vhdl-align-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2642 (define-key vhdl-mode-map "\C-c\C-a\C-c" 'vhdl-align-inline-comment-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2643 (define-key vhdl-mode-map "\C-c\C-a\M-c" 'vhdl-align-inline-comment-region) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2644 (define-key vhdl-mode-map "\C-c\C-f\C-l" 'vhdl-fill-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2645 (define-key vhdl-mode-map "\C-c\C-f\C-f" 'vhdl-fill-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2646 (define-key vhdl-mode-map "\C-c\C-f\C-g" 'vhdl-fill-group) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2647 (define-key vhdl-mode-map "\C-c\C-f\C-i" 'vhdl-fill-same-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2648 (define-key vhdl-mode-map "\C-c\C-f\M-f" 'vhdl-fill-region) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2649 (define-key vhdl-mode-map "\C-c\C-l\C-w" 'vhdl-line-kill) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2650 (define-key vhdl-mode-map "\C-c\C-l\M-w" 'vhdl-line-copy) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2651 (define-key vhdl-mode-map "\C-c\C-l\C-y" 'vhdl-line-yank) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2652 (define-key vhdl-mode-map "\C-c\C-l\t" 'vhdl-line-expand) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2653 (define-key vhdl-mode-map "\C-c\C-l\C-n" 'vhdl-line-transpose-next) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2654 (define-key vhdl-mode-map "\C-c\C-l\C-p" 'vhdl-line-transpose-previous) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2655 (define-key vhdl-mode-map "\C-c\C-l\C-o" 'vhdl-line-open) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2656 (define-key vhdl-mode-map "\C-c\C-l\C-g" 'goto-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2657 (define-key vhdl-mode-map "\C-c\C-l\C-c" 'vhdl-comment-uncomment-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2658 (define-key vhdl-mode-map "\C-c\C-x\C-p" 'vhdl-fix-clause) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2659 (define-key vhdl-mode-map "\C-c\C-x\M-c" 'vhdl-fix-case-region) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2660 (define-key vhdl-mode-map "\C-c\C-x\C-c" 'vhdl-fix-case-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2661 (define-key vhdl-mode-map "\C-c\C-x\M-w" 'vhdl-fixup-whitespace-region) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2662 (define-key vhdl-mode-map "\C-c\C-x\C-w" 'vhdl-fixup-whitespace-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2663 (define-key vhdl-mode-map "\C-c\M-b" 'vhdl-beautify-region) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2664 (define-key vhdl-mode-map "\C-c\C-b" 'vhdl-beautify-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2665 (define-key vhdl-mode-map "\C-c\C-u\C-s" 'vhdl-update-sensitivity-list-process) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2666 (define-key vhdl-mode-map "\C-c\C-u\M-s" 'vhdl-update-sensitivity-list-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2667 (define-key vhdl-mode-map "\C-cf" 'vhdl-fontify-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2668 (define-key vhdl-mode-map "\C-cs" 'vhdl-statistics-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2669 (define-key vhdl-mode-map "\C-c\M-m" 'vhdl-show-messages) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2670 (define-key vhdl-mode-map "\C-c\C-h" 'vhdl-doc-mode) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2671 (define-key vhdl-mode-map "\C-c\C-v" 'vhdl-version) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2672 (define-key vhdl-mode-map "\M-\t" 'insert-tab) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2673 ;; insert commands bindings |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2674 (define-key vhdl-mode-map "\C-c\C-i\C-t" 'vhdl-template-insert-construct) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2675 (define-key vhdl-mode-map "\C-c\C-i\C-p" 'vhdl-template-insert-package) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2676 (define-key vhdl-mode-map "\C-c\C-i\C-d" 'vhdl-template-insert-directive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2677 (define-key vhdl-mode-map "\C-c\C-i\C-m" 'vhdl-model-insert) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2678 ;; electric key bindings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2679 (define-key vhdl-mode-map " " 'vhdl-electric-space) |
20665 | 2680 (if vhdl-intelligent-tab |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2681 (define-key vhdl-mode-map "\t" 'vhdl-electric-tab) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2682 ;; The default binding of TAB already calls `indent-according-to-mode'. |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2683 ;; (define-key vhdl-mode-map "\t" 'indent-according-to-mode) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2684 ) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2685 (define-key vhdl-mode-map "\r" 'vhdl-electric-return) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2686 (define-key vhdl-mode-map "-" 'vhdl-electric-dash) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2687 (define-key vhdl-mode-map "[" 'vhdl-electric-open-bracket) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2688 (define-key vhdl-mode-map "]" 'vhdl-electric-close-bracket) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2689 (define-key vhdl-mode-map "'" 'vhdl-electric-quote) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2690 (define-key vhdl-mode-map ";" 'vhdl-electric-semicolon) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2691 (define-key vhdl-mode-map "," 'vhdl-electric-comma) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2692 (define-key vhdl-mode-map "." 'vhdl-electric-period) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2693 (when (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2694 (define-key vhdl-mode-map "=" 'vhdl-electric-equal))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2695 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2696 ;; initialize mode map for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2697 (vhdl-mode-map-init) |
20665 | 2698 |
2699 ;; define special minibuffer keymap for enabling word completion in minibuffer | |
2700 ;; (useful in template generator prompts) | |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2701 (defvar vhdl-minibuffer-local-map |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2702 (let ((map (make-sparse-keymap))) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2703 (set-keymap-parent map minibuffer-local-map) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2704 (when vhdl-word-completion-in-minibuffer |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2705 (define-key map "\t" 'vhdl-minibuffer-tab)) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2706 map) |
20665 | 2707 "Keymap for minibuffer used in VHDL Mode.") |
2708 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2709 ;; set up electric character functions to work with |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2710 ;; `delete-selection-mode' (Emacs) and `pending-delete-mode' (XEmacs) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2711 (mapcar |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2712 (function |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2713 (lambda (sym) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2714 (put sym 'delete-selection t) ; for `delete-selection-mode' (Emacs) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2715 (put sym 'pending-delete t))) ; for `pending-delete-mode' (XEmacs) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2716 '(vhdl-electric-space |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2717 vhdl-electric-tab |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2718 vhdl-electric-return |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2719 vhdl-electric-dash |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2720 vhdl-electric-open-bracket |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2721 vhdl-electric-close-bracket |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2722 vhdl-electric-quote |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2723 vhdl-electric-semicolon |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2724 vhdl-electric-comma |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2725 vhdl-electric-period |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2726 vhdl-electric-equal)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2727 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2728 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2729 ;; Syntax table |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2730 |
20665 | 2731 (defvar vhdl-mode-syntax-table nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2732 "Syntax table used in `vhdl-mode' buffers.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2733 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2734 (defvar vhdl-mode-ext-syntax-table nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2735 "Syntax table extended by `_' used in `vhdl-mode' buffers.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2736 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2737 (defun vhdl-mode-syntax-table-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2738 "Initialize `vhdl-mode-syntax-table'." |
20665 | 2739 (setq vhdl-mode-syntax-table (make-syntax-table)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2740 ;; define punctuation |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2741 (modify-syntax-entry ?\# "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2742 (modify-syntax-entry ?\$ "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2743 (modify-syntax-entry ?\% "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2744 (modify-syntax-entry ?\& "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2745 (modify-syntax-entry ?\' "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2746 (modify-syntax-entry ?\* "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2747 (modify-syntax-entry ?\+ "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2748 (modify-syntax-entry ?\. "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2749 (modify-syntax-entry ?\/ "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2750 (modify-syntax-entry ?\: "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2751 (modify-syntax-entry ?\; "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2752 (modify-syntax-entry ?\< "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2753 (modify-syntax-entry ?\= "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2754 (modify-syntax-entry ?\> "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2755 (modify-syntax-entry ?\\ "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2756 (modify-syntax-entry ?\| "." vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2757 ;; define string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2758 (modify-syntax-entry ?\" "\"" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2759 ;; define underscore |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2760 (when vhdl-underscore-is-part-of-word |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2761 (modify-syntax-entry ?\_ "w" vhdl-mode-syntax-table)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2762 ;; a single hyphen is punctuation, but a double hyphen starts a comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2763 (modify-syntax-entry ?\- ". 12" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2764 ;; and \n and \^M end a comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2765 (modify-syntax-entry ?\n ">" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2766 (modify-syntax-entry ?\^M ">" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2767 ;; define parentheses to match |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2768 (modify-syntax-entry ?\( "()" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2769 (modify-syntax-entry ?\) ")(" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2770 (modify-syntax-entry ?\[ "(]" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2771 (modify-syntax-entry ?\] ")[" vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2772 (modify-syntax-entry ?\{ "(}" vhdl-mode-syntax-table) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2773 (modify-syntax-entry ?\} "){" vhdl-mode-syntax-table) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2774 ;; extended syntax table including '_' (for simpler search regexps) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2775 (setq vhdl-mode-ext-syntax-table (copy-syntax-table vhdl-mode-syntax-table)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2776 (modify-syntax-entry ?_ "w" vhdl-mode-ext-syntax-table)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2777 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2778 ;; initialize syntax table for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2779 (vhdl-mode-syntax-table-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2780 |
20665 | 2781 (defvar vhdl-syntactic-context nil |
2782 "Buffer local variable containing syntactic analysis list.") | |
2783 (make-variable-buffer-local 'vhdl-syntactic-context) | |
2784 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2785 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
2786 ;; Abbrev ook bindings |
20665 | 2787 |
2788 (defvar vhdl-mode-abbrev-table nil | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2789 "Abbrev table to use in `vhdl-mode' buffers.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2790 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2791 (defun vhdl-mode-abbrev-table-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2792 "Initialize `vhdl-mode-abbrev-table'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2793 (when vhdl-mode-abbrev-table (clear-abbrev-table vhdl-mode-abbrev-table)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2794 (define-abbrev-table 'vhdl-mode-abbrev-table |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2795 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2796 (when (memq 'vhdl vhdl-electric-keywords) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2797 ;; VHDL'93 keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2798 '( |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2799 ("--" "" vhdl-template-display-comment-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2800 ("abs" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2801 ("access" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2802 ("after" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2803 ("alias" "" vhdl-template-alias-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2804 ("all" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2805 ("and" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2806 ("arch" "" vhdl-template-architecture-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2807 ("architecture" "" vhdl-template-architecture-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2808 ("array" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2809 ("assert" "" vhdl-template-assert-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2810 ("attr" "" vhdl-template-attribute-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2811 ("attribute" "" vhdl-template-attribute-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2812 ("begin" "" vhdl-template-default-indent-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2813 ("block" "" vhdl-template-block-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2814 ("body" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2815 ("buffer" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2816 ("bus" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2817 ("case" "" vhdl-template-case-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2818 ("comp" "" vhdl-template-component-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2819 ("component" "" vhdl-template-component-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2820 ("cond" "" vhdl-template-conditional-signal-asst-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2821 ("conditional" "" vhdl-template-conditional-signal-asst-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2822 ("conf" "" vhdl-template-configuration-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2823 ("configuration" "" vhdl-template-configuration-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2824 ("cons" "" vhdl-template-constant-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2825 ("constant" "" vhdl-template-constant-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2826 ("disconnect" "" vhdl-template-disconnect-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2827 ("downto" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2828 ("else" "" vhdl-template-else-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2829 ("elseif" "" vhdl-template-elsif-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2830 ("elsif" "" vhdl-template-elsif-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2831 ("end" "" vhdl-template-default-indent-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2832 ("entity" "" vhdl-template-entity-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2833 ("exit" "" vhdl-template-exit-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2834 ("file" "" vhdl-template-file-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2835 ("for" "" vhdl-template-for-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2836 ("func" "" vhdl-template-function-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2837 ("function" "" vhdl-template-function-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2838 ("generic" "" vhdl-template-generic-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2839 ("group" "" vhdl-template-group-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2840 ("guarded" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2841 ("if" "" vhdl-template-if-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2842 ("impure" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2843 ("in" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2844 ("inertial" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2845 ("inout" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2846 ("inst" "" vhdl-template-instance-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2847 ("instance" "" vhdl-template-instance-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2848 ("is" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2849 ("label" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2850 ("library" "" vhdl-template-library-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2851 ("linkage" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2852 ("literal" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2853 ("loop" "" vhdl-template-bare-loop-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2854 ("map" "" vhdl-template-map-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2855 ("mod" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2856 ("nand" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2857 ("new" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2858 ("next" "" vhdl-template-next-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2859 ("nor" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2860 ("not" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2861 ("null" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2862 ("of" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2863 ("on" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2864 ("open" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2865 ("or" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2866 ("others" "" vhdl-template-others-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2867 ("out" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2868 ("pack" "" vhdl-template-package-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2869 ("package" "" vhdl-template-package-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2870 ("port" "" vhdl-template-port-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2871 ("postponed" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2872 ("procedure" "" vhdl-template-procedure-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2873 ("process" "" vhdl-template-process-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2874 ("pure" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2875 ("range" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2876 ("record" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2877 ("register" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2878 ("reject" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2879 ("rem" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2880 ("report" "" vhdl-template-report-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2881 ("return" "" vhdl-template-return-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2882 ("rol" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2883 ("ror" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2884 ("select" "" vhdl-template-selected-signal-asst-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2885 ("severity" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2886 ("shared" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2887 ("sig" "" vhdl-template-signal-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2888 ("signal" "" vhdl-template-signal-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2889 ("sla" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2890 ("sll" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2891 ("sra" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2892 ("srl" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2893 ("subtype" "" vhdl-template-subtype-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2894 ("then" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2895 ("to" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2896 ("transport" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2897 ("type" "" vhdl-template-type-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2898 ("unaffected" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2899 ("units" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2900 ("until" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2901 ("use" "" vhdl-template-use-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2902 ("var" "" vhdl-template-variable-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2903 ("variable" "" vhdl-template-variable-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2904 ("wait" "" vhdl-template-wait-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2905 ("when" "" vhdl-template-when-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2906 ("while" "" vhdl-template-while-loop-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2907 ("with" "" vhdl-template-with-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2908 ("xnor" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2909 ("xor" "" vhdl-template-default-hook 0 t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2910 )) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2911 ;; VHDL-AMS keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2912 (when (and (memq 'vhdl vhdl-electric-keywords) (vhdl-standard-p 'ams)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2913 '( |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2914 ("across" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2915 ("break" "" vhdl-template-break-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2916 ("limit" "" vhdl-template-limit-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2917 ("nature" "" vhdl-template-nature-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2918 ("noise" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2919 ("procedural" "" vhdl-template-procedural-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2920 ("quantity" "" vhdl-template-quantity-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2921 ("reference" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2922 ("spectrum" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2923 ("subnature" "" vhdl-template-subnature-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2924 ("terminal" "" vhdl-template-terminal-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2925 ("through" "" vhdl-template-default-hook 0 t) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2926 ("tolerance" "" vhdl-template-default-hook 0 t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2927 )) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2928 ;; user model keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2929 (when (memq 'user vhdl-electric-keywords) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2930 (let ((alist vhdl-model-alist) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2931 abbrev-list keyword) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2932 (while alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2933 (setq keyword (nth 3 (car alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2934 (unless (equal keyword "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2935 (setq abbrev-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2936 (cons (list keyword "" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2937 (vhdl-function-name |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
2938 "vhdl-model" (nth 0 (car alist)) "hook") 0 t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2939 abbrev-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2940 (setq alist (cdr alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2941 abbrev-list))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2942 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2943 ;; initialize abbrev table for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2944 (vhdl-mode-abbrev-table-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2945 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2946 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2947 ;; Template completion lists |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2948 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2949 (defvar vhdl-template-construct-alist nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2950 "List of built-in construct templates.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2951 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2952 (defun vhdl-template-construct-alist-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2953 "Initialize `vhdl-template-construct-alist'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2954 (setq |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2955 vhdl-template-construct-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2956 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2957 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2958 ("alias declaration" vhdl-template-alias) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2959 ("architecture body" vhdl-template-architecture) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2960 ("assertion" vhdl-template-assert) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2961 ("attribute declaration" vhdl-template-attribute-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2962 ("attribute specification" vhdl-template-attribute-spec) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2963 ("block configuration" vhdl-template-block-configuration) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2964 ("block statement" vhdl-template-block) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2965 ("case statement" vhdl-template-case-is) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2966 ("component configuration" vhdl-template-component-conf) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2967 ("component declaration" vhdl-template-component-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2968 ("component instantiation statement" vhdl-template-component-inst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2969 ("conditional signal assignment" vhdl-template-conditional-signal-asst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2970 ("configuration declaration" vhdl-template-configuration-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2971 ("configuration specification" vhdl-template-configuration-spec) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2972 ("constant declaration" vhdl-template-constant) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2973 ("disconnection specification" vhdl-template-disconnect) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2974 ("entity declaration" vhdl-template-entity) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2975 ("exit statement" vhdl-template-exit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2976 ("file declaration" vhdl-template-file) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2977 ("generate statement" vhdl-template-generate) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2978 ("generic clause" vhdl-template-generic) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2979 ("group declaration" vhdl-template-group-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2980 ("group template declaration" vhdl-template-group-template) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2981 ("if statement" vhdl-template-if-then) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2982 ("library clause" vhdl-template-library) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2983 ("loop statement" vhdl-template-loop) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2984 ("next statement" vhdl-template-next) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2985 ("package declaration" vhdl-template-package-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2986 ("package body" vhdl-template-package-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2987 ("port clause" vhdl-template-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2988 ("process statement" vhdl-template-process) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2989 ("report statement" vhdl-template-report) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2990 ("return statement" vhdl-template-return) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2991 ("selected signal assignment" vhdl-template-selected-signal-asst) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2992 ("signal declaration" vhdl-template-signal) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2993 ("subprogram declaration" vhdl-template-subprogram-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2994 ("subprogram body" vhdl-template-subprogram-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2995 ("subtype declaration" vhdl-template-subtype) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2996 ("type declaration" vhdl-template-type) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2997 ("use clause" vhdl-template-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2998 ("variable declaration" vhdl-template-variable) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
2999 ("wait statement" vhdl-template-wait) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3000 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3001 (when (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3002 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3003 ("break statement" vhdl-template-break) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3004 ("nature declaration" vhdl-template-nature) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3005 ("quantity declaration" vhdl-template-quantity) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3006 ("simultaneous case statement" vhdl-template-case-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3007 ("simultaneous if statement" vhdl-template-if-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3008 ("simultaneous procedural statement" vhdl-template-procedural) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3009 ("step limit specification" vhdl-template-limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3010 ("subnature declaration" vhdl-template-subnature) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3011 ("terminal declaration" vhdl-template-terminal) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3012 ))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3013 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3014 ;; initialize for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3015 (vhdl-template-construct-alist-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3016 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3017 (defvar vhdl-template-package-alist nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3018 "List of built-in package templates.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3019 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3020 (defun vhdl-template-package-alist-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3021 "Initialize `vhdl-template-package-alist'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3022 (setq |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3023 vhdl-template-package-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3024 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3025 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3026 ("numeric_bit" vhdl-template-package-numeric-bit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3027 ("numeric_std" vhdl-template-package-numeric-std) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3028 ("std_logic_1164" vhdl-template-package-std-logic-1164) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3029 ("std_logic_arith" vhdl-template-package-std-logic-arith) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3030 ("std_logic_misc" vhdl-template-package-std-logic-misc) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3031 ("std_logic_signed" vhdl-template-package-std-logic-signed) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3032 ("std_logic_textio" vhdl-template-package-std-logic-textio) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3033 ("std_logic_unsigned" vhdl-template-package-std-logic-unsigned) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3034 ("textio" vhdl-template-package-textio) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3035 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3036 (when (vhdl-standard-p 'math) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3037 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3038 ("math_complex" vhdl-template-package-math-complex) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3039 ("math_real" vhdl-template-package-math-real) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3040 ))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3041 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3042 ;; initialize for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3043 (vhdl-template-package-alist-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3044 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3045 (defvar vhdl-template-directive-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3046 '( |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3047 ("translate_on" vhdl-template-directive-translate-on) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3048 ("translate_off" vhdl-template-directive-translate-off) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3049 ("synthesis_on" vhdl-template-directive-synthesis-on) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3050 ("synthesis_off" vhdl-template-directive-synthesis-off) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3051 ) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3052 "List of built-in directive templates.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3053 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3054 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3055 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3056 ;;; Menues |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3057 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3058 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3059 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 3060 ;; VHDL menu (using `easy-menu.el') |
3061 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3062 (defun vhdl-customize () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3063 "Call the customize function with `vhdl' as argument." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3064 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3065 (customize-browse 'vhdl)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3066 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3067 (defun vhdl-create-mode-menu () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3068 "Create VHDL Mode menu." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3069 `("VHDL" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3070 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3071 '("Project" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3072 ["None" (vhdl-set-project "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3073 :style radio :selected (null vhdl-project)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3074 "--") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3075 ;; add menu entries for defined projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3076 (let ((project-alist vhdl-project-alist) menu-list name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3077 (while project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3078 (setq name (caar project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3079 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3080 (cons `[,name (vhdl-set-project ,name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3081 :style radio :selected (equal ,name vhdl-project)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3082 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3083 (setq project-alist (cdr project-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3084 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3085 (if vhdl-project-sort |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3086 (sort menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3087 (function (lambda (a b) (string< (elt a 0) (elt b 0))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3088 (nreverse menu-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3089 (vhdl-menu-split menu-list "Project")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3090 '("--" "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3091 ["Select Project..." vhdl-set-project t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3092 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3093 ["Duplicate Project" vhdl-duplicate-project vhdl-project] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3094 ["Import Project..." vhdl-import-project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3095 :keys "C-c C-p C-m" :active t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3096 ["Export Project" vhdl-export-project vhdl-project] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3097 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3098 ["Customize Project..." (customize-option 'vhdl-project-alist) t])) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3099 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3100 ("Compile" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3101 ["Compile Buffer" vhdl-compile t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3102 ["Stop Compilation" kill-compilation t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3103 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3104 ["Make" vhdl-make t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3105 ["Generate Makefile" vhdl-generate-makefile t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3106 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3107 ["Next Error" next-error t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3108 ["Previous Error" previous-error t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3109 ["First Error" first-error t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3110 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3111 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3112 '("Compiler") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3113 ;; add menu entries for defined compilers |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3114 (let ((comp-alist vhdl-compiler-alist) menu-list name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3115 (while comp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3116 (setq name (caar comp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3117 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3118 (cons `[,name (setq vhdl-compiler ,name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3119 :style radio :selected (equal ,name vhdl-compiler)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3120 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3121 (setq comp-alist (cdr comp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3122 (setq menu-list (nreverse menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3123 (vhdl-menu-split menu-list "Compiler")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3124 '("--" "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3125 ["Select Compiler..." vhdl-set-compiler t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3126 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3127 ["Customize Compiler..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3128 (customize-option 'vhdl-compiler-alist) t]))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3129 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3130 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3131 '("Template" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3132 ("VHDL Construct 1" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3133 ["Alias" vhdl-template-alias t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3134 ["Architecture" vhdl-template-architecture t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3135 ["Assert" vhdl-template-assert t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3136 ["Attribute (Decl)" vhdl-template-attribute-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3137 ["Attribute (Spec)" vhdl-template-attribute-spec t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3138 ["Block" vhdl-template-block t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3139 ["Case" vhdl-template-case-is t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3140 ["Component (Decl)" vhdl-template-component-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3141 ["(Component) Instance" vhdl-template-component-inst t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3142 ["Conditional (Signal Asst)" vhdl-template-conditional-signal-asst t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3143 ["Configuration (Block)" vhdl-template-block-configuration t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3144 ["Configuration (Comp)" vhdl-template-component-conf t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3145 ["Configuration (Decl)" vhdl-template-configuration-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3146 ["Configuration (Spec)" vhdl-template-configuration-spec t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3147 ["Constant" vhdl-template-constant t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3148 ["Disconnect" vhdl-template-disconnect t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3149 ["Else" vhdl-template-else t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3150 ["Elsif" vhdl-template-elsif t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3151 ["Entity" vhdl-template-entity t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3152 ["Exit" vhdl-template-exit t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3153 ["File" vhdl-template-file t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3154 ["For (Generate)" vhdl-template-for-generate t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3155 ["For (Loop)" vhdl-template-for-loop t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3156 ["Function (Body)" vhdl-template-function-body t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3157 ["Function (Decl)" vhdl-template-function-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3158 ["Generic" vhdl-template-generic t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3159 ["Group (Decl)" vhdl-template-group-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3160 ["Group (Template)" vhdl-template-group-template t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3161 ("VHDL Construct 2" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3162 ["If (Generate)" vhdl-template-if-generate t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3163 ["If (Then)" vhdl-template-if-then t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3164 ["Library" vhdl-template-library t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3165 ["Loop" vhdl-template-bare-loop t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3166 ["Map" vhdl-template-map t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3167 ["Next" vhdl-template-next t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3168 ["Others (Aggregate)" vhdl-template-others t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3169 ["Package (Decl)" vhdl-template-package-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3170 ["Package (Body)" vhdl-template-package-body t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3171 ["Port" vhdl-template-port t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3172 ["Procedure (Body)" vhdl-template-procedure-body t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3173 ["Procedure (Decl)" vhdl-template-procedure-decl t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3174 ["Process (Comb)" vhdl-template-process-comb t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3175 ["Process (Seq)" vhdl-template-process-seq t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3176 ["Report" vhdl-template-report t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3177 ["Return" vhdl-template-return t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3178 ["Select" vhdl-template-selected-signal-asst t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3179 ["Signal" vhdl-template-signal t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3180 ["Subtype" vhdl-template-subtype t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3181 ["Type" vhdl-template-type t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3182 ["Use" vhdl-template-use t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3183 ["Variable" vhdl-template-variable t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3184 ["Wait" vhdl-template-wait t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3185 ["(Clocked Wait)" vhdl-template-clocked-wait t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3186 ["When" vhdl-template-when t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3187 ["While (Loop)" vhdl-template-while-loop t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3188 ["With" vhdl-template-with t])) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3189 (when (vhdl-standard-p 'ams) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3190 '(("VHDL-AMS Construct" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3191 ["Break" vhdl-template-break t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3192 ["Case (Use)" vhdl-template-case-use t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3193 ["If (Use)" vhdl-template-if-use t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3194 ["Limit" vhdl-template-limit t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3195 ["Nature" vhdl-template-nature t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3196 ["Procedural" vhdl-template-procedural t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3197 ["Quantity (Free)" vhdl-template-quantity-free t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3198 ["Quantity (Branch)" vhdl-template-quantity-branch t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3199 ["Quantity (Source)" vhdl-template-quantity-source t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3200 ["Subnature" vhdl-template-subnature t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3201 ["Terminal" vhdl-template-terminal t]))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3202 '(["Insert Construct..." vhdl-template-insert-construct |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3203 :keys "C-c C-i C-t"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3204 "--") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3205 (list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3206 (append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3207 '("Package") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3208 (when (vhdl-standard-p 'math) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3209 '(["math_complex" vhdl-template-package-math-complex t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3210 ["math_real" vhdl-template-package-math-real t])) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3211 '(["numeric_bit" vhdl-template-package-numeric-bit t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3212 ["numeric_std" vhdl-template-package-numeric-std t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3213 ["std_logic_1164" vhdl-template-package-std-logic-1164 t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3214 ["textio" vhdl-template-package-textio t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3215 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3216 ["std_logic_arith" vhdl-template-package-std-logic-arith t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3217 ["std_logic_signed" vhdl-template-package-std-logic-signed t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3218 ["std_logic_unsigned" vhdl-template-package-std-logic-unsigned t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3219 ["std_logic_misc" vhdl-template-package-std-logic-misc t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3220 ["std_logic_textio" vhdl-template-package-std-logic-textio t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3221 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3222 ["Insert Package..." vhdl-template-insert-package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3223 :keys "C-c C-i C-p"]))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3224 '(("Directive" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3225 ["translate_on" vhdl-template-directive-translate-on t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3226 ["translate_off" vhdl-template-directive-translate-off t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3227 ["synthesis_on" vhdl-template-directive-synthesis-on t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3228 ["synthesis_off" vhdl-template-directive-synthesis-off t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3229 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3230 ["Insert Directive..." vhdl-template-insert-directive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3231 :keys "C-c C-i C-d"]) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3232 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3233 ["Insert Header" vhdl-template-header :keys "C-c C-t C-h"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3234 ["Insert Footer" vhdl-template-footer t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3235 ["Insert Date" vhdl-template-insert-date t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3236 ["Modify Date" vhdl-template-modify :keys "C-c C-t C-m"] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3237 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3238 ["Query Next Prompt" vhdl-template-search-prompt t])) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3239 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3240 '("Model") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3241 ;; add menu entries for defined models |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3242 (let ((model-alist vhdl-model-alist) menu-list model) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3243 (while model-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3244 (setq model (car model-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3245 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3246 (cons |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3247 (vector |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3248 (nth 0 model) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3249 (vhdl-function-name "vhdl-model" (nth 0 model)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3250 :keys (concat "C-c C-m " (key-description (nth 2 model)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3251 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3252 (setq model-alist (cdr model-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3253 (setq menu-list (nreverse menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3254 (vhdl-menu-split menu-list "Model")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3255 '("--" "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3256 ["Insert Model..." vhdl-model-insert :keys "C-c C-i C-m"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3257 ["Customize Model..." (customize-option 'vhdl-model-alist) t])) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3258 ("Port" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3259 ["Copy" vhdl-port-copy t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3260 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3261 ["Paste As Entity" vhdl-port-paste-entity vhdl-port-list] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3262 ["Paste As Component" vhdl-port-paste-component vhdl-port-list] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3263 ["Paste As Instance" vhdl-port-paste-instance |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3264 :keys "C-c C-p C-i" :active vhdl-port-list] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3265 ["Paste As Signals" vhdl-port-paste-signals vhdl-port-list] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3266 ["Paste As Constants" vhdl-port-paste-constants vhdl-port-list] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3267 ["Paste As Generic Map" vhdl-port-paste-generic-map vhdl-port-list] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3268 ["Paste As Initializations" vhdl-port-paste-initializations vhdl-port-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3269 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3270 ["Paste As Testbench" vhdl-port-paste-testbench vhdl-port-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3271 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3272 ["Flatten" vhdl-port-flatten |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3273 :style toggle :selected vhdl-port-flattened :active vhdl-port-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3274 ["Reverse Direction" vhdl-port-reverse-direction |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3275 :style toggle :selected vhdl-port-reversed-direction :active vhdl-port-list]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3276 ("Compose" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3277 ["New Component" vhdl-compose-new-component t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3278 ["Place Component" vhdl-compose-place-component vhdl-port-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3279 ["Wire Components" vhdl-compose-wire-components t] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3280 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3281 ["Generate Components Package" vhdl-compose-components-package t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3282 ("Subprogram" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3283 ["Copy" vhdl-subprog-copy t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3284 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3285 ["Paste As Declaration" vhdl-subprog-paste-declaration vhdl-subprog-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3286 ["Paste As Body" vhdl-subprog-paste-body vhdl-subprog-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3287 ["Paste As Call" vhdl-subprog-paste-call vhdl-subprog-list] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3288 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3289 ["Flatten" vhdl-subprog-flatten |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3290 :style toggle :selected vhdl-subprog-flattened :active vhdl-subprog-list]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3291 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3292 ("Comment" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3293 ["(Un)Comment Out Region" vhdl-comment-uncomment-region (mark)] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3294 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3295 ["Insert Inline Comment" vhdl-comment-append-inline t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3296 ["Insert Horizontal Line" vhdl-comment-display-line t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3297 ["Insert Display Comment" vhdl-comment-display t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3298 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3299 ["Fill Comment" fill-paragraph t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3300 ["Fill Comment Region" fill-region (mark)] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3301 ["Kill Comment Region" vhdl-comment-kill-region (mark)] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3302 ["Kill Inline Comment Region" vhdl-comment-kill-inline-region (mark)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3303 ("Line" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3304 ["Kill" vhdl-line-kill t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3305 ["Copy" vhdl-line-copy t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3306 ["Yank" vhdl-line-yank t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3307 ["Expand" vhdl-line-expand t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3308 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3309 ["Transpose Next" vhdl-line-transpose-next t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3310 ["Transpose Prev" vhdl-line-transpose-previous t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3311 ["Open" vhdl-line-open t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3312 ["Join" vhdl-delete-indentation t] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3313 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3314 ["Goto" goto-line t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3315 ["(Un)Comment Out" vhdl-comment-uncomment-line t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3316 ("Move" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3317 ["Forward Statement" vhdl-end-of-statement t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3318 ["Backward Statement" vhdl-beginning-of-statement t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3319 ["Forward Expression" vhdl-forward-sexp t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3320 ["Backward Expression" vhdl-backward-sexp t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3321 ["Forward Same Indent" vhdl-forward-same-indent t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3322 ["Backward Same Indent" vhdl-backward-same-indent t] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3323 ["Forward Function" vhdl-end-of-defun t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3324 ["Backward Function" vhdl-beginning-of-defun t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3325 ["Mark Function" vhdl-mark-defun t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3326 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3327 ("Indent" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3328 ["Line" indent-according-to-mode :keys "C-c C-i C-l"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3329 ["Group" vhdl-indent-group :keys "C-c C-i C-g"] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3330 ["Region" vhdl-indent-region (mark)] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3331 ["Buffer" vhdl-indent-buffer :keys "C-c C-i C-b"]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3332 ("Align" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3333 ["Group" vhdl-align-group t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3334 ["Same Indent" vhdl-align-same-indent :keys "C-c C-a C-i"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3335 ["List" vhdl-align-list t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3336 ["Declarations" vhdl-align-declarations t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3337 ["Region" vhdl-align-region (mark)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3338 ["Buffer" vhdl-align-buffer t] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3339 "--" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3340 ["Inline Comment Group" vhdl-align-inline-comment-group t] |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3341 ["Inline Comment Region" vhdl-align-inline-comment-region (mark)] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3342 ["Inline Comment Buffer" vhdl-align-inline-comment-buffer t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3343 ("Fill" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3344 ["List" vhdl-fill-list t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3345 ["Group" vhdl-fill-group t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3346 ["Same Indent" vhdl-fill-same-indent :keys "C-c C-f C-i"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3347 ["Region" vhdl-fill-region (mark)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3348 ("Beautify" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3349 ["Region" vhdl-beautify-region (mark)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3350 ["Buffer" vhdl-beautify-buffer t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3351 ("Fix" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3352 ["Generic/Port Clause" vhdl-fix-clause t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3353 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3354 ["Case Region" vhdl-fix-case-region (mark)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3355 ["Case Buffer" vhdl-fix-case-buffer t] |
20665 | 3356 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3357 ["Whitespace Region" vhdl-fixup-whitespace-region (mark)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3358 ["Whitespace Buffer" vhdl-fixup-whitespace-buffer t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3359 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3360 ["Trailing Spaces Buffer" vhdl-remove-trailing-spaces t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3361 ("Update" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3362 ["Sensitivity List" vhdl-update-sensitivity-list-process t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3363 ["Sensitivity List Buffer" vhdl-update-sensitivity-list-buffer t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3364 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3365 ["Fontify Buffer" vhdl-fontify-buffer t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3366 ["Statistics Buffer" vhdl-statistics-buffer t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3367 ["Show Messages" vhdl-show-messages t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3368 ["Syntactic Info" vhdl-show-syntactic-information t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3369 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3370 ["Speedbar" vhdl-speedbar t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3371 ["Hide/Show" vhdl-hs-minor-mode t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3372 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3373 ("Documentation" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3374 ["VHDL Mode" vhdl-doc-mode :keys "C-c C-h"] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3375 ["Release Notes" (vhdl-doc-variable 'vhdl-doc-release-notes) t] |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3376 ["Reserved Words" (vhdl-doc-variable 'vhdl-doc-keywords) t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3377 ["Coding Style" (vhdl-doc-variable 'vhdl-doc-coding-style) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3378 ["Version" vhdl-version t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3379 ["Bug Report..." vhdl-submit-bug-report t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3380 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3381 ("Options" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3382 ("Mode" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3383 ["Electric Mode" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3384 (progn (customize-set-variable 'vhdl-electric-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3385 (not vhdl-electric-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3386 (vhdl-mode-line-update)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3387 :style toggle :selected vhdl-electric-mode :keys "C-c C-m C-e"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3388 ["Stutter Mode" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3389 (progn (customize-set-variable 'vhdl-stutter-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3390 (not vhdl-stutter-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3391 (vhdl-mode-line-update)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3392 :style toggle :selected vhdl-stutter-mode :keys "C-c C-m C-s"] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3393 ["Indent Tabs Mode" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3394 (progn (customize-set-variable 'vhdl-indent-tabs-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3395 (not vhdl-indent-tabs-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3396 (setq indent-tabs-mode vhdl-indent-tabs-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3397 :style toggle :selected vhdl-indent-tabs-mode] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3398 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3399 ["Customize Group..." (customize-group 'vhdl-mode) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3400 ("Project" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3401 ["Project Setup..." (customize-option 'vhdl-project-alist) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3402 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3403 '("Selected Project at Startup" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3404 ["None" (progn (customize-set-variable 'vhdl-project nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3405 (vhdl-set-project "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3406 :style radio :selected (null vhdl-project)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3407 "--") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3408 ;; add menu entries for defined projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3409 (let ((project-alist vhdl-project-alist) menu-list name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3410 (while project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3411 (setq name (caar project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3412 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3413 (cons `[,name (progn (customize-set-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3414 'vhdl-project ,name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3415 (vhdl-set-project ,name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3416 :style radio :selected (equal ,name vhdl-project)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3417 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3418 (setq project-alist (cdr project-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3419 (setq menu-list (nreverse menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3420 (vhdl-menu-split menu-list "Project"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3421 ["Setup File Name..." (customize-option 'vhdl-project-file-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3422 ("Auto Load Setup File" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3423 ["At Startup" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3424 (customize-set-variable 'vhdl-project-auto-load |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3425 (if (memq 'startup vhdl-project-auto-load) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3426 (delq 'startup vhdl-project-auto-load) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3427 (cons 'startup vhdl-project-auto-load))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3428 :style toggle :selected (memq 'startup vhdl-project-auto-load)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3429 ["Sort Projects" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3430 (customize-set-variable 'vhdl-project-sort (not vhdl-project-sort)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3431 :style toggle :selected vhdl-project-sort] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3432 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3433 ["Customize Group..." (customize-group 'vhdl-project) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3434 ("Compiler" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3435 ["Compiler Setup..." (customize-option 'vhdl-compiler-alist) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3436 ,(append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3437 '("Selected Compiler at Startup") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3438 ;; add menu entries for defined compilers |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3439 (let ((comp-alist vhdl-compiler-alist) menu-list name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3440 (while comp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3441 (setq name (caar comp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3442 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3443 (cons `[,name (customize-set-variable 'vhdl-compiler ,name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3444 :style radio :selected (equal ,name vhdl-compiler)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3445 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3446 (setq comp-alist (cdr comp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3447 (setq menu-list (nreverse menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3448 (vhdl-menu-split menu-list "Compler"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3449 ["Use Local Error Regexp" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3450 (customize-set-variable 'vhdl-compile-use-local-error-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3451 (not vhdl-compile-use-local-error-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3452 :style toggle :selected vhdl-compile-use-local-error-regexp] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3453 ["Makefile Generation Hook..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3454 (customize-option 'vhdl-makefile-generation-hook) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3455 ["Default Library Name" (customize-option 'vhdl-default-library) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3456 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3457 ["Customize Group..." (customize-group 'vhdl-compiler) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3458 ("Style" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3459 ("VHDL Standard" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3460 ["VHDL'87" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3461 (progn (customize-set-variable 'vhdl-standard |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3462 (list '87 (cadr vhdl-standard))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3463 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3464 :style radio :selected (eq '87 (car vhdl-standard))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3465 ["VHDL'93" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3466 (progn (customize-set-variable 'vhdl-standard |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3467 (list '93 (cadr vhdl-standard))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3468 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3469 :style radio :selected (eq '93 (car vhdl-standard))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3470 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3471 ["VHDL-AMS" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3472 (progn (customize-set-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3473 'vhdl-standard (list (car vhdl-standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3474 (if (memq 'ams (cadr vhdl-standard)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3475 (delq 'ams (cadr vhdl-standard)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3476 (cons 'ams (cadr vhdl-standard))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3477 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3478 :style toggle :selected (memq 'ams (cadr vhdl-standard))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3479 ["Math Packages" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3480 (progn (customize-set-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3481 'vhdl-standard (list (car vhdl-standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3482 (if (memq 'math (cadr vhdl-standard)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3483 (delq 'math (cadr vhdl-standard)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3484 (cons 'math (cadr vhdl-standard))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3485 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3486 :style toggle :selected (memq 'math (cadr vhdl-standard))]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3487 ["Indentation Offset..." (customize-option 'vhdl-basic-offset) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3488 ["Upper Case Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3489 (customize-set-variable 'vhdl-upper-case-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3490 (not vhdl-upper-case-keywords)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3491 :style toggle :selected vhdl-upper-case-keywords] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3492 ["Upper Case Types" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3493 (customize-set-variable 'vhdl-upper-case-types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3494 (not vhdl-upper-case-types)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3495 :style toggle :selected vhdl-upper-case-types] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3496 ["Upper Case Attributes" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3497 (customize-set-variable 'vhdl-upper-case-attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3498 (not vhdl-upper-case-attributes)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3499 :style toggle :selected vhdl-upper-case-attributes] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3500 ["Upper Case Enumeration Values" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3501 (customize-set-variable 'vhdl-upper-case-enum-values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3502 (not vhdl-upper-case-enum-values)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3503 :style toggle :selected vhdl-upper-case-enum-values] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3504 ["Upper Case Constants" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3505 (customize-set-variable 'vhdl-upper-case-constants |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3506 (not vhdl-upper-case-constants)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3507 :style toggle :selected vhdl-upper-case-constants] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3508 ("Use Direct Instantiation" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3509 ["Never" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3510 (customize-set-variable 'vhdl-use-direct-instantiation 'never) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3511 :style radio :selected (eq 'never vhdl-use-direct-instantiation)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3512 ["Standard" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3513 (customize-set-variable 'vhdl-use-direct-instantiation 'standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3514 :style radio :selected (eq 'standard vhdl-use-direct-instantiation)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3515 ["Always" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3516 (customize-set-variable 'vhdl-use-direct-instantiation 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3517 :style radio :selected (eq 'always vhdl-use-direct-instantiation)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3518 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3519 ["Customize Group..." (customize-group 'vhdl-style) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3520 ("Naming" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3521 ["Entity File Name..." (customize-option 'vhdl-entity-file-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3522 ["Architecture File Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3523 (customize-option 'vhdl-architecture-file-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3524 ["Package File Name..." (customize-option 'vhdl-package-file-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3525 ("File Name Case" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3526 ["As Is" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3527 (customize-set-variable 'vhdl-file-name-case 'identity) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3528 :style radio :selected (eq 'identity vhdl-file-name-case)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3529 ["Lower Case" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3530 (customize-set-variable 'vhdl-file-name-case 'downcase) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3531 :style radio :selected (eq 'downcase vhdl-file-name-case)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3532 ["Upper Case" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3533 (customize-set-variable 'vhdl-file-name-case 'upcase) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3534 :style radio :selected (eq 'upcase vhdl-file-name-case)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3535 ["Capitalize" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3536 (customize-set-variable 'vhdl-file-name-case 'capitalize) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3537 :style radio :selected (eq 'capitalize vhdl-file-name-case)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3538 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3539 ["Customize Group..." (customize-group 'vhdl-naming) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3540 ("Template" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3541 ("Electric Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3542 ["VHDL Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3543 (customize-set-variable 'vhdl-electric-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3544 (if (memq 'vhdl vhdl-electric-keywords) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3545 (delq 'vhdl vhdl-electric-keywords) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3546 (cons 'vhdl vhdl-electric-keywords))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3547 :style toggle :selected (memq 'vhdl vhdl-electric-keywords)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3548 ["User Model Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3549 (customize-set-variable 'vhdl-electric-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3550 (if (memq 'user vhdl-electric-keywords) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3551 (delq 'user vhdl-electric-keywords) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3552 (cons 'user vhdl-electric-keywords))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3553 :style toggle :selected (memq 'user vhdl-electric-keywords)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3554 ("Insert Optional Labels" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3555 ["None" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3556 (customize-set-variable 'vhdl-optional-labels 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3557 :style radio :selected (eq 'none vhdl-optional-labels)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3558 ["Processes Only" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3559 (customize-set-variable 'vhdl-optional-labels 'process) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3560 :style radio :selected (eq 'process vhdl-optional-labels)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3561 ["All Constructs" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3562 (customize-set-variable 'vhdl-optional-labels 'all) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3563 :style radio :selected (eq 'all vhdl-optional-labels)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3564 ("Insert Empty Lines" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3565 ["None" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3566 (customize-set-variable 'vhdl-insert-empty-lines 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3567 :style radio :selected (eq 'none vhdl-insert-empty-lines)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3568 ["Design Units Only" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3569 (customize-set-variable 'vhdl-insert-empty-lines 'unit) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3570 :style radio :selected (eq 'unit vhdl-insert-empty-lines)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3571 ["All Constructs" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3572 (customize-set-variable 'vhdl-insert-empty-lines 'all) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3573 :style radio :selected (eq 'all vhdl-insert-empty-lines)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3574 ["Argument List Indent" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3575 (customize-set-variable 'vhdl-argument-list-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3576 (not vhdl-argument-list-indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3577 :style toggle :selected vhdl-argument-list-indent] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3578 ["Association List with Formals" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3579 (customize-set-variable 'vhdl-association-list-with-formals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3580 (not vhdl-association-list-with-formals)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3581 :style toggle :selected vhdl-association-list-with-formals] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3582 ["Conditions in Parenthesis" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3583 (customize-set-variable 'vhdl-conditions-in-parenthesis |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3584 (not vhdl-conditions-in-parenthesis)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3585 :style toggle :selected vhdl-conditions-in-parenthesis] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3586 ["Zero String..." (customize-option 'vhdl-zero-string) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3587 ["One String..." (customize-option 'vhdl-one-string) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3588 ("File Header" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3589 ["Header String..." (customize-option 'vhdl-file-header) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3590 ["Footer String..." (customize-option 'vhdl-file-footer) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3591 ["Company Name..." (customize-option 'vhdl-company-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3592 ["Copyright String..." (customize-option 'vhdl-copyright-string) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3593 ["Platform Specification..." (customize-option 'vhdl-platform-spec) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3594 ["Date Format..." (customize-option 'vhdl-date-format) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3595 ["Modify Date Prefix String..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3596 (customize-option 'vhdl-modify-date-prefix-string) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3597 ["Modify Date on Saving" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3598 (progn (customize-set-variable 'vhdl-modify-date-on-saving |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3599 (not vhdl-modify-date-on-saving)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3600 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3601 :style toggle :selected vhdl-modify-date-on-saving]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3602 ("Sequential Process" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3603 ("Kind of Reset" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3604 ["None" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3605 (customize-set-variable 'vhdl-reset-kind 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3606 :style radio :selected (eq 'none vhdl-reset-kind)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3607 ["Synchronous" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3608 (customize-set-variable 'vhdl-reset-kind 'sync) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3609 :style radio :selected (eq 'sync vhdl-reset-kind)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3610 ["Asynchronous" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3611 (customize-set-variable 'vhdl-reset-kind 'async) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3612 :style radio :selected (eq 'async vhdl-reset-kind)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3613 ["Reset is Active High" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3614 (customize-set-variable 'vhdl-reset-active-high |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3615 (not vhdl-reset-active-high)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3616 :style toggle :selected vhdl-reset-active-high] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3617 ["Use Rising Clock Edge" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3618 (customize-set-variable 'vhdl-clock-rising-edge |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3619 (not vhdl-clock-rising-edge)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3620 :style toggle :selected vhdl-clock-rising-edge] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3621 ("Clock Edge Condition" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3622 ["Standard" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3623 (customize-set-variable 'vhdl-clock-edge-condition 'standard) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3624 :style radio :selected (eq 'standard vhdl-clock-edge-condition)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3625 ["Function \"rising_edge\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3626 (customize-set-variable 'vhdl-clock-edge-condition 'function) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3627 :style radio :selected (eq 'function vhdl-clock-edge-condition)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3628 ["Clock Name..." (customize-option 'vhdl-clock-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3629 ["Reset Name..." (customize-option 'vhdl-reset-name) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3630 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3631 ["Customize Group..." (customize-group 'vhdl-template) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3632 ("Model" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3633 ["Model Definition..." (customize-option 'vhdl-model-alist) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3634 ("Port" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3635 ["Include Port Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3636 (customize-set-variable 'vhdl-include-port-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3637 (not vhdl-include-port-comments)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3638 :style toggle :selected vhdl-include-port-comments] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3639 ["Include Direction Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3640 (customize-set-variable 'vhdl-include-direction-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3641 (not vhdl-include-direction-comments)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3642 :style toggle :selected vhdl-include-direction-comments] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3643 ["Include Type Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3644 (customize-set-variable 'vhdl-include-type-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3645 (not vhdl-include-type-comments)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3646 :style toggle :selected vhdl-include-type-comments] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3647 ("Include Group Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3648 ["Never" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3649 (customize-set-variable 'vhdl-include-group-comments 'never) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3650 :style radio :selected (eq 'never vhdl-include-group-comments)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3651 ["Declarations" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3652 (customize-set-variable 'vhdl-include-group-comments 'decl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3653 :style radio :selected (eq 'decl vhdl-include-group-comments)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3654 ["Always" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3655 (customize-set-variable 'vhdl-include-group-comments 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3656 :style radio :selected (eq 'always vhdl-include-group-comments)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3657 ["Actual Port Name..." (customize-option 'vhdl-actual-port-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3658 ["Instance Name..." (customize-option 'vhdl-instance-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3659 ("Testbench" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3660 ["Entity Name..." (customize-option 'vhdl-testbench-entity-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3661 ["Architecture Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3662 (customize-option 'vhdl-testbench-architecture-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3663 ["Configuration Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3664 (customize-option 'vhdl-testbench-configuration-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3665 ["DUT Name..." (customize-option 'vhdl-testbench-dut-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3666 ["Include Header" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3667 (customize-set-variable 'vhdl-testbench-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3668 (not vhdl-testbench-include-header)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3669 :style toggle :selected vhdl-testbench-include-header] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3670 ["Declarations..." (customize-option 'vhdl-testbench-declarations) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3671 ["Statements..." (customize-option 'vhdl-testbench-statements) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3672 ["Initialize Signals" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3673 (customize-set-variable 'vhdl-testbench-initialize-signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3674 (not vhdl-testbench-initialize-signals)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3675 :style toggle :selected vhdl-testbench-initialize-signals] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3676 ["Include Library Clause" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3677 (customize-set-variable 'vhdl-testbench-include-library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3678 (not vhdl-testbench-include-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3679 :style toggle :selected vhdl-testbench-include-library] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3680 ["Include Configuration" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3681 (customize-set-variable 'vhdl-testbench-include-configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3682 (not vhdl-testbench-include-configuration)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3683 :style toggle :selected vhdl-testbench-include-configuration] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3684 ("Create Files" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3685 ["None" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3686 (customize-set-variable 'vhdl-testbench-create-files 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3687 :style radio :selected (eq 'none vhdl-testbench-create-files)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3688 ["Single" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3689 (customize-set-variable 'vhdl-testbench-create-files 'single) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3690 :style radio :selected (eq 'single vhdl-testbench-create-files)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3691 ["Separate" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3692 (customize-set-variable 'vhdl-testbench-create-files 'separate) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3693 :style radio :selected (eq 'separate vhdl-testbench-create-files)])) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3694 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3695 ["Customize Group..." (customize-group 'vhdl-port) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3696 ("Compose" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3697 ("Create Files" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3698 ["None" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3699 (customize-set-variable 'vhdl-compose-create-files 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3700 :style radio :selected (eq 'none vhdl-compose-create-files)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3701 ["Single" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3702 (customize-set-variable 'vhdl-compose-create-files 'single) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3703 :style radio :selected (eq 'single vhdl-compose-create-files)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3704 ["Separate" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3705 (customize-set-variable 'vhdl-compose-create-files 'separate) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3706 :style radio :selected (eq 'separate vhdl-compose-create-files)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3707 ["Include Header" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3708 (customize-set-variable 'vhdl-compose-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3709 (not vhdl-compose-include-header)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3710 :style toggle :selected vhdl-compose-include-header] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3711 ["Architecture Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3712 (customize-option 'vhdl-compose-architecture-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3713 ["Components Package Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3714 (customize-option 'vhdl-components-package-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3715 ["Use Components Package" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3716 (customize-set-variable 'vhdl-use-components-package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3717 (not vhdl-use-components-package)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3718 :style toggle :selected vhdl-use-components-package] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3719 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3720 ["Customize Group..." (customize-group 'vhdl-compose) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3721 ("Comment" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3722 ["Self Insert Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3723 (customize-set-variable 'vhdl-self-insert-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3724 (not vhdl-self-insert-comments)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3725 :style toggle :selected vhdl-self-insert-comments] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3726 ["Prompt for Comments" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3727 (customize-set-variable 'vhdl-prompt-for-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3728 (not vhdl-prompt-for-comments)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3729 :style toggle :selected vhdl-prompt-for-comments] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3730 ["Inline Comment Column..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3731 (customize-option 'vhdl-inline-comment-column) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3732 ["End Comment Column..." (customize-option 'vhdl-end-comment-column) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3733 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3734 ["Customize Group..." (customize-group 'vhdl-comment) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3735 ("Align" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3736 ["Auto Align Templates" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3737 (customize-set-variable 'vhdl-auto-align (not vhdl-auto-align)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3738 :style toggle :selected vhdl-auto-align] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3739 ["Align Line Groups" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3740 (customize-set-variable 'vhdl-align-groups (not vhdl-align-groups)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3741 :style toggle :selected vhdl-align-groups] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3742 ["Group Separation String..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3743 (customize-set-variable 'vhdl-align-group-separate) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3744 ["Align Lines with Same Indent" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3745 (customize-set-variable 'vhdl-align-same-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3746 (not vhdl-align-same-indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3747 :style toggle :selected vhdl-align-same-indent] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3748 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3749 ["Customize Group..." (customize-group 'vhdl-align) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3750 ("Highlight" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3751 ["Highlighting On/Off..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3752 (customize-option |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
3753 (if (fboundp 'global-font-lock-mode) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
3754 'global-font-lock-mode 'font-lock-auto-fontify)) t] |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3755 ["Highlight Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3756 (progn (customize-set-variable 'vhdl-highlight-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3757 (not vhdl-highlight-keywords)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3758 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3759 :style toggle :selected vhdl-highlight-keywords] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3760 ["Highlight Names" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3761 (progn (customize-set-variable 'vhdl-highlight-names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3762 (not vhdl-highlight-names)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3763 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3764 :style toggle :selected vhdl-highlight-names] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3765 ["Highlight Special Words" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3766 (progn (customize-set-variable 'vhdl-highlight-special-words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3767 (not vhdl-highlight-special-words)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3768 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3769 :style toggle :selected vhdl-highlight-special-words] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3770 ["Highlight Forbidden Words" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3771 (progn (customize-set-variable 'vhdl-highlight-forbidden-words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3772 (not vhdl-highlight-forbidden-words)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3773 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3774 :style toggle :selected vhdl-highlight-forbidden-words] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3775 ["Highlight Verilog Keywords" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3776 (progn (customize-set-variable 'vhdl-highlight-verilog-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3777 (not vhdl-highlight-verilog-keywords)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3778 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3779 :style toggle :selected vhdl-highlight-verilog-keywords] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3780 ["Highlight \"translate_off\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3781 (progn (customize-set-variable 'vhdl-highlight-translate-off |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3782 (not vhdl-highlight-translate-off)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3783 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3784 :style toggle :selected vhdl-highlight-translate-off] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3785 ["Case Sensitive Highlighting" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3786 (progn (customize-set-variable 'vhdl-highlight-case-sensitive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3787 (not vhdl-highlight-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3788 (vhdl-fontify-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3789 :style toggle :selected vhdl-highlight-case-sensitive] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3790 ["Special Syntax Definition..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3791 (customize-option 'vhdl-special-syntax-alist) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3792 ["Forbidden Words..." (customize-option 'vhdl-forbidden-words) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3793 ["Forbidden Syntax..." (customize-option 'vhdl-forbidden-syntax) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3794 ["Directive Keywords..." (customize-option 'vhdl-directive-keywords) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3795 ["Colors..." (customize-group 'vhdl-highlight-faces) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3796 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3797 ["Customize Group..." (customize-group 'vhdl-highlight) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3798 ("Speedbar" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3799 ["Auto Open at Startup" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3800 (customize-set-variable 'vhdl-speedbar-auto-open |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3801 (not vhdl-speedbar-auto-open)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3802 :style toggle :selected vhdl-speedbar-auto-open] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3803 ("Default Displaying Mode" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3804 ["Files" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3805 (customize-set-variable 'vhdl-speedbar-display-mode 'files) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3806 :style radio :selected (eq 'files vhdl-speedbar-display-mode)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3807 ["Directory Hierarchy" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3808 (customize-set-variable 'vhdl-speedbar-display-mode 'directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3809 :style radio :selected (eq 'directory vhdl-speedbar-display-mode)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3810 ["Project Hierarchy" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3811 (customize-set-variable 'vhdl-speedbar-display-mode 'project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3812 :style radio :selected (eq 'project vhdl-speedbar-display-mode)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3813 ["Indentation Offset..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3814 (customize-option 'speedbar-indentation-width) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3815 ["Scan Size Limits..." (customize-option 'vhdl-speedbar-scan-limit) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3816 ["Jump to Unit when Opening" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3817 (customize-set-variable 'vhdl-speedbar-jump-to-unit |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3818 (not vhdl-speedbar-jump-to-unit)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3819 :style toggle :selected vhdl-speedbar-jump-to-unit] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3820 ["Update Hierarchy on File Saving" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3821 (customize-set-variable 'vhdl-speedbar-update-on-saving |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3822 (not vhdl-speedbar-update-on-saving)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3823 :style toggle :selected vhdl-speedbar-update-on-saving] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3824 ("Save in Cache File" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3825 ["Hierarchy Information" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3826 (customize-set-variable 'vhdl-speedbar-save-cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3827 (if (memq 'hierarchy vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3828 (delq 'hierarchy vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3829 (cons 'hierarchy vhdl-speedbar-save-cache))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3830 :style toggle :selected (memq 'hierarchy vhdl-speedbar-save-cache)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3831 ["Displaying Status" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3832 (customize-set-variable 'vhdl-speedbar-save-cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3833 (if (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3834 (delq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3835 (cons 'display vhdl-speedbar-save-cache))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3836 :style toggle :selected (memq 'display vhdl-speedbar-save-cache)]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3837 ["Cache File Name..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3838 (customize-option 'vhdl-speedbar-cache-file-name) t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3839 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3840 ["Customize Group..." (customize-group 'vhdl-speedbar) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3841 ("Menu" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3842 ["Add Index Menu when Loading File" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3843 (progn (customize-set-variable 'vhdl-index-menu (not vhdl-index-menu)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3844 (vhdl-index-menu-init)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3845 :style toggle :selected vhdl-index-menu] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3846 ["Add Source File Menu when Loading File" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3847 (progn (customize-set-variable 'vhdl-source-file-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3848 (not vhdl-source-file-menu)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3849 (vhdl-add-source-files-menu)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3850 :style toggle :selected vhdl-source-file-menu] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3851 ["Add Hideshow Menu at Startup" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3852 (progn (customize-set-variable 'vhdl-hideshow-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3853 (not vhdl-hideshow-menu)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3854 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3855 :style toggle :selected vhdl-hideshow-menu] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3856 ["Hide Everything Initially" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3857 (customize-set-variable 'vhdl-hide-all-init (not vhdl-hide-all-init)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3858 :style toggle :selected vhdl-hide-all-init] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3859 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3860 ["Customize Group..." (customize-group 'vhdl-menu) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3861 ("Print" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3862 ["In Two Column Format" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3863 (progn (customize-set-variable 'vhdl-print-two-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3864 (not vhdl-print-two-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3865 (message "Activate new setting by saving options and restarting Emacs")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3866 :style toggle :selected vhdl-print-two-column] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3867 ["Use Customized Faces" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3868 (progn (customize-set-variable 'vhdl-print-customize-faces |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3869 (not vhdl-print-customize-faces)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3870 (message "Activate new setting by saving options and restarting Emacs")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3871 :style toggle :selected vhdl-print-customize-faces] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3872 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3873 ["Customize Group..." (customize-group 'vhdl-print) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3874 ("Miscellaneous" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3875 ["Use Intelligent Tab" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3876 (progn (customize-set-variable 'vhdl-intelligent-tab |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3877 (not vhdl-intelligent-tab)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3878 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3879 :style toggle :selected vhdl-intelligent-tab] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3880 ["Indent Syntax-Based" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3881 (customize-set-variable 'vhdl-indent-syntax-based |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3882 (not vhdl-indent-syntax-based)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3883 :style toggle :selected vhdl-indent-syntax-based] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3884 ["Word Completion is Case Sensitive" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3885 (customize-set-variable 'vhdl-word-completion-case-sensitive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3886 (not vhdl-word-completion-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3887 :style toggle :selected vhdl-word-completion-case-sensitive] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3888 ["Word Completion in Minibuffer" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3889 (progn (customize-set-variable 'vhdl-word-completion-in-minibuffer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3890 (not vhdl-word-completion-in-minibuffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3891 (message "Activate new setting by saving options and restarting Emacs")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3892 :style toggle :selected vhdl-word-completion-in-minibuffer] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3893 ["Underscore is Part of Word" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3894 (progn (customize-set-variable 'vhdl-underscore-is-part-of-word |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3895 (not vhdl-underscore-is-part-of-word)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3896 (vhdl-activate-customizations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3897 :style toggle :selected vhdl-underscore-is-part-of-word] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3898 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3899 ["Customize Group..." (customize-group 'vhdl-misc) t]) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3900 ["Related..." (customize-browse 'vhdl-related) t] |
20665 | 3901 "--" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3902 ["Save Options" customize-save-customized t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3903 ["Activate Options" vhdl-activate-customizations t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3904 ["Browse Options..." vhdl-customize t]))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3905 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3906 (defvar vhdl-mode-menu-list (vhdl-create-mode-menu) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3907 "VHDL Mode menu.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3908 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3909 (defun vhdl-update-mode-menu () |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3910 "Update VHDL Mode menu." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3911 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3912 (easy-menu-remove vhdl-mode-menu-list) ; for XEmacs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3913 (setq vhdl-mode-menu-list (vhdl-create-mode-menu)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3914 (easy-menu-add vhdl-mode-menu-list) ; for XEmacs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3915 (easy-menu-define vhdl-mode-menu vhdl-mode-map |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3916 "Menu keymap for VHDL Mode." vhdl-mode-menu-list)) |
20665 | 3917 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3918 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3919 ;; Index menu (using `imenu.el'), also used for speedbar (using `speedbar.el') |
20665 | 3920 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3921 (defconst vhdl-imenu-generic-expression |
20665 | 3922 '( |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3923 ("Subprogram" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3924 "^\\s-*\\(\\(\\(impure\\|pure\\)\\s-+\\|\\)function\\|procedure\\)\\s-+\\(\"?\\(\\w\\|\\s_\\)+\"?\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3925 4) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3926 ("Instance" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3927 "^\\s-*\\(\\(\\w\\|\\s_\\)+\\s-*:\\(\\s-\\|\n\\)*\\(\\w\\|\\s_\\)+\\)\\(\\s-\\|\n\\)+\\(generic\\|port\\)\\s-+map\\>" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3928 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3929 ("Component" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3930 "^\\s-*\\(component\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3931 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3932 ("Procedural" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3933 "^\\s-*\\(\\(\\w\\|\\s_\\)+\\)\\s-*:\\(\\s-\\|\n\\)*\\(procedural\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3934 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3935 ("Process" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3936 "^\\s-*\\(\\(\\w\\|\\s_\\)+\\)\\s-*:\\(\\s-\\|\n\\)*\\(\\(postponed\\s-+\\|\\)process\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3937 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3938 ("Block" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3939 "^\\s-*\\(\\(\\w\\|\\s_\\)+\\)\\s-*:\\(\\s-\\|\n\\)*\\(block\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3940 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3941 ("Package" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3942 "^\\s-*\\(package\\( body\\|\\)\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3943 3) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3944 ("Configuration" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3945 "^\\s-*\\(configuration\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\s-+of\\s-+\\(\\w\\|\\s_\\)+\\)" |
20665 | 3946 2) |
3947 ("Architecture" | |
3948 "^\\s-*\\(architecture\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\s-+of\\s-+\\(\\w\\|\\s_\\)+\\)" | |
3949 2) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3950 ("Entity" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3951 "^\\s-*\\(entity\\)\\s-+\\(\\(\\w\\|\\s_\\)+\\)" |
20665 | 3952 2) |
3953 ) | |
3954 "Imenu generic expression for VHDL Mode. See `imenu-generic-expression'.") | |
3955 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3956 (defun vhdl-index-menu-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3957 "Initialize index menu." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3958 (set (make-local-variable 'imenu-case-fold-search) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3959 (set (make-local-variable 'imenu-generic-expression) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3960 vhdl-imenu-generic-expression) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3961 (when (and vhdl-index-menu (fboundp 'imenu)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3962 (if (or (not (boundp 'font-lock-maximum-size)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3963 (> font-lock-maximum-size (buffer-size))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3964 (imenu-add-to-menubar "Index") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3965 (message "Scanning buffer for index...buffer too big")))) |
20665 | 3966 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3967 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 3968 ;; Source file menu (using `easy-menu.el') |
3969 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3970 (defvar vhdl-sources-menu nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3971 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3972 (defun vhdl-directory-files (directory &optional full match) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3973 "Call `directory-files' if DIRECTORY exists, otherwise generate error |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3974 message." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3975 (if (not (file-directory-p directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3976 (vhdl-warning-when-idle "No such directory: \"%s\"" directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3977 (let ((dir (directory-files directory full match))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3978 (setq dir (delete "." dir)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3979 (setq dir (delete ".." dir)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3980 dir))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3981 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3982 (defun vhdl-get-source-files (&optional full directory) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3983 "Get list of VHDL source files in DIRECTORY or current directory." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3984 (let ((mode-alist auto-mode-alist) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3985 filename-regexp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3986 ;; create regular expressions for matching file names |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3987 (setq filename-regexp "\\`[^.].*\\(") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3988 (while mode-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3989 (when (eq (cdar mode-alist) 'vhdl-mode) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3990 (setq filename-regexp |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3991 (concat filename-regexp (caar mode-alist) "\\|"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3992 (setq mode-alist (cdr mode-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3993 (setq filename-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3994 (concat (substring filename-regexp 0 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3995 (string-match "\\\\|$" filename-regexp)) "\\)")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
3996 ;; find files |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3997 (vhdl-directory-files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
3998 (or directory default-directory) full filename-regexp))) |
20665 | 3999 |
4000 (defun vhdl-add-source-files-menu () | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4001 "Scan directory for all VHDL source files and generate menu. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4002 The directory of the current source file is scanned." |
20665 | 4003 (interactive) |
4004 (message "Scanning directory for source files ...") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4005 (let ((newmap (current-local-map)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4006 (file-list (vhdl-get-source-files)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4007 menu-list found) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4008 ;; Create list for menu |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4009 (setq found nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4010 (while file-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4011 (setq found t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4012 (setq menu-list (cons (vector (car file-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4013 (list 'find-file (car file-list)) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4014 menu-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4015 (setq file-list (cdr file-list))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4016 (setq menu-list (vhdl-menu-split menu-list "Sources")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4017 (when found (setq menu-list (cons "--" menu-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4018 (setq menu-list (cons ["*Rescan*" vhdl-add-source-files-menu t] menu-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4019 (setq menu-list (cons "Sources" menu-list)) |
20665 | 4020 ;; Create menu |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4021 (easy-menu-add menu-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4022 (easy-menu-define vhdl-sources-menu newmap |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4023 "VHDL source files menu" menu-list)) |
20665 | 4024 (message "")) |
4025 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4026 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4027 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4028 ;;; Mode definition |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4029 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4030 ;; performs all buffer local initializations |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4031 |
21446
830023d4cec6
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
20665
diff
changeset
|
4032 ;;;###autoload |
20665 | 4033 (defun vhdl-mode () |
4034 "Major mode for editing VHDL code. | |
4035 | |
4036 Usage: | |
4037 ------ | |
4038 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4039 TEMPLATE INSERTION (electrification): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4040 After typing a VHDL keyword and entering `SPC', you are prompted for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4041 arguments while a template is generated for that VHDL construct. Typing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4042 `RET' or `C-g' at the first \(mandatory) prompt aborts the current |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4043 template generation. Optional arguments are indicated by square |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4044 brackets and removed if the queried string is left empty. Prompts for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4045 mandatory arguments remain in the code if the queried string is left |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4046 empty. They can be queried again by `C-c C-t C-q'. Enabled |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4047 electrification is indicated by `/e' in the modeline. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4048 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4049 Typing `M-SPC' after a keyword inserts a space without calling the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4050 template generator. Automatic template generation (i.e. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4051 electrification) can be disabled (enabled) by typing `C-c C-m C-e' or by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4052 setting option `vhdl-electric-mode' (see OPTIONS). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4053 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4054 Template generators can be invoked from the VHDL menu, by key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4055 bindings, by typing `C-c C-i C-c' and choosing a construct, or by typing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4056 the keyword (i.e. first word of menu entry not in parenthesis) and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4057 `SPC'. The following abbreviations can also be used: arch, attr, cond, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4058 conf, comp, cons, func, inst, pack, sig, var. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4059 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4060 Template styles can be customized in customization group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4061 `vhdl-template' \(see OPTIONS). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4062 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4063 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4064 HEADER INSERTION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4065 A file header can be inserted by `C-c C-t C-h'. A file footer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4066 (template at the end of the file) can be inserted by `C-c C-t C-f'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4067 See customization group `vhdl-header'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4068 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4069 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4070 STUTTERING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4071 Double striking of some keys inserts cumbersome VHDL syntax elements. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4072 Stuttering can be disabled (enabled) by typing `C-c C-m C-s' or by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4073 option `vhdl-stutter-mode'. Enabled stuttering is indicated by `/s' in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4074 the modeline. The stuttering keys and their effects are: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4075 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4076 ;; --> \" : \" [ --> ( -- --> comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4077 ;;; --> \" := \" [[ --> [ --CR --> comment-out code |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4078 .. --> \" => \" ] --> ) --- --> horizontal line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4079 ,, --> \" <= \" ]] --> ] ---- --> display comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4080 == --> \" == \" '' --> \\\" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4081 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4082 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4083 WORD COMPLETION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4084 Typing `TAB' after a (not completed) word looks for a VHDL keyword or a |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4085 word in the buffer that starts alike, inserts it and adjusts case. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4086 Re-typing `TAB' toggles through alternative word completions. This also |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4087 works in the minibuffer (i.e. in template generator prompts). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4088 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4089 Typing `TAB' after `(' looks for and inserts complete parenthesized |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4090 expressions (e.g. for array index ranges). All keywords as well as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4091 standard types and subprograms of VHDL have predefined abbreviations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4092 \(e.g. type \"std\" and `TAB' will toggle through all standard types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4093 beginning with \"std\"). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4094 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4095 Typing `TAB' after a non-word character indents the line if at the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4096 beginning of a line (i.e. no preceding non-blank characters), and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4097 inserts a tabulator stop otherwise. `M-TAB' always inserts a tabulator |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4098 stop. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4099 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4100 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4101 COMMENTS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4102 `--' puts a single comment. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4103 `---' draws a horizontal line for separating code segments. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4104 `----' inserts a display comment, i.e. two horizontal lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4105 with a comment in between. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4106 `--CR' comments out code on that line. Re-hitting CR comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4107 out following lines. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4108 `C-c c' comments out a region if not commented out, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4109 uncomments a region if already commented out. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4110 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4111 You are prompted for comments after object definitions (i.e. signals, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4112 variables, constants, ports) and after subprogram and process |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4113 specifications if option `vhdl-prompt-for-comments' is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4114 Comments are automatically inserted as additional labels (e.g. after |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4115 begin statements) and as help comments if `vhdl-self-insert-comments' is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4116 non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4117 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4118 Inline comments (i.e. comments after a piece of code on the same line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4119 are indented at least to `vhdl-inline-comment-column'. Comments go at |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4120 maximum to `vhdl-end-comment-column'. `RET' after a space in a comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4121 will open a new comment line. Typing beyond `vhdl-end-comment-column' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4122 in a comment automatically opens a new comment line. `M-q' re-fills |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4123 multi-line comments. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4124 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4125 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4126 INDENTATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4127 `TAB' indents a line if at the beginning of the line. The amount of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4128 indentation is specified by option `vhdl-basic-offset'. `C-c C-i C-l' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4129 always indents the current line (is bound to `TAB' if option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4130 `vhdl-intelligent-tab' is nil). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4131 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4132 Indentation can be done for a group of lines (`C-c C-i C-g'), a region |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4133 \(`M-C-\\') or the entire buffer (menu). Argument and port lists are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4134 indented normally (nil) or relative to the opening parenthesis (non-nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4135 according to option `vhdl-argument-list-indent'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4136 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4137 If option `vhdl-indent-tabs-mode' is nil, spaces are used instead of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4138 tabs. `M-x tabify' and `M-x untabify' allow to convert spaces to tabs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4139 and vice versa. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4140 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4141 Syntax-based indentation can be very slow in large files. Option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4142 `vhdl-indent-syntax-based' allows to use faster but simpler indentation. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4143 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4144 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4145 ALIGNMENT: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4146 The alignment functions align operators, keywords, and inline comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4147 to beautify the code. `C-c C-a C-a' aligns a group of consecutive lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4148 separated by blank lines, `C-c C-a C-i' a block of lines with same |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4149 indent. `C-c C-a C-l' aligns all lines belonging to a list enclosed by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4150 a pair of parentheses (e.g. port clause/map, argument list), and `C-c |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4151 C-a C-d' all lines within the declarative part of a design unit. `C-c |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4152 C-a M-a' aligns an entire region. `C-c C-a C-c' aligns inline comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4153 for a group of lines, and `C-c C-a M-c' for a region. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4154 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4155 If option `vhdl-align-groups' is non-nil, groups of code lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4156 separated by special lines (see option `vhdl-align-group-separate') are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4157 aligned individually. If option `vhdl-align-same-indent' is non-nil, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4158 blocks of lines with same indent are aligned separately. Some templates |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4159 are automatically aligned after generation if option `vhdl-auto-align' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4160 is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4161 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4162 Alignment tries to align inline comments at |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4163 `vhdl-inline-comment-column' and tries inline comment not to exceed |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4164 `vhdl-end-comment-column'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4165 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4166 `C-c C-x M-w' fixes up whitespace in a region. That is, operator |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4167 symbols are surrounded by one space, and multiple spaces are eliminated. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4168 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4169 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4170 | CODE FILLING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4171 | Code filling allows to condens code (e.g. sensitivity lists or port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4172 | maps) by removing comments and newlines and re-wrapping so that all |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4173 | lines are maximally filled (block filling). `C-c C-f C-f' fills a list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4174 | enclosed by parenthesis, `C-c C-f C-g' a group of lines separated by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4175 | blank lines, `C-c C-f C-i' a block of lines with same indent, and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4176 | `C-c C-f M-f' an entire region. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4177 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4178 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4179 CODE BEAUTIFICATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4180 `C-c M-b' and `C-c C-b' beautify the code of a region or of the entire |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4181 buffer respectively. This inludes indentation, alignment, and case |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4182 fixing. Code beautification can also be run non-interactively using the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4183 command: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4184 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4185 emacs -batch -l ~/.emacs filename.vhd -f vhdl-beautify-buffer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4186 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4187 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4188 PORT TRANSLATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4189 Generic and port clauses from entity or component declarations can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4190 copied (`C-c C-p C-w') and pasted as entity and component declarations, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4191 as component instantiations and corresponding internal constants and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4192 signals, as a generic map with constants as actual generics, and as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4193 internal signal initializations (menu). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4194 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4195 To include formals in component instantiations, see option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4196 `vhdl-association-list-with-formals'. To include comments in pasting, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4197 see options `vhdl-include-...-comments'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4198 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4199 A clause with several generic/port names on the same line can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4200 flattened (`C-c C-p C-f') so that only one name per line exists. The |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4201 | direction of ports can be reversed (`C-c C-p C-r'), i.e., inputs become |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4202 | outputs and vice versa, which can be useful in testbenches. (This |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4203 | reversion is done on the internal data structure and is only reflected |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4204 | in subsequent paste operations.) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4205 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4206 Names for actual ports, instances, testbenches, and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4207 design-under-test instances can be derived from existing names according |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4208 to options `vhdl-...-name'. See customization group `vhdl-port'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4209 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4210 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4211 | SUBPROGRAM TRANSLATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4212 | Similar functionality exists for copying/pasting the interface of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4213 | subprograms (function/procedure). A subprogram interface can be copied |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4214 | and then pasted as a subprogram declaration, body or call (uses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4215 | association list with formals). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4216 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4217 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4218 TESTBENCH GENERATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4219 A copied port can also be pasted as a testbench. The generated |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4220 testbench includes an entity, an architecture, and an optional |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4221 configuration. The architecture contains the component declaration and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4222 instantiation of the DUT as well as internal constant and signal |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4223 declarations. Additional user-defined templates can be inserted. The |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4224 names used for entity/architecture/configuration/DUT as well as the file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4225 structure to be generated can be customized. See customization group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4226 `vhdl-testbench'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4227 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4228 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4229 KEY BINDINGS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4230 Key bindings (`C-c ...') exist for most commands (see in menu). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4231 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4232 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4233 VHDL MENU: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4234 All commands can be found in the VHDL menu including their key bindings. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4235 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4236 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4237 FILE BROWSER: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4238 The speedbar allows browsing of directories and file contents. It can |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4239 be accessed from the VHDL menu and is automatically opened if option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4240 `vhdl-speedbar-auto-open' is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4241 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4242 In speedbar, open files and directories with `mouse-2' on the name and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4243 browse/rescan their contents with `mouse-2'/`S-mouse-2' on the `+'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4244 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4245 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4246 DESIGN HIERARCHY BROWSER: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4247 The speedbar can also be used for browsing the hierarchy of design units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4248 contained in the source files of the current directory or the specified |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4249 projects (see option `vhdl-project-alist'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4250 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4251 The speedbar can be switched between file, directory hierarchy and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4252 project hierarchy browsing mode in the speedbar menu or by typing `f', |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4253 `h' or `H' in speedbar. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4254 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4255 In speedbar, open design units with `mouse-2' on the name and browse |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4256 their hierarchy with `mouse-2' on the `+'. Ports can directly be copied |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4257 from entities and components (in packages). Individual design units and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4258 complete designs can directly be compiled (\"Make\" menu entry). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4259 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4260 The hierarchy is automatically updated upon saving a modified source |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4261 file when option `vhdl-speedbar-update-on-saving' is non-nil. The |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4262 hierarchy is only updated for projects that have been opened once in the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4263 speedbar. The hierarchy is cached between Emacs sessions in a file (see |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4264 options in group `vhdl-speedbar'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4265 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4266 Simple design consistency checks are done during scanning, such as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4267 multiple declarations of the same unit or missing primary units that are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4268 required by secondary units. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4269 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4270 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4271 | STRUCTURAL COMPOSITION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4272 | Enables simple structural composition. `C-c C-c C-n' creates a skeleton |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4273 | for a new component. Subcomponents (i.e. component declaration and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4274 | instantiation) can be automatically placed from a previously read port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4275 | \(`C-c C-c C-p') or directly from the hierarchy browser (`P'). Finally, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4276 | all subcomponents can be automatically connected using internal signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4277 | and ports (`C-c C-c C-w') following these rules: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4278 | - subcomponent actual ports with same name are considered to be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4279 | connected by a signal (internal signal or port) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4280 | - signals that are only inputs to subcomponents are considered as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4281 | inputs to this component -> input port created |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4282 | - signals that are only outputs from subcomponents are considered as |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4283 | outputs from this component -> output port created |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4284 | - signals that are inputs to AND outputs from subcomponents are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4285 | considered as internal connections -> internal signal created |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4286 | |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4287 | Component declarations can be placed in a components package (option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4288 | `vhdl-use-components-package') which can be automatically generated for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4289 | an entire directory or project (`C-c C-c M-p'). The VHDL'93 direct |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4290 | component instantiation is also supported (option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4291 | `vhdl-use-direct-instantiation'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4292 | |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4293 | Purpose: With appropriate naming conventions it is possible to |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4294 | create higher design levels with only a few mouse clicks or key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4295 | strokes. A new design level can be created by simply generating a new |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4296 | component, placing the required subcomponents from the hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4297 | browser, and wiring everything automatically. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4298 | |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4299 | Note: Automatic wiring only works reliably on templates of new |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4300 | components and component instantiations that were created by VHDL mode. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4301 | |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4302 | See the options group `vhdl-compose' for all relevant user options. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4303 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4304 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4305 SOURCE FILE COMPILATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4306 The syntax of the current buffer can be analyzed by calling a VHDL |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4307 compiler (menu, `C-c C-k'). The compiler to be used is specified by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4308 option `vhdl-compiler'. The available compilers are listed in option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4309 `vhdl-compiler-alist' including all required compilation command, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4310 command options, compilation directory, and error message syntax |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4311 information. New compilers can be added. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4312 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4313 All the source files of an entire design can be compiled by the `make' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4314 command (menu, `C-c M-C-k') if an appropriate Makefile exists. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4315 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4316 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4317 MAKEFILE GENERATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4318 Makefiles can be generated automatically by an internal generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4319 routine (`C-c M-k'). The library unit dependency information is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4320 obtained from the hierarchy browser. Makefile generation can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4321 customized for each compiler in option `vhdl-compiler-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4322 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4323 Makefile generation can also be run non-interactively using the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4324 command: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4325 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4326 emacs -batch -l ~/.emacs -l vhdl-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4327 [-compiler compilername] [-project projectname] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4328 -f vhdl-generate-makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4329 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4330 The Makefile's default target \"all\" compiles the entire design, the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4331 target \"clean\" removes it and the target \"library\" creates the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4332 library directory if not existent. The Makefile also includes a target |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4333 for each primary library unit which allows selective compilation of this |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4334 unit, its secondary units and its subhierarchy (example: compilation of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4335 a design specified by a configuration). User specific parts can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4336 inserted into a Makefile with option `vhdl-makefile-generation-hook'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4337 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4338 Limitations: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4339 - Only library units and dependencies within the current library are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4340 considered. Makefiles for designs that span multiple libraries are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4341 not (yet) supported. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4342 - Only one-level configurations are supported (also hierarchical), |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4343 but configurations that go down several levels are not. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4344 - The \"others\" keyword in configurations is not supported. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4345 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4346 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4347 PROJECTS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4348 Projects can be defined in option `vhdl-project-alist' and a current |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4349 project be selected using option `vhdl-project' (permanently) or from |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4350 the menu or speedbar (temporarily). For each project, title and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4351 description strings (for the file headers), source files/directories |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4352 (for the hierarchy browser and Makefile generation), library name, and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4353 compiler-dependent options, exceptions and compilation directory can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4354 specified. Compilation settings overwrite the settings of option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4355 `vhdl-compiler-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4356 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4357 Project setups can be exported (i.e. written to a file) and imported. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4358 Imported setups are not automatically saved in `vhdl-project-alist' but |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4359 can be saved afterwards in its customization buffer. When starting |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4360 Emacs with VHDL Mode (i.e. load a VHDL file or use \"emacs -l |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4361 vhdl-mode\") in a directory with an existing project setup file, it is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4362 automatically loaded and its project activated if option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4363 `vhdl-project-auto-load' is non-nil. Names/paths of the project setup |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4364 files can be specified in option `vhdl-project-file-name'. Multiple |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4365 project setups can be automatically loaded from global directories. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4366 This is an alternative to specifying project setups with option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4367 `vhdl-project-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4368 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4369 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4370 SPECIAL MENUES: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4371 As an alternative to the speedbar, an index menu can be added (set |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4372 option `vhdl-index-menu' to non-nil) or made accessible as a mouse menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4373 (e.g. add \"(global-set-key '[S-down-mouse-3] 'imenu)\" to your start-up |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4374 file) for browsing the file contents (is not populated if buffer is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4375 larger than `font-lock-maximum-size'). Also, a source file menu can be |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4376 added (set option `vhdl-source-file-menu' to non-nil) for browsing the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4377 current directory for VHDL source files. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4378 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4379 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4380 VHDL STANDARDS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4381 The VHDL standards to be used are specified in option `vhdl-standard'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4382 Available standards are: VHDL'87/'93, VHDL-AMS, and Math Packages. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4383 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4384 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4385 KEYWORD CASE: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4386 Lower and upper case for keywords and standardized types, attributes, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4387 and enumeration values is supported. If the option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4388 `vhdl-upper-case-keywords' is set to non-nil, keywords can be typed in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4389 lower case and are converted into upper case automatically (not for |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4390 types, attributes, and enumeration values). The case of keywords, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4391 types, attributes,and enumeration values can be fixed for an entire |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4392 region (menu) or buffer (`C-c C-x C-c') according to the options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4393 `vhdl-upper-case-{keywords,types,attributes,enum-values}'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4394 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4395 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4396 HIGHLIGHTING (fontification): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4397 Keywords and standardized types, attributes, enumeration values, and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4398 function names (controlled by option `vhdl-highlight-keywords'), as well |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4399 as comments, strings, and template prompts are highlighted using |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4400 different colors. Unit, subprogram, signal, variable, constant, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4401 parameter and generic/port names in declarations as well as labels are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4402 highlighted if option `vhdl-highlight-names' is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4403 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4404 Additional reserved words or words with a forbidden syntax (e.g. words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4405 that should be avoided) can be specified in option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4406 `vhdl-forbidden-words' or `vhdl-forbidden-syntax' and be highlighted in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4407 a warning color (option `vhdl-highlight-forbidden-words'). Verilog |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4408 keywords are highlighted as forbidden words if option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4409 `vhdl-highlight-verilog-keywords' is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4410 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4411 Words with special syntax can be highlighted by specifying their |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4412 syntax and color in option `vhdl-special-syntax-alist' and by setting |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4413 option `vhdl-highlight-special-words' to non-nil. This allows to |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4414 establish some naming conventions (e.g. to distinguish different kinds |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4415 of signals or other objects by using name suffices) and to support them |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4416 visually. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4417 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4418 Option `vhdl-highlight-case-sensitive' can be set to non-nil in order |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4419 to support case-sensitive highlighting. However, keywords are then only |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4420 highlighted if written in lower case. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4421 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4422 Code between \"translate_off\" and \"translate_on\" pragmas is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4423 highlighted using a different background color if option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4424 `vhdl-highlight-translate-off' is non-nil. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4425 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4426 For documentation and customization of the used colors see |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4427 customization group `vhdl-highlight-faces' (`M-x customize-group'). For |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4428 highlighting of matching parenthesis, see customization group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4429 `paren-showing'. Automatic buffer highlighting is turned on/off by |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4430 option `global-font-lock-mode' (`font-lock-auto-fontify' in XEmacs). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4431 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4432 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4433 USER MODELS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4434 VHDL models (templates) can be specified by the user and made accessible |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4435 in the menu, through key bindings (`C-c C-m ...'), or by keyword |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4436 electrification. See option `vhdl-model-alist'. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4437 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4438 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4439 HIDE/SHOW: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4440 The code of blocks, processes, subprograms, component declarations and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4441 instantiations, generic/port clauses, and configuration declarations can |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4442 be hidden using the `Hide/Show' menu or by pressing `S-mouse-2' within |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4443 the code (see customization group `vhdl-menu'). XEmacs: limited |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4444 functionality due to old `hideshow.el' package. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4445 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4446 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4447 CODE UPDATING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4448 - Sensitivity List: `C-c C-u C-s' updates the sensitivity list of the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4449 current process, `C-c C-u M-s' of all processes in the current buffer. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4450 Limitations: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4451 - Only declared local signals (ports, signals declared in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4452 architecture and blocks) are automatically inserted. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4453 - Global signals declared in packages are not automatically inserted. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4454 Insert them once manually (will be kept afterwards). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4455 - Out parameters of procedures are considered to be read. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4456 Use option `vhdl-entity-file-name' to specify the entity file name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4457 \(used to obtain the port names). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4458 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4459 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4460 CODE FIXING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4461 `C-c C-x C-p' fixes the closing parenthesis of a generic/port clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4462 \(e.g. if the closing parenthesis is on the wrong line or is missing). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4463 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4464 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4465 PRINTING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4466 Postscript printing with different faces (an optimized set of faces is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4467 used if `vhdl-print-customize-faces' is non-nil) or colors \(if |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4468 `ps-print-color-p' is non-nil) is possible using the standard Emacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4469 postscript printing commands. Option `vhdl-print-two-column' defines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4470 appropriate default settings for nice landscape two-column printing. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4471 The paper format can be set by option `ps-paper-type'. Do not forget to |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4472 switch `ps-print-color-p' to nil for printing on black-and-white |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4473 printers. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4474 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4475 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4476 OPTIONS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4477 User options allow customization of VHDL Mode. All options are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4478 accessible from the \"Options\" menu entry. Simple options (switches |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4479 and choices) can directly be changed, while for complex options a |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4480 customization buffer is opened. Changed options can be saved for future |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4481 sessions using the \"Save Options\" menu entry. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4482 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4483 Options and their detailed descriptions can also be accessed by using |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4484 the \"Customize\" menu entry or the command `M-x customize-option' (`M-x |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4485 customize-group' for groups). Some customizations only take effect |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4486 after some action (read the NOTE in the option documentation). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4487 Customization can also be done globally (i.e. site-wide, read the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4488 INSTALL file). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4489 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4490 Not all options are described in this documentation, so go and see |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4491 what other useful user options there are (`M-x vhdl-customize' or menu)! |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4492 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4493 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4494 FILE EXTENSIONS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4495 As default, files with extensions \".vhd\" and \".vhdl\" are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4496 automatically recognized as VHDL source files. To add an extension |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4497 \".xxx\", add the following line to your Emacs start-up file (`.emacs'): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4498 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4499 \(setq auto-mode-alist (cons '(\"\\\\.xxx\\\\'\" . vhdl-mode) auto-mode-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4500 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4501 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4502 HINTS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4503 - To start Emacs with open VHDL hierarchy browser without having to load |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4504 a VHDL file first, use the command: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4505 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4506 emacs -l vhdl-mode -f speedbar-frame-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4507 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4508 - Type `C-g C-g' to interrupt long operations or if Emacs hangs. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4509 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4510 - Some features only work on properly indented code. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4511 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4512 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4513 RELEASE NOTES: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4514 See also the release notes (menu) for added features in new releases. |
20665 | 4515 |
4516 | |
4517 Maintenance: | |
4518 ------------ | |
4519 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4520 To submit a bug report, enter `M-x vhdl-submit-bug-report' within VHDL Mode. |
20665 | 4521 Add a description of the problem and include a reproducible test case. |
4522 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4523 Questions and enhancement requests can be sent to <reto@gnu.org>. |
20665 | 4524 |
4525 The `vhdl-mode-announce' mailing list informs about new VHDL Mode releases. | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4526 The `vhdl-mode-victims' mailing list informs about new VHDL Mode beta |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4527 releases. You are kindly invited to participate in beta testing. Subscribe |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4528 to above mailing lists by sending an email to <reto@gnu.org>. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4529 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4530 VHDL Mode is officially distributed at |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4531 http://opensource.ethz.ch/emacs/vhdl-mode.html |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4532 where the latest version can be found. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4533 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4534 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4535 Known problems: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4536 --------------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4537 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4538 - Indentation bug in simultaneous if- and case-statements (VHDL-AMS). |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4539 - XEmacs: Incorrect start-up when automatically opening speedbar. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4540 - XEmacs: Indentation in XEmacs 21.4 (and higher). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4541 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4542 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4543 The VHDL Mode Authors |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4544 Reto Zimmermann and Rod Whitby |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4545 |
20665 | 4546 Key bindings: |
4547 ------------- | |
4548 | |
4549 \\{vhdl-mode-map}" | |
4550 (interactive) | |
4551 (kill-all-local-variables) | |
4552 (setq major-mode 'vhdl-mode) | |
4553 (setq mode-name "VHDL") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4554 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4555 ;; set maps and tables |
20665 | 4556 (use-local-map vhdl-mode-map) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4557 (set-syntax-table vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4558 (setq local-abbrev-table vhdl-mode-abbrev-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4559 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4560 ;; set local variables |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4561 (set (make-local-variable 'paragraph-start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4562 "\\s-*\\(--+\\s-*$\\|[^ -]\\|$\\)") |
20665 | 4563 (set (make-local-variable 'paragraph-separate) paragraph-start) |
4564 (set (make-local-variable 'paragraph-ignore-fill-prefix) t) | |
59253
eb98fdac5466
(vhdl-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
57820
diff
changeset
|
4565 (set (make-local-variable 'require-final-newline) |
eb98fdac5466
(vhdl-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
57820
diff
changeset
|
4566 mode-require-final-newline) |
20665 | 4567 (set (make-local-variable 'parse-sexp-ignore-comments) t) |
4568 (set (make-local-variable 'indent-line-function) 'vhdl-indent-line) | |
4569 (set (make-local-variable 'comment-start) "--") | |
4570 (set (make-local-variable 'comment-end) "") | |
62917
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
4571 (set (make-local-variable 'comment-padding) "") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4572 (set (make-local-variable 'comment-column) vhdl-inline-comment-column) |
20665 | 4573 (set (make-local-variable 'end-comment-column) vhdl-end-comment-column) |
4574 (set (make-local-variable 'comment-start-skip) "--+\\s-*") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4575 (set (make-local-variable 'comment-multi-line) nil) |
20665 | 4576 (set (make-local-variable 'indent-tabs-mode) vhdl-indent-tabs-mode) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4577 (set (make-local-variable 'hippie-expand-verbose) nil) |
20665 | 4578 |
4579 ;; setup the comment indent variable in a Emacs version portable way | |
4580 ;; ignore any byte compiler warnings you might get here | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4581 (when (boundp 'comment-indent-function) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4582 (make-local-variable 'comment-indent-function) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4583 (setq comment-indent-function 'vhdl-comment-indent)) |
20665 | 4584 |
4585 ;; initialize font locking | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4586 (set (make-local-variable 'font-lock-defaults) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4587 (list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4588 '(nil vhdl-font-lock-keywords) nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4589 (not vhdl-highlight-case-sensitive) '((?\_ . "w")) 'beginning-of-line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4590 '(font-lock-syntactic-keywords . vhdl-font-lock-syntactic-keywords))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4591 (unless vhdl-emacs-21 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4592 (set (make-local-variable 'font-lock-support-mode) 'lazy-lock-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4593 (set (make-local-variable 'lazy-lock-defer-contextually) nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4594 (set (make-local-variable 'lazy-lock-defer-on-the-fly) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4595 ; (set (make-local-variable 'lazy-lock-defer-time) 0.1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4596 (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4597 ; (turn-on-font-lock) |
20665 | 4598 |
4599 ;; variables for source file compilation | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4600 (when vhdl-compile-use-local-error-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4601 (set (make-local-variable 'compilation-error-regexp-alist) nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4602 (set (make-local-variable 'compilation-file-regexp-alist) nil)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4603 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4604 ;; add index menu |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4605 (vhdl-index-menu-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4606 ;; add source file menu |
20665 | 4607 (if vhdl-source-file-menu (vhdl-add-source-files-menu)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4608 ;; add VHDL menu |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4609 (easy-menu-add vhdl-mode-menu-list) ; for XEmacs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4610 (easy-menu-define vhdl-mode-menu vhdl-mode-map |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4611 "Menu keymap for VHDL Mode." vhdl-mode-menu-list) |
20665 | 4612 ;; initialize hideshow and add menu |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4613 (vhdl-hideshow-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4614 (run-hooks 'menu-bar-update-hook) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4615 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4616 ;; miscellaneous |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4617 (vhdl-ps-print-init) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4618 (vhdl-write-file-hooks-init) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4619 (vhdl-mode-line-update) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4620 (message "VHDL Mode %s.%s" vhdl-version |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4621 (if noninteractive "" " See menu for documentation and release notes.")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4622 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4623 ;; run hooks |
62772
f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents:
62551
diff
changeset
|
4624 (run-mode-hooks 'vhdl-mode-hook)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4625 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4626 (defun vhdl-activate-customizations () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4627 "Activate all customizations on local variables." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4628 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4629 (vhdl-mode-map-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4630 (use-local-map vhdl-mode-map) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4631 (set-syntax-table vhdl-mode-syntax-table) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4632 (setq comment-column vhdl-inline-comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4633 (setq end-comment-column vhdl-end-comment-column) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4634 (vhdl-write-file-hooks-init) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4635 (vhdl-update-mode-menu) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4636 (vhdl-hideshow-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4637 (run-hooks 'menu-bar-update-hook) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4638 (vhdl-mode-line-update)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4639 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4640 (defun vhdl-write-file-hooks-init () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4641 "Add/remove hooks when buffer is saved." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4642 (if vhdl-modify-date-on-saving |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4643 (add-hook 'local-write-file-hooks 'vhdl-template-modify-noerror) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4644 (remove-hook 'local-write-file-hooks 'vhdl-template-modify-noerror)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4645 (make-local-variable 'after-save-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4646 (add-hook 'after-save-hook 'vhdl-add-modified-file)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4647 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4648 (defun vhdl-process-command-line-option (option) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4649 "Process command line options for VHDL Mode." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4650 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4651 ;; set compiler |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4652 ((equal option "-compiler") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4653 (vhdl-set-compiler (car command-line-args-left)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4654 (setq command-line-args-left (cdr command-line-args-left))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4655 ;; set project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4656 ((equal option "-project") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4657 (vhdl-set-project (car command-line-args-left)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4658 (setq command-line-args-left (cdr command-line-args-left))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4659 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4660 ;; make Emacs process VHDL Mode options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4661 (setq command-switch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4662 (append command-switch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4663 '(("-compiler" . vhdl-process-command-line-option) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4664 ("-project" . vhdl-process-command-line-option)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4665 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4666 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4667 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4668 ;;; Keywords and standardized words |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4669 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4670 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4671 (defconst vhdl-93-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4672 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4673 "abs" "access" "after" "alias" "all" "and" "architecture" "array" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4674 "assert" "attribute" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4675 "begin" "block" "body" "buffer" "bus" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4676 "case" "component" "configuration" "constant" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4677 "disconnect" "downto" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4678 "else" "elsif" "end" "entity" "exit" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4679 "file" "for" "function" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4680 "generate" "generic" "group" "guarded" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4681 "if" "impure" "in" "inertial" "inout" "is" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4682 "label" "library" "linkage" "literal" "loop" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4683 "map" "mod" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4684 "nand" "new" "next" "nor" "not" "null" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4685 "of" "on" "open" "or" "others" "out" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4686 "package" "port" "postponed" "procedure" "process" "pure" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4687 "range" "record" "register" "reject" "rem" "report" "return" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4688 "rol" "ror" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4689 "select" "severity" "shared" "signal" "sla" "sll" "sra" "srl" "subtype" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4690 "then" "to" "transport" "type" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4691 "unaffected" "units" "until" "use" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4692 "variable" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4693 "wait" "when" "while" "with" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4694 "xnor" "xor" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4695 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4696 "List of VHDL'93 keywords.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4697 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4698 (defconst vhdl-ams-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4699 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4700 "across" "break" "limit" "nature" "noise" "procedural" "quantity" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4701 "reference" "spectrum" "subnature" "terminal" "through" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4702 "tolerance" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4703 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4704 "List of VHDL-AMS keywords.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4705 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4706 (defconst vhdl-verilog-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4707 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4708 "`define" "`else" "`endif" "`ifdef" "`include" "`timescale" "`undef" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4709 "always" "and" "assign" "begin" "buf" "bufif0" "bufif1" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4710 "case" "casex" "casez" "cmos" "deassign" "default" "defparam" "disable" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4711 "edge" "else" "end" "endattribute" "endcase" "endfunction" "endmodule" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4712 "endprimitive" "endspecify" "endtable" "endtask" "event" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4713 "for" "force" "forever" "fork" "function" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4714 "highz0" "highz1" "if" "initial" "inout" "input" "integer" "join" "large" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4715 "macromodule" "makefile" "medium" "module" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4716 "nand" "negedge" "nmos" "nor" "not" "notif0" "notif1" "or" "output" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4717 "parameter" "pmos" "posedge" "primitive" "pull0" "pull1" "pulldown" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4718 "pullup" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4719 "rcmos" "real" "realtime" "reg" "release" "repeat" "rnmos" "rpmos" "rtran" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4720 "rtranif0" "rtranif1" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4721 "scalared" "signed" "small" "specify" "specparam" "strength" "strong0" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4722 "strong1" "supply" "supply0" "supply1" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4723 "table" "task" "time" "tran" "tranif0" "tranif1" "tri" "tri0" "tri1" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4724 "triand" "trior" "trireg" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4725 "vectored" "wait" "wand" "weak0" "weak1" "while" "wire" "wor" "xnor" "xor" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4726 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4727 "List of Verilog keywords as candidate for additional reserved words.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4728 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4729 (defconst vhdl-93-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4730 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4731 "boolean" "bit" "bit_vector" "character" "severity_level" "integer" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4732 "real" "time" "natural" "positive" "string" "line" "text" "side" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4733 "unsigned" "signed" "delay_length" "file_open_kind" "file_open_status" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4734 "std_logic" "std_logic_vector" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4735 "std_ulogic" "std_ulogic_vector" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4736 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4737 "List of VHDL'93 standardized types.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4738 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4739 (defconst vhdl-ams-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4740 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4741 "domain_type" "real_vector" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4742 ;; from `nature_pkg' package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4743 "voltage" "current" "electrical" "position" "velocity" "force" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4744 "mechanical_vf" "mechanical_pf" "rotvel" "torque" "rotational" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4745 "pressure" "flowrate" "fluid" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4746 ) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4747 "List of VHDL-AMS standardized types.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4748 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4749 (defconst vhdl-math-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4750 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4751 "complex" "complex_polar" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4752 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4753 "List of Math Packages standardized types.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4754 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4755 (defconst vhdl-93-attributes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4756 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4757 "base" "left" "right" "high" "low" "pos" "val" "succ" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4758 "pred" "leftof" "rightof" "range" "reverse_range" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4759 "length" "delayed" "stable" "quiet" "transaction" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4760 "event" "active" "last_event" "last_active" "last_value" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4761 "driving" "driving_value" "ascending" "value" "image" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4762 "simple_name" "instance_name" "path_name" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4763 "foreign" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4764 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4765 "List of VHDL'93 standardized attributes.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4766 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4767 (defconst vhdl-ams-attributes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4768 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4769 "across" "through" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4770 "reference" "contribution" "tolerance" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4771 "dot" "integ" "delayed" "above" "zoh" "ltf" "ztf" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4772 "ramp" "slew" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4773 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4774 "List of VHDL-AMS standardized attributes.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4775 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4776 (defconst vhdl-93-enum-values |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4777 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4778 "true" "false" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4779 "note" "warning" "error" "failure" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4780 "read_mode" "write_mode" "append_mode" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4781 "open_ok" "status_error" "name_error" "mode_error" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4782 "fs" "ps" "ns" "us" "ms" "sec" "min" "hr" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4783 "right" "left" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4784 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4785 "List of VHDL'93 standardized enumeration values.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4786 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4787 (defconst vhdl-ams-enum-values |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4788 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4789 "quiescent_domain" "time_domain" "frequency_domain" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4790 ;; from `nature_pkg' package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4791 "eps0" "mu0" "ground" "mecvf_gnd" "mecpf_gnd" "rot_gnd" "fld_gnd" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4792 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4793 "List of VHDL-AMS standardized enumeration values.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4794 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4795 (defconst vhdl-math-constants |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4796 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4797 "math_e" "math_1_over_e" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4798 "math_pi" "math_two_pi" "math_1_over_pi" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4799 "math_half_pi" "math_q_pi" "math_3_half_pi" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4800 "math_log_of_2" "math_log_of_10" "math_log2_of_e" "math_log10_of_e" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4801 "math_sqrt2" "math_sqrt1_2" "math_sqrt_pi" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4802 "math_deg_to_rad" "math_rad_to_deg" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4803 "cbase_1" "cbase_j" "czero" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4804 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4805 "List of Math Packages standardized constants.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4806 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4807 (defconst vhdl-93-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4808 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4809 "now" "resolved" "rising_edge" "falling_edge" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4810 "read" "readline" "write" "writeline" "endfile" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4811 "resize" "is_X" "std_match" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4812 "shift_left" "shift_right" "rotate_left" "rotate_right" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4813 "to_unsigned" "to_signed" "to_integer" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4814 "to_stdLogicVector" "to_stdULogic" "to_stdULogicVector" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4815 "to_bit" "to_bitVector" "to_X01" "to_X01Z" "to_UX01" "to_01" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4816 "conv_unsigned" "conv_signed" "conv_integer" "conv_std_logic_vector" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4817 "shl" "shr" "ext" "sxt" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4818 "deallocate" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4819 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4820 "List of VHDL'93 standardized functions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4821 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4822 (defconst vhdl-ams-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4823 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4824 "frequency" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4825 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4826 "List of VHDL-AMS standardized functions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4827 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4828 (defconst vhdl-math-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4829 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4830 "sign" "ceil" "floor" "round" "trunc" "fmax" "fmin" "uniform" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4831 "sqrt" "cbrt" "exp" "log" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4832 "sin" "cos" "tan" "arcsin" "arccos" "arctan" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4833 "sinh" "cosh" "tanh" "arcsinh" "arccosh" "arctanh" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4834 "cmplx" "complex_to_polar" "polar_to_complex" "arg" "conj" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4835 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4836 "List of Math Packages standardized functions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4837 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4838 (defconst vhdl-93-packages |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4839 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4840 "std_logic_1164" "numeric_std" "numeric_bit" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4841 "standard" "textio" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4842 "std_logic_arith" "std_logic_signed" "std_logic_unsigned" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4843 "std_logic_misc" "std_logic_textio" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4844 "ieee" "std" "work" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4845 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4846 "List of VHDL'93 standardized packages and libraries.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4847 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4848 (defconst vhdl-ams-packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4849 '( |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4850 ;; from `nature_pkg' package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4851 "nature_pkg" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4852 ) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4853 "List of VHDL-AMS standardized packages and libraries.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4854 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4855 (defconst vhdl-math-packages |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4856 '( |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4857 "math_real" "math_complex" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4858 ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4859 "List of Math Packages standardized packages and libraries.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4860 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4861 (defvar vhdl-keywords nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4862 "List of VHDL keywords.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4863 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4864 (defvar vhdl-types nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4865 "List of VHDL standardized types.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4866 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4867 (defvar vhdl-attributes nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4868 "List of VHDL standardized attributes.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4869 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4870 (defvar vhdl-enum-values nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4871 "List of VHDL standardized enumeration values.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4872 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4873 (defvar vhdl-constants nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4874 "List of VHDL standardized constants.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4875 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4876 (defvar vhdl-functions nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4877 "List of VHDL standardized functions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4878 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4879 (defvar vhdl-packages nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4880 "List of VHDL standardized packages and libraries.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4881 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4882 (defvar vhdl-reserved-words nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4883 "List of additional reserved words.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4884 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4885 (defvar vhdl-keywords-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4886 "Regexp for VHDL keywords.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4887 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4888 (defvar vhdl-types-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4889 "Regexp for VHDL standardized types.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4890 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4891 (defvar vhdl-attributes-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4892 "Regexp for VHDL standardized attributes.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4893 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4894 (defvar vhdl-enum-values-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4895 "Regexp for VHDL standardized enumeration values.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4896 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4897 (defvar vhdl-functions-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4898 "Regexp for VHDL standardized functions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4899 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4900 (defvar vhdl-packages-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4901 "Regexp for VHDL standardized packages and libraries.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4902 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4903 (defvar vhdl-reserved-words-regexp nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4904 "Regexp for additional reserved words.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4905 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4906 (defvar vhdl-directive-keywords-regexp nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4907 "Regexp for compiler directive keywords.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4908 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4909 (defun vhdl-words-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4910 "Initialize reserved words." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4911 (setq vhdl-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4912 (append vhdl-93-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4913 (when (vhdl-standard-p 'ams) vhdl-ams-keywords))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4914 (setq vhdl-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4915 (append vhdl-93-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4916 (when (vhdl-standard-p 'ams) vhdl-ams-types) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4917 (when (vhdl-standard-p 'math) vhdl-math-types))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4918 (setq vhdl-attributes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4919 (append vhdl-93-attributes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4920 (when (vhdl-standard-p 'ams) vhdl-ams-attributes))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4921 (setq vhdl-enum-values |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4922 (append vhdl-93-enum-values |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4923 (when (vhdl-standard-p 'ams) vhdl-ams-enum-values))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4924 (setq vhdl-constants |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4925 (append (when (vhdl-standard-p 'math) vhdl-math-constants))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4926 (setq vhdl-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4927 (append vhdl-93-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4928 (when (vhdl-standard-p 'ams) vhdl-ams-functions) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4929 (when (vhdl-standard-p 'math) vhdl-math-functions))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4930 (setq vhdl-packages |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4931 (append vhdl-93-packages |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4932 (when (vhdl-standard-p 'ams) vhdl-ams-packages) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4933 (when (vhdl-standard-p 'math) vhdl-math-packages))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4934 (setq vhdl-reserved-words |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4935 (append (when vhdl-highlight-forbidden-words vhdl-forbidden-words) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4936 (when vhdl-highlight-verilog-keywords vhdl-verilog-keywords) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4937 '(""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4938 (setq vhdl-keywords-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4939 (concat "\\<\\(" (regexp-opt vhdl-keywords) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4940 (setq vhdl-types-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4941 (concat "\\<\\(" (regexp-opt vhdl-types) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4942 (setq vhdl-attributes-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4943 (concat "\\<\\(" (regexp-opt vhdl-attributes) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4944 (setq vhdl-enum-values-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4945 (concat "\\<\\(" (regexp-opt vhdl-enum-values) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4946 (setq vhdl-functions-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4947 (concat "\\<\\(" (regexp-opt vhdl-functions) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4948 (setq vhdl-packages-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4949 (concat "\\<\\(" (regexp-opt vhdl-packages) "\\)\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4950 (setq vhdl-reserved-words-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4951 (concat "\\<\\(" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4952 (unless (equal vhdl-forbidden-syntax "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4953 (concat vhdl-forbidden-syntax "\\|")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4954 (regexp-opt vhdl-reserved-words) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4955 "\\)\\>")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4956 (setq vhdl-directive-keywords-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4957 (concat "\\<\\(" (mapconcat 'regexp-quote |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4958 vhdl-directive-keywords "\\|") "\\)\\>")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4959 (vhdl-abbrev-list-init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4960 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4961 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4962 ;; Words to expand |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4963 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4964 (defvar vhdl-abbrev-list nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4965 "Predefined abbreviations for VHDL.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4966 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4967 (defun vhdl-abbrev-list-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4968 (setq vhdl-abbrev-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4969 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4970 (list vhdl-upper-case-keywords) vhdl-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4971 (list vhdl-upper-case-types) vhdl-types |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4972 (list vhdl-upper-case-attributes) vhdl-attributes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4973 (list vhdl-upper-case-enum-values) vhdl-enum-values |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4974 (list vhdl-upper-case-constants) vhdl-constants |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4975 (list nil) vhdl-functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4976 (list nil) vhdl-packages))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4977 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4978 ;; initialize reserved words for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4979 (vhdl-words-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4980 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4981 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4982 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
4983 ;;; Indentation |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4984 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4985 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
4986 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 4987 ;; Syntax analysis |
4988 | |
4989 ;; constant regular expressions for looking at various constructs | |
4990 | |
4991 (defconst vhdl-symbol-key "\\(\\w\\|\\s_\\)+" | |
4992 "Regexp describing a VHDL symbol. | |
4993 We cannot use just `word' syntax class since `_' cannot be in word | |
4994 class. Putting underscore in word class breaks forward word movement | |
4995 behavior that users are familiar with.") | |
4996 | |
4997 (defconst vhdl-case-header-key "case[( \t\n][^;=>]+[) \t\n]is" | |
4998 "Regexp describing a case statement header key.") | |
4999 | |
5000 (defconst vhdl-label-key | |
5001 (concat "\\(" vhdl-symbol-key "\\s-*:\\)[^=]") | |
5002 "Regexp describing a VHDL label.") | |
5003 | |
5004 ;; Macro definitions: | |
5005 | |
5006 (defmacro vhdl-point (position) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5007 "Return the value of point at certain commonly referenced POSITIONs. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5008 POSITION can be one of the following symbols: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5009 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5010 bol -- beginning of line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5011 eol -- end of line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5012 bod -- beginning of defun |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5013 boi -- back to indentation |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5014 eoi -- last whitespace on line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5015 ionl -- indentation of next line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5016 iopl -- indentation of previous line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5017 bonl -- beginning of next line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5018 bopl -- beginning of previous line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5019 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5020 This function does not modify point or mark." |
20665 | 5021 (or (and (eq 'quote (car-safe position)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5022 (null (cddr position))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5023 (error "ERROR: Bad buffer position requested: %s" position)) |
20665 | 5024 (setq position (nth 1 position)) |
26464 | 5025 `(let ((here (point))) |
5026 ,@(cond | |
5027 ((eq position 'bol) '((beginning-of-line))) | |
5028 ((eq position 'eol) '((end-of-line))) | |
5029 ((eq position 'bod) '((save-match-data | |
5030 (vhdl-beginning-of-defun)))) | |
5031 ((eq position 'boi) '((back-to-indentation))) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5032 ((eq position 'eoi) '((end-of-line) (skip-chars-backward " \t"))) |
26464 | 5033 ((eq position 'bonl) '((forward-line 1))) |
5034 ((eq position 'bopl) '((forward-line -1))) | |
5035 ((eq position 'iopl) | |
5036 '((forward-line -1) | |
5037 (back-to-indentation))) | |
5038 ((eq position 'ionl) | |
5039 '((forward-line 1) | |
5040 (back-to-indentation))) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5041 (t (error "ERROR: Unknown buffer position requested: %s" position)) |
26464 | 5042 ) |
5043 (prog1 | |
5044 (point) | |
5045 (goto-char here)) | |
5046 ;; workaround for an Emacs18 bug -- blech! Well, at least it | |
5047 ;; doesn't hurt for v19 | |
5048 ,@nil | |
5049 )) | |
20665 | 5050 |
5051 (defmacro vhdl-safe (&rest body) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5052 "Safely execute BODY, return nil if an error occurred." |
26464 | 5053 `(condition-case nil |
5054 (progn ,@body) | |
5055 (error nil))) | |
20665 | 5056 |
5057 (defmacro vhdl-add-syntax (symbol &optional relpos) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5058 "A simple macro to append the syntax in SYMBOL to the syntax list. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5059 Try to increase performance by using this macro." |
26464 | 5060 `(setq vhdl-syntactic-context |
5061 (cons (cons ,symbol ,relpos) vhdl-syntactic-context))) | |
20665 | 5062 |
5063 (defmacro vhdl-has-syntax (symbol) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5064 "A simple macro to return check the syntax list. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5065 Try to increase performance by using this macro." |
26464 | 5066 `(assoc ,symbol vhdl-syntactic-context)) |
20665 | 5067 |
5068 ;; Syntactic element offset manipulation: | |
5069 | |
5070 (defun vhdl-read-offset (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5071 "Read new offset value for LANGELEM from minibuffer. |
60925
a9c571ede913
* progmodes/cperl-mode.el, progmodes/idlw-shell.el,
Werner LEMBERG <wl@gnu.org>
parents:
59253
diff
changeset
|
5072 Return a valid value only." |
20665 | 5073 (let ((oldoff (format "%s" (cdr-safe (assq langelem vhdl-offsets-alist)))) |
5074 (errmsg "Offset must be int, func, var, or one of +, -, ++, --: ") | |
5075 (prompt "Offset: ") | |
5076 offset input interned) | |
5077 (while (not offset) | |
5078 (setq input (read-string prompt oldoff) | |
5079 offset (cond ((string-equal "+" input) '+) | |
5080 ((string-equal "-" input) '-) | |
5081 ((string-equal "++" input) '++) | |
5082 ((string-equal "--" input) '--) | |
5083 ((string-match "^-?[0-9]+$" input) | |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
61431
diff
changeset
|
5084 (string-to-number input)) |
20665 | 5085 ((fboundp (setq interned (intern input))) |
5086 interned) | |
5087 ((boundp interned) interned) | |
5088 ;; error, but don't signal one, keep trying | |
5089 ;; to read an input value | |
5090 (t (ding) | |
5091 (setq prompt errmsg) | |
5092 nil)))) | |
5093 offset)) | |
5094 | |
5095 (defun vhdl-set-offset (symbol offset &optional add-p) | |
5096 "Change the value of a syntactic element symbol in `vhdl-offsets-alist'. | |
5097 SYMBOL is the syntactic element symbol to change and OFFSET is the new | |
5098 offset for that syntactic element. Optional ADD says to add SYMBOL to | |
5099 `vhdl-offsets-alist' if it doesn't already appear there." | |
5100 (interactive | |
5101 (let* ((langelem | |
5102 (intern (completing-read | |
5103 (concat "Syntactic symbol to change" | |
5104 (if current-prefix-arg " or add" "") | |
5105 ": ") | |
5106 (mapcar | |
5107 (function | |
5108 (lambda (langelem) | |
5109 (cons (format "%s" (car langelem)) nil))) | |
5110 vhdl-offsets-alist) | |
5111 nil (not current-prefix-arg) | |
5112 ;; initial contents tries to be the last element | |
5113 ;; on the syntactic analysis list for the current | |
5114 ;; line | |
5115 (let* ((syntax (vhdl-get-syntactic-context)) | |
5116 (len (length syntax)) | |
5117 (ic (format "%s" (car (nth (1- len) syntax))))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5118 ic) |
20665 | 5119 ))) |
5120 (offset (vhdl-read-offset langelem))) | |
5121 (list langelem offset current-prefix-arg))) | |
5122 ;; sanity check offset | |
5123 (or (eq offset '+) | |
5124 (eq offset '-) | |
5125 (eq offset '++) | |
5126 (eq offset '--) | |
5127 (integerp offset) | |
5128 (fboundp offset) | |
5129 (boundp offset) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5130 (error "ERROR: Offset must be int, func, var, or one of +, -, ++, --: %s" |
20665 | 5131 offset)) |
5132 (let ((entry (assq symbol vhdl-offsets-alist))) | |
5133 (if entry | |
5134 (setcdr entry offset) | |
5135 (if add-p | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5136 (setq vhdl-offsets-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5137 (cons (cons symbol offset) vhdl-offsets-alist)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5138 (error "ERROR: %s is not a valid syntactic symbol" symbol)))) |
20665 | 5139 (vhdl-keep-region-active)) |
5140 | |
5141 (defun vhdl-set-style (style &optional local) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5142 "Set `vhdl-mode' variables to use one of several different indentation styles. |
20665 | 5143 STYLE is a string representing the desired style and optional LOCAL is |
5144 a flag which, if non-nil, means to make the style variables being | |
5145 changed buffer local, instead of the default, which is to set the | |
5146 global variables. Interactively, the flag comes from the prefix | |
5147 argument. The styles are chosen from the `vhdl-style-alist' variable." | |
5148 (interactive (list (completing-read "Use which VHDL indentation style? " | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5149 vhdl-style-alist nil t) |
20665 | 5150 current-prefix-arg)) |
5151 (let ((vars (cdr (assoc style vhdl-style-alist)))) | |
5152 (or vars | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5153 (error "ERROR: Invalid VHDL indentation style `%s'" style)) |
20665 | 5154 ;; set all the variables |
5155 (mapcar | |
5156 (function | |
5157 (lambda (varentry) | |
5158 (let ((var (car varentry)) | |
5159 (val (cdr varentry))) | |
5160 (and local | |
5161 (make-local-variable var)) | |
5162 ;; special case for vhdl-offsets-alist | |
5163 (if (not (eq var 'vhdl-offsets-alist)) | |
5164 (set var val) | |
5165 ;; reset vhdl-offsets-alist to the default value first | |
5166 (setq vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default)) | |
5167 ;; now set the langelems that are different | |
5168 (mapcar | |
5169 (function | |
5170 (lambda (langentry) | |
5171 (let ((langelem (car langentry)) | |
5172 (offset (cdr langentry))) | |
5173 (vhdl-set-offset langelem offset) | |
5174 ))) | |
5175 val)) | |
5176 ))) | |
5177 vars)) | |
5178 (vhdl-keep-region-active)) | |
5179 | |
5180 (defun vhdl-get-offset (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5181 "Get offset from LANGELEM which is a cons cell of the form: |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5182 \(SYMBOL . RELPOS). The symbol is matched against |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5183 vhdl-offsets-alist and the offset found there is either returned, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5184 or added to the indentation at RELPOS. If RELPOS is nil, then |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5185 the offset is simply returned." |
20665 | 5186 (let* ((symbol (car langelem)) |
5187 (relpos (cdr langelem)) | |
5188 (match (assq symbol vhdl-offsets-alist)) | |
5189 (offset (cdr-safe match))) | |
5190 ;; offset can be a number, a function, a variable, or one of the | |
5191 ;; symbols + or - | |
5192 (cond | |
5193 ((not match) | |
5194 (if vhdl-strict-syntax-p | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5195 (error "ERROR: Don't know how to indent a %s" symbol) |
20665 | 5196 (setq offset 0 |
5197 relpos 0))) | |
5198 ((eq offset '+) (setq offset vhdl-basic-offset)) | |
5199 ((eq offset '-) (setq offset (- vhdl-basic-offset))) | |
5200 ((eq offset '++) (setq offset (* 2 vhdl-basic-offset))) | |
5201 ((eq offset '--) (setq offset (* 2 (- vhdl-basic-offset)))) | |
5202 ((and (not (numberp offset)) | |
5203 (fboundp offset)) | |
5204 (setq offset (funcall offset langelem))) | |
5205 ((not (numberp offset)) | |
5206 (setq offset (eval offset))) | |
5207 ) | |
5208 (+ (if (and relpos | |
5209 (< relpos (vhdl-point 'bol))) | |
5210 (save-excursion | |
5211 (goto-char relpos) | |
5212 (current-column)) | |
5213 0) | |
5214 offset))) | |
5215 | |
5216 ;; Syntactic support functions: | |
5217 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5218 (defun vhdl-in-comment-p () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5219 "Check if point is in a comment." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5220 (eq (vhdl-in-literal) 'comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5221 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5222 (defun vhdl-in-string-p () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5223 "Check if point is in a string." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5224 (eq (vhdl-in-literal) 'string)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5225 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5226 (defun vhdl-in-literal () |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5227 "Determine if point is in a VHDL literal." |
20665 | 5228 (save-excursion |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5229 (let ((state (parse-partial-sexp (vhdl-point 'bol) (point)))) |
20665 | 5230 (cond |
5231 ((nth 3 state) 'string) | |
5232 ((nth 4 state) 'comment) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5233 (t nil))))) |
20665 | 5234 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5235 (defun vhdl-forward-comment (&optional direction) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5236 "Skip all comments (including whitespace). Skip backwards if DIRECTION is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5237 negative, skip forward otherwise." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5238 (interactive "p") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5239 (if (and direction (< direction 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5240 ;; skip backwards |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5241 (progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5242 (skip-chars-backward " \t\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5243 (while (re-search-backward "^[^\"-]*\\(\\(-?\"[^\"]*\"\\|-[^\"-]\\)[^\"-]*\\)*\\(--\\)" (vhdl-point 'bol) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5244 (goto-char (match-beginning 3)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5245 (skip-chars-backward " \t\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5246 ;; skip forwards |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5247 (skip-chars-forward " \t\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5248 (while (looking-at "--.*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5249 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5250 (skip-chars-forward " \t\n")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5251 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5252 ;; XEmacs hack: work around buggy `forward-comment' in XEmacs 21.4+ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5253 (unless (and vhdl-xemacs (string< "21.2" emacs-version)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5254 (defalias 'vhdl-forward-comment 'forward-comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5255 |
20665 | 5256 ;; This is the best we can do in Win-Emacs. |
5257 (defun vhdl-win-il (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5258 "Determine if point is in a VHDL literal." |
20665 | 5259 (save-excursion |
5260 (let* ((here (point)) | |
5261 (state nil) | |
5262 (match nil) | |
5263 (lim (or lim (vhdl-point 'bod)))) | |
5264 (goto-char lim ) | |
5265 (while (< (point) here) | |
5266 (setq match | |
5267 (and (re-search-forward "--\\|[\"']" | |
5268 here 'move) | |
5269 (buffer-substring (match-beginning 0) (match-end 0)))) | |
5270 (setq state | |
5271 (cond | |
5272 ;; no match | |
5273 ((null match) nil) | |
5274 ;; looking at the opening of a VHDL style comment | |
5275 ((string= "--" match) | |
5276 (if (<= here (progn (end-of-line) (point))) 'comment)) | |
5277 ;; looking at the opening of a double quote string | |
5278 ((string= "\"" match) | |
5279 (if (not (save-restriction | |
5280 ;; this seems to be necessary since the | |
5281 ;; re-search-forward will not work without it | |
5282 (narrow-to-region (point) here) | |
5283 (re-search-forward | |
5284 ;; this regexp matches a double quote | |
5285 ;; which is preceded by an even number | |
5286 ;; of backslashes, including zero | |
5287 "\\([^\\]\\|^\\)\\(\\\\\\\\\\)*\"" here 'move))) | |
5288 'string)) | |
5289 ;; looking at the opening of a single quote string | |
5290 ((string= "'" match) | |
5291 (if (not (save-restriction | |
5292 ;; see comments from above | |
5293 (narrow-to-region (point) here) | |
5294 (re-search-forward | |
5295 ;; this matches a single quote which is | |
5296 ;; preceded by zero or two backslashes. | |
5297 "\\([^\\]\\|^\\)\\(\\\\\\\\\\)?'" | |
5298 here 'move))) | |
5299 'string)) | |
5300 (t nil))) | |
5301 ) ; end-while | |
5302 state))) | |
5303 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5304 (and (string-match "Win-Emacs" emacs-version) |
20665 | 5305 (fset 'vhdl-in-literal 'vhdl-win-il)) |
5306 | |
5307 ;; Skipping of "syntactic whitespace". Syntactic whitespace is | |
5308 ;; defined as lexical whitespace or comments. Search no farther back | |
5309 ;; or forward than optional LIM. If LIM is omitted, (point-min) is | |
5310 ;; used for backward skipping, (point-max) is used for forward | |
5311 ;; skipping. | |
5312 | |
5313 (defun vhdl-forward-syntactic-ws (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5314 "Forward skip of syntactic whitespace." |
20665 | 5315 (save-restriction |
5316 (let* ((lim (or lim (point-max))) | |
5317 (here lim) | |
5318 (hugenum (point-max))) | |
5319 (narrow-to-region lim (point)) | |
5320 (while (/= here (point)) | |
5321 (setq here (point)) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5322 (vhdl-forward-comment hugenum))))) |
20665 | 5323 |
5324 ;; This is the best we can do in Win-Emacs. | |
5325 (defun vhdl-win-fsws (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5326 "Forward skip syntactic whitespace for Win-Emacs." |
20665 | 5327 (let ((lim (or lim (point-max))) |
5328 stop) | |
5329 (while (not stop) | |
5330 (skip-chars-forward " \t\n\r\f" lim) | |
5331 (cond | |
5332 ;; vhdl comment | |
5333 ((looking-at "--") (end-of-line)) | |
5334 ;; none of the above | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5335 (t (setq stop t)))))) |
20665 | 5336 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5337 (and (string-match "Win-Emacs" emacs-version) |
20665 | 5338 (fset 'vhdl-forward-syntactic-ws 'vhdl-win-fsws)) |
5339 | |
5340 (defun vhdl-backward-syntactic-ws (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5341 "Backward skip over syntactic whitespace." |
20665 | 5342 (save-restriction |
5343 (let* ((lim (or lim (point-min))) | |
5344 (here lim) | |
5345 (hugenum (- (point-max)))) | |
5346 (if (< lim (point)) | |
5347 (progn | |
5348 (narrow-to-region lim (point)) | |
5349 (while (/= here (point)) | |
5350 (setq here (point)) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5351 (vhdl-forward-comment hugenum))))))) |
20665 | 5352 |
5353 ;; This is the best we can do in Win-Emacs. | |
5354 (defun vhdl-win-bsws (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5355 "Backward skip syntactic whitespace for Win-Emacs." |
20665 | 5356 (let ((lim (or lim (vhdl-point 'bod))) |
5357 stop) | |
5358 (while (not stop) | |
5359 (skip-chars-backward " \t\n\r\f" lim) | |
5360 (cond | |
5361 ;; vhdl comment | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5362 ((eq (vhdl-in-literal) 'comment) |
20665 | 5363 (skip-chars-backward "^-" lim) |
5364 (skip-chars-backward "-" lim) | |
5365 (while (not (or (and (= (following-char) ?-) | |
5366 (= (char-after (1+ (point))) ?-)) | |
5367 (<= (point) lim))) | |
5368 (skip-chars-backward "^-" lim) | |
5369 (skip-chars-backward "-" lim))) | |
5370 ;; none of the above | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5371 (t (setq stop t)))))) |
20665 | 5372 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5373 (and (string-match "Win-Emacs" emacs-version) |
20665 | 5374 (fset 'vhdl-backward-syntactic-ws 'vhdl-win-bsws)) |
5375 | |
5376 ;; Functions to help finding the correct indentation column: | |
5377 | |
5378 (defun vhdl-first-word (point) | |
5379 "If the keyword at POINT is at boi, then return (current-column) at | |
5380 that point, else nil." | |
5381 (save-excursion | |
5382 (and (goto-char point) | |
5383 (eq (point) (vhdl-point 'boi)) | |
5384 (current-column)))) | |
5385 | |
5386 (defun vhdl-last-word (point) | |
5387 "If the keyword at POINT is at eoi, then return (current-column) at | |
5388 that point, else nil." | |
5389 (save-excursion | |
5390 (and (goto-char point) | |
5391 (save-excursion (or (eq (progn (forward-sexp) (point)) | |
5392 (vhdl-point 'eoi)) | |
5393 (looking-at "\\s-*\\(--\\)?"))) | |
5394 (current-column)))) | |
5395 | |
5396 ;; Core syntactic evaluation functions: | |
5397 | |
5398 (defconst vhdl-libunit-re | |
5399 "\\b\\(architecture\\|configuration\\|entity\\|package\\)\\b[^_]") | |
5400 | |
5401 (defun vhdl-libunit-p () | |
5402 (and | |
5403 (save-excursion | |
5404 (forward-sexp) | |
5405 (skip-chars-forward " \t\n") | |
5406 (not (looking-at "is\\b[^_]"))) | |
5407 (save-excursion | |
5408 (backward-sexp) | |
5409 (and (not (looking-at "use\\b[^_]")) | |
5410 (progn | |
5411 (forward-sexp) | |
5412 (vhdl-forward-syntactic-ws) | |
5413 (/= (following-char) ?:)))) | |
5414 )) | |
5415 | |
5416 (defconst vhdl-defun-re | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5417 "\\b\\(architecture\\|block\\|configuration\\|entity\\|package\\|process\\|procedural\\|procedure\\|function\\)\\b[^_]") |
20665 | 5418 |
5419 (defun vhdl-defun-p () | |
5420 (save-excursion | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5421 (if (looking-at "block\\|process\\|procedural") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5422 ;; "block", "process", "procedural": |
20665 | 5423 (save-excursion |
5424 (backward-sexp) | |
5425 (not (looking-at "end\\s-+\\w"))) | |
5426 ;; "architecture", "configuration", "entity", | |
5427 ;; "package", "procedure", "function": | |
5428 t))) | |
5429 | |
5430 (defun vhdl-corresponding-defun () | |
5431 "If the word at the current position corresponds to a \"defun\" | |
5432 keyword, then return a string that can be used to find the | |
5433 corresponding \"begin\" keyword, else return nil." | |
5434 (save-excursion | |
5435 (and (looking-at vhdl-defun-re) | |
5436 (vhdl-defun-p) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5437 (if (looking-at "block\\|process\\|procedural") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5438 ;; "block", "process". "procedural: |
20665 | 5439 (buffer-substring (match-beginning 0) (match-end 0)) |
5440 ;; "architecture", "configuration", "entity", "package", | |
5441 ;; "procedure", "function": | |
5442 "is")))) | |
5443 | |
5444 (defconst vhdl-begin-fwd-re | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5445 "\\b\\(is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\|units\\|record\\|for\\)\\b\\([^_]\\|\\'\\)" |
20665 | 5446 "A regular expression for searching forward that matches all known |
5447 \"begin\" keywords.") | |
5448 | |
5449 (defconst vhdl-begin-bwd-re | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5450 "\\b\\(is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\|units\\|record\\|for\\)\\b[^_]" |
20665 | 5451 "A regular expression for searching backward that matches all known |
5452 \"begin\" keywords.") | |
5453 | |
5454 (defun vhdl-begin-p (&optional lim) | |
5455 "Return t if we are looking at a real \"begin\" keyword. | |
5456 Assumes that the caller will make sure that we are looking at | |
5457 vhdl-begin-fwd-re, and are not inside a literal, and that we are not in | |
5458 the middle of an identifier that just happens to contain a \"begin\" | |
5459 keyword." | |
5460 (cond | |
5461 ;; "[architecture|case|configuration|entity|package| | |
5462 ;; procedure|function] ... is": | |
5463 ((and (looking-at "i") | |
5464 (save-excursion | |
5465 ;; Skip backward over first sexp (needed to skip over a | |
5466 ;; procedure interface list, and is harmless in other | |
5467 ;; situations). Note that we need "return" in the | |
5468 ;; following search list so that we don't run into | |
5469 ;; semicolons in the function interface list. | |
5470 (backward-sexp) | |
5471 (let (foundp) | |
5472 (while (and (not foundp) | |
5473 (re-search-backward | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5474 ";\\|\\b\\(architecture\\|case\\|configuration\\|entity\\|package\\|procedure\\|return\\|is\\|begin\\|process\\|procedural\\|block\\)\\b[^_]" |
20665 | 5475 lim 'move)) |
5476 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5477 (vhdl-in-literal)) |
20665 | 5478 (backward-char) |
5479 (setq foundp t)))) | |
5480 (and (/= (following-char) ?\;) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5481 (not (looking-at "is\\|begin\\|process\\|procedural\\|block"))))) |
20665 | 5482 t) |
5483 ;; "begin", "then": | |
5484 ((looking-at "be\\|t") | |
5485 t) | |
5486 ;; "else": | |
5487 ((and (looking-at "e") | |
5488 ;; make sure that the "else" isn't inside a | |
5489 ;; conditional signal assignment. | |
5490 (save-excursion | |
5491 (re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move) | |
5492 (or (eq (following-char) ?\;) | |
5493 (eq (point) lim)))) | |
5494 t) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5495 ;; "block", "generate", "loop", "process", "procedural", |
20665 | 5496 ;; "units", "record": |
5497 ((and (looking-at "bl\\|[glpur]") | |
5498 (save-excursion | |
5499 (backward-sexp) | |
5500 (not (looking-at "end\\s-+\\w")))) | |
5501 t) | |
5502 ;; "component": | |
5503 ((and (looking-at "c") | |
5504 (save-excursion | |
5505 (backward-sexp) | |
5506 (not (looking-at "end\\s-+\\w"))) | |
5507 ;; look out for the dreaded entity class in an attribute | |
5508 (save-excursion | |
5509 (vhdl-backward-syntactic-ws lim) | |
5510 (/= (preceding-char) ?:))) | |
5511 t) | |
5512 ;; "for" (inside configuration declaration): | |
5513 ((and (looking-at "f") | |
5514 (save-excursion | |
5515 (backward-sexp) | |
5516 (not (looking-at "end\\s-+\\w"))) | |
5517 (vhdl-has-syntax 'configuration)) | |
5518 t) | |
5519 )) | |
5520 | |
5521 (defun vhdl-corresponding-mid (&optional lim) | |
5522 (cond | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5523 ((looking-at "is\\|block\\|generate\\|process\\|procedural") |
20665 | 5524 "begin") |
5525 ((looking-at "then") | |
5526 "<else>") | |
5527 (t | |
5528 "end"))) | |
5529 | |
5530 (defun vhdl-corresponding-end (&optional lim) | |
5531 "If the word at the current position corresponds to a \"begin\" | |
5532 keyword, then return a vector containing enough information to find | |
5533 the corresponding \"end\" keyword, else return nil. The keyword to | |
5534 search forward for is aref 0. The column in which the keyword must | |
5535 appear is aref 1 or nil if any column is suitable. | |
5536 Assumes that the caller will make sure that we are not in the middle | |
5537 of an identifier that just happens to contain a \"begin\" keyword." | |
5538 (save-excursion | |
5539 (and (looking-at vhdl-begin-fwd-re) | |
5540 (/= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5541 (not (vhdl-in-literal)) |
20665 | 5542 (vhdl-begin-p lim) |
5543 (cond | |
5544 ;; "is", "generate", "loop": | |
5545 ((looking-at "[igl]") | |
5546 (vector "end" | |
5547 (and (vhdl-last-word (point)) | |
5548 (or (vhdl-first-word (point)) | |
5549 (save-excursion | |
5550 (vhdl-beginning-of-statement-1 lim) | |
5551 (vhdl-backward-skip-label lim) | |
5552 (vhdl-first-word (point))))))) | |
5553 ;; "begin", "else", "for": | |
5554 ((looking-at "be\\|[ef]") | |
5555 (vector "end" | |
5556 (and (vhdl-last-word (point)) | |
5557 (or (vhdl-first-word (point)) | |
5558 (save-excursion | |
5559 (vhdl-beginning-of-statement-1 lim) | |
5560 (vhdl-backward-skip-label lim) | |
5561 (vhdl-first-word (point))))))) | |
5562 ;; "component", "units", "record": | |
5563 ((looking-at "[cur]") | |
5564 ;; The first end found will close the block | |
5565 (vector "end" nil)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5566 ;; "block", "process", "procedural": |
20665 | 5567 ((looking-at "bl\\|p") |
5568 (vector "end" | |
5569 (or (vhdl-first-word (point)) | |
5570 (save-excursion | |
5571 (vhdl-beginning-of-statement-1 lim) | |
5572 (vhdl-backward-skip-label lim) | |
5573 (vhdl-first-word (point)))))) | |
5574 ;; "then": | |
5575 ((looking-at "t") | |
5576 (vector "elsif\\|else\\|end\\s-+if" | |
5577 (and (vhdl-last-word (point)) | |
5578 (or (vhdl-first-word (point)) | |
5579 (save-excursion | |
5580 (vhdl-beginning-of-statement-1 lim) | |
5581 (vhdl-backward-skip-label lim) | |
5582 (vhdl-first-word (point))))))) | |
5583 )))) | |
5584 | |
5585 (defconst vhdl-end-fwd-re "\\b\\(end\\|else\\|elsif\\)\\b\\([^_]\\|\\'\\)") | |
5586 | |
5587 (defconst vhdl-end-bwd-re "\\b\\(end\\|else\\|elsif\\)\\b[^_]") | |
5588 | |
5589 (defun vhdl-end-p (&optional lim) | |
5590 "Return t if we are looking at a real \"end\" keyword. | |
5591 Assumes that the caller will make sure that we are looking at | |
5592 vhdl-end-fwd-re, and are not inside a literal, and that we are not in | |
5593 the middle of an identifier that just happens to contain an \"end\" | |
5594 keyword." | |
5595 (or (not (looking-at "else")) | |
5596 ;; make sure that the "else" isn't inside a conditional signal | |
5597 ;; assignment. | |
5598 (save-excursion | |
5599 (re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move) | |
5600 (or (eq (following-char) ?\;) | |
5601 (eq (point) lim))))) | |
5602 | |
5603 (defun vhdl-corresponding-begin (&optional lim) | |
5604 "If the word at the current position corresponds to an \"end\" | |
5605 keyword, then return a vector containing enough information to find | |
5606 the corresponding \"begin\" keyword, else return nil. The keyword to | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5607 search backward for is aref 0. The column in which the keyword must |
20665 | 5608 appear is aref 1 or nil if any column is suitable. The supplementary |
5609 keyword to search forward for is aref 2 or nil if this is not | |
5610 required. If aref 3 is t, then the \"begin\" keyword may be found in | |
5611 the middle of a statement. | |
5612 Assumes that the caller will make sure that we are not in the middle | |
5613 of an identifier that just happens to contain an \"end\" keyword." | |
5614 (save-excursion | |
5615 (let (pos) | |
5616 (if (and (looking-at vhdl-end-fwd-re) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5617 (not (vhdl-in-literal)) |
20665 | 5618 (vhdl-end-p lim)) |
5619 (if (looking-at "el") | |
5620 ;; "else", "elsif": | |
5621 (vector "if\\|elsif" (vhdl-first-word (point)) "then" nil) | |
5622 ;; "end ...": | |
5623 (setq pos (point)) | |
5624 (forward-sexp) | |
5625 (skip-chars-forward " \t\n") | |
5626 (cond | |
5627 ;; "end if": | |
5628 ((looking-at "if\\b[^_]") | |
5629 (vector "else\\|elsif\\|if" | |
5630 (vhdl-first-word pos) | |
5631 "else\\|then" nil)) | |
5632 ;; "end component": | |
5633 ((looking-at "component\\b[^_]") | |
5634 (vector (buffer-substring (match-beginning 1) | |
5635 (match-end 1)) | |
5636 (vhdl-first-word pos) | |
5637 nil nil)) | |
5638 ;; "end units", "end record": | |
5639 ((looking-at "\\(units\\|record\\)\\b[^_]") | |
5640 (vector (buffer-substring (match-beginning 1) | |
5641 (match-end 1)) | |
5642 (vhdl-first-word pos) | |
5643 nil t)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5644 ;; "end block", "end process", "end procedural": |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5645 ((looking-at "\\(block\\|process\\|procedural\\)\\b[^_]") |
20665 | 5646 (vector "begin" (vhdl-first-word pos) nil nil)) |
5647 ;; "end case": | |
5648 ((looking-at "case\\b[^_]") | |
5649 (vector "case" (vhdl-first-word pos) "is" nil)) | |
5650 ;; "end generate": | |
5651 ((looking-at "generate\\b[^_]") | |
5652 (vector "generate\\|for\\|if" | |
5653 (vhdl-first-word pos) | |
5654 "generate" nil)) | |
5655 ;; "end loop": | |
5656 ((looking-at "loop\\b[^_]") | |
5657 (vector "loop\\|while\\|for" | |
5658 (vhdl-first-word pos) | |
5659 "loop" nil)) | |
5660 ;; "end for" (inside configuration declaration): | |
5661 ((looking-at "for\\b[^_]") | |
5662 (vector "for" (vhdl-first-word pos) nil nil)) | |
5663 ;; "end [id]": | |
5664 (t | |
5665 (vector "begin\\|architecture\\|configuration\\|entity\\|package\\|procedure\\|function" | |
5666 (vhdl-first-word pos) | |
5667 ;; return an alist of (statement . keyword) mappings | |
5668 '( | |
5669 ;; "begin ... end [id]": | |
5670 ("begin" . nil) | |
5671 ;; "architecture ... is ... begin ... end [id]": | |
5672 ("architecture" . "is") | |
5673 ;; "configuration ... is ... end [id]": | |
5674 ("configuration" . "is") | |
5675 ;; "entity ... is ... end [id]": | |
5676 ("entity" . "is") | |
5677 ;; "package ... is ... end [id]": | |
5678 ("package" . "is") | |
5679 ;; "procedure ... is ... begin ... end [id]": | |
5680 ("procedure" . "is") | |
5681 ;; "function ... is ... begin ... end [id]": | |
5682 ("function" . "is") | |
5683 ) | |
5684 nil)) | |
5685 ))) ; "end ..." | |
5686 ))) | |
5687 | |
5688 (defconst vhdl-leader-re | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5689 "\\b\\(block\\|component\\|process\\|procedural\\|for\\)\\b[^_]") |
20665 | 5690 |
5691 (defun vhdl-end-of-leader () | |
5692 (save-excursion | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5693 (cond ((looking-at "block\\|process\\|procedural") |
20665 | 5694 (if (save-excursion |
5695 (forward-sexp) | |
5696 (skip-chars-forward " \t\n") | |
5697 (= (following-char) ?\()) | |
5698 (forward-sexp 2) | |
5699 (forward-sexp)) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5700 (when (looking-at "[ \t\n]*is") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5701 (goto-char (match-end 0))) |
20665 | 5702 (point)) |
5703 ((looking-at "component") | |
5704 (forward-sexp 2) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5705 (when (looking-at "[ \t\n]*is") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5706 (goto-char (match-end 0))) |
20665 | 5707 (point)) |
5708 ((looking-at "for") | |
5709 (forward-sexp 2) | |
5710 (skip-chars-forward " \t\n") | |
5711 (while (looking-at "[,:(]") | |
5712 (forward-sexp) | |
5713 (skip-chars-forward " \t\n")) | |
5714 (point)) | |
5715 (t nil) | |
5716 ))) | |
5717 | |
5718 (defconst vhdl-trailer-re | |
5719 "\\b\\(is\\|then\\|generate\\|loop\\)\\b[^_]") | |
5720 | |
5721 (defconst vhdl-statement-fwd-re | |
5722 "\\b\\(if\\|for\\|while\\)\\b\\([^_]\\|\\'\\)" | |
5723 "A regular expression for searching forward that matches all known | |
5724 \"statement\" keywords.") | |
5725 | |
5726 (defconst vhdl-statement-bwd-re | |
5727 "\\b\\(if\\|for\\|while\\)\\b[^_]" | |
5728 "A regular expression for searching backward that matches all known | |
5729 \"statement\" keywords.") | |
5730 | |
5731 (defun vhdl-statement-p (&optional lim) | |
5732 "Return t if we are looking at a real \"statement\" keyword. | |
5733 Assumes that the caller will make sure that we are looking at | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5734 vhdl-statement-fwd-re, and are not inside a literal, and that we are not |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5735 in the middle of an identifier that just happens to contain a |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
5736 \"statement\" keyword." |
20665 | 5737 (cond |
5738 ;; "for" ... "generate": | |
5739 ((and (looking-at "f") | |
5740 ;; Make sure it's the start of a parameter specification. | |
5741 (save-excursion | |
5742 (forward-sexp 2) | |
5743 (skip-chars-forward " \t\n") | |
5744 (looking-at "in\\b[^_]")) | |
5745 ;; Make sure it's not an "end for". | |
5746 (save-excursion | |
5747 (backward-sexp) | |
5748 (not (looking-at "end\\s-+\\w")))) | |
5749 t) | |
5750 ;; "if" ... "then", "if" ... "generate", "if" ... "loop": | |
5751 ((and (looking-at "i") | |
5752 ;; Make sure it's not an "end if". | |
5753 (save-excursion | |
5754 (backward-sexp) | |
5755 (not (looking-at "end\\s-+\\w")))) | |
5756 t) | |
5757 ;; "while" ... "loop": | |
5758 ((looking-at "w") | |
5759 t) | |
5760 )) | |
5761 | |
5762 (defconst vhdl-case-alternative-re "when[( \t\n][^;=>]+=>" | |
5763 "Regexp describing a case statement alternative key.") | |
5764 | |
5765 (defun vhdl-case-alternative-p (&optional lim) | |
5766 "Return t if we are looking at a real case alternative. | |
5767 Assumes that the caller will make sure that we are looking at | |
5768 vhdl-case-alternative-re, and are not inside a literal, and that | |
5769 we are not in the middle of an identifier that just happens to | |
5770 contain a \"when\" keyword." | |
5771 (save-excursion | |
5772 (let (foundp) | |
5773 (while (and (not foundp) | |
5774 (re-search-backward ";\\|<=" lim 'move)) | |
5775 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5776 (vhdl-in-literal)) |
20665 | 5777 (backward-char) |
5778 (setq foundp t))) | |
5779 (or (eq (following-char) ?\;) | |
5780 (eq (point) lim))) | |
5781 )) | |
5782 | |
5783 ;; Core syntactic movement functions: | |
5784 | |
5785 (defconst vhdl-b-t-b-re | |
5786 (concat vhdl-begin-bwd-re "\\|" vhdl-end-bwd-re)) | |
5787 | |
5788 (defun vhdl-backward-to-block (&optional lim) | |
5789 "Move backward to the previous \"begin\" or \"end\" keyword." | |
5790 (let (foundp) | |
5791 (while (and (not foundp) | |
5792 (re-search-backward vhdl-b-t-b-re lim 'move)) | |
5793 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5794 (vhdl-in-literal)) |
20665 | 5795 (backward-char) |
5796 (cond | |
5797 ;; "begin" keyword: | |
5798 ((and (looking-at vhdl-begin-fwd-re) | |
5799 (/= (preceding-char) ?_) | |
5800 (vhdl-begin-p lim)) | |
5801 (setq foundp 'begin)) | |
5802 ;; "end" keyword: | |
5803 ((and (looking-at vhdl-end-fwd-re) | |
5804 (/= (preceding-char) ?_) | |
5805 (vhdl-end-p lim)) | |
5806 (setq foundp 'end)) | |
5807 )) | |
5808 ) | |
5809 foundp | |
5810 )) | |
5811 | |
5812 (defun vhdl-forward-sexp (&optional count lim) | |
5813 "Move forward across one balanced expression (sexp). | |
5814 With COUNT, do it that many times." | |
5815 (interactive "p") | |
5816 (let ((count (or count 1)) | |
5817 (case-fold-search t) | |
5818 end-vec target) | |
5819 (save-excursion | |
5820 (while (> count 0) | |
5821 ;; skip whitespace | |
5822 (skip-chars-forward " \t\n") | |
5823 ;; Check for an unbalanced "end" keyword | |
5824 (if (and (looking-at vhdl-end-fwd-re) | |
5825 (/= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5826 (not (vhdl-in-literal)) |
20665 | 5827 (vhdl-end-p lim) |
5828 (not (looking-at "else"))) | |
5829 (error | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5830 "ERROR: Containing expression ends prematurely in vhdl-forward-sexp")) |
20665 | 5831 ;; If the current keyword is a "begin" keyword, then find the |
5832 ;; corresponding "end" keyword. | |
5833 (if (setq end-vec (vhdl-corresponding-end lim)) | |
5834 (let ( | |
5835 ;; end-re is the statement keyword to search for | |
5836 (end-re | |
5837 (concat "\\b\\(" (aref end-vec 0) "\\)\\b\\([^_]\\|\\'\\)")) | |
5838 ;; column is either the statement keyword target column | |
5839 ;; or nil | |
5840 (column (aref end-vec 1)) | |
5841 (eol (vhdl-point 'eol)) | |
5842 foundp literal placeholder) | |
5843 ;; Look for the statement keyword. | |
5844 (while (and (not foundp) | |
5845 (re-search-forward end-re nil t) | |
5846 (setq placeholder (match-end 1)) | |
5847 (goto-char (match-beginning 0))) | |
5848 ;; If we are in a literal, or not in the right target | |
5849 ;; column and not on the same line as the begin, then | |
5850 ;; try again. | |
5851 (if (or (and column | |
5852 (/= (current-indentation) column) | |
5853 (> (point) eol)) | |
5854 (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5855 (setq literal (vhdl-in-literal))) |
20665 | 5856 (if (eq literal 'comment) |
5857 (end-of-line) | |
5858 (forward-char)) | |
5859 ;; An "else" keyword corresponds to both the opening brace | |
5860 ;; of the following sexp and the closing brace of the | |
5861 ;; previous sexp. | |
5862 (if (not (looking-at "else")) | |
5863 (goto-char placeholder)) | |
5864 (setq foundp t)) | |
5865 ) | |
5866 (if (not foundp) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5867 (error "ERROR: Unbalanced keywords in vhdl-forward-sexp")) |
20665 | 5868 ) |
5869 ;; If the current keyword is not a "begin" keyword, then just | |
5870 ;; perform the normal forward-sexp. | |
5871 (forward-sexp) | |
5872 ) | |
5873 (setq count (1- count)) | |
5874 ) | |
5875 (setq target (point))) | |
5876 (goto-char target) | |
5877 nil)) | |
5878 | |
5879 (defun vhdl-backward-sexp (&optional count lim) | |
5880 "Move backward across one balanced expression (sexp). | |
5881 With COUNT, do it that many times. LIM bounds any required backward | |
5882 searches." | |
5883 (interactive "p") | |
5884 (let ((count (or count 1)) | |
5885 (case-fold-search t) | |
5886 begin-vec target) | |
5887 (save-excursion | |
5888 (while (> count 0) | |
5889 ;; Perform the normal backward-sexp, unless we are looking at | |
5890 ;; "else" - an "else" keyword corresponds to both the opening brace | |
5891 ;; of the following sexp and the closing brace of the previous sexp. | |
5892 (if (and (looking-at "else\\b\\([^_]\\|\\'\\)") | |
5893 (/= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5894 (not (vhdl-in-literal))) |
20665 | 5895 nil |
5896 (backward-sexp) | |
5897 (if (and (looking-at vhdl-begin-fwd-re) | |
5898 (/= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5899 (not (vhdl-in-literal)) |
20665 | 5900 (vhdl-begin-p lim)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5901 (error "ERROR: Containing expression ends prematurely in vhdl-backward-sexp"))) |
20665 | 5902 ;; If the current keyword is an "end" keyword, then find the |
5903 ;; corresponding "begin" keyword. | |
5904 (if (and (setq begin-vec (vhdl-corresponding-begin lim)) | |
5905 (/= (preceding-char) ?_)) | |
5906 (let ( | |
5907 ;; begin-re is the statement keyword to search for | |
5908 (begin-re | |
5909 (concat "\\b\\(" (aref begin-vec 0) "\\)\\b[^_]")) | |
5910 ;; column is either the statement keyword target column | |
5911 ;; or nil | |
5912 (column (aref begin-vec 1)) | |
5913 ;; internal-p controls where the statement keyword can | |
5914 ;; be found. | |
5915 (internal-p (aref begin-vec 3)) | |
5916 (last-backward (point)) last-forward | |
5917 foundp literal keyword) | |
5918 ;; Look for the statement keyword. | |
5919 (while (and (not foundp) | |
5920 (re-search-backward begin-re lim t) | |
5921 (setq keyword | |
5922 (buffer-substring (match-beginning 1) | |
5923 (match-end 1)))) | |
5924 ;; If we are in a literal or in the wrong column, | |
5925 ;; then try again. | |
5926 (if (or (and column | |
5927 (and (/= (current-indentation) column) | |
5928 ;; possibly accept current-column as | |
5929 ;; well as current-indentation. | |
5930 (or (not internal-p) | |
5931 (/= (current-column) column)))) | |
5932 (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5933 (vhdl-in-literal)) |
20665 | 5934 (backward-char) |
5935 ;; If there is a supplementary keyword, then | |
5936 ;; search forward for it. | |
5937 (if (and (setq begin-re (aref begin-vec 2)) | |
5938 (or (not (listp begin-re)) | |
5939 ;; If begin-re is an alist, then find the | |
5940 ;; element corresponding to the actual | |
5941 ;; keyword that we found. | |
5942 (progn | |
5943 (setq begin-re | |
5944 (assoc keyword begin-re)) | |
5945 (and begin-re | |
5946 (setq begin-re (cdr begin-re)))))) | |
5947 (and | |
5948 (setq begin-re | |
5949 (concat "\\b\\(" begin-re "\\)\\b[^_]")) | |
5950 (save-excursion | |
5951 (setq last-forward (point)) | |
5952 ;; Look for the supplementary keyword | |
5953 ;; (bounded by the backward search start | |
5954 ;; point). | |
5955 (while (and (not foundp) | |
5956 (re-search-forward begin-re | |
5957 last-backward t) | |
5958 (goto-char (match-beginning 1))) | |
5959 ;; If we are in a literal, then try again. | |
5960 (if (or (= (preceding-char) ?_) | |
5961 (setq literal | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5962 (vhdl-in-literal))) |
20665 | 5963 (if (eq literal 'comment) |
5964 (goto-char | |
5965 (min (vhdl-point 'eol) last-backward)) | |
5966 (forward-char)) | |
5967 ;; We have found the supplementary keyword. | |
5968 ;; Save the position of the keyword in foundp. | |
5969 (setq foundp (point))) | |
5970 ) | |
5971 foundp) | |
5972 ;; If the supplementary keyword was found, then | |
5973 ;; move point to the supplementary keyword. | |
5974 (goto-char foundp)) | |
5975 ;; If there was no supplementary keyword, then | |
5976 ;; point is already at the statement keyword. | |
5977 (setq foundp t))) | |
5978 ) ; end of the search for the statement keyword | |
5979 (if (not foundp) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5980 (error "ERROR: Unbalanced keywords in vhdl-backward-sexp")) |
20665 | 5981 )) |
5982 (setq count (1- count)) | |
5983 ) | |
5984 (setq target (point))) | |
5985 (goto-char target) | |
5986 nil)) | |
5987 | |
5988 (defun vhdl-backward-up-list (&optional count limit) | |
5989 "Move backward out of one level of blocks. | |
5990 With argument, do this that many times." | |
5991 (interactive "p") | |
5992 (let ((count (or count 1)) | |
5993 target) | |
5994 (save-excursion | |
5995 (while (> count 0) | |
5996 (if (looking-at vhdl-defun-re) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
5997 (error "ERROR: Unbalanced blocks")) |
20665 | 5998 (vhdl-backward-to-block limit) |
5999 (setq count (1- count))) | |
6000 (setq target (point))) | |
6001 (goto-char target))) | |
6002 | |
6003 (defun vhdl-end-of-defun (&optional count) | |
6004 "Move forward to the end of a VHDL defun." | |
6005 (interactive) | |
6006 (let ((case-fold-search t)) | |
6007 (vhdl-beginning-of-defun) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6008 (if (not (looking-at "block\\|process\\|procedural")) |
20665 | 6009 (re-search-forward "\\bis\\b")) |
6010 (vhdl-forward-sexp))) | |
6011 | |
6012 (defun vhdl-mark-defun () | |
6013 "Put mark at end of this \"defun\", point at beginning." | |
6014 (interactive) | |
6015 (let ((case-fold-search t)) | |
6016 (push-mark) | |
6017 (vhdl-beginning-of-defun) | |
6018 (push-mark) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6019 (if (not (looking-at "block\\|process\\|procedural")) |
20665 | 6020 (re-search-forward "\\bis\\b")) |
6021 (vhdl-forward-sexp) | |
6022 (exchange-point-and-mark))) | |
6023 | |
6024 (defun vhdl-beginning-of-libunit () | |
6025 "Move backward to the beginning of a VHDL library unit. | |
6026 Returns the location of the corresponding begin keyword, unless search | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6027 stops due to beginning or end of buffer. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6028 Note that if point is between the \"libunit\" keyword and the |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6029 corresponding \"begin\" keyword, then that libunit will not be |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6030 recognised, and the search will continue backwards. If point is |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6031 at the \"begin\" keyword, then the defun will be recognised. The |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6032 returned point is at the first character of the \"libunit\" keyword." |
20665 | 6033 (let ((last-forward (point)) |
6034 (last-backward | |
6035 ;; Just in case we are actually sitting on the "begin" | |
6036 ;; keyword, allow for the keyword and an extra character, | |
6037 ;; as this will be used when looking forward for the | |
6038 ;; "begin" keyword. | |
6039 (save-excursion (forward-word 1) (1+ (point)))) | |
6040 foundp literal placeholder) | |
6041 ;; Find the "libunit" keyword. | |
6042 (while (and (not foundp) | |
6043 (re-search-backward vhdl-libunit-re nil 'move)) | |
6044 ;; If we are in a literal, or not at a real libunit, then try again. | |
6045 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6046 (vhdl-in-literal) |
20665 | 6047 (not (vhdl-libunit-p))) |
6048 (backward-char) | |
6049 ;; Find the corresponding "begin" keyword. | |
6050 (setq last-forward (point)) | |
6051 (while (and (not foundp) | |
6052 (re-search-forward "\\bis\\b[^_]" last-backward t) | |
6053 (setq placeholder (match-beginning 0))) | |
6054 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6055 (setq literal (vhdl-in-literal))) |
20665 | 6056 ;; It wasn't a real keyword, so keep searching. |
6057 (if (eq literal 'comment) | |
6058 (goto-char | |
6059 (min (vhdl-point 'eol) last-backward)) | |
6060 (forward-char)) | |
6061 ;; We have found the begin keyword, loop will exit. | |
6062 (setq foundp placeholder))) | |
6063 ;; Go back to the libunit keyword | |
6064 (goto-char last-forward))) | |
6065 foundp)) | |
6066 | |
6067 (defun vhdl-beginning-of-defun (&optional count) | |
6068 "Move backward to the beginning of a VHDL defun. | |
6069 With argument, do it that many times. | |
6070 Returns the location of the corresponding begin keyword, unless search | |
6071 stops due to beginning or end of buffer." | |
6072 ;; Note that if point is between the "defun" keyword and the | |
6073 ;; corresponding "begin" keyword, then that defun will not be | |
6074 ;; recognised, and the search will continue backwards. If point is | |
6075 ;; at the "begin" keyword, then the defun will be recognised. The | |
6076 ;; returned point is at the first character of the "defun" keyword. | |
6077 (interactive "p") | |
6078 (let ((count (or count 1)) | |
6079 (case-fold-search t) | |
6080 (last-forward (point)) | |
6081 foundp) | |
6082 (while (> count 0) | |
6083 (setq foundp nil) | |
6084 (goto-char last-forward) | |
6085 (let ((last-backward | |
6086 ;; Just in case we are actually sitting on the "begin" | |
6087 ;; keyword, allow for the keyword and an extra character, | |
6088 ;; as this will be used when looking forward for the | |
6089 ;; "begin" keyword. | |
6090 (save-excursion (forward-word 1) (1+ (point)))) | |
6091 begin-string literal) | |
6092 (while (and (not foundp) | |
6093 (re-search-backward vhdl-defun-re nil 'move)) | |
6094 ;; If we are in a literal, then try again. | |
6095 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6096 (vhdl-in-literal)) |
20665 | 6097 (backward-char) |
6098 (if (setq begin-string (vhdl-corresponding-defun)) | |
6099 ;; This is a real defun keyword. | |
6100 ;; Find the corresponding "begin" keyword. | |
6101 ;; Look for the begin keyword. | |
6102 (progn | |
6103 ;; Save the search start point. | |
6104 (setq last-forward (point)) | |
6105 (while (and (not foundp) | |
6106 (search-forward begin-string last-backward t)) | |
6107 (if (or (= (preceding-char) ?_) | |
6108 (save-match-data | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6109 (setq literal (vhdl-in-literal)))) |
20665 | 6110 ;; It wasn't a real keyword, so keep searching. |
6111 (if (eq literal 'comment) | |
6112 (goto-char | |
6113 (min (vhdl-point 'eol) last-backward)) | |
6114 (forward-char)) | |
6115 ;; We have found the begin keyword, loop will exit. | |
6116 (setq foundp (match-beginning 0))) | |
6117 ) | |
6118 ;; Go back to the defun keyword | |
6119 (goto-char last-forward)) ; end search for begin keyword | |
6120 )) | |
6121 ) ; end of the search for the defun keyword | |
6122 ) | |
6123 (setq count (1- count)) | |
6124 ) | |
6125 (vhdl-keep-region-active) | |
6126 foundp)) | |
6127 | |
57820
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
6128 (defun vhdl-beginning-of-statement (&optional count lim interactive) |
20665 | 6129 "Go to the beginning of the innermost VHDL statement. |
6130 With prefix arg, go back N - 1 statements. If already at the | |
6131 beginning of a statement then go to the beginning of the preceding | |
6132 one. If within a string or comment, or next to a comment (only | |
6133 whitespace between), move by sentences instead of statements. | |
6134 | |
57820
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
6135 When called from a program, this function takes 3 optional args: the |
20665 | 6136 prefix arg, and a buffer position limit which is the farthest back to |
57820
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
6137 search, and something whose meaning I don't understand." |
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
6138 (interactive "p\np") |
20665 | 6139 (let ((count (or count 1)) |
6140 (case-fold-search t) | |
6141 (lim (or lim (point-min))) | |
6142 (here (point)) | |
6143 state) | |
6144 (save-excursion | |
6145 (goto-char lim) | |
6146 (setq state (parse-partial-sexp (point) here nil nil))) | |
57820
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
6147 (if (and interactive |
20665 | 6148 (or (nth 3 state) |
6149 (nth 4 state) | |
6150 (looking-at (concat "[ \t]*" comment-start-skip)))) | |
6151 (forward-sentence (- count)) | |
6152 (while (> count 0) | |
6153 (vhdl-beginning-of-statement-1 lim) | |
6154 (setq count (1- count)))) | |
6155 ;; its possible we've been left up-buf of lim | |
6156 (goto-char (max (point) lim)) | |
6157 ) | |
6158 (vhdl-keep-region-active)) | |
6159 | |
6160 (defconst vhdl-e-o-s-re | |
6161 (concat ";\\|" vhdl-begin-fwd-re "\\|" vhdl-statement-fwd-re)) | |
6162 | |
6163 (defun vhdl-end-of-statement () | |
6164 "Very simple implementation." | |
6165 (interactive) | |
6166 (re-search-forward vhdl-e-o-s-re)) | |
6167 | |
6168 (defconst vhdl-b-o-s-re | |
6169 (concat ";\\|\(\\|\)\\|\\bwhen\\b[^_]\\|" | |
6170 vhdl-begin-bwd-re "\\|" vhdl-statement-bwd-re)) | |
6171 | |
6172 (defun vhdl-beginning-of-statement-1 (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6173 "Move to the start of the current statement, or the previous |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6174 statement if already at the beginning of one." |
20665 | 6175 (let ((lim (or lim (point-min))) |
6176 (here (point)) | |
6177 (pos (point)) | |
6178 donep) | |
6179 ;; go backwards one balanced expression, but be careful of | |
6180 ;; unbalanced paren being reached | |
6181 (if (not (vhdl-safe (progn (backward-sexp) t))) | |
6182 (progn | |
6183 (backward-up-list 1) | |
6184 (forward-char) | |
6185 (vhdl-forward-syntactic-ws here) | |
6186 (setq donep t))) | |
6187 (while (and (not donep) | |
6188 (not (bobp)) | |
6189 ;; look backwards for a statement boundary | |
6190 (re-search-backward vhdl-b-o-s-re lim 'move)) | |
6191 (if (or (= (preceding-char) ?_) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6192 (vhdl-in-literal)) |
20665 | 6193 (backward-char) |
6194 (cond | |
6195 ;; If we are looking at an open paren, then stop after it | |
6196 ((eq (following-char) ?\() | |
6197 (forward-char) | |
6198 (vhdl-forward-syntactic-ws here) | |
6199 (setq donep t)) | |
6200 ;; If we are looking at a close paren, then skip it | |
6201 ((eq (following-char) ?\)) | |
6202 (forward-char) | |
6203 (setq pos (point)) | |
6204 (backward-sexp) | |
6205 (if (< (point) lim) | |
6206 (progn (goto-char pos) | |
6207 (vhdl-forward-syntactic-ws here) | |
6208 (setq donep t)))) | |
6209 ;; If we are looking at a semicolon, then stop | |
6210 ((eq (following-char) ?\;) | |
6211 (progn | |
6212 (forward-char) | |
6213 (vhdl-forward-syntactic-ws here) | |
6214 (setq donep t))) | |
6215 ;; If we are looking at a "begin", then stop | |
6216 ((and (looking-at vhdl-begin-fwd-re) | |
6217 (/= (preceding-char) ?_) | |
6218 (vhdl-begin-p nil)) | |
6219 ;; If it's a leader "begin", then find the | |
6220 ;; right place | |
6221 (if (looking-at vhdl-leader-re) | |
6222 (save-excursion | |
6223 ;; set a default stop point at the begin | |
6224 (setq pos (point)) | |
6225 ;; is the start point inside the leader area ? | |
6226 (goto-char (vhdl-end-of-leader)) | |
6227 (vhdl-forward-syntactic-ws here) | |
6228 (if (< (point) here) | |
6229 ;; start point was not inside leader area | |
6230 ;; set stop point at word after leader | |
6231 (setq pos (point)))) | |
6232 (forward-word 1) | |
6233 (vhdl-forward-syntactic-ws here) | |
6234 (setq pos (point))) | |
6235 (goto-char pos) | |
6236 (setq donep t)) | |
6237 ;; If we are looking at a "statement", then stop | |
6238 ((and (looking-at vhdl-statement-fwd-re) | |
6239 (/= (preceding-char) ?_) | |
6240 (vhdl-statement-p nil)) | |
6241 (setq donep t)) | |
6242 ;; If we are looking at a case alternative key, then stop | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6243 ((and (looking-at vhdl-case-alternative-re) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6244 (vhdl-case-alternative-p lim)) |
20665 | 6245 (save-excursion |
6246 ;; set a default stop point at the when | |
6247 (setq pos (point)) | |
6248 ;; is the start point inside the case alternative key ? | |
6249 (looking-at vhdl-case-alternative-re) | |
6250 (goto-char (match-end 0)) | |
6251 (vhdl-forward-syntactic-ws here) | |
6252 (if (< (point) here) | |
6253 ;; start point was not inside the case alternative key | |
6254 ;; set stop point at word after case alternative keyleader | |
6255 (setq pos (point)))) | |
6256 (goto-char pos) | |
6257 (setq donep t)) | |
6258 ;; Bogus find, continue | |
6259 (t | |
6260 (backward-char))))) | |
6261 )) | |
6262 | |
6263 ;; Defuns for calculating the current syntactic state: | |
6264 | |
6265 (defun vhdl-get-library-unit (bod placeholder) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6266 "If there is an enclosing library unit at bod, with it's \"begin\" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6267 keyword at placeholder, then return the library unit type." |
20665 | 6268 (let ((here (vhdl-point 'bol))) |
6269 (if (save-excursion | |
6270 (goto-char placeholder) | |
6271 (vhdl-safe (vhdl-forward-sexp 1 bod)) | |
6272 (<= here (point))) | |
6273 (save-excursion | |
6274 (goto-char bod) | |
6275 (cond | |
6276 ((looking-at "e") 'entity) | |
6277 ((looking-at "a") 'architecture) | |
6278 ((looking-at "c") 'configuration) | |
6279 ((looking-at "p") | |
6280 (save-excursion | |
6281 (goto-char bod) | |
6282 (forward-sexp) | |
6283 (vhdl-forward-syntactic-ws here) | |
6284 (if (looking-at "body\\b[^_]") | |
6285 'package-body 'package)))))) | |
6286 )) | |
6287 | |
6288 (defun vhdl-get-block-state (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6289 "Finds and records all the closest opens. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6290 lim is the furthest back we need to search (it should be the |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6291 previous libunit keyword)." |
20665 | 6292 (let ((here (point)) |
6293 (lim (or lim (point-min))) | |
6294 keyword sexp-start sexp-mid sexp-end | |
6295 preceding-sexp containing-sexp | |
6296 containing-begin containing-mid containing-paren) | |
6297 (save-excursion | |
6298 ;; Find the containing-paren, and use that as the limit | |
6299 (if (setq containing-paren | |
6300 (save-restriction | |
6301 (narrow-to-region lim (point)) | |
6302 (vhdl-safe (scan-lists (point) -1 1)))) | |
6303 (setq lim containing-paren)) | |
6304 ;; Look backwards for "begin" and "end" keywords. | |
6305 (while (and (> (point) lim) | |
6306 (not containing-sexp)) | |
6307 (setq keyword (vhdl-backward-to-block lim)) | |
6308 (cond | |
6309 ((eq keyword 'begin) | |
6310 ;; Found a "begin" keyword | |
6311 (setq sexp-start (point)) | |
6312 (setq sexp-mid (vhdl-corresponding-mid lim)) | |
6313 (setq sexp-end (vhdl-safe | |
6314 (save-excursion | |
6315 (vhdl-forward-sexp 1 lim) (point)))) | |
6316 (if (and sexp-end (<= sexp-end here)) | |
6317 ;; we want to record this sexp, but we only want to | |
6318 ;; record the last-most of any of them before here | |
6319 (or preceding-sexp | |
6320 (setq preceding-sexp sexp-start)) | |
6321 ;; we're contained in this sexp so put sexp-start on | |
6322 ;; front of list | |
6323 (setq containing-sexp sexp-start) | |
6324 (setq containing-mid sexp-mid) | |
6325 (setq containing-begin t))) | |
6326 ((eq keyword 'end) | |
6327 ;; Found an "end" keyword | |
6328 (forward-sexp) | |
6329 (setq sexp-end (point)) | |
6330 (setq sexp-mid nil) | |
6331 (setq sexp-start | |
6332 (or (vhdl-safe (vhdl-backward-sexp 1 lim) (point)) | |
6333 (progn (backward-sexp) (point)))) | |
6334 ;; we want to record this sexp, but we only want to | |
6335 ;; record the last-most of any of them before here | |
6336 (or preceding-sexp | |
6337 (setq preceding-sexp sexp-start))) | |
6338 ))) | |
6339 ;; Check if the containing-paren should be the containing-sexp | |
6340 (if (and containing-paren | |
6341 (or (null containing-sexp) | |
6342 (< containing-sexp containing-paren))) | |
6343 (setq containing-sexp containing-paren | |
6344 preceding-sexp nil | |
6345 containing-begin nil | |
6346 containing-mid nil)) | |
6347 (vector containing-sexp preceding-sexp containing-begin containing-mid) | |
6348 )) | |
6349 | |
6350 | |
6351 (defconst vhdl-s-c-a-re | |
6352 (concat vhdl-case-alternative-re "\\|" vhdl-case-header-key)) | |
6353 | |
6354 (defun vhdl-skip-case-alternative (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6355 "Skip forward over case/when bodies, with optional maximal |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6356 limit. If no next case alternative is found, nil is returned and point |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6357 is not moved." |
20665 | 6358 (let ((lim (or lim (point-max))) |
6359 (here (point)) | |
6360 donep foundp) | |
6361 (while (and (< (point) lim) | |
6362 (not donep)) | |
6363 (if (and (re-search-forward vhdl-s-c-a-re lim 'move) | |
6364 (save-match-data | |
6365 (not (vhdl-in-literal))) | |
6366 (/= (match-beginning 0) here)) | |
6367 (progn | |
6368 (goto-char (match-beginning 0)) | |
6369 (cond | |
6370 ((and (looking-at "case") | |
6371 (re-search-forward "\\bis[^_]" lim t)) | |
6372 (backward-sexp) | |
6373 (vhdl-forward-sexp)) | |
6374 (t | |
6375 (setq donep t | |
6376 foundp t)))))) | |
6377 (if (not foundp) | |
6378 (goto-char here)) | |
6379 foundp)) | |
6380 | |
6381 (defun vhdl-backward-skip-label (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6382 "Skip backward over a label, with optional maximal |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6383 limit. If label is not found, nil is returned and point |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6384 is not moved." |
20665 | 6385 (let ((lim (or lim (point-min))) |
6386 placeholder) | |
6387 (if (save-excursion | |
6388 (vhdl-backward-syntactic-ws lim) | |
6389 (and (eq (preceding-char) ?:) | |
6390 (progn | |
6391 (backward-sexp) | |
6392 (setq placeholder (point)) | |
6393 (looking-at vhdl-label-key)))) | |
6394 (goto-char placeholder)) | |
6395 )) | |
6396 | |
6397 (defun vhdl-forward-skip-label (&optional lim) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6398 "Skip forward over a label, with optional maximal |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6399 limit. If label is not found, nil is returned and point |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6400 is not moved." |
20665 | 6401 (let ((lim (or lim (point-max)))) |
6402 (if (looking-at vhdl-label-key) | |
6403 (progn | |
6404 (goto-char (match-end 0)) | |
6405 (vhdl-forward-syntactic-ws lim))) | |
6406 )) | |
6407 | |
6408 (defun vhdl-get-syntactic-context () | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6409 "Guess the syntactic description of the current line of VHDL code." |
20665 | 6410 (save-excursion |
6411 (save-restriction | |
6412 (beginning-of-line) | |
6413 (let* ((indent-point (point)) | |
6414 (case-fold-search t) | |
6415 vec literal containing-sexp preceding-sexp | |
6416 containing-begin containing-mid containing-leader | |
6417 char-before-ip char-after-ip begin-after-ip end-after-ip | |
6418 placeholder lim library-unit | |
6419 ) | |
6420 | |
6421 ;; Reset the syntactic context | |
6422 (setq vhdl-syntactic-context nil) | |
6423 | |
6424 (save-excursion | |
6425 ;; Move to the start of the previous library unit, and | |
6426 ;; record the position of the "begin" keyword. | |
6427 (setq placeholder (vhdl-beginning-of-libunit)) | |
6428 ;; The position of the "libunit" keyword gives us a gross | |
6429 ;; limit point. | |
6430 (setq lim (point)) | |
6431 ) | |
6432 | |
6433 ;; If there is a previous library unit, and we are enclosed by | |
6434 ;; it, then set the syntax accordingly. | |
6435 (and placeholder | |
6436 (setq library-unit (vhdl-get-library-unit lim placeholder)) | |
6437 (vhdl-add-syntax library-unit lim)) | |
6438 | |
6439 ;; Find the surrounding state. | |
6440 (if (setq vec (vhdl-get-block-state lim)) | |
6441 (progn | |
6442 (setq containing-sexp (aref vec 0)) | |
6443 (setq preceding-sexp (aref vec 1)) | |
6444 (setq containing-begin (aref vec 2)) | |
6445 (setq containing-mid (aref vec 3)) | |
6446 )) | |
6447 | |
6448 ;; set the limit on the farthest back we need to search | |
6449 (setq lim (if containing-sexp | |
6450 (save-excursion | |
6451 (goto-char containing-sexp) | |
6452 ;; set containing-leader if required | |
6453 (if (looking-at vhdl-leader-re) | |
6454 (setq containing-leader (vhdl-end-of-leader))) | |
6455 (vhdl-point 'bol)) | |
6456 (point-min))) | |
6457 | |
6458 ;; cache char before and after indent point, and move point to | |
6459 ;; the most likely position to perform the majority of tests | |
6460 (goto-char indent-point) | |
6461 (skip-chars-forward " \t") | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6462 (setq literal (vhdl-in-literal)) |
20665 | 6463 (setq char-after-ip (following-char)) |
6464 (setq begin-after-ip (and | |
6465 (not literal) | |
6466 (looking-at vhdl-begin-fwd-re) | |
6467 (vhdl-begin-p))) | |
6468 (setq end-after-ip (and | |
6469 (not literal) | |
6470 (looking-at vhdl-end-fwd-re) | |
6471 (vhdl-end-p))) | |
6472 (vhdl-backward-syntactic-ws lim) | |
6473 (setq char-before-ip (preceding-char)) | |
6474 (goto-char indent-point) | |
6475 (skip-chars-forward " \t") | |
6476 | |
6477 ;; now figure out syntactic qualities of the current line | |
6478 (cond | |
6479 ;; CASE 1: in a string or comment. | |
6480 ((memq literal '(string comment)) | |
6481 (vhdl-add-syntax literal (vhdl-point 'bopl))) | |
6482 ;; CASE 2: Line is at top level. | |
6483 ((null containing-sexp) | |
6484 ;; Find the point to which indentation will be relative | |
6485 (save-excursion | |
6486 (if (null preceding-sexp) | |
6487 ;; CASE 2X.1 | |
6488 ;; no preceding-sexp -> use the preceding statement | |
6489 (vhdl-beginning-of-statement-1 lim) | |
6490 ;; CASE 2X.2 | |
6491 ;; if there is a preceding-sexp then indent relative to it | |
6492 (goto-char preceding-sexp) | |
6493 ;; if not at boi, then the block-opening keyword is | |
6494 ;; probably following a label, so we need a different | |
6495 ;; relpos | |
6496 (if (/= (point) (vhdl-point 'boi)) | |
6497 ;; CASE 2X.3 | |
6498 (vhdl-beginning-of-statement-1 lim))) | |
6499 ;; v-b-o-s could have left us at point-min | |
6500 (and (bobp) | |
6501 ;; CASE 2X.4 | |
6502 (vhdl-forward-syntactic-ws indent-point)) | |
6503 (setq placeholder (point))) | |
6504 (cond | |
6505 ;; CASE 2A : we are looking at a block-open | |
6506 (begin-after-ip | |
6507 (vhdl-add-syntax 'block-open placeholder)) | |
6508 ;; CASE 2B: we are looking at a block-close | |
6509 (end-after-ip | |
6510 (vhdl-add-syntax 'block-close placeholder)) | |
6511 ;; CASE 2C: we are looking at a top-level statement | |
6512 ((progn | |
6513 (vhdl-backward-syntactic-ws lim) | |
6514 (or (bobp) | |
6515 (= (preceding-char) ?\;))) | |
6516 (vhdl-add-syntax 'statement placeholder)) | |
6517 ;; CASE 2D: we are looking at a top-level statement-cont | |
6518 (t | |
6519 (vhdl-beginning-of-statement-1 lim) | |
6520 ;; v-b-o-s could have left us at point-min | |
6521 (and (bobp) | |
6522 ;; CASE 2D.1 | |
6523 (vhdl-forward-syntactic-ws indent-point)) | |
6524 (vhdl-add-syntax 'statement-cont (point))) | |
6525 )) ; end CASE 2 | |
6526 ;; CASE 3: line is inside parentheses. Most likely we are | |
6527 ;; either in a subprogram argument (interface) list, or a | |
6528 ;; continued expression containing parentheses. | |
6529 ((null containing-begin) | |
6530 (vhdl-backward-syntactic-ws containing-sexp) | |
6531 (cond | |
6532 ;; CASE 3A: we are looking at the arglist closing paren | |
6533 ((eq char-after-ip ?\)) | |
6534 (goto-char containing-sexp) | |
6535 (vhdl-add-syntax 'arglist-close (vhdl-point 'boi))) | |
6536 ;; CASE 3B: we are looking at the first argument in an empty | |
6537 ;; argument list. | |
6538 ((eq char-before-ip ?\() | |
6539 (goto-char containing-sexp) | |
6540 (vhdl-add-syntax 'arglist-intro (vhdl-point 'boi))) | |
6541 ;; CASE 3C: we are looking at an arglist continuation line, | |
6542 ;; but the preceding argument is on the same line as the | |
6543 ;; opening paren. This case includes multi-line | |
6544 ;; expression paren groupings. | |
6545 ((and (save-excursion | |
6546 (goto-char (1+ containing-sexp)) | |
6547 (skip-chars-forward " \t") | |
6548 (not (eolp)) | |
6549 (not (looking-at "--"))) | |
6550 (save-excursion | |
6551 (vhdl-beginning-of-statement-1 containing-sexp) | |
6552 (skip-chars-backward " \t(") | |
6553 (<= (point) containing-sexp))) | |
6554 (goto-char containing-sexp) | |
6555 (vhdl-add-syntax 'arglist-cont-nonempty (vhdl-point 'boi))) | |
6556 ;; CASE 3D: we are looking at just a normal arglist | |
6557 ;; continuation line | |
6558 (t (vhdl-beginning-of-statement-1 containing-sexp) | |
6559 (vhdl-forward-syntactic-ws indent-point) | |
6560 (vhdl-add-syntax 'arglist-cont (vhdl-point 'boi))) | |
6561 )) | |
6562 ;; CASE 4: A block mid open | |
6563 ((and begin-after-ip | |
6564 (looking-at containing-mid)) | |
6565 (goto-char containing-sexp) | |
6566 ;; If the \"begin\" keyword is a trailer, then find v-b-o-s | |
6567 (if (looking-at vhdl-trailer-re) | |
6568 ;; CASE 4.1 | |
6569 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil))) | |
6570 (vhdl-backward-skip-label (vhdl-point 'boi)) | |
6571 (vhdl-add-syntax 'block-open (point))) | |
6572 ;; CASE 5: block close brace | |
6573 (end-after-ip | |
6574 (goto-char containing-sexp) | |
6575 ;; If the \"begin\" keyword is a trailer, then find v-b-o-s | |
6576 (if (looking-at vhdl-trailer-re) | |
6577 ;; CASE 5.1 | |
6578 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil))) | |
6579 (vhdl-backward-skip-label (vhdl-point 'boi)) | |
6580 (vhdl-add-syntax 'block-close (point))) | |
6581 ;; CASE 6: A continued statement | |
6582 ((and (/= char-before-ip ?\;) | |
6583 ;; check it's not a trailer begin keyword, or a begin | |
6584 ;; keyword immediately following a label. | |
6585 (not (and begin-after-ip | |
6586 (or (looking-at vhdl-trailer-re) | |
6587 (save-excursion | |
6588 (vhdl-backward-skip-label containing-sexp))))) | |
6589 ;; check it's not a statement keyword | |
6590 (not (and (looking-at vhdl-statement-fwd-re) | |
6591 (vhdl-statement-p))) | |
6592 ;; see if the b-o-s is before the indent point | |
6593 (> indent-point | |
6594 (save-excursion | |
6595 (vhdl-beginning-of-statement-1 containing-sexp) | |
6596 ;; If we ended up after a leader, then this will | |
6597 ;; move us forward to the start of the first | |
6598 ;; statement. Note that a containing sexp here is | |
6599 ;; always a keyword, not a paren, so this will | |
6600 ;; have no effect if we hit the containing-sexp. | |
6601 (vhdl-forward-syntactic-ws indent-point) | |
6602 (setq placeholder (point)))) | |
6603 ;; check it's not a block-intro | |
6604 (/= placeholder containing-sexp) | |
6605 ;; check it's not a case block-intro | |
6606 (save-excursion | |
6607 (goto-char placeholder) | |
6608 (or (not (looking-at vhdl-case-alternative-re)) | |
6609 (> (match-end 0) indent-point)))) | |
6610 ;; Make placeholder skip a label, but only if it puts us | |
6611 ;; before the indent point at the start of a line. | |
6612 (let ((new placeholder)) | |
6613 (if (and (> indent-point | |
6614 (save-excursion | |
6615 (goto-char placeholder) | |
6616 (vhdl-forward-skip-label indent-point) | |
6617 (setq new (point)))) | |
6618 (save-excursion | |
6619 (goto-char new) | |
6620 (eq new (progn (back-to-indentation) (point))))) | |
6621 (setq placeholder new))) | |
6622 (vhdl-add-syntax 'statement-cont placeholder) | |
6623 (if begin-after-ip | |
6624 (vhdl-add-syntax 'block-open))) | |
6625 ;; Statement. But what kind? | |
6626 ;; CASE 7: A case alternative key | |
6627 ((and (looking-at vhdl-case-alternative-re) | |
6628 (vhdl-case-alternative-p containing-sexp)) | |
6629 ;; for a case alternative key, we set relpos to the first | |
6630 ;; non-whitespace char on the line containing the "case" | |
6631 ;; keyword. | |
6632 (goto-char containing-sexp) | |
6633 ;; If the \"begin\" keyword is a trailer, then find v-b-o-s | |
6634 (if (looking-at vhdl-trailer-re) | |
6635 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil))) | |
6636 (vhdl-add-syntax 'case-alternative (vhdl-point 'boi))) | |
6637 ;; CASE 8: statement catchall | |
6638 (t | |
6639 ;; we know its a statement, but we need to find out if it is | |
6640 ;; the first statement in a block | |
6641 (if containing-leader | |
6642 (goto-char containing-leader) | |
6643 (goto-char containing-sexp) | |
6644 ;; Note that a containing sexp here is always a keyword, | |
6645 ;; not a paren, so skip over the keyword. | |
6646 (forward-sexp)) | |
6647 ;; move to the start of the first statement | |
6648 (vhdl-forward-syntactic-ws indent-point) | |
6649 (setq placeholder (point)) | |
6650 ;; we want to ignore case alternatives keys when skipping forward | |
6651 (let (incase-p) | |
6652 (while (looking-at vhdl-case-alternative-re) | |
6653 (setq incase-p (point)) | |
6654 ;; we also want to skip over the body of the | |
6655 ;; case/when statement if that doesn't put us at | |
6656 ;; after the indent-point | |
6657 (while (vhdl-skip-case-alternative indent-point)) | |
6658 ;; set up the match end | |
6659 (looking-at vhdl-case-alternative-re) | |
6660 (goto-char (match-end 0)) | |
6661 ;; move to the start of the first case alternative statement | |
6662 (vhdl-forward-syntactic-ws indent-point) | |
6663 (setq placeholder (point))) | |
6664 (cond | |
6665 ;; CASE 8A: we saw a case/when statement so we must be | |
6666 ;; in a switch statement. find out if we are at the | |
6667 ;; statement just after a case alternative key | |
6668 ((and incase-p | |
6669 (= (point) indent-point)) | |
6670 ;; relpos is the "when" keyword | |
6671 (vhdl-add-syntax 'statement-case-intro incase-p)) | |
6672 ;; CASE 8B: any old statement | |
6673 ((< (point) indent-point) | |
6674 ;; relpos is the first statement of the block | |
6675 (vhdl-add-syntax 'statement placeholder) | |
6676 (if begin-after-ip | |
6677 (vhdl-add-syntax 'block-open))) | |
6678 ;; CASE 8C: first statement in a block | |
6679 (t | |
6680 (goto-char containing-sexp) | |
6681 ;; If the \"begin\" keyword is a trailer, then find v-b-o-s | |
6682 (if (looking-at vhdl-trailer-re) | |
6683 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil))) | |
6684 (vhdl-backward-skip-label (vhdl-point 'boi)) | |
6685 (vhdl-add-syntax 'statement-block-intro (point)) | |
6686 (if begin-after-ip | |
6687 (vhdl-add-syntax 'block-open))) | |
6688 ))) | |
6689 ) | |
6690 | |
6691 ;; now we need to look at any modifiers | |
6692 (goto-char indent-point) | |
6693 (skip-chars-forward " \t") | |
6694 (if (looking-at "--") | |
6695 (vhdl-add-syntax 'comment)) | |
6696 ;; return the syntax | |
6697 vhdl-syntactic-context)))) | |
6698 | |
6699 ;; Standard indentation line-ups: | |
6700 | |
6701 (defun vhdl-lineup-arglist (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6702 "Lineup the current arglist line with the arglist appearing just |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6703 after the containing paren which starts the arglist." |
20665 | 6704 (save-excursion |
6705 (let* ((containing-sexp | |
6706 (save-excursion | |
6707 ;; arglist-cont-nonempty gives relpos == | |
6708 ;; to boi of containing-sexp paren. This | |
6709 ;; is good when offset is +, but bad | |
6710 ;; when it is vhdl-lineup-arglist, so we | |
6711 ;; have to special case a kludge here. | |
6712 (if (memq (car langelem) '(arglist-intro arglist-cont-nonempty)) | |
6713 (progn | |
6714 (beginning-of-line) | |
6715 (backward-up-list 1) | |
6716 (skip-chars-forward " \t" (vhdl-point 'eol))) | |
6717 (goto-char (cdr langelem))) | |
6718 (point))) | |
6719 (cs-curcol (save-excursion | |
6720 (goto-char (cdr langelem)) | |
6721 (current-column)))) | |
6722 (if (save-excursion | |
6723 (beginning-of-line) | |
6724 (looking-at "[ \t]*)")) | |
6725 (progn (goto-char (match-end 0)) | |
6726 (backward-sexp) | |
6727 (forward-char) | |
6728 (vhdl-forward-syntactic-ws) | |
6729 (- (current-column) cs-curcol)) | |
6730 (goto-char containing-sexp) | |
6731 (or (eolp) | |
6732 (let ((eol (vhdl-point 'eol)) | |
6733 (here (progn | |
6734 (forward-char) | |
6735 (skip-chars-forward " \t") | |
6736 (point)))) | |
6737 (vhdl-forward-syntactic-ws) | |
6738 (if (< (point) eol) | |
6739 (goto-char here)))) | |
6740 (- (current-column) cs-curcol) | |
6741 )))) | |
6742 | |
6743 (defun vhdl-lineup-arglist-intro (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6744 "Lineup an arglist-intro line to just after the open paren." |
20665 | 6745 (save-excursion |
6746 (let ((cs-curcol (save-excursion | |
6747 (goto-char (cdr langelem)) | |
6748 (current-column))) | |
6749 (ce-curcol (save-excursion | |
6750 (beginning-of-line) | |
6751 (backward-up-list 1) | |
6752 (skip-chars-forward " \t" (vhdl-point 'eol)) | |
6753 (current-column)))) | |
6754 (- ce-curcol cs-curcol -1)))) | |
6755 | |
6756 (defun vhdl-lineup-comment (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6757 "Support old behavior for comment indentation. We look at |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6758 vhdl-comment-only-line-offset to decide how to indent comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6759 only-lines." |
20665 | 6760 (save-excursion |
6761 (back-to-indentation) | |
6762 ;; at or to the right of comment-column | |
6763 (if (>= (current-column) comment-column) | |
6764 (vhdl-comment-indent) | |
6765 ;; otherwise, indent as specified by vhdl-comment-only-line-offset | |
6766 (if (not (bolp)) | |
6767 (or (car-safe vhdl-comment-only-line-offset) | |
6768 vhdl-comment-only-line-offset) | |
6769 (or (cdr-safe vhdl-comment-only-line-offset) | |
6770 (car-safe vhdl-comment-only-line-offset) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6771 -1000 ;jam it against the left side |
20665 | 6772 ))))) |
6773 | |
6774 (defun vhdl-lineup-statement-cont (langelem) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6775 "Line up statement-cont after the assignment operator." |
20665 | 6776 (save-excursion |
6777 (let* ((relpos (cdr langelem)) | |
6778 (assignp (save-excursion | |
6779 (goto-char (vhdl-point 'boi)) | |
6780 (and (re-search-forward "\\(<\\|:\\)=" | |
6781 (vhdl-point 'eol) t) | |
6782 (- (point) (vhdl-point 'boi))))) | |
6783 (curcol (progn | |
6784 (goto-char relpos) | |
6785 (current-column))) | |
6786 foundp) | |
6787 (while (and (not foundp) | |
6788 (< (point) (vhdl-point 'eol))) | |
6789 (re-search-forward "\\(<\\|:\\)=\\|(" (vhdl-point 'eol) 'move) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6790 (if (vhdl-in-literal) |
20665 | 6791 (forward-char) |
6792 (if (= (preceding-char) ?\() | |
6793 ;; skip over any parenthesized expressions | |
6794 (goto-char (min (vhdl-point 'eol) | |
6795 (scan-lists (point) 1 1))) | |
6796 ;; found an assignment operator (not at eol) | |
6797 (setq foundp (not (looking-at "\\s-*$")))))) | |
6798 (if (not foundp) | |
6799 ;; there's no assignment operator on the line | |
6800 vhdl-basic-offset | |
6801 ;; calculate indentation column after assign and ws, unless | |
6802 ;; our line contains an assignment operator | |
6803 (if (not assignp) | |
6804 (progn | |
6805 (forward-char) | |
6806 (skip-chars-forward " \t") | |
6807 (setq assignp 0))) | |
6808 (- (current-column) assignp curcol)) | |
6809 ))) | |
6810 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6811 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6812 ;; Progress reporting |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6813 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6814 (defvar vhdl-progress-info nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6815 "Array variable for progress information: 0 begin, 1 end, 2 time.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6816 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6817 (defun vhdl-update-progress-info (string pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6818 "Update progress information." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6819 (when (and vhdl-progress-info (not noninteractive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6820 (< vhdl-progress-interval |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6821 (- (nth 1 (current-time)) (aref vhdl-progress-info 2)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6822 (message (concat string "... (%2d%s)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6823 (/ (* 100 (- pos (aref vhdl-progress-info 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6824 (- (aref vhdl-progress-info 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6825 (aref vhdl-progress-info 0))) "%") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6826 (aset vhdl-progress-info 2 (nth 1 (current-time))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6827 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6828 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 6829 ;; Indentation commands |
6830 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6831 (defun vhdl-electric-tab (&optional prefix-arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6832 "If preceeding character is part of a word or a paren then hippie-expand, |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6833 else if right of non whitespace on line then insert tab, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6834 else if last command was a tab or return then dedent one step or if a comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6835 toggle between normal indent and inline comment indent, |
20665 | 6836 else indent `correctly'." |
6837 (interactive "*P") | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6838 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6839 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6840 ;; expand word |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6841 ((= (char-syntax (preceding-char)) ?w) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6842 (let ((case-fold-search (not vhdl-word-completion-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6843 (case-replace nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6844 (hippie-expand-only-buffers |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6845 (or (and (boundp 'hippie-expand-only-buffers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6846 hippie-expand-only-buffers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6847 '(vhdl-mode)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6848 (vhdl-expand-abbrev prefix-arg))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6849 ;; expand parenthesis |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6850 ((or (= (preceding-char) ?\() (= (preceding-char) ?\))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6851 (let ((case-fold-search (not vhdl-word-completion-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6852 (case-replace nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6853 (vhdl-expand-paren prefix-arg))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6854 ;; insert tab |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6855 ((> (current-column) (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6856 (insert-tab)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6857 ;; toggle comment indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6858 ((and (looking-at "--") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6859 (or (eq last-command 'vhdl-electric-tab) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6860 (eq last-command 'vhdl-electric-return))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6861 (cond ((= (current-indentation) 0) ; no indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6862 (indent-to 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6863 (indent-according-to-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6864 ((< (current-indentation) comment-column) ; normal indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6865 (indent-to comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6866 (indent-according-to-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6867 (t ; inline comment indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6868 (kill-line -0)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6869 ;; dedent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6870 ((and (>= (current-indentation) vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6871 (or (eq last-command 'vhdl-electric-tab) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6872 (eq last-command 'vhdl-electric-return))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6873 (backward-delete-char-untabify vhdl-basic-offset nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6874 ;; indent line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6875 (t (indent-according-to-mode))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6876 (setq this-command 'vhdl-electric-tab))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6877 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6878 (defun vhdl-electric-return () |
20665 | 6879 "newline-and-indent or indent-new-comment-line if in comment and preceding |
6880 character is a space." | |
6881 (interactive) | |
6882 (if (and (= (preceding-char) ? ) (vhdl-in-comment-p)) | |
6883 (indent-new-comment-line) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6884 (when (and (>= (preceding-char) ?a) (<= (preceding-char) ?z)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6885 (vhdl-fix-case-word -1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6886 (newline-and-indent))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6887 |
20665 | 6888 (defun vhdl-indent-line () |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6889 "Indent the current line as VHDL code. Returns the amount of |
20665 | 6890 indentation change." |
6891 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6892 (let* ((syntax (and vhdl-indent-syntax-based (vhdl-get-syntactic-context))) |
20665 | 6893 (pos (- (point-max) (point))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6894 (indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6895 (if syntax |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6896 ;; indent syntax-based |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6897 (if (and (eq (caar syntax) 'comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6898 (>= (vhdl-get-offset (car syntax)) comment-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6899 ;; special case: comments at or right of comment-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6900 (vhdl-get-offset (car syntax)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6901 (apply '+ (mapcar 'vhdl-get-offset syntax))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6902 ;; indent like previous nonblank line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6903 (save-excursion (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6904 (re-search-backward "^[^\n]" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6905 (current-indentation)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6906 (shift-amt (- indent (current-indentation)))) |
20665 | 6907 (and vhdl-echo-syntactic-information-p |
6908 (message "syntax: %s, indent= %d" syntax indent)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6909 (unless (zerop shift-amt) |
20665 | 6910 (delete-region (vhdl-point 'bol) (vhdl-point 'boi)) |
6911 (beginning-of-line) | |
6912 (indent-to indent)) | |
6913 (if (< (point) (vhdl-point 'boi)) | |
6914 (back-to-indentation) | |
6915 ;; If initial point was within line's indentation, position after | |
6916 ;; the indentation. Else stay at same point in text. | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6917 (when (> (- (point-max) pos) (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6918 (goto-char (- (point-max) pos)))) |
20665 | 6919 (run-hooks 'vhdl-special-indent-hook) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6920 (vhdl-update-progress-info "Indenting" (vhdl-current-line)) |
20665 | 6921 shift-amt)) |
6922 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6923 (defun vhdl-indent-region (beg end column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6924 "Indent region as VHDL code. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6925 Adds progress reporting to `indent-region'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6926 (interactive "r\nP") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6927 (when vhdl-progress-interval |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6928 (setq vhdl-progress-info (vector (count-lines (point-min) beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6929 (count-lines (point-min) end) 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6930 (indent-region beg end column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6931 (when vhdl-progress-interval (message "Indenting...done")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6932 (setq vhdl-progress-info nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6933 |
20665 | 6934 (defun vhdl-indent-buffer () |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6935 "Indent whole buffer as VHDL code. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6936 Calls `indent-region' for whole buffer and adds progress reporting." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6937 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6938 (vhdl-indent-region (point-min) (point-max) nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6939 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6940 (defun vhdl-indent-group () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6941 "Indent group of lines between empty lines." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6942 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6943 (let ((beg (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6944 (if (re-search-backward vhdl-align-group-separate nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6945 (point-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6946 (point-min-marker)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6947 (end (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6948 (if (re-search-forward vhdl-align-group-separate nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6949 (point-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6950 (point-max-marker))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6951 (vhdl-indent-region beg end nil))) |
20665 | 6952 |
6953 (defun vhdl-indent-sexp (&optional endpos) | |
6954 "Indent each line of the list starting just after point. | |
6955 If optional arg ENDPOS is given, indent each line, stopping when | |
6956 ENDPOS is encountered." | |
6957 (interactive) | |
6958 (save-excursion | |
6959 (let ((beg (point)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6960 (end (progn (vhdl-forward-sexp nil endpos) (point)))) |
20665 | 6961 (indent-region beg end nil)))) |
6962 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6963 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 6964 ;; Miscellaneous commands |
6965 | |
6966 (defun vhdl-show-syntactic-information () | |
6967 "Show syntactic information for current line." | |
6968 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6969 (message "Syntactic analysis: %s" (vhdl-get-syntactic-context)) |
20665 | 6970 (vhdl-keep-region-active)) |
6971 | |
6972 ;; Verification and regression functions: | |
6973 | |
6974 (defun vhdl-regress-line (&optional arg) | |
6975 "Check syntactic information for current line." | |
6976 (interactive "P") | |
6977 (let ((expected (save-excursion | |
6978 (end-of-line) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6979 (when (search-backward " -- ((" (vhdl-point 'bol) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6980 (forward-char 4) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6981 (read (current-buffer))))) |
20665 | 6982 (actual (vhdl-get-syntactic-context)) |
6983 (expurgated)) | |
6984 ;; remove the library unit symbols | |
6985 (mapcar | |
6986 (function | |
6987 (lambda (elt) | |
6988 (if (memq (car elt) '(entity configuration package | |
6989 package-body architecture)) | |
6990 nil | |
6991 (setq expurgated (append expurgated (list elt)))))) | |
6992 actual) | |
6993 (if (and (not arg) expected (listp expected)) | |
6994 (if (not (equal expected expurgated)) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
6995 (error "ERROR: Should be: %s, is: %s" expected expurgated)) |
20665 | 6996 (save-excursion |
6997 (beginning-of-line) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6998 (when (not (looking-at "^\\s-*\\(--.*\\)?$")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
6999 (end-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7000 (if (search-backward " -- ((" (vhdl-point 'bol) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7001 (kill-line)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7002 (insert " -- ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7003 (insert (format "%s" expurgated)))))) |
20665 | 7004 (vhdl-keep-region-active)) |
7005 | |
7006 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7007 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7008 ;;; Alignment, whitespace fixup, beautifying |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7009 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 7010 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7011 (defconst vhdl-align-alist |
20665 | 7012 '( |
7013 ;; after some keywords | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7014 (vhdl-mode "^\\s-*\\(constant\\|quantity\\|signal\\|subtype\\|terminal\\|type\\|variable\\)[ \t]" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7015 "^\\s-*\\(constant\\|quantity\\|signal\\|subtype\\|terminal\\|type\\|variable\\)\\([ \t]+\\)" 2) |
20665 | 7016 ;; before ':' |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7017 (vhdl-mode ":[^=]" "\\([ \t]*\\):[^=]") |
20665 | 7018 ;; after direction specifications |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7019 (vhdl-mode ":[ \t]*\\(in\\|out\\|inout\\|buffer\\|\\)\\>" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7020 ":[ \t]*\\(in\\|out\\|inout\\|buffer\\|\\)\\([ \t]+\\)" 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7021 ;; before "==", ":=", "=>", and "<=" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7022 (vhdl-mode "[<:=]=" "\\([ \t]*\\)[<:=]=" 1) ; since "<= ... =>" can occur |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7023 (vhdl-mode "=>" "\\([ \t]*\\)=>" 1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7024 (vhdl-mode "[<:=]=" "\\([ \t]*\\)[<:=]=" 1) ; since "=> ... <=" can occur |
20665 | 7025 ;; before some keywords |
7026 (vhdl-mode "[ \t]after\\>" "[^ \t]\\([ \t]+\\)after\\>" 1) | |
7027 (vhdl-mode "[ \t]when\\>" "[^ \t]\\([ \t]+\\)when\\>" 1) | |
7028 (vhdl-mode "[ \t]else\\>" "[^ \t]\\([ \t]+\\)else\\>" 1) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7029 ;; before "=>" since "when/else ... =>" can occur |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7030 (vhdl-mode "=>" "\\([ \t]*\\)=>" 1) |
20665 | 7031 ) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7032 "The format of this alist is (MODES [or MODE] REGEXP ALIGN-PATTERN SUBEXP). |
20665 | 7033 It is searched in order. If REGEXP is found anywhere in the first |
7034 line of a region to be aligned, ALIGN-PATTERN will be used for that | |
7035 region. ALIGN-PATTERN must include the whitespace to be expanded or | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7036 contracted. It may also provide regexps for the text surrounding the |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7037 whitespace. SUBEXP specifies which sub-expression of |
20665 | 7038 ALIGN-PATTERN matches the white space to be expanded/contracted.") |
7039 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7040 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7041 ;; Align code |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7042 |
20665 | 7043 (defvar vhdl-align-try-all-clauses t |
7044 "If REGEXP is not found on the first line of the region that clause | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7045 is ignored. If this variable is non-nil, then the clause is tried anyway.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7046 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7047 (defun vhdl-do-group (function &optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7048 "Apply FUNCTION on group of lines between empty lines." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7049 (let |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7050 ;; search for group beginning |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7051 ((beg (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7052 (if (re-search-backward vhdl-align-group-separate nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7053 (progn (beginning-of-line 2) (back-to-indentation) (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7054 (point-min)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7055 ;; search for group end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7056 (end (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7057 (if (re-search-forward vhdl-align-group-separate nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7058 (progn (beginning-of-line) (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7059 (point-max))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7060 ;; run FUNCTION |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7061 (funcall function beg end spacing))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7062 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7063 (defun vhdl-do-list (function &optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7064 "Apply FUNCTION to the lines of a list surrounded by a balanced group of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7065 parentheses." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7066 (let (beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7067 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7068 ;; search for beginning of balanced group of parentheses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7069 (setq beg (vhdl-re-search-backward "[()]" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7070 (while (looking-at ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7071 (forward-char) (backward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7072 (setq beg (vhdl-re-search-backward "[()]" nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7073 ;; search for end of balanced group of parentheses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7074 (when beg |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7075 (forward-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7076 (setq end (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7077 (goto-char (1+ beg)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7078 (skip-chars-forward " \t\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7079 (setq beg (point)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7080 ;; run FUNCTION |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7081 (if beg |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7082 (funcall function beg end spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7083 (error "ERROR: Not within a list enclosed by a pair of parentheses")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7084 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7085 (defun vhdl-do-same-indent (function &optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7086 "Apply FUNCTION to block of lines with same indent." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7087 (let ((indent (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7088 beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7089 ;; search for first line with same indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7090 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7091 (while (and (not (bobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7092 (or (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7093 (= (current-indentation) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7094 (unless (looking-at "^\\s-*$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7095 (back-to-indentation) (setq beg (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7096 (beginning-of-line -0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7097 ;; search for last line with same indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7098 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7099 (while (and (not (eobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7100 (or (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7101 (= (current-indentation) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7102 (if (looking-at "^\\s-*$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7103 (beginning-of-line 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7104 (beginning-of-line 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7105 (setq end (point))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7106 ;; run FUNCTION |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7107 (funcall function beg end spacing))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7108 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7109 (defun vhdl-align-region-1 (begin end &optional spacing alignment-list indent) |
20665 | 7110 "Attempt to align a range of lines based on the content of the |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7111 lines. The definition of `alignment-list' determines the matching |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7112 order and the manner in which the lines are aligned. If ALIGNMENT-LIST |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7113 is not specified `vhdl-align-alist' is used. If INDENT is non-nil, |
20665 | 7114 indentation is done before aligning." |
7115 (interactive "r\np") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7116 (setq alignment-list (or alignment-list vhdl-align-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7117 (setq spacing (or spacing 1)) |
20665 | 7118 (save-excursion |
7119 (let (bol indent) | |
7120 (goto-char end) | |
7121 (setq end (point-marker)) | |
7122 (goto-char begin) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7123 (setq bol (setq begin (progn (beginning-of-line) (point)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7124 ; (untabify bol end) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7125 (when indent |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7126 (indent-region bol end nil)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7127 (let ((copy (copy-alist alignment-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7128 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7129 (while copy |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7130 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7131 (goto-char begin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7132 (let (element |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7133 (eol (save-excursion (progn (end-of-line) (point))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7134 (setq element (nth 0 copy)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7135 (when (and (or (and (listp (car element)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7136 (memq major-mode (car element))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7137 (eq major-mode (car element))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7138 (or vhdl-align-try-all-clauses |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7139 (re-search-forward (car (cdr element)) eol t))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7140 (vhdl-align-region-2 begin end (car (cdr (cdr element))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7141 (car (cdr (cdr (cdr element)))) spacing)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7142 (setq copy (cdr copy)))))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7143 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7144 (defun vhdl-align-region-2 (begin end match &optional substr spacing) |
20665 | 7145 "Align a range of lines from BEGIN to END. The regular expression |
7146 MATCH must match exactly one fields: the whitespace to be | |
7147 contracted/expanded. The alignment column will equal the | |
7148 rightmost column of the widest whitespace block. SPACING is | |
7149 the amount of extra spaces to add to the calculated maximum required. | |
7150 SPACING defaults to 1 so that at least one space is inserted after | |
7151 the token in MATCH." | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7152 (setq spacing (or spacing 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7153 (setq substr (or substr 1)) |
20665 | 7154 (save-excursion |
7155 (let (distance (max 0) (lines 0) bol eol width) | |
7156 ;; Determine the greatest whitespace distance to the alignment | |
7157 ;; character | |
7158 (goto-char begin) | |
7159 (setq eol (progn (end-of-line) (point)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7160 bol (setq begin (progn (beginning-of-line) (point)))) |
20665 | 7161 (while (< bol end) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7162 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7163 (when (and (re-search-forward match eol t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7164 (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7165 (setq distance (- (match-beginning substr) bol)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7166 (when (> distance max) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7167 (setq max distance)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7168 (forward-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7169 (setq bol (point) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7170 eol (save-excursion (end-of-line) (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7171 (setq lines (1+ lines))) |
20665 | 7172 ;; Now insert enough maxs to push each assignment operator to |
7173 ;; the same column. We need to use 'lines' as a counter, since | |
7174 ;; the location of the mark may change | |
7175 (goto-char (setq bol begin)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7176 (setq eol (save-excursion (end-of-line) (point))) |
20665 | 7177 (while (> lines 0) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7178 (when (and (re-search-forward match eol t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7179 (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7180 (setq width (- (match-end substr) (match-beginning substr))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7181 (setq distance (- (match-beginning substr) bol)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7182 (goto-char (match-beginning substr)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7183 (delete-char width) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7184 (insert-char ? (+ (- max distance) spacing))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7185 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7186 (forward-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7187 (setq bol (point) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7188 eol (save-excursion (end-of-line) (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7189 (setq lines (1- lines)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7190 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7191 (defun vhdl-align-region-groups (beg end &optional spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7192 no-message no-comments) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7193 "Align region, treat groups of lines separately." |
20665 | 7194 (interactive "r\nP") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7195 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7196 (let (orig pos) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7197 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7198 (beginning-of-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7199 (setq orig (point-marker)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7200 (setq beg (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7201 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7202 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7203 (untabify beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7204 (unless no-message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7205 (when vhdl-progress-interval |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7206 (setq vhdl-progress-info (vector (count-lines (point-min) beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7207 (count-lines (point-min) end) 0)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7208 (vhdl-fixup-whitespace-region beg end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7209 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7210 (if (not vhdl-align-groups) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7211 ;; align entire region |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7212 (progn (vhdl-align-region-1 beg end spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7213 (unless no-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7214 (vhdl-align-inline-comment-region-1 beg end))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7215 ;; align groups |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7216 (while (and (< beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7217 (re-search-forward vhdl-align-group-separate end t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7218 (setq pos (point-marker)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7219 (vhdl-align-region-1 beg pos spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7220 (unless no-comments (vhdl-align-inline-comment-region-1 beg pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7221 (vhdl-update-progress-info "Aligning" (vhdl-current-line)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7222 (setq beg (1+ pos)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7223 (goto-char beg)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7224 ;; align last group |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7225 (when (< beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7226 (vhdl-align-region-1 beg end spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7227 (unless no-comments (vhdl-align-inline-comment-region-1 beg end)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7228 (vhdl-update-progress-info "Aligning" (vhdl-current-line)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7229 (when vhdl-indent-tabs-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7230 (tabify orig end)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7231 (unless no-message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7232 (when vhdl-progress-interval (message "Aligning...done")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7233 (setq vhdl-progress-info nil))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7234 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7235 (defun vhdl-align-region (beg end &optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7236 "Align region, treat blocks with same indent and argument lists separately." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7237 (interactive "r\nP") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7238 (if (not vhdl-align-same-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7239 ;; align entire region |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7240 (vhdl-align-region-groups beg end spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7241 ;; align blocks with same indent and argument lists |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7242 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7243 (let ((cur-beg beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7244 indent cur-end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7245 (when vhdl-progress-interval |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7246 (setq vhdl-progress-info (vector (count-lines (point-min) beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7247 (count-lines (point-min) end) 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7248 (goto-char end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7249 (setq end (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7250 (goto-char cur-beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7251 (while (< (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7252 ;; is argument list opening? |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7253 (if (setq cur-beg (nth 1 (save-excursion (parse-partial-sexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7254 (point) (vhdl-point 'eol))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7255 ;; determine region for argument list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7256 (progn (goto-char cur-beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7257 (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7258 (setq cur-end (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7259 (beginning-of-line 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7260 ;; determine region with same indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7261 (setq indent (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7262 (setq cur-beg (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7263 (setq cur-end (vhdl-point 'bonl)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7264 (beginning-of-line 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7265 (while (and (< (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7266 (or (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7267 (= (current-indentation) indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7268 (<= (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7269 (nth 0 (parse-partial-sexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7270 (point) (vhdl-point 'eol)))) 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7271 (unless (looking-at "^\\s-*$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7272 (setq cur-end (vhdl-point 'bonl))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7273 (beginning-of-line 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7274 ;; align region |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7275 (vhdl-align-region-groups cur-beg cur-end spacing t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7276 (vhdl-align-inline-comment-region beg end spacing noninteractive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7277 (when vhdl-progress-interval (message "Aligning...done")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7278 (setq vhdl-progress-info nil))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7279 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7280 (defun vhdl-align-group (&optional spacing) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7281 "Align group of lines between empty lines." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7282 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7283 (vhdl-do-group 'vhdl-align-region spacing)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7284 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7285 (defun vhdl-align-list (&optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7286 "Align the lines of a list surrounded by a balanced group of parentheses." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7287 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7288 (vhdl-do-list 'vhdl-align-region-groups spacing)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7289 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7290 (defun vhdl-align-same-indent (&optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7291 "Align block of lines with same indent." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7292 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7293 (vhdl-do-same-indent 'vhdl-align-region-groups spacing)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7294 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7295 (defun vhdl-align-declarations (&optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7296 "Align the lines within the declarative part of a design unit." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7297 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7298 (let (beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7299 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7300 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7301 ;; search for declarative part |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7302 (when (and (re-search-backward "^\\(architecture\\|begin\\|configuration\\|end\\|entity\\|package\\)\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7303 (not (member (upcase (match-string 1)) '("BEGIN" "END")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7304 (setq beg (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7305 (re-search-forward "^\\(begin\\|end\\)\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7306 (setq end (point))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7307 (if beg |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7308 (vhdl-align-region-groups beg end spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7309 (error "ERROR: Not within the declarative part of a design unit")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7310 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7311 (defun vhdl-align-buffer () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7312 "Align buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7313 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7314 (vhdl-align-region (point-min) (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7315 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7316 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7317 ;; Align inline comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7318 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7319 (defun vhdl-align-inline-comment-region-1 (beg end &optional spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7320 "Align inline comments in region." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7321 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7322 (let ((start-max comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7323 (length-max 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7324 comment-list start-list tmp-list start length |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7325 cur-start prev-start no-code) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7326 (setq spacing (or spacing 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7327 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7328 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7329 ;; search for comment start positions and lengths |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7330 (while (< (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7331 (when (and (not (looking-at "^\\s-*\\(begin\\|end\\)\\>")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7332 (looking-at "^\\(.*[^ \t\n-]+\\)\\s-*\\(--.*\\)$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7333 (not (save-excursion (goto-char (match-beginning 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7334 (vhdl-in-literal)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7335 (setq start (+ (- (match-end 1) (match-beginning 1)) spacing)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7336 (setq length (- (match-end 2) (match-beginning 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7337 (setq start-max (max start start-max)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7338 (setq length-max (max length length-max)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7339 (setq comment-list (cons (cons start length) comment-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7340 (beginning-of-line 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7341 (setq comment-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7342 (sort comment-list (function (lambda (a b) (> (car a) (car b)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7343 ;; reduce start positions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7344 (setq start-list (list (caar comment-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7345 (setq comment-list (cdr comment-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7346 (while comment-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7347 (unless (or (= (caar comment-list) (car start-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7348 (<= (+ (car start-list) (cdar comment-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7349 end-comment-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7350 (setq start-list (cons (caar comment-list) start-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7351 (setq comment-list (cdr comment-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7352 ;; align lines as nicely as possible |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7353 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7354 (while (< (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7355 (setq cur-start nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7356 (when (and (not (looking-at "^\\s-*\\(begin\\|end\\)\\>")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7357 (or (and (looking-at "^\\(.*[^ \t\n-]+\\)\\(\\s-*\\)\\(--.*\\)$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7358 (not (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7359 (goto-char (match-beginning 3)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7360 (vhdl-in-literal)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7361 (and (looking-at "^\\(\\)\\(\\s-*\\)\\(--.*\\)$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7362 (>= (- (match-end 2) (match-beginning 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7363 comment-column)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7364 (setq start (+ (- (match-end 1) (match-beginning 1)) spacing)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7365 (setq length (- (match-end 3) (match-beginning 3))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7366 (setq no-code (= (match-beginning 1) (match-end 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7367 ;; insert minimum whitespace |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7368 (goto-char (match-end 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7369 (delete-region (match-beginning 2) (match-end 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7370 (insert-char ?\ spacing) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7371 (setq tmp-list start-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7372 ;; insert additional whitespace to align |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7373 (setq cur-start |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7374 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7375 ;; align comment-only line to inline comment of previous line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7376 ((and no-code prev-start |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7377 (<= length (- end-comment-column prev-start))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7378 prev-start) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7379 ;; align all comments at `start-max' if this is possible |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7380 ((<= (+ start-max length-max) end-comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7381 start-max) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7382 ;; align at `comment-column' if possible |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7383 ((and (<= start comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7384 (<= length (- end-comment-column comment-column))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7385 comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7386 ;; align at left-most possible start position otherwise |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7387 (t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7388 (while (and tmp-list (< (car tmp-list) start)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7389 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7390 (car tmp-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7391 (indent-to cur-start)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7392 (setq prev-start cur-start) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7393 (beginning-of-line 2)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7394 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7395 (defun vhdl-align-inline-comment-region (beg end &optional spacing no-message) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7396 "Align inline comments within a region. Groups of code lines separated by |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7397 empty lines are aligned individually, if `vhdl-align-groups' is non-nil." |
20665 | 7398 (interactive "r\nP") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7399 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7400 (let (orig pos) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7401 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7402 (beginning-of-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7403 (setq orig (point-marker)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7404 (setq beg (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7405 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7406 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7407 (untabify beg end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7408 (unless no-message (message "Aligning inline comments...")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7409 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7410 (if (not vhdl-align-groups) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7411 ;; align entire region |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7412 (vhdl-align-inline-comment-region-1 beg end spacing) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7413 ;; align groups |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7414 (while (and (< beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7415 (re-search-forward vhdl-align-group-separate end t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7416 (setq pos (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7417 (vhdl-align-inline-comment-region-1 beg pos spacing) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7418 (setq beg (1+ pos)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7419 (goto-char beg)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7420 ;; align last group |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7421 (when (< beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7422 (vhdl-align-inline-comment-region-1 beg end spacing))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7423 (when vhdl-indent-tabs-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7424 (tabify orig end)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7425 (unless no-message (message "Aligning inline comments...done"))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7426 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7427 (defun vhdl-align-inline-comment-group (&optional spacing) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7428 "Align inline comments within a group of lines between empty lines." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7429 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7430 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7431 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7432 beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7433 (setq end (if (re-search-forward vhdl-align-group-separate nil t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7434 (point-marker) (point-max))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7435 (goto-char start) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7436 (setq beg (if (re-search-backward vhdl-align-group-separate nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7437 (point) (point-min))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7438 (untabify beg end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7439 (message "Aligning inline comments...") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7440 (vhdl-align-inline-comment-region-1 beg end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7441 (when vhdl-indent-tabs-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7442 (tabify beg end)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7443 (message "Aligning inline comments...done")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7444 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7445 (defun vhdl-align-inline-comment-buffer () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7446 "Align inline comments within buffer. Groups of code lines separated by |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7447 empty lines are aligned individually, if `vhdl-align-groups' is non-nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7448 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7449 (vhdl-align-inline-comment-region (point-min) (point-max))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7450 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7452 ;; Fixup whitespace |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7453 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7454 (defun vhdl-fixup-whitespace-region (beg end &optional no-message) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7455 "Fixup whitespace in region. Surround operator symbols by one space, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7456 eliminate multiple spaces (except at beginning of line), eliminate spaces at |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7457 end of line, do nothing in comments and strings." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7458 (interactive "r") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7459 (unless no-message (message "Fixing up whitespace...")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7460 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7461 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7462 (setq end (point-marker)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7463 ;; have no space before and one space after `,' and ';' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7464 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7465 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|\\(\\s-*\\([,;]\\)\\)" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7466 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7467 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7468 (replace-match "\\3 " nil nil nil 3))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7469 ;; have no space after `(' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7470 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7471 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|\\((\\)\\s-+" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7472 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7473 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7474 (replace-match "\\2"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7475 ;; have no space before `)' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7476 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7477 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\|^\\s-+\\)\\|\\s-+\\()\\)" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7478 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7479 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7480 (replace-match "\\2"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7481 ;; surround operator symbols by one space |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7482 (goto-char beg) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7483 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|\\(\\([^/:<>=]\\)\\(:\\|=\\|<\\|>\\|:=\\|<=\\|>=\\|=>\\|/=\\)\\([^=>]\\|$\\)\\)" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7484 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7485 (goto-char (match-end 1)) |
62917
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7486 (save-excursion |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7487 (goto-char (match-beginning 4)) |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7488 (unless (eq (preceding-char) ?\ ) |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7489 (insert " ")) |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7490 (goto-char (match-end 4)) |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7491 (unless (eq (following-char) ?\ ) |
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7492 (insert " "))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7493 (goto-char (match-end 4)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7494 ;; eliminate multiple spaces and spaces at end of line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7495 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7496 (while (or (and (looking-at "--.*\n") (re-search-forward "--.*\n" end t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7497 (and (looking-at "\"") (re-search-forward "\"[^\"\n]*[\"\n]" end t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7498 (and (looking-at "\\s-+$") (re-search-forward "\\s-+$" end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7499 (progn (replace-match "" nil nil) t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7500 (and (looking-at "\\s-+;") (re-search-forward "\\s-+;" end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7501 (progn (replace-match ";" nil nil) t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7502 (and (looking-at "^\\s-+") (re-search-forward "^\\s-+" end t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7503 (and (looking-at "\\s-+--") (re-search-forward "\\s-+" end t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7504 (progn (replace-match " " nil nil) t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7505 (and (looking-at "\\s-+") (re-search-forward "\\s-+" end t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7506 (progn (replace-match " " nil nil) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7507 (re-search-forward "[^ \t-]+" end t)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7508 (unless no-message (message "Fixing up whitespace...done"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7509 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7510 (defun vhdl-fixup-whitespace-buffer () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7511 "Fixup whitespace in buffer. Surround operator symbols by one space, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7512 eliminate multiple spaces (except at beginning of line), eliminate spaces at |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7513 end of line, do nothing in comments." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7514 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7515 (vhdl-fixup-whitespace-region (point-min) (point-max))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7516 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7518 ;; Beautify |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7519 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7520 (defun vhdl-beautify-region (beg end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7521 "Beautify region by applying indentation, whitespace fixup, alignment, and |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7522 case fixing to a region. Calls functions `vhdl-indent-buffer', |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7523 `vhdl-align-buffer' (option `vhdl-align-groups' set to non-nil), and |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7524 `vhdl-fix-case-buffer'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7525 (interactive "r") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7526 (setq end (save-excursion (goto-char end) (point-marker))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7527 (vhdl-indent-region beg end nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7528 (let ((vhdl-align-groups t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7529 (vhdl-align-region beg end)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7530 (vhdl-fix-case-region beg end)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7531 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7532 (defun vhdl-beautify-buffer () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7533 "Beautify buffer by applying indentation, whitespace fixup, alignment, and |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7534 case fixing to entire buffer. Calls `vhdl-beautify-region' for the entire |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7535 buffer." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7536 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7537 (vhdl-beautify-region (point-min) (point-max)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7538 (when noninteractive (save-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7539 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7540 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7541 ;; Code filling |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7542 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7543 (defun vhdl-fill-region (beg end &optional arg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7544 "Fill lines for a region of code." |
57820
5d471cc0eaab
(vhdl-fill-region, vhdl-beginning-of-statement): Don't use interactive-p.
Richard M. Stallman <rms@gnu.org>
parents:
54770
diff
changeset
|
7545 (interactive "r\np") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7546 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7547 (goto-char beg) |
62917
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
7548 (let ((margin (if arg (current-indentation) (current-column)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7549 (goto-char end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7550 (setq end (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7551 ;; remove inline comments, newlines and whitespace |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7552 (vhdl-comment-kill-region beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7553 (vhdl-comment-kill-inline-region beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7554 (subst-char-in-region beg (1- end) ?\n ?\ ) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7555 (vhdl-fixup-whitespace-region beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7556 ;; wrap and end-comment-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7557 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7558 (while (re-search-forward "\\s-" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7559 (when(> (current-column) vhdl-end-comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7560 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7561 (when (re-search-backward "\\s-" beg t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7562 (replace-match "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7563 (indent-to margin))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7564 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7565 (defun vhdl-fill-group () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7566 "Fill group of lines between empty lines." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7567 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7568 (vhdl-do-group 'vhdl-fill-region)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7569 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7570 (defun vhdl-fill-list () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7571 "Fill the lines of a list surrounded by a balanced group of parentheses." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7572 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7573 (vhdl-do-list 'vhdl-fill-region)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7574 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7575 (defun vhdl-fill-same-indent () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7576 "Fill the lines of block of lines with same indent." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7577 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7578 (vhdl-do-same-indent 'vhdl-fill-region)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7579 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7580 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7581 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7582 ;;; Code updating/fixing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7583 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7584 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7585 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7586 ;; Sensitivity list update |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7587 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7588 ;; Strategy: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7589 ;; - no sensitivity list is generated for processes with wait statements |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7590 ;; - otherwise, do the following: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7591 ;; 1. scan for all local signals (ports, signals declared in arch./blocks) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7592 ;; 2. scan for all signals already in the sensitivity list (in order to catch |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7593 ;; manually entered global signals) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7594 ;; 3. signals from 1. and 2. form the list of visible signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7595 ;; 4. search for if/elsif conditions containing an event (sequential code) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7596 ;; 5. scan for strings that are within syntactical regions where signals are |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7597 ;; read but not within sequential code, and that correspond to visible |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7598 ;; signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7599 ;; 6. replace sensitivity list by list of signals from 5. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7600 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7601 (defun vhdl-update-sensitivity-list-process () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7602 "Update sensitivity list of current process." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7603 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7604 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7605 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7606 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7607 ;; look whether in process |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7608 (if (not (and (re-search-backward "^\\s-*\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(process\\|end\\s-+process\\)\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7609 (equal (upcase (match-string 2)) "PROCESS") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7610 (save-excursion (re-search-forward "^\\s-*end\\s-+process\\>" nil t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7611 (error "ERROR: Not within a process") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7612 (message "Updating sensitivity list...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7613 (vhdl-update-sensitivity-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7614 (message "Updating sensitivity list...done"))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7615 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7616 (defun vhdl-update-sensitivity-list-buffer () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7617 "Update sensitivity list of all processes in current buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7618 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7619 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7620 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7621 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7622 (message "Updating sensitivity lists...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7623 (while (re-search-forward "^\\s-*\\(\\w+[ \t\n]*:[ \t\n]*\\)?process\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7624 (goto-char (match-beginning 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7625 (condition-case nil (vhdl-update-sensitivity-list) (error))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7626 (message "Updating sensitivity lists...done")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7627 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7628 (defun vhdl-update-sensitivity-list () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7629 "Update sensitivity list." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7630 (let ((proc-beg (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7631 (proc-end (re-search-forward "^\\s-*end\\s-+process\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7632 (proc-mid (re-search-backward "^\\s-*begin\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7633 seq-region-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7634 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7635 ;; search for wait statement (no sensitivity list allowed) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7636 ((progn (goto-char proc-mid) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7637 (vhdl-re-search-forward "\\<wait\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7638 (error "ERROR: Process with wait statement, sensitivity list not generated")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7639 ;; combinational process (update sensitivity list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7640 (t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7641 (let |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7642 ;; scan for visible signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7643 ((visible-list (vhdl-get-visible-signals)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7644 ;; define syntactic regions where signals are read |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7645 (scan-regions-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7646 '(;; right-hand side of signal/variable assignment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7647 ;; (special case: "<=" is relational operator in a condition) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7648 ((re-search-forward "[<:]=" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7649 (re-search-forward ";\\|\\<\\(then\\|loop\\|report\\|severity\\|is\\)\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7650 ;; if condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7651 ((re-search-forward "^\\s-*if\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7652 (re-search-forward "\\<then\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7653 ;; elsif condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7654 ((re-search-forward "\\<elsif\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7655 (re-search-forward "\\<then\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7656 ;; while loop condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7657 ((re-search-forward "^\\s-*while\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7658 (re-search-forward "\\<loop\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7659 ;; exit/next condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7660 ((re-search-forward "\\<\\(exit\\|next\\)\\s-+\\w+\\s-+when\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7661 (re-search-forward ";" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7662 ;; assert condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7663 ((re-search-forward "\\<assert\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7664 (re-search-forward "\\(\\<report\\>\\|\\<severity\\>\\|;\\)" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7665 ;; case expression |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7666 ((re-search-forward "^\\s-*case\\>" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7667 (re-search-forward "\\<is\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7668 ;; parameter list of procedure call |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7669 ((re-search-forward "^\\s-*\\w+[ \t\n]*(" proc-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7670 (progn (backward-char) (forward-sexp) (point))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7671 name read-list sens-list signal-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7672 sens-beg sens-end beg end margin) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7673 ;; scan for signals in old sensitivity list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7674 (goto-char proc-beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7675 (re-search-forward "\\<process\\>" proc-mid t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7676 (if (not (looking-at "[ \t\n]*(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7677 (setq sens-beg (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7678 (setq sens-beg (re-search-forward "\\([ \t\n]*\\)([ \t\n]*" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7679 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7680 (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7681 (setq sens-end (1- (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7682 (goto-char sens-beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7683 (while (and (re-search-forward "\\(\\w+\\)" sens-end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7684 (setq sens-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7685 (cons (downcase (match-string 0)) sens-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7686 (re-search-forward "\\s-*,\\s-*" sens-end t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7687 (setq signal-list (append visible-list sens-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7688 ;; search for sequential parts |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7689 (goto-char proc-mid) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7690 (while (setq beg (re-search-forward "^\\s-*\\(els\\)?if\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7691 (setq end (re-search-forward "\\<then\\>" proc-end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7692 (when (re-search-backward "\\('event\\|\\<\\(falling\\|rising\\)_edge\\)\\>" beg t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7693 (goto-char end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7694 (backward-word 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7695 (vhdl-forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7696 (setq seq-region-list (cons (cons end (point)) seq-region-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7697 (beginning-of-line))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7698 ;; scan for signals read in process |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7699 (while scan-regions-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7700 (goto-char proc-mid) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7701 (while (and (setq beg (eval (nth 0 (car scan-regions-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7702 (setq end (eval (nth 1 (car scan-regions-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7703 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7704 (unless (or (vhdl-in-literal) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7705 (and seq-region-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7706 (let ((tmp-list seq-region-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7707 (while (and tmp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7708 (< (point) (caar tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7709 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7710 (and tmp-list (< (point) (cdar tmp-list)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7711 (while (vhdl-re-search-forward "[^'\"]\\<\\([a-zA-Z]\\w*\\)\\>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7712 (setq name (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7713 (when (member (downcase name) signal-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7714 (add-to-list 'read-list name))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7715 (setq scan-regions-list (cdr scan-regions-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7716 ;; update sensitivity list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7717 (goto-char sens-beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7718 (if sens-end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7719 (delete-region sens-beg sens-end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7720 (when read-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7721 (insert " ()") (backward-char))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7722 (setq read-list (sort read-list 'string<)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7723 (when read-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7724 (setq margin (current-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7725 (insert (car read-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7726 (setq read-list (cdr read-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7727 (while read-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7728 (insert ",") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7729 (if (<= (+ (current-column) (length (car read-list)) 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7730 end-comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7731 (insert " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7732 (insert "\n") (indent-to margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7733 (insert (car read-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7734 (setq read-list (cdr read-list))))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7735 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7736 (defun vhdl-get-visible-signals () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7737 "Get all signals visible in the current block." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7738 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7739 (let (beg end signal-list entity-name file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7740 ;; search for signals declared in surrounding block declarative parts |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7741 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7742 (while (and (progn (while (and (setq beg (re-search-backward "^\\s-*\\(\\w+\\s-*:\\s-*block\\|\\(end\\)\\s-+block\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7743 (match-string 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7744 (goto-char (match-end 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7745 (vhdl-backward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7746 (re-search-backward "^\\s-*\\w+\\s-*:\\s-*block\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7747 beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7748 (setq end (re-search-forward "^\\s-*begin\\>" nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7749 ;; scan for all declared signal names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7750 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7751 (while (re-search-forward "^\\s-*signal\\>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7752 (while (and (not (looking-at "[ \t\n]*:")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7753 (re-search-forward "[ \t\n,]+\\(\\w+\\)" end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7754 (setq signal-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7755 (cons (downcase (match-string 1)) signal-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7756 (goto-char beg))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7757 ;; search for signals declared in architecture declarative part |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7758 (if (not (and (setq beg (re-search-backward "^\\(architecture\\s-+\\w+\\s-+of\\s-+\\(\\w+\\)\\|end\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7759 (not (equal "END" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7760 (setq entity-name (match-string 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7761 (setq end (re-search-forward "^begin\\>" nil t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7762 (error "ERROR: No architecture declarative part found") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7763 ;; scan for all declared signal names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7764 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7765 (while (re-search-forward "^\\s-*signal\\>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7766 (while (and (not (looking-at "[ \t\n]*:")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7767 (re-search-forward "[ \t\n,]+\\(\\w+\\)" end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7768 (setq signal-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7769 (cons (downcase (match-string 1)) signal-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7770 ;; search for signals declared in entity port clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7771 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7772 (unless (re-search-forward (concat "^entity\\s-+" entity-name "\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7773 (setq file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7774 (concat (vhdl-replace-string vhdl-entity-file-name entity-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7775 "." (file-name-extension (buffer-file-name))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7776 (vhdl-visit-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7777 file-name t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7778 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7779 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7780 (if (not (re-search-forward (concat "^entity\\s-+" entity-name "\\>") nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7781 (error "ERROR: Entity \"%s\" not found:\n --> see option `vhdl-entity-file-name'" entity-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7782 (when (setq beg (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7783 "^\\s-*port[ \t\n]*(" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7784 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7785 (re-search-forward "^end\\>" nil t)) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7786 (setq end (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7787 (backward-char) (forward-sexp) (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7788 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7789 (while (< (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7790 (while (and (not (looking-at "[ \t\n]*:")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7791 (re-search-forward "[ \t\n,]*\\(\\w+\\)" end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7792 (setq signal-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7793 (cons (downcase (match-string 1)) signal-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7794 (re-search-forward ";" end 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7795 (vhdl-forward-syntactic-ws)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7796 signal-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7797 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7798 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7799 ;; Generic/port clause fixing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7800 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7801 (defun vhdl-fix-clause () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7802 "Fix closing parenthesis within generic/port clause." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7803 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7804 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7805 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7806 (let ((pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7807 beg end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7808 (if (not (re-search-backward "^\\s-*\\(generic\\|port\\)[ \t\n]*(" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7809 (error "ERROR: Not within a generic/port clause") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7810 ;; search for end of clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7811 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7812 (setq beg (1- (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7813 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7814 (while (looking-at "\\w+\\([ \t\n]*,[ \t\n]*\\w+\\)*[ \t\n]*:[ \t\n]*\\w+[^;]*;") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7815 (goto-char (1- (match-end 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7816 (setq end (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7817 (forward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7818 (vhdl-forward-syntactic-ws)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7819 (goto-char end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7820 (when (> pos (save-excursion (end-of-line) (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7821 (error "ERROR: Not within a generic/port clause")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7822 ;; delete closing parenthesis on separate line (not supported style) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7823 (when (save-excursion (beginning-of-line) (looking-at "^\\s-*);")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7824 (vhdl-line-kill) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7825 (vhdl-backward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7826 (setq end (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7827 (insert ";")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7828 ;; delete superfluous parentheses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7829 (while (progn (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7830 (condition-case () (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7831 (error (goto-char (point-max)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7832 (< (point) end)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7833 (delete-backward-char 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7834 ;; add closing parenthesis |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7835 (when (> (point) end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7836 (goto-char end) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7837 (insert ")"))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7838 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7839 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7840 ;; Miscellaneous |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7841 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7842 (defun vhdl-remove-trailing-spaces () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7843 "Remove trailing spaces in the whole buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7844 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7845 (save-match-data |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7846 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7847 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7848 (while (re-search-forward "[ \t]+$" (point-max) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7849 (unless (vhdl-in-literal) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7850 (replace-match "" nil nil)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7851 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7852 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7853 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7854 ;;; Electrification |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7856 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7857 (defconst vhdl-template-prompt-syntax "[^ =<>][^<>@.\n]*[^ =<>]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7858 "Syntax of prompt inserted by template generators.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7859 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7860 (defvar vhdl-template-invoked-by-hook nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7861 "Indicates whether a template has been invoked by a hook or by key or menu. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7862 Used for undoing after template abortion.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7863 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7864 ;; correct different behavior of function `unread-command-events' in XEmacs |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7865 (defun vhdl-character-to-event (arg)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7866 (defalias 'vhdl-character-to-event |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
7867 (if (fboundp 'character-to-event) 'character-to-event 'identity)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7868 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7869 (defun vhdl-work-library () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7870 "Return the working library name of the current project or \"work\" if no |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7871 project is defined." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7872 (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7873 (or (nth 6 (aget vhdl-project-alist vhdl-project)) vhdl-default-library))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7874 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7875 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7876 ;; Enabling/disabling |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7877 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7878 (defun vhdl-mode-line-update () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7879 "Update the modeline string for VHDL major mode." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7880 (setq mode-name (concat "VHDL" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7881 (and (or vhdl-electric-mode vhdl-stutter-mode) "/") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7882 (and vhdl-electric-mode "e") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7883 (and vhdl-stutter-mode "s"))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7884 (force-mode-line-update t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7885 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7886 (defun vhdl-electric-mode (arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7887 "Toggle VHDL electric mode. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7888 Turn on if ARG positive, turn off if ARG negative, toggle if ARG zero or nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7889 (interactive "P") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7890 (setq vhdl-electric-mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7891 (cond ((or (not arg) (zerop arg)) (not vhdl-electric-mode)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7892 ((> arg 0) t) (t nil))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7893 (vhdl-mode-line-update)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7894 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7895 (defun vhdl-stutter-mode (arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7896 "Toggle VHDL stuttering mode. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7897 Turn on if ARG positive, turn off if ARG negative, toggle if ARG zero or nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7898 (interactive "P") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7899 (setq vhdl-stutter-mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7900 (cond ((or (not arg) (zerop arg)) (not vhdl-stutter-mode)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7901 ((> arg 0) t) (t nil))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7902 (vhdl-mode-line-update)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7903 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7904 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7905 ;; Stuttering |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7906 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7907 (defun vhdl-electric-dash (count) |
20665 | 7908 "-- starts a comment, --- draws a horizontal line, |
7909 ---- starts a display comment" | |
7910 (interactive "p") | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7911 (if (and vhdl-stutter-mode (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7912 (cond |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7913 ((and abbrev-start-location (= abbrev-start-location (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7914 (setq abbrev-start-location nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7915 (goto-char last-abbrev-location) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7916 (beginning-of-line nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7917 (vhdl-comment-display)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7918 ((/= (preceding-char) ?-) ; standard dash (minus) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7919 (self-insert-command count)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7920 (t (self-insert-command count) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7921 (message "Enter '-' for horiz. line, 'CR' for commenting-out code, else enter comment") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7922 (let ((next-input (read-char))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7923 (if (= next-input ?-) ; triple dash |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7924 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7925 (vhdl-comment-display-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7926 (message |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7927 "Enter '-' for display comment, else continue coding") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7928 (let ((next-input (read-char))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7929 (if (= next-input ?-) ; four dashes |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7930 (vhdl-comment-display t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7931 (setq unread-command-events ; pushback the char |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7932 (list (vhdl-character-to-event next-input)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7933 (setq unread-command-events ; pushback the char |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7934 (list (vhdl-character-to-event next-input))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7935 (vhdl-comment-insert))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7936 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7937 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7938 (defun vhdl-electric-open-bracket (count) "'[' --> '(', '([' --> '['" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7939 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7940 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7941 (if (= (preceding-char) ?\() |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7942 (progn (delete-char -1) (insert-char ?\[ 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7943 (insert-char ?\( 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7944 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7945 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7946 (defun vhdl-electric-close-bracket (count) "']' --> ')', ')]' --> ']'" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7947 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7948 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7949 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7950 (if (= (preceding-char) ?\)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7951 (progn (delete-char -1) (insert-char ?\] 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7952 (insert-char ?\) 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7953 (blink-matching-open)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7954 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7955 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7956 (defun vhdl-electric-quote (count) "'' --> \"" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7957 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7958 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7959 (if (= (preceding-char) last-input-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7960 (progn (delete-backward-char 1) (insert-char ?\" 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7961 (insert-char ?\' 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7962 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7963 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7964 (defun vhdl-electric-semicolon (count) "';;' --> ' : ', ': ;' --> ' := '" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7965 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7966 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7967 (cond ((= (preceding-char) last-input-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7968 (progn (delete-char -1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7969 (unless (eq (preceding-char) ? ) (insert " ")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7970 (insert ": ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7971 (setq this-command 'vhdl-electric-colon))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7972 ((and |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7973 (eq last-command 'vhdl-electric-colon) (= (preceding-char) ? )) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7974 (progn (delete-char -1) (insert "= "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7975 (t (insert-char ?\; 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7976 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7977 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7978 (defun vhdl-electric-comma (count) "',,' --> ' <= '" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7979 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7980 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7981 (cond ((= (preceding-char) last-input-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7982 (progn (delete-char -1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7983 (unless (eq (preceding-char) ? ) (insert " ")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7984 (insert "<= "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7985 (t (insert-char ?\, 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7986 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7987 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7988 (defun vhdl-electric-period (count) "'..' --> ' => '" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7989 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7990 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7991 (cond ((= (preceding-char) last-input-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7992 (progn (delete-char -1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
7993 (unless (eq (preceding-char) ? ) (insert " ")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7994 (insert "=> "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7995 (t (insert-char ?\. 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7996 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7997 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7998 (defun vhdl-electric-equal (count) "'==' --> ' == '" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
7999 (interactive "p") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8000 (if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8001 (cond ((= (preceding-char) last-input-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8002 (progn (delete-char -1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8003 (unless (eq (preceding-char) ? ) (insert " ")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8004 (insert "== "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8005 (t (insert-char ?\= 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8006 (self-insert-command count))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8007 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8008 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 8009 ;; VHDL templates |
8010 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8011 (defun vhdl-template-paired-parens () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8012 "Insert a pair of round parentheses, placing point between them." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8013 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8014 (insert "()") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8015 (backward-char)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8016 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8017 (defun vhdl-template-alias () |
20665 | 8018 "Insert alias declaration." |
8019 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8020 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8021 (vhdl-insert-keyword "ALIAS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8022 (when (vhdl-template-field "name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8023 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8024 (unless (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8025 (concat "[type" (and (vhdl-standard-p 'ams) " or nature") "]") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8026 nil t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8027 (delete-backward-char 3)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8028 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8029 (vhdl-template-field "name" ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8030 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8031 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8032 (defun vhdl-template-architecture () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8033 "Insert architecture." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8034 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8035 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8036 (start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8037 arch-name) |
20665 | 8038 (vhdl-insert-keyword "ARCHITECTURE ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8039 (when (setq arch-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8040 (vhdl-template-field "name" nil t start (point))) |
20665 | 8041 (vhdl-insert-keyword " OF ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8042 (if (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8043 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8044 (vhdl-re-search-backward "\\<entity \\(\\w+\\) is\\>" nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8045 (insert (match-string 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8046 (vhdl-template-field "entity name")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8047 (vhdl-insert-keyword " IS\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8048 (vhdl-template-begin-end |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8049 (unless (vhdl-standard-p '87) "ARCHITECTURE") arch-name margin |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8050 (memq vhdl-insert-empty-lines '(unit all)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8051 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8052 (defun vhdl-template-array (kind &optional secondary) |
20665 | 8053 "Insert array type definition." |
8054 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8055 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8056 (vhdl-insert-keyword "ARRAY (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8057 (when (or (vhdl-template-field "range" nil (not secondary) start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8058 secondary) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8059 (vhdl-insert-keyword ") OF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8060 (vhdl-template-field (if (eq kind 'type) "type" "nature")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8061 (vhdl-insert-keyword ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8062 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8063 (defun vhdl-template-assert () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8064 "Insert an assertion statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8065 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8066 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8067 (vhdl-insert-keyword "ASSERT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8068 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8069 (when (vhdl-template-field "condition (negated)" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8070 (when vhdl-conditions-in-parenthesis (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8071 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8072 (vhdl-insert-keyword " REPORT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8073 (unless (vhdl-template-field "string expression" nil nil nil nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8074 (delete-region start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8075 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8076 (vhdl-insert-keyword " SEVERITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8077 (unless (vhdl-template-field "[NOTE | WARNING | ERROR | FAILURE]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8078 (delete-region start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8079 (insert ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8080 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8081 (defun vhdl-template-attribute () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8082 "Insert an attribute declaration or specification." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8083 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8084 (if (eq (vhdl-decision-query |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8085 "attribute" "(d)eclaration or (s)pecification?" t) ?s) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8086 (vhdl-template-attribute-spec) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8087 (vhdl-template-attribute-decl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8088 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8089 (defun vhdl-template-attribute-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8090 "Insert an attribute declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8091 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8092 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8093 (vhdl-insert-keyword "ATTRIBUTE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8094 (when (vhdl-template-field "name" " : " t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8095 (vhdl-template-field "type" ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8096 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8097 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8098 (defun vhdl-template-attribute-spec () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8099 "Insert an attribute specification." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8100 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8101 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8102 (vhdl-insert-keyword "ATTRIBUTE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8103 (when (vhdl-template-field "name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8104 (vhdl-insert-keyword " OF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8105 (vhdl-template-field "entity names | OTHERS | ALL" " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8106 (vhdl-template-field "entity class") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8107 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8108 (vhdl-template-field "expression" ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8109 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8110 (defun vhdl-template-block () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8111 "Insert a block." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8112 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8113 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8114 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8115 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8116 (vhdl-insert-keyword ": BLOCK ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8117 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8118 (when (setq label (vhdl-template-field "label" nil t start (+ (point) 8))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8119 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8120 (forward-char 1) |
20665 | 8121 (insert "(") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8122 (if (vhdl-template-field "[guard expression]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8123 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8124 (delete-char -2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8125 (unless (vhdl-standard-p '87) (vhdl-insert-keyword " IS")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8126 (insert "\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8127 (vhdl-template-begin-end "BLOCK" label margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8128 (vhdl-comment-block)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8129 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8130 (defun vhdl-template-block-configuration () |
20665 | 8131 "Insert a block configuration statement." |
8132 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8133 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8134 (start (point))) |
20665 | 8135 (vhdl-insert-keyword "FOR ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8136 (when (vhdl-template-field "block name" nil t start (point)) |
20665 | 8137 (vhdl-insert-keyword "\n\n") |
8138 (indent-to margin) | |
8139 (vhdl-insert-keyword "END FOR;") | |
8140 (end-of-line 0) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8141 (indent-to (+ margin vhdl-basic-offset))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8142 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8143 (defun vhdl-template-break () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8144 "Insert a break statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8145 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8146 (let (position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8147 (vhdl-insert-keyword "BREAK") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8148 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8149 (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8150 (while (or |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8151 (progn (vhdl-insert-keyword "FOR ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8152 (if (vhdl-template-field "[quantity name]" " USE " t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8153 (progn (vhdl-template-field "quantity name" " => ") t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8154 (kill-word -1) nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8155 (vhdl-template-field "[quantity name]" " => " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8156 (vhdl-template-field "expression") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8157 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8158 (insert ", ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8159 (delete-region position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8160 (unless (vhdl-sequential-statement-p) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8161 (vhdl-insert-keyword " ON ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8162 (if (vhdl-template-field "[sensitivity list]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8163 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8164 (delete-region position (point)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8165 (vhdl-insert-keyword " WHEN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8166 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8167 (if (vhdl-template-field "[condition]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8168 (when vhdl-conditions-in-parenthesis (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8169 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8170 (insert ";"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8171 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8172 (defun vhdl-template-case (&optional kind) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8173 "Insert a case statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8174 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8175 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8176 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8177 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8178 (unless kind (setq kind (if (vhdl-sequential-statement-p) 'is 'use))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8179 (if (or (not (eq vhdl-optional-labels 'all)) (vhdl-standard-p '87)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8180 (vhdl-insert-keyword "CASE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8181 (vhdl-insert-keyword ": CASE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8182 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8183 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8184 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8185 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8186 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8187 (when (vhdl-template-field "expression" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8188 (vhdl-insert-keyword (concat " " (if (eq kind 'is) "IS" "USE") "\n\n")) |
20665 | 8189 (indent-to margin) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8190 (vhdl-insert-keyword "END CASE") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8191 (when label (insert " " label)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8192 (insert ";") |
20665 | 8193 (forward-line -1) |
8194 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8195 (vhdl-insert-keyword "WHEN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8196 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8197 (insert " => ;\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8198 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8199 (vhdl-insert-keyword "WHEN OTHERS => null;") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8200 (goto-char position))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8201 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8202 (defun vhdl-template-case-is () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8203 "Insert a sequential case statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8204 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8205 (vhdl-template-case 'is)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8206 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8207 (defun vhdl-template-case-use () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8208 "Insert a simultaneous case statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8209 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8210 (vhdl-template-case 'use)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8211 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8212 (defun vhdl-template-component () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8213 "Insert a component declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8214 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8215 (vhdl-template-component-decl)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8216 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8217 (defun vhdl-template-component-conf () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8218 "Insert a component configuration (uses `vhdl-template-configuration-spec' |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8219 since these are almost equivalent)." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8220 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8221 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8222 (result (vhdl-template-configuration-spec t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8223 (when result |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8224 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8225 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8226 (vhdl-insert-keyword "END FOR;") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8227 (when (eq result 'no-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8228 (end-of-line -0))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8229 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8230 (defun vhdl-template-component-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8231 "Insert a component declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8232 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8233 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8234 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8235 name end-column) |
20665 | 8236 (vhdl-insert-keyword "COMPONENT ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8237 (when (setq name (vhdl-template-field "name" nil t start (point))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8238 (unless (vhdl-standard-p '87) (vhdl-insert-keyword " IS")) |
20665 | 8239 (insert "\n\n") |
8240 (indent-to margin) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8241 (vhdl-insert-keyword "END COMPONENT") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8242 (unless (vhdl-standard-p '87) (insert " " name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8243 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8244 (setq end-column (current-column)) |
20665 | 8245 (end-of-line -0) |
8246 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8247 (vhdl-template-generic-list t t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8248 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8249 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8250 (vhdl-template-port-list t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8251 (beginning-of-line 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8252 (forward-char end-column)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8253 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8254 (defun vhdl-template-component-inst () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8255 "Insert a component instantiation statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8256 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8257 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8258 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8259 unit position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8260 (when (vhdl-template-field "instance label" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8261 (insert ": ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8262 (if (not (vhdl-use-direct-instantiation)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8263 (vhdl-template-field "component name") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8264 ;; direct instantiation |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8265 (setq unit (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8266 "[COMPONENT | ENTITY | CONFIGURATION]" " " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8267 (setq unit (upcase (or unit ""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8268 (cond ((equal unit "ENTITY") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8269 (vhdl-template-field "library name" "." nil nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8270 (vhdl-work-library)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8271 (vhdl-template-field "entity name" "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8272 (if (vhdl-template-field "[architecture name]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8273 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8274 (delete-char -1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8275 ((equal unit "CONFIGURATION") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8276 (vhdl-template-field "library name" "." nil nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8277 (vhdl-work-library)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8278 (vhdl-template-field "configuration name")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8279 (t (vhdl-template-field "component name")))) |
20665 | 8280 (insert "\n") |
8281 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8282 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8283 (vhdl-insert-keyword "GENERIC ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8284 (when (vhdl-template-map position t t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8285 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8286 (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8287 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8288 (vhdl-insert-keyword "PORT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8289 (unless (vhdl-template-map position t t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8290 (kill-line -0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8291 (delete-char -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8292 (insert ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8293 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8294 (defun vhdl-template-conditional-signal-asst () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8295 "Insert a conditional signal assignment." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8296 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8297 (when (vhdl-template-field "target signal") |
20665 | 8298 (insert " <= ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8299 ; (if (not (equal (vhdl-template-field "[GUARDED] [TRANSPORT]") "")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8300 ; (insert " ")) |
20665 | 8301 (let ((margin (current-column)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8302 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8303 position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8304 (vhdl-template-field "waveform") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8305 (setq position (point)) |
20665 | 8306 (vhdl-insert-keyword " WHEN ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8307 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8308 (while (and (vhdl-template-field "[condition]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8309 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8310 (when vhdl-conditions-in-parenthesis (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8311 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8312 (vhdl-insert-keyword " ELSE") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8313 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8314 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8315 (vhdl-template-field "[waveform]" nil t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8316 (setq position (point)) |
20665 | 8317 (vhdl-insert-keyword " WHEN ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8318 (when vhdl-conditions-in-parenthesis (insert "("))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8319 (delete-region position (point)) |
20665 | 8320 (insert ";") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8321 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8322 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8323 (defun vhdl-template-configuration () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8324 "Insert a configuration specification if within an architecture, |
20665 | 8325 a block or component configuration if within a configuration declaration, |
8326 a configuration declaration if not within a design unit." | |
8327 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8328 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8329 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8330 ((and (save-excursion ; architecture body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8331 (re-search-backward "^\\(architecture\\|end\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8332 (equal "ARCHITECTURE" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8333 (vhdl-template-configuration-spec)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8334 ((and (save-excursion ; configuration declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8335 (re-search-backward "^\\(configuration\\|end\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8336 (equal "CONFIGURATION" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8337 (if (eq (vhdl-decision-query |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8338 "configuration" "(b)lock or (c)omponent configuration?" t) ?c) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8339 (vhdl-template-component-conf) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8340 (vhdl-template-block-configuration))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8341 (t (vhdl-template-configuration-decl))))) ; otherwise |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8342 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8343 (defun vhdl-template-configuration-spec (&optional optional-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8344 "Insert a configuration specification." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8345 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8346 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8347 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8348 aspect position) |
20665 | 8349 (vhdl-insert-keyword "FOR ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8350 (when (vhdl-template-field "instance names | OTHERS | ALL" " : " |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8351 t start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8352 (vhdl-template-field "component name" "\n") |
20665 | 8353 (indent-to (+ margin vhdl-basic-offset)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8354 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8355 (vhdl-insert-keyword "USE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8356 (if (and optional-use |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8357 (not (setq aspect (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8358 "[ENTITY | CONFIGURATION | OPEN]" " " t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8359 (progn (delete-region start (point)) 'no-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8360 (unless optional-use |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8361 (setq aspect (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8362 "ENTITY | CONFIGURATION | OPEN" " "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8363 (setq aspect (upcase (or aspect ""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8364 (cond ((equal aspect "ENTITY") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8365 (vhdl-template-field "library name" "." nil nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8366 (vhdl-work-library)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8367 (vhdl-template-field "entity name" "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8368 (if (vhdl-template-field "[architecture name]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8369 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8370 (delete-char -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8371 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8372 (indent-to (+ margin (* 2 vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8373 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8374 (vhdl-insert-keyword "GENERIC ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8375 (when (vhdl-template-map position t t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8376 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8377 (indent-to (+ margin (* 2 vhdl-basic-offset)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8378 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8379 (vhdl-insert-keyword "PORT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8380 (unless (vhdl-template-map position t t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8381 (kill-line -0) |
20665 | 8382 (delete-char -1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8383 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8384 t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8385 ((equal aspect "CONFIGURATION") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8386 (vhdl-template-field "library name" "." nil nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8387 (vhdl-work-library)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8388 (vhdl-template-field "configuration name" ";")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8389 (t (delete-backward-char 1) (insert ";") t)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8390 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8391 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8392 (defun vhdl-template-configuration-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8393 "Insert a configuration declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8394 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8395 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8396 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8397 entity-exists string name position) |
20665 | 8398 (vhdl-insert-keyword "CONFIGURATION ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8399 (when (setq name (vhdl-template-field "name" nil t start (point))) |
20665 | 8400 (vhdl-insert-keyword " OF ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8401 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8402 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8403 (setq entity-exists (vhdl-re-search-backward |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8404 "\\<entity \\(\\w*\\) is\\>" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8405 (setq string (match-string 1)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8406 (if (and entity-exists (not (equal string ""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8407 (insert string) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8408 (vhdl-template-field "entity name")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8409 (vhdl-insert-keyword " IS\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8410 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8411 (indent-to (+ margin vhdl-basic-offset)) |
20665 | 8412 (setq position (point)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8413 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8414 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
20665 | 8415 (indent-to margin) |
8416 (vhdl-insert-keyword "END ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8417 (unless (vhdl-standard-p '87) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8418 (vhdl-insert-keyword "CONFIGURATION ")) |
20665 | 8419 (insert name ";") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8420 (goto-char position)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8421 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8422 (defun vhdl-template-constant () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8423 "Insert a constant declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8424 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8425 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8426 (in-arglist (vhdl-in-argument-list-p))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8427 (vhdl-insert-keyword "CONSTANT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8428 (when (vhdl-template-field "name" nil t start (point)) |
20665 | 8429 (insert " : ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8430 (when in-arglist (vhdl-insert-keyword "IN ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8431 (vhdl-template-field "type") |
20665 | 8432 (if in-arglist |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8433 (progn (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8434 (vhdl-comment-insert-inline)) |
20665 | 8435 (let ((position (point))) |
8436 (insert " := ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8437 (unless (vhdl-template-field "[initialization]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8438 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8439 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8440 (vhdl-comment-insert-inline)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8441 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8442 (defun vhdl-template-default () |
20665 | 8443 "Insert nothing." |
8444 (interactive) | |
8445 (insert " ") | |
8446 (unexpand-abbrev) | |
8447 (backward-word 1) | |
8448 (vhdl-case-word 1) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8449 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8450 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8451 (defun vhdl-template-default-indent () |
20665 | 8452 "Insert nothing and indent." |
8453 (interactive) | |
8454 (insert " ") | |
8455 (unexpand-abbrev) | |
8456 (backward-word 1) | |
8457 (vhdl-case-word 1) | |
8458 (forward-char 1) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8459 (indent-according-to-mode)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8460 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8461 (defun vhdl-template-disconnect () |
20665 | 8462 "Insert a disconnect statement." |
8463 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8464 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8465 (vhdl-insert-keyword "DISCONNECT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8466 (when (vhdl-template-field "signal names | OTHERS | ALL" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8467 " : " t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8468 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8469 (vhdl-insert-keyword " AFTER ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8470 (vhdl-template-field "time expression" ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8471 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8472 (defun vhdl-template-else () |
20665 | 8473 "Insert an else statement." |
8474 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8475 (let (margin) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8476 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8477 (vhdl-insert-keyword "ELSE") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8478 (if (and (save-excursion (vhdl-re-search-backward "\\(\\<when\\>\\|;\\)" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8479 (equal "WHEN" (upcase (match-string 1)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8480 (insert " ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8481 (indent-according-to-mode) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8482 (setq margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8483 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8484 (indent-to (+ margin vhdl-basic-offset)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8485 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8486 (defun vhdl-template-elsif () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8487 "Insert an elsif statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8488 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8489 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8490 margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8491 (vhdl-insert-keyword "ELSIF ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8492 (when (or (vhdl-sequential-statement-p) (vhdl-standard-p 'ams)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8493 (when vhdl-conditions-in-parenthesis (insert "(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8494 (when (vhdl-template-field "condition" nil t start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8495 (when vhdl-conditions-in-parenthesis (insert ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8496 (indent-according-to-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8497 (setq margin (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8498 (vhdl-insert-keyword |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8499 (concat " " (if (vhdl-sequential-statement-p) "THEN" "USE") "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8500 (indent-to (+ margin vhdl-basic-offset)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8501 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8502 (defun vhdl-template-entity () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8503 "Insert an entity." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8504 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8505 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8506 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8507 name end-column) |
20665 | 8508 (vhdl-insert-keyword "ENTITY ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8509 (when (setq name (vhdl-template-field "name" nil t start (point))) |
20665 | 8510 (vhdl-insert-keyword " IS\n\n") |
8511 (indent-to margin) | |
8512 (vhdl-insert-keyword "END ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8513 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "ENTITY ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8514 (insert name ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8515 (setq end-column (current-column)) |
20665 | 8516 (end-of-line -0) |
8517 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8518 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8519 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8520 (when (vhdl-template-generic-list t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8521 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8522 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8523 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8524 (when (vhdl-template-port-list t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8525 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8526 (beginning-of-line 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8527 (forward-char end-column)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8528 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8529 (defun vhdl-template-exit () |
20665 | 8530 "Insert an exit statement." |
8531 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8532 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8533 (vhdl-insert-keyword "EXIT ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8534 (if (vhdl-template-field "[loop label]" nil t start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8535 (let ((position (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8536 (vhdl-insert-keyword " WHEN ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8537 (when vhdl-conditions-in-parenthesis (insert "(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8538 (if (vhdl-template-field "[condition]" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8539 (when vhdl-conditions-in-parenthesis (insert ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8540 (delete-region position (point)))) |
20665 | 8541 (delete-char -1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8542 (insert ";"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8543 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8544 (defun vhdl-template-file () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8545 "Insert a file declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8546 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8547 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8548 (vhdl-insert-keyword "FILE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8549 (when (vhdl-template-field "name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8550 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8551 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8552 (unless (vhdl-standard-p '87) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8553 (vhdl-insert-keyword " OPEN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8554 (unless (vhdl-template-field "[READ_MODE | WRITE_MODE | APPEND_MODE]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8555 nil t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8556 (delete-backward-char 6))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8557 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8558 (when (vhdl-standard-p '87) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8559 (vhdl-template-field "[IN | OUT]" " " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8560 (vhdl-template-field "filename-string" nil nil nil nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8561 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8562 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8563 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8564 (defun vhdl-template-for () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8565 "Insert a block or component configuration if within a configuration |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8566 declaration, a configuration specification if within an architecture |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8567 declarative part (and not within a subprogram), a for-loop if within a |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8568 sequential statement part (subprogram or process), and a for-generate |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8569 otherwise." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8570 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8571 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8572 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8573 ((vhdl-sequential-statement-p) ; sequential statement |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8574 (vhdl-template-for-loop)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8575 ((and (save-excursion ; configuration declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8576 (re-search-backward "^\\(configuration\\|end\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8577 (equal "CONFIGURATION" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8578 (if (eq (vhdl-decision-query |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8579 "for" "(b)lock or (c)omponent configuration?" t) ?c) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8580 (vhdl-template-component-conf) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8581 (vhdl-template-block-configuration))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8582 ((and (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8583 (re-search-backward ; architecture declarative part |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8584 "^\\(architecture\\|entity\\|begin\\|end\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8585 (equal "ARCHITECTURE" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8586 (vhdl-template-configuration-spec)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8587 (t (vhdl-template-for-generate))))) ; concurrent statement |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8588 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8589 (defun vhdl-template-for-generate () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8590 "Insert a for-generate." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8591 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8592 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8593 (start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8594 label position) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8595 (vhdl-insert-keyword ": FOR ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8596 (setq position (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8597 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8598 (when (setq label (vhdl-template-field "label" nil t start position)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8599 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8600 (vhdl-template-field "loop variable") |
20665 | 8601 (vhdl-insert-keyword " IN ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8602 (vhdl-template-field "range") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8603 (vhdl-template-generate-body margin label)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8604 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8605 (defun vhdl-template-for-loop () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8606 "Insert a for loop." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8607 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8608 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8609 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8610 label index) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8611 (if (not (eq vhdl-optional-labels 'all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8612 (vhdl-insert-keyword "FOR ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8613 (vhdl-insert-keyword ": FOR ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8614 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8615 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8616 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8617 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8618 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8619 (when (setq index (vhdl-template-field "loop variable" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8620 nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8621 (vhdl-insert-keyword " IN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8622 (vhdl-template-field "range") |
20665 | 8623 (vhdl-insert-keyword " LOOP\n\n") |
8624 (indent-to margin) | |
8625 (vhdl-insert-keyword "END LOOP") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8626 (if label |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8627 (insert " " label ";") |
20665 | 8628 (insert ";") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8629 (when vhdl-self-insert-comments (insert " -- " index))) |
20665 | 8630 (forward-line -1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8631 (indent-to (+ margin vhdl-basic-offset))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8632 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8633 (defun vhdl-template-function (&optional kind) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8634 "Insert a function declaration or body." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8635 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8636 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8637 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8638 name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8639 (vhdl-insert-keyword "FUNCTION ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8640 (when (setq name (vhdl-template-field "name" nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8641 (vhdl-template-argument-list t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8642 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8643 (end-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8644 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8645 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8646 (vhdl-insert-keyword "RETURN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8647 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8648 (if (if kind (eq kind 'body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8649 (eq (vhdl-decision-query nil "(d)eclaration or (b)ody?") ?b)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8650 (progn (vhdl-insert-keyword " IS\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8651 (vhdl-template-begin-end |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8652 (unless (vhdl-standard-p '87) "FUNCTION") name margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8653 (vhdl-comment-block)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8654 (insert ";"))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8655 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8656 (defun vhdl-template-function-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8657 "Insert a function declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8658 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8659 (vhdl-template-function 'decl)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8660 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8661 (defun vhdl-template-function-body () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8662 "Insert a function declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8663 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8664 (vhdl-template-function 'body)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8665 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8666 (defun vhdl-template-generate () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8667 "Insert a generation scheme." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8668 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8669 (if (eq (vhdl-decision-query nil "(f)or or (i)f?" t) ?i) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8670 (vhdl-template-if-generate) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8671 (vhdl-template-for-generate))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8672 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8673 (defun vhdl-template-generic () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8674 "Insert generic declaration, or generic map in instantiation statements." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8675 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8676 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8677 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8678 (cond |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8679 ((and (save-excursion ; entity declaration |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8680 (re-search-backward "^\\(entity\\|end\\)\\>" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8681 (equal "ENTITY" (upcase (match-string 1)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8682 (vhdl-template-generic-list nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8683 ((or (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8684 (or (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8685 (looking-at "^\\s-*\\w+\\s-*:\\s-*\\w+"))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8686 (equal 'statement-cont (caar (vhdl-get-syntactic-context)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8687 (vhdl-insert-keyword "GENERIC ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8688 (vhdl-template-map start)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8689 (t (vhdl-template-generic-list nil t)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8690 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8691 (defun vhdl-template-group () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8692 "Insert group or group template declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8693 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8694 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8695 (if (eq (vhdl-decision-query |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8696 "group" "(d)eclaration or (t)emplate declaration?" t) ?t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8697 (vhdl-template-group-template) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8698 (vhdl-template-group-decl)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8699 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8700 (defun vhdl-template-group-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8701 "Insert group declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8702 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8703 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8704 (vhdl-insert-keyword "GROUP ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8705 (when (vhdl-template-field "name" " : " t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8706 (vhdl-template-field "template name" " (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8707 (vhdl-template-field "constituent list" ");") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8708 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8709 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8710 (defun vhdl-template-group-template () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8711 "Insert group template declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8712 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8713 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8714 (vhdl-insert-keyword "GROUP ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8715 (when (vhdl-template-field "template name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8716 (vhdl-insert-keyword " IS (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8717 (vhdl-template-field "entity class list" ");") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8718 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8719 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8720 (defun vhdl-template-if () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8721 "Insert a sequential if statement or an if-generate statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8722 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8723 (if (vhdl-sequential-statement-p) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8724 (vhdl-template-if-then) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8725 (if (and (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8726 (eq (vhdl-decision-query "if" "(g)enerate or (u)se?" t) ?u)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8727 (vhdl-template-if-use) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8728 (vhdl-template-if-generate)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8729 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8730 (defun vhdl-template-if-generate () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8731 "Insert an if-generate." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8732 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8733 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8734 (start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8735 label position) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8736 (vhdl-insert-keyword ": IF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8737 (setq position (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8738 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8739 (when (setq label (vhdl-template-field "label" nil t start position)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8740 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8741 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8742 (vhdl-template-field "condition") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8743 (when vhdl-conditions-in-parenthesis (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8744 (vhdl-template-generate-body margin label)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8745 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8746 (defun vhdl-template-if-then-use (kind) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8747 "Insert a sequential if statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8748 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8749 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8750 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8751 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8752 (if (or (not (eq vhdl-optional-labels 'all)) (vhdl-standard-p '87)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8753 (vhdl-insert-keyword "IF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8754 (vhdl-insert-keyword ": IF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8755 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8756 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8757 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8758 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8759 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8760 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8761 (when (vhdl-template-field "condition" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8762 (when vhdl-conditions-in-parenthesis (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8763 (vhdl-insert-keyword |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8764 (concat " " (if (eq kind 'then) "THEN" "USE") "\n\n")) |
20665 | 8765 (indent-to margin) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8766 (vhdl-insert-keyword "END IF") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8767 (when label (insert " " label)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8768 (insert ";") |
20665 | 8769 (forward-line -1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8770 (indent-to (+ margin vhdl-basic-offset))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8771 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8772 (defun vhdl-template-if-then () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8773 "Insert a sequential if statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8774 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8775 (vhdl-template-if-then-use 'then)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8776 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8777 (defun vhdl-template-if-use () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8778 "Insert a simultaneous if statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8779 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8780 (vhdl-template-if-then-use 'use)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8781 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8782 (defun vhdl-template-instance () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8783 "Insert a component instantiation statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8784 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8785 (vhdl-template-component-inst)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8786 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8787 (defun vhdl-template-library () |
20665 | 8788 "Insert a library specification." |
8789 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8790 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8791 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8792 name end-pos) |
20665 | 8793 (vhdl-insert-keyword "LIBRARY ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8794 (when (setq name (vhdl-template-field "names" nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8795 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8796 (unless (string-match "," name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8797 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8798 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8799 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8800 (vhdl-insert-keyword "USE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8801 (insert name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8802 (vhdl-insert-keyword "..ALL;") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8803 (backward-char 5) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8804 (if (vhdl-template-field "package name") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8805 (forward-char 5) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8806 (delete-region end-pos (+ (point) 5))))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8807 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8808 (defun vhdl-template-limit () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8809 "Insert a limit." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8810 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8811 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8812 (vhdl-insert-keyword "LIMIT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8813 (when (vhdl-template-field "quantity names | OTHERS | ALL" " : " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8814 t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8815 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8816 (vhdl-insert-keyword " WITH ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8817 (vhdl-template-field "real expression" ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8818 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8819 (defun vhdl-template-loop () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8820 "Insert a loop." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8821 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8822 (let ((char (vhdl-decision-query nil "(w)hile, (f)or, or (b)are?" t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8823 (cond ((eq char ?w) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8824 (vhdl-template-while-loop)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8825 ((eq char ?f) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8826 (vhdl-template-for-loop)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8827 (t (vhdl-template-bare-loop))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8828 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8829 (defun vhdl-template-bare-loop () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8830 "Insert a loop." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8831 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8832 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8833 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8834 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8835 (if (not (eq vhdl-optional-labels 'all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8836 (vhdl-insert-keyword "LOOP ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8837 (vhdl-insert-keyword ": LOOP ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8838 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8839 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8840 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8841 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8842 (delete-char 1)) |
20665 | 8843 (insert "\n\n") |
8844 (indent-to margin) | |
8845 (vhdl-insert-keyword "END LOOP") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8846 (insert (if label (concat " " label ";") ";")) |
20665 | 8847 (forward-line -1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8848 (indent-to (+ margin vhdl-basic-offset)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8849 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8850 (defun vhdl-template-map (&optional start optional secondary) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8851 "Insert a map specification with association list." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8852 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8853 (let ((start (or start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8854 margin end-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8855 (vhdl-insert-keyword "MAP (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8856 (if (not vhdl-association-list-with-formals) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8857 (if (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8858 (concat (and optional "[") "association list" (and optional "]")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8859 ")" (or (not secondary) optional) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8860 (and (not secondary) start) (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8861 t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8862 (if (and optional secondary) (delete-region start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8863 nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8864 (if vhdl-argument-list-indent |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8865 (setq margin (current-column)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8866 (setq margin (+ (current-indentation) vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8867 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8868 (indent-to margin)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8869 (if (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8870 (concat (and optional "[") "formal" (and optional "]")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8871 " => " (or (not secondary) optional) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8872 (and (not secondary) start) (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8873 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8874 (vhdl-template-field "actual" ",") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8875 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8876 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8877 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8878 (while (vhdl-template-field "[formal]" " => " t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8879 (vhdl-template-field "actual" ",") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8880 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8881 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8882 (indent-to margin)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8883 (delete-region end-pos (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8884 (delete-backward-char 1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8885 (insert ")") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8886 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8887 t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8888 (when (and optional secondary) (delete-region start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8889 nil)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8890 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8891 (defun vhdl-template-modify (&optional noerror) |
20665 | 8892 "Actualize modification date." |
8893 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8894 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8895 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8896 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8897 (if (re-search-forward vhdl-modify-date-prefix-string nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8898 (progn (delete-region (point) (progn (end-of-line) (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8899 (vhdl-template-insert-date)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8900 (unless noerror |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8901 (error (concat "ERROR: Modification date prefix string \"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8902 vhdl-modify-date-prefix-string "\" not found"))))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8903 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8904 (defun vhdl-template-modify-noerror () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8905 "Call `vhdl-template-modify' with NOERROR non-nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8906 (vhdl-template-modify t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8907 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8908 (defun vhdl-template-nature () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8909 "Insert a nature declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8910 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8911 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8912 name mid-pos end-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8913 (vhdl-insert-keyword "NATURE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8914 (when (setq name (vhdl-template-field "name" nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8915 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8916 (let ((definition |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8917 (upcase |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8918 (or (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8919 "across type | ARRAY | RECORD") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8920 "")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8921 (cond ((equal definition "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8922 (insert ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8923 ((equal definition "ARRAY") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8924 (kill-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8925 (vhdl-template-array 'nature t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8926 ((equal definition "RECORD") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8927 (setq mid-pos (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8928 (kill-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8929 (vhdl-template-record 'nature name t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8930 (t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8931 (vhdl-insert-keyword " ACROSS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8932 (vhdl-template-field "through type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8933 (vhdl-insert-keyword " THROUGH ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8934 (vhdl-template-field "reference name") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8935 (vhdl-insert-keyword " REFERENCE;"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8936 (when mid-pos |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8937 (setq end-pos (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8938 (goto-char mid-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8939 (end-of-line)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8940 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8941 (when end-pos (goto-char end-pos)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8942 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8943 (defun vhdl-template-next () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8944 "Insert a next statement." |
20665 | 8945 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8946 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8947 (vhdl-insert-keyword "NEXT ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8948 (if (vhdl-template-field "[loop label]" nil t start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8949 (let ((position (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8950 (vhdl-insert-keyword " WHEN ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8951 (when vhdl-conditions-in-parenthesis (insert "(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8952 (if (vhdl-template-field "[condition]" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8953 (when vhdl-conditions-in-parenthesis (insert ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8954 (delete-region position (point)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8955 (delete-char -1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8956 (insert ";"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8957 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8958 (defun vhdl-template-others () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8959 "Insert an others aggregate." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8960 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8961 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8962 (if (or (= (preceding-char) ?\() (not vhdl-template-invoked-by-hook)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8963 (progn (unless vhdl-template-invoked-by-hook (insert "(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8964 (vhdl-insert-keyword "OTHERS => '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8965 (when (vhdl-template-field "value" nil t start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8966 (insert "')"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8967 (vhdl-insert-keyword "OTHERS ")))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8968 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8969 (defun vhdl-template-package (&optional kind) |
20665 | 8970 "Insert a package specification or body." |
8971 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8972 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8973 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8974 name body position) |
20665 | 8975 (vhdl-insert-keyword "PACKAGE ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8976 (setq body (if kind (eq kind 'body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8977 (eq (vhdl-decision-query nil "(d)eclaration or (b)ody?") ?b))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8978 (when body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8979 (vhdl-insert-keyword "BODY ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8980 (when (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8981 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8982 (vhdl-re-search-backward "\\<package \\(\\w+\\) is\\>" nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8983 (insert (setq name (match-string 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8984 (when (or name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
8985 (setq name (vhdl-template-field "name" nil t start (point)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8986 (vhdl-insert-keyword " IS\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8987 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8988 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8989 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8990 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8991 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8992 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8993 (vhdl-insert-keyword "END ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8994 (unless (vhdl-standard-p '87) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8995 (vhdl-insert-keyword (concat "PACKAGE " (and body "BODY ")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8996 (insert (or name "") ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8997 (goto-char position)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8998 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
8999 (defun vhdl-template-package-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9000 "Insert a package specification." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9001 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9002 (vhdl-template-package 'decl)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9003 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9004 (defun vhdl-template-package-body () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9005 "Insert a package body." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9006 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9007 (vhdl-template-package 'body)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9008 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9009 (defun vhdl-template-port () |
20665 | 9010 "Insert a port declaration, or port map in instantiation statements." |
9011 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9012 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9013 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9014 (cond |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9015 ((and (save-excursion ; entity declaration |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9016 (re-search-backward "^\\(entity\\|end\\)\\>" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9017 (equal "ENTITY" (upcase (match-string 1)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9018 (vhdl-template-port-list nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9019 ((or (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9020 (or (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9021 (looking-at "^\\s-*\\w+\\s-*:\\s-*\\w+"))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9022 (equal 'statement-cont (caar (vhdl-get-syntactic-context)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9023 (vhdl-insert-keyword "PORT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9024 (vhdl-template-map start)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9025 (t (vhdl-template-port-list nil)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9026 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9027 (defun vhdl-template-procedural () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9028 "Insert a procedural." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9029 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9030 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9031 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9032 (case-fold-search t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9033 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9034 (vhdl-insert-keyword "PROCEDURAL ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9035 (when (memq vhdl-optional-labels '(process all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9036 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9037 (insert ": ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9038 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9039 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9040 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9041 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9042 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9043 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "IS")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9044 (insert "\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9045 (vhdl-template-begin-end "PROCEDURAL" label margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9046 (vhdl-comment-block))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9047 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9048 (defun vhdl-template-procedure (&optional kind) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9049 "Insert a procedure declaration or body." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9050 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9051 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9052 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9053 name) |
20665 | 9054 (vhdl-insert-keyword "PROCEDURE ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9055 (when (setq name (vhdl-template-field "name" nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9056 (vhdl-template-argument-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9057 (if (if kind (eq kind 'body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9058 (eq (vhdl-decision-query nil "(d)eclaration or (b)ody?") ?b)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9059 (progn (vhdl-insert-keyword " IS") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9060 (when vhdl-auto-align |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9061 (vhdl-align-region-groups start (point) 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9062 (end-of-line) (insert "\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9063 (vhdl-template-begin-end |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9064 (unless (vhdl-standard-p '87) "PROCEDURE") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9065 name margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9066 (vhdl-comment-block)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9067 (insert ";") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9068 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9069 (end-of-line))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9070 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9071 (defun vhdl-template-procedure-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9072 "Insert a procedure declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9073 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9074 (vhdl-template-procedure 'decl)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9075 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9076 (defun vhdl-template-procedure-body () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9077 "Insert a procedure body." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9078 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9079 (vhdl-template-procedure 'body)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9080 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9081 (defun vhdl-template-process (&optional kind) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9082 "Insert a process." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9083 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9084 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9085 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9086 label seq input-signals clock reset final-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9087 (setq seq (if kind (eq kind 'seq) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9088 (eq (vhdl-decision-query |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9089 "process" "(c)ombinational or (s)equential?" t) ?s))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9090 (vhdl-insert-keyword "PROCESS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9091 (when (memq vhdl-optional-labels '(process all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9092 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9093 (insert ": ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9094 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9095 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9096 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9097 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9098 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9099 (insert "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9100 (if (not seq) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9101 (unless (setq input-signals |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9102 (vhdl-template-field "[sensitivity list]" ")" t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9103 (setq input-signals "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9104 (delete-char -2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9105 (setq clock (or (and (not (equal "" vhdl-clock-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9106 (progn (insert vhdl-clock-name) vhdl-clock-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9107 (vhdl-template-field "clock name") "<clock>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9108 (when (eq vhdl-reset-kind 'async) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9109 (insert ", ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9110 (setq reset (or (and (not (equal "" vhdl-reset-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9111 (progn (insert vhdl-reset-name) vhdl-reset-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9112 (vhdl-template-field "reset name") "<reset>"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9113 (insert ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9114 (unless (vhdl-standard-p '87) (vhdl-insert-keyword " IS")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9115 (insert "\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9116 (vhdl-template-begin-end "PROCESS" label margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9117 (when seq (setq reset (vhdl-template-seq-process clock reset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9118 (when vhdl-prompt-for-comments |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9119 (setq final-pos (point-marker)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9120 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9121 (when (and (vhdl-re-search-backward "\\<begin\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9122 (vhdl-re-search-backward "\\<process\\>" nil t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9123 (end-of-line -0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9124 (if (bobp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9125 (progn (insert "\n") (forward-line -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9126 (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9127 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9128 (insert "-- purpose: ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9129 (if (not (vhdl-template-field "[description]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9130 (vhdl-line-kill-entire) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9131 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9132 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9133 (insert "-- type : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9134 (insert (if seq "sequential" "combinational") "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9135 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9136 (insert "-- inputs : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9137 (if (not seq) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9138 (insert input-signals) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9139 (insert clock ", ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9140 (when reset (insert reset ", ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9141 (unless (vhdl-template-field "[signal names]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9142 (delete-char -2))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9143 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9144 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9145 (insert "-- outputs: ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9146 (vhdl-template-field "[signal names]" nil t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9147 (goto-char final-pos)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9148 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9149 (defun vhdl-template-process-comb () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9150 "Insert a combinational process." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9151 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9152 (vhdl-template-process 'comb)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9153 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9154 (defun vhdl-template-process-seq () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9155 "Insert a sequential process." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9156 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9157 (vhdl-template-process 'seq)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9158 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9159 (defun vhdl-template-quantity () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9160 "Insert a quantity declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9161 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9162 (if (vhdl-in-argument-list-p) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9163 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9164 (vhdl-insert-keyword "QUANTITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9165 (when (vhdl-template-field "names" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9166 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9167 (vhdl-template-field "[IN | OUT]" " " t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9168 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9169 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9170 (vhdl-comment-insert-inline))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9171 (let ((char (vhdl-decision-query |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9172 "quantity" "(f)ree, (b)ranch, or (s)ource quantity?" t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9173 (cond ((eq char ?f) (vhdl-template-quantity-free)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9174 ((eq char ?b) (vhdl-template-quantity-branch)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9175 ((eq char ?s) (vhdl-template-quantity-source)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9176 (t (vhdl-template-undo (point) (point))))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9177 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9178 (defun vhdl-template-quantity-free () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9179 "Insert a free quantity declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9180 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9181 (vhdl-insert-keyword "QUANTITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9182 (vhdl-template-field "names") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9183 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9184 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9185 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9186 (insert " := ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9187 (unless (vhdl-template-field "[initialization]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9188 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9189 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9190 (vhdl-comment-insert-inline))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9191 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9192 (defun vhdl-template-quantity-branch () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9193 "Insert a branch quantity declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9194 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9195 (let (position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9196 (vhdl-insert-keyword "QUANTITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9197 (when (vhdl-template-field "[across names]" " " t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9198 (vhdl-insert-keyword "ACROSS ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9199 (when (vhdl-template-field "[through names]" " " t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9200 (vhdl-insert-keyword "THROUGH ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9201 (vhdl-template-field "plus terminal name") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9202 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9203 (vhdl-insert-keyword " TO ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9204 (unless (vhdl-template-field "[minus terminal name]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9205 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9206 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9207 (vhdl-comment-insert-inline))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9208 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9209 (defun vhdl-template-quantity-source () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9210 "Insert a source quantity declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9211 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9212 (vhdl-insert-keyword "QUANTITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9213 (vhdl-template-field "names") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9214 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9215 (vhdl-template-field "type" " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9216 (if (eq (vhdl-decision-query nil "(s)pectrum or (n)oise?") ?n) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9217 (progn (vhdl-insert-keyword "NOISE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9218 (vhdl-template-field "power expression")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9219 (vhdl-insert-keyword "SPECTRUM ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9220 (vhdl-template-field "magnitude expression" ", ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9221 (vhdl-template-field "phase expression")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9222 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9223 (vhdl-comment-insert-inline)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9224 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9225 (defun vhdl-template-record (kind &optional name secondary) |
20665 | 9226 "Insert a record type declaration." |
9227 (interactive) | |
9228 (let ((margin (current-column)) | |
9229 (start (point)) | |
9230 (first t)) | |
9231 (vhdl-insert-keyword "RECORD\n") | |
9232 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9233 (when (or (vhdl-template-field "element names" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9234 nil (not secondary) start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9235 secondary) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9236 (while (or first (vhdl-template-field "[element names]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9237 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9238 (vhdl-template-field (if (eq kind 'type) "type" "nature") ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9239 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9240 (insert "\n") |
20665 | 9241 (indent-to (+ margin vhdl-basic-offset)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9242 (setq first nil)) |
20665 | 9243 (kill-line -0) |
9244 (indent-to margin) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9245 (vhdl-insert-keyword "END RECORD") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9246 (unless (vhdl-standard-p '87) (and name (insert " " name))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9247 (insert ";") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9248 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9249 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9250 (defun vhdl-template-report () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9251 "Insert a report statement." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9252 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9253 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9254 (vhdl-insert-keyword "REPORT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9255 (if (equal "\"\"" (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9256 "string expression" nil t start (point) t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9257 (delete-backward-char 2) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9258 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9259 (vhdl-insert-keyword " SEVERITY ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9260 (unless (vhdl-template-field "[NOTE | WARNING | ERROR | FAILURE]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9261 (delete-region start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9262 (insert ";")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9263 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9264 (defun vhdl-template-return () |
20665 | 9265 "Insert a return statement." |
9266 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9267 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9268 (vhdl-insert-keyword "RETURN ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9269 (unless (vhdl-template-field "[expression]" nil t start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9270 (delete-char -1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9271 (insert ";"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9272 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9273 (defun vhdl-template-selected-signal-asst () |
20665 | 9274 "Insert a selected signal assignment." |
9275 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9276 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9277 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9278 (choices t)) |
20665 | 9279 (let ((position (point))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9280 (vhdl-insert-keyword " SELECT ") |
20665 | 9281 (goto-char position)) |
9282 (vhdl-insert-keyword "WITH ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9283 (when (vhdl-template-field "selector expression" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9284 nil t start (+ (point) 7)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9285 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9286 (delete-char 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9287 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9288 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9289 (vhdl-template-field "target signal" " <= ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9290 ; (vhdl-template-field "[GUARDED] [TRANSPORT]") |
20665 | 9291 (insert "\n") |
9292 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9293 (vhdl-template-field "waveform") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9294 (vhdl-insert-keyword " WHEN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9295 (vhdl-template-field "choices" ",") |
20665 | 9296 (insert "\n") |
9297 (indent-to (+ margin vhdl-basic-offset)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9298 (while (and choices (vhdl-template-field "[waveform]" nil t)) |
20665 | 9299 (vhdl-insert-keyword " WHEN ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9300 (if (setq choices (vhdl-template-field "[choices]" "," t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9301 (progn (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9302 (vhdl-insert-keyword "OTHERS"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9303 (when choices |
20665 | 9304 (fixup-whitespace) |
9305 (delete-char -2)) | |
9306 (insert ";") | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9307 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9308 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9309 (defun vhdl-template-signal () |
20665 | 9310 "Insert a signal declaration." |
9311 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9312 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9313 (in-arglist (vhdl-in-argument-list-p))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9314 (vhdl-insert-keyword "SIGNAL ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9315 (when (vhdl-template-field "names" nil t start (point)) |
20665 | 9316 (insert " : ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9317 (when in-arglist (vhdl-template-field "[IN | OUT | INOUT]" " " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9318 (vhdl-template-field "type") |
20665 | 9319 (if in-arglist |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9320 (progn (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9321 (vhdl-comment-insert-inline)) |
20665 | 9322 (let ((position (point))) |
9323 (insert " := ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9324 (unless (vhdl-template-field "[initialization]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9325 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9326 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9327 (vhdl-comment-insert-inline)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9328 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9329 (defun vhdl-template-subnature () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9330 "Insert a subnature declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9331 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9332 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9333 position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9334 (vhdl-insert-keyword "SUBNATURE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9335 (when (vhdl-template-field "name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9336 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9337 (vhdl-template-field "nature" " (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9338 (if (vhdl-template-field "[index range]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9339 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9340 (delete-char -2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9341 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9342 (vhdl-insert-keyword " TOLERANCE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9343 (if (equal "\"\"" (vhdl-template-field "[string expression]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9344 nil t nil nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9345 (delete-region position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9346 (vhdl-insert-keyword " ACROSS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9347 (vhdl-template-field "string expression" nil nil nil nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9348 (vhdl-insert-keyword " THROUGH")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9349 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9350 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9351 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9352 (defun vhdl-template-subprogram-body () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9353 "Insert a subprogram body." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9354 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9355 (if (eq (vhdl-decision-query nil "(p)rocedure or (f)unction?" t) ?f) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9356 (vhdl-template-function-body) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9357 (vhdl-template-procedure-body))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9358 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9359 (defun vhdl-template-subprogram-decl () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9360 "Insert a subprogram declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9361 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9362 (if (eq (vhdl-decision-query nil "(p)rocedure or (f)unction?" t) ?f) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9363 (vhdl-template-function-decl) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9364 (vhdl-template-procedure-decl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9365 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9366 (defun vhdl-template-subtype () |
20665 | 9367 "Insert a subtype declaration." |
9368 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9369 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9370 (vhdl-insert-keyword "SUBTYPE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9371 (when (vhdl-template-field "name" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9372 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9373 (vhdl-template-field "type" " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9374 (unless |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9375 (vhdl-template-field "[RANGE value range | ( index range )]" nil t) |
20665 | 9376 (delete-char -1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9377 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9378 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9379 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9380 (defun vhdl-template-terminal () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9381 "Insert a terminal declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9382 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9383 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9384 (vhdl-insert-keyword "TERMINAL ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9385 (when (vhdl-template-field "names" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9386 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9387 (vhdl-template-field "nature") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9388 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9389 (vhdl-comment-insert-inline)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9390 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9391 (defun vhdl-template-type () |
20665 | 9392 "Insert a type declaration." |
9393 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9394 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9395 name mid-pos end-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9396 (vhdl-insert-keyword "TYPE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9397 (when (setq name (vhdl-template-field "name" nil t start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9398 (vhdl-insert-keyword " IS ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9399 (let ((definition |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9400 (upcase |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9401 (or (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9402 "[scalar type | ARRAY | RECORD | ACCESS | FILE]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9403 "")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9404 (cond ((equal definition "") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9405 (delete-backward-char 4) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9406 (insert ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9407 ((equal definition "ARRAY") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9408 (kill-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9409 (vhdl-template-array 'type t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9410 ((equal definition "RECORD") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9411 (setq mid-pos (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9412 (kill-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9413 (vhdl-template-record 'type name t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9414 ((equal definition "ACCESS") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9415 (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9416 (vhdl-template-field "type" ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9417 ((equal definition "FILE") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9418 (vhdl-insert-keyword " OF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9419 (vhdl-template-field "type" ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9420 (t (insert ";"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9421 (when mid-pos |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9422 (setq end-pos (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9423 (goto-char mid-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9424 (end-of-line)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9425 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9426 (when end-pos (goto-char end-pos)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9427 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9428 (defun vhdl-template-use () |
20665 | 9429 "Insert a use clause." |
9430 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9431 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9432 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9433 (vhdl-insert-keyword "USE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9434 (when (save-excursion (beginning-of-line) (looking-at "^\\s-*use\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9435 (vhdl-insert-keyword "..ALL;") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9436 (backward-char 6) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9437 (when (vhdl-template-field "library name" nil t start (+ (point) 6)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9438 (forward-char 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9439 (vhdl-template-field "package name") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9440 (forward-char 5)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9441 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9442 (defun vhdl-template-variable () |
20665 | 9443 "Insert a variable declaration." |
9444 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9445 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9446 (in-arglist (vhdl-in-argument-list-p))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9447 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9448 (if (or (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9449 (and (vhdl-re-search-backward |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9450 "\\<function\\|procedure\\|process\\|procedural\\|end\\>" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9451 nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9452 (not (progn (backward-word 1) (looking-at "\\<end\\>"))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9453 (save-excursion (backward-word 1) (looking-at "\\<shared\\>"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9454 (vhdl-insert-keyword "VARIABLE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9455 (vhdl-insert-keyword "SHARED VARIABLE "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9456 (when (vhdl-template-field "names" nil t start (point)) |
20665 | 9457 (insert " : ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9458 (when in-arglist (vhdl-template-field "[IN | OUT | INOUT]" " " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9459 (vhdl-template-field "type") |
20665 | 9460 (if in-arglist |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9461 (progn (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9462 (vhdl-comment-insert-inline)) |
20665 | 9463 (let ((position (point))) |
9464 (insert " := ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9465 (unless (vhdl-template-field "[initialization]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9466 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9467 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9468 (vhdl-comment-insert-inline)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9469 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9470 (defun vhdl-template-wait () |
20665 | 9471 "Insert a wait statement." |
9472 (interactive) | |
9473 (vhdl-insert-keyword "WAIT ") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9474 (unless (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9475 "[ON sensitivity list] [UNTIL condition] [FOR time expression]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9476 nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9477 (delete-char -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9478 (insert ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9479 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9480 (defun vhdl-template-when () |
20665 | 9481 "Indent correctly if within a case statement." |
9482 (interactive) | |
9483 (let ((position (point)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9484 margin) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9485 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9486 (if (and (= (current-column) (current-indentation)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9487 (vhdl-re-search-forward "\\<end\\>" nil t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9488 (looking-at "\\s-*\\<case\\>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9489 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9490 (setq margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9491 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9492 (delete-horizontal-space) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9493 (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9494 (goto-char position))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9495 (vhdl-insert-keyword "WHEN "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9496 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9497 (defun vhdl-template-while-loop () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9498 "Insert a while loop." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9499 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9500 (let* ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9501 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9502 label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9503 (if (not (eq vhdl-optional-labels 'all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9504 (vhdl-insert-keyword "WHILE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9505 (vhdl-insert-keyword ": WHILE ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9506 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9507 (setq label (vhdl-template-field "[label]" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9508 (unless label (delete-char 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9509 (forward-word 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9510 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9511 (when vhdl-conditions-in-parenthesis (insert "(")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9512 (when (vhdl-template-field "condition" nil t start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9513 (when vhdl-conditions-in-parenthesis (insert ")")) |
20665 | 9514 (vhdl-insert-keyword " LOOP\n\n") |
9515 (indent-to margin) | |
9516 (vhdl-insert-keyword "END LOOP") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9517 (insert (if label (concat " " label ";") ";")) |
20665 | 9518 (forward-line -1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9519 (indent-to (+ margin vhdl-basic-offset))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9520 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9521 (defun vhdl-template-with () |
20665 | 9522 "Insert a with statement (i.e. selected signal assignment)." |
9523 (interactive) | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9524 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9525 (if (and (save-excursion (vhdl-re-search-backward "\\(\\<limit\\>\\|;\\)")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9526 (equal ";" (match-string 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9527 (vhdl-template-selected-signal-asst) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9528 (vhdl-insert-keyword "WITH ")))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9529 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9530 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9531 ;; Special templates |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9532 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9533 (defun vhdl-template-clocked-wait () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9534 "Insert a wait statement for rising/falling clock edge." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9535 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9536 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9537 clock) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9538 (vhdl-insert-keyword "WAIT UNTIL ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9539 (when (setq clock |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9540 (or (and (not (equal "" vhdl-clock-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9541 (progn (insert vhdl-clock-name) vhdl-clock-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9542 (vhdl-template-field "clock name" nil t start (point)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9543 (insert "'event") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9544 (vhdl-insert-keyword " AND ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9545 (insert clock) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9546 (insert |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9547 " = " (if vhdl-clock-rising-edge vhdl-one-string vhdl-zero-string) ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9548 (vhdl-comment-insert-inline |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9549 (concat (if vhdl-clock-rising-edge "rising" "falling") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9550 " clock edge"))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9551 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9552 (defun vhdl-template-seq-process (clock reset) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9553 "Insert a template for the body of a sequential process." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9554 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9555 position) |
20665 | 9556 (vhdl-insert-keyword "IF ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9557 (when (eq vhdl-reset-kind 'async) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9558 (insert reset " = " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9559 (if vhdl-reset-active-high vhdl-one-string vhdl-zero-string)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9560 (vhdl-insert-keyword " THEN") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9561 (vhdl-comment-insert-inline |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9562 (concat "asynchronous reset (active " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9563 (if vhdl-reset-active-high "high" "low") ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9564 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9565 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9566 (insert "\n") (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9567 (vhdl-insert-keyword "ELSIF ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9568 (if (eq vhdl-clock-edge-condition 'function) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9569 (insert (if vhdl-clock-rising-edge "rising" "falling") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9570 "_edge(" clock ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9571 (insert clock "'event") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9572 (vhdl-insert-keyword " AND ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9573 (insert clock " = " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9574 (if vhdl-clock-rising-edge vhdl-one-string vhdl-zero-string))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9575 (vhdl-insert-keyword " THEN") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9576 (vhdl-comment-insert-inline |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9577 (concat (if vhdl-clock-rising-edge "rising" "falling") " clock edge")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9578 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9579 (when (eq vhdl-reset-kind 'sync) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9580 (vhdl-insert-keyword "IF ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9581 (setq reset (or (and (not (equal "" vhdl-reset-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9582 (progn (insert vhdl-reset-name) vhdl-reset-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9583 (vhdl-template-field "reset name") "<reset>")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9584 (insert " = " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9585 (if vhdl-reset-active-high vhdl-one-string vhdl-zero-string)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9586 (vhdl-insert-keyword " THEN") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9587 (vhdl-comment-insert-inline |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9588 (concat "synchronous reset (active " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9589 (if vhdl-reset-active-high "high" "low") ")")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9590 (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9591 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9592 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9593 (vhdl-insert-keyword "ELSE") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9594 (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9595 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9596 (vhdl-insert-keyword "END IF;")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9597 (when (eq vhdl-reset-kind 'none) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9598 (setq position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9599 (insert "\n") (indent-to margin) |
20665 | 9600 (vhdl-insert-keyword "END IF;") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9601 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9602 reset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9603 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9604 (defun vhdl-template-standard-package (library package) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9605 "Insert specification of a standard package. Include a library |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9606 specification, if not already there." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9607 (let ((margin (current-indentation))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9608 (unless (equal library "std") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9609 (unless (or (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9610 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9611 (and (not (bobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9612 (re-search-backward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9613 (concat "^\\s-*\\(\\(library\\)\\s-+\\(\\w+\\s-*,\\s-*\\)*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9614 library "\\|end\\)\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9615 (match-string 2)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9616 (equal (downcase library) "work")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9617 (vhdl-insert-keyword "LIBRARY ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9618 (insert library ";\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9619 (indent-to margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9620 (vhdl-insert-keyword "USE ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9621 (insert library "." package) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9622 (vhdl-insert-keyword ".ALL;")))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9623 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9624 (defun vhdl-template-package-math-complex () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9625 "Insert specification of `math_complex' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9626 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9627 (vhdl-template-standard-package "ieee" "math_complex")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9628 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9629 (defun vhdl-template-package-math-real () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9630 "Insert specification of `math_real' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9631 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9632 (vhdl-template-standard-package "ieee" "math_real")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9633 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9634 (defun vhdl-template-package-numeric-bit () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9635 "Insert specification of `numeric_bit' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9636 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9637 (vhdl-template-standard-package "ieee" "numeric_bit")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9638 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9639 (defun vhdl-template-package-numeric-std () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9640 "Insert specification of `numeric_std' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9641 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9642 (vhdl-template-standard-package "ieee" "numeric_std")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9643 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9644 (defun vhdl-template-package-std-logic-1164 () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9645 "Insert specification of `std_logic_1164' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9646 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9647 (vhdl-template-standard-package "ieee" "std_logic_1164")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9648 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9649 (defun vhdl-template-package-std-logic-arith () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9650 "Insert specification of `std_logic_arith' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9651 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9652 (vhdl-template-standard-package "ieee" "std_logic_arith")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9653 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9654 (defun vhdl-template-package-std-logic-misc () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9655 "Insert specification of `std_logic_misc' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9656 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9657 (vhdl-template-standard-package "ieee" "std_logic_misc")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9658 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9659 (defun vhdl-template-package-std-logic-signed () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9660 "Insert specification of `std_logic_signed' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9661 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9662 (vhdl-template-standard-package "ieee" "std_logic_signed")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9663 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9664 (defun vhdl-template-package-std-logic-textio () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9665 "Insert specification of `std_logic_textio' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9666 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9667 (vhdl-template-standard-package "ieee" "std_logic_textio")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9668 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9669 (defun vhdl-template-package-std-logic-unsigned () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9670 "Insert specification of `std_logic_unsigned' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9671 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9672 (vhdl-template-standard-package "ieee" "std_logic_unsigned")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9673 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9674 (defun vhdl-template-package-textio () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9675 "Insert specification of `textio' package." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9676 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9677 (vhdl-template-standard-package "std" "textio")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9678 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9679 (defun vhdl-template-directive (directive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9680 "Insert directive." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9681 (unless (= (current-indentation) (current-column)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9682 (delete-horizontal-space) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9683 (insert " ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9684 (insert "-- pragma " directive)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9685 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9686 (defun vhdl-template-directive-translate-on () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9687 "Insert directive 'translate_on'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9688 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9689 (vhdl-template-directive "translate_on")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9690 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9691 (defun vhdl-template-directive-translate-off () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9692 "Insert directive 'translate_off'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9693 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9694 (vhdl-template-directive "translate_off")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9695 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9696 (defun vhdl-template-directive-synthesis-on () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9697 "Insert directive 'synthesis_on'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9698 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9699 (vhdl-template-directive "synthesis_on")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9700 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9701 (defun vhdl-template-directive-synthesis-off () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9702 "Insert directive 'synthesis_off'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9703 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9704 (vhdl-template-directive "synthesis_off")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9705 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9706 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9707 ;; Header and footer templates |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9708 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9709 (defun vhdl-template-header (&optional file-title) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9710 "Insert a VHDL file header." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9711 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9712 (unless (equal vhdl-file-header "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9713 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9714 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9715 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9716 (vhdl-insert-string-or-file vhdl-file-header) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9717 (setq pos (point-marker))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9718 (vhdl-template-replace-header-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9719 (point-min-marker) pos file-title)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9720 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9721 (defun vhdl-template-footer () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9722 "Insert a VHDL file footer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9723 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9724 (unless (equal vhdl-file-footer "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9725 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9726 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9727 (goto-char (point-max)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9728 (setq pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9729 (vhdl-insert-string-or-file vhdl-file-footer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9730 (unless (= (preceding-char) ?\n) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9731 (insert "\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9732 (vhdl-template-replace-header-keywords pos (point-max-marker))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9733 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9734 (defun vhdl-template-replace-header-keywords (beg end &optional file-title |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9735 is-model) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9736 "Replace keywords in header and footer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9737 (let ((project-title (or (nth 0 (aget vhdl-project-alist vhdl-project)) "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9738 (project-desc (or (nth 9 (aget vhdl-project-alist vhdl-project)) "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9739 pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9740 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9741 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9742 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9743 (while (search-forward "<projectdesc>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9744 (replace-match project-desc t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9745 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9746 (while (search-forward "<filename>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9747 (replace-match (buffer-name) t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9748 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9749 (while (search-forward "<copyright>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9750 (replace-match vhdl-copyright-string t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9751 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9752 (while (search-forward "<author>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9753 (replace-match "" t t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9754 (insert (user-full-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9755 (when user-mail-address (insert " <" user-mail-address ">"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9756 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9757 (while (search-forward "<login>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9758 (replace-match (user-login-name) t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9759 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9760 (while (search-forward "<project>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9761 (replace-match project-title t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9762 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9763 (while (search-forward "<company>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9764 (replace-match vhdl-company-name t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9765 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9766 (while (search-forward "<platform>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9767 (replace-match vhdl-platform-spec t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9768 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9769 (while (search-forward "<standard>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9770 (replace-match |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9771 (concat "VHDL" (cond ((vhdl-standard-p '87) "'87") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9772 ((vhdl-standard-p '93) "'93")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9773 (when (vhdl-standard-p 'ams) ", VHDL-AMS") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9774 (when (vhdl-standard-p 'math) ", Math Packages")) t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9775 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9776 ;; Replace <RCS> with $, so that RCS for the source is |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9777 ;; not over-enthusiastic with replacements |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9778 (while (search-forward "<RCS>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9779 (replace-match "$" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9780 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9781 (while (search-forward "<date>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9782 (replace-match "" t t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9783 (vhdl-template-insert-date)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9784 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9785 (while (search-forward "<year>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9786 (replace-match (format-time-string "%Y" nil) t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9787 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9788 (when file-title |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9789 (while (search-forward "<title string>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9790 (replace-match file-title t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9791 (goto-char beg)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9792 (let (string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9793 (while |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9794 (re-search-forward "<\\(\\(\\w\\|\\s_\\)*\\) string>" end t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9795 (setq string (read-string (concat (match-string 1) ": "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9796 (replace-match string t t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9797 (goto-char beg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9798 (when (and (not is-model) (search-forward "<cursor>" end t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9799 (replace-match "" t t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9800 (setq pos (point)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9801 (when pos (goto-char pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9802 (unless is-model |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9803 (when (or (not project-title) (equal project-title "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9804 (message "You can specify a project title in user option `vhdl-project-alist'")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9805 (when (or (not project-desc) (equal project-desc "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9806 (message "You can specify a project description in user option `vhdl-project-alist'")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9807 (when (equal vhdl-platform-spec "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9808 (message "You can specify a platform in user option `vhdl-platform-spec'")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9809 (when (equal vhdl-company-name "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9810 (message "You can specify a company name in user option `vhdl-company-name'")))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9811 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9812 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9813 ;; Comment templates and functions |
20665 | 9814 |
9815 (defun vhdl-comment-indent () | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9816 "Indent comments." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9817 (let* ((position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9818 (col |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9819 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9820 (forward-line -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9821 (if (re-search-forward "--" position t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9822 (- (current-column) 2) ; existing comment at bol stays there |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9823 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9824 (skip-chars-backward " \t") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9825 (max comment-column ; else indent to comment column |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9826 (1+ (current-column))))))) ; except leave at least one space |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9827 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9828 col)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9829 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9830 (defun vhdl-comment-insert () |
20665 | 9831 "Start a comment at the end of the line. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9832 If on line with code, indent at least `comment-column'. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9833 If starting after end-comment-column, start a new line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9834 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9835 (when (> (current-column) end-comment-column) (newline-and-indent)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9836 (if (or (looking-at "\\s-*$") ; end of line |
20665 | 9837 (and (not unread-command-events) ; called with key binding or menu |
9838 (not (end-of-line)))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9839 (let (margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9840 (while (= (preceding-char) ?-) (delete-char -1)) |
20665 | 9841 (setq margin (current-column)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9842 (delete-horizontal-space) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9843 (if (bolp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9844 (progn (indent-to margin) (insert "--")) |
20665 | 9845 (insert " ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9846 (indent-to comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9847 (insert "--")) |
20665 | 9848 (if (not unread-command-events) (insert " "))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9849 ;; else code following current point implies commenting out code |
20665 | 9850 (let (next-input code) |
9851 (while (= (preceding-char) ?-) (delete-char -2)) | |
9852 (while (= (setq next-input (read-char)) 13) ; CR | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9853 (insert "--") ; or have a space after it? |
20665 | 9854 (forward-char -2) |
9855 (forward-line 1) | |
9856 (message "Enter CR if commenting out a line of code.") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9857 (setq code t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9858 (unless code |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9859 (insert "--")) ; hardwire to 1 space or use vhdl-basic-offset? |
20665 | 9860 (setq unread-command-events |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9861 (list (vhdl-character-to-event next-input)))))) ; pushback the char |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9862 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9863 (defun vhdl-comment-display (&optional line-exists) |
20665 | 9864 "Add 2 comment lines at the current indent, making a display comment." |
9865 (interactive) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9866 (let ((margin (current-indentation))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9867 (unless line-exists (vhdl-comment-display-line)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9868 (insert "\n") (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9869 (insert "\n") (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9870 (vhdl-comment-display-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9871 (end-of-line -0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9872 (insert "-- "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9873 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9874 (defun vhdl-comment-display-line () |
20665 | 9875 "Displays one line of dashes." |
9876 (interactive) | |
9877 (while (= (preceding-char) ?-) (delete-char -2)) | |
9878 (let* ((col (current-column)) | |
9879 (len (- end-comment-column col))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9880 (insert-char ?- len))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9881 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9882 (defun vhdl-comment-append-inline () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9883 "Append empty inline comment to current line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9884 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9885 (end-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9886 (delete-horizontal-space) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9887 (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9888 (indent-to comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9889 (insert "-- ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9890 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9891 (defun vhdl-comment-insert-inline (&optional string always-insert) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9892 "Insert inline comment." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9893 (when (or (and string (or vhdl-self-insert-comments always-insert)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9894 (and (not string) vhdl-prompt-for-comments)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9895 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9896 (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9897 (indent-to comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9898 (insert "-- ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9899 (if (not (or (and string (progn (insert string) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9900 (vhdl-template-field "[comment]" nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9901 (delete-region position (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9902 (while (= (preceding-char) ? ) (delete-backward-char 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9903 ; (when (> (current-column) end-comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9904 ; (setq position (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9905 ; (re-search-backward "-- ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9906 ; (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9907 ; (indent-to comment-column) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9908 ; (goto-char position)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9909 )))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9910 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9911 (defun vhdl-comment-block () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9912 "Insert comment for code block." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9913 (when vhdl-prompt-for-comments |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9914 (let ((final-pos (point-marker))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9915 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9916 (when (and (re-search-backward "^\\s-*begin\\>" nil t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9917 (re-search-backward "\\<\\(architecture\\|block\\|function\\|procedure\\|process\\|procedural\\)\\>" nil t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9918 (let (margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9919 (back-to-indentation) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9920 (setq margin (current-column)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9921 (end-of-line -0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9922 (if (bobp) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9923 (progn (insert "\n") (forward-line -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9924 (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9925 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9926 (insert "-- purpose: ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9927 (unless (vhdl-template-field "[description]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9928 (vhdl-line-kill-entire))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9929 (goto-char final-pos)))) |
20665 | 9930 |
9931 (defun vhdl-comment-uncomment-region (beg end &optional arg) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9932 "Comment out region if not commented out, uncomment otherwise." |
20665 | 9933 (interactive "r\nP") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9934 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9935 (goto-char (1- end)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9936 (end-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9937 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9938 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9939 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9940 (setq beg (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9941 (if (looking-at comment-start) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
9942 (comment-region beg end '(4)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9943 (comment-region beg end)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9944 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9945 (defun vhdl-comment-uncomment-line (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9946 "Comment out line if not commented out, uncomment otherwise." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9947 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9948 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9949 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9950 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9951 (forward-line (or arg 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9952 (vhdl-comment-uncomment-region position (point))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9953 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9954 (defun vhdl-comment-kill-region (beg end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9955 "Kill comments in region." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9956 (interactive "r") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9957 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9958 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9959 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9960 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9961 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9962 (while (< (point) end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9963 (if (looking-at "^\\(\\s-*--.*\n\\)") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9964 (progn (delete-region (match-beginning 1) (match-end 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9965 (beginning-of-line 2))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9966 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9967 (defun vhdl-comment-kill-inline-region (beg end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9968 "Kill inline comments in region." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9969 (interactive "r") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9970 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9971 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9972 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9973 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9974 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9975 (while (< (point) end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9976 (when (looking-at "^.*[^ \t\n-]+\\(\\s-*--.*\\)$") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9977 (delete-region (match-beginning 1) (match-end 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9978 (beginning-of-line 2)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9979 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9980 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9981 ;; Subtemplates |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9982 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9983 (defun vhdl-template-begin-end (construct name margin &optional empty-lines) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9984 "Insert a begin ... end pair with optional name after the end. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9985 Point is left between them." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9986 (let (position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9987 (when (or empty-lines (eq vhdl-insert-empty-lines 'all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9988 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9989 (vhdl-insert-keyword "BEGIN") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9990 (when (and (or construct name) vhdl-self-insert-comments) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9991 (insert " --") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9992 (when construct (insert " ") (vhdl-insert-keyword construct)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9993 (when name (insert " " name))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9994 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9995 (when (or empty-lines (eq vhdl-insert-empty-lines 'all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9996 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9997 (setq position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9998 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
9999 (when (or empty-lines (eq vhdl-insert-empty-lines 'all)) (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10000 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10001 (vhdl-insert-keyword "END") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10002 (when construct (insert " ") (vhdl-insert-keyword construct)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10003 (insert (if name (concat " " name) "") ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10004 (goto-char position))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10005 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10006 (defun vhdl-template-argument-list (&optional is-function) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10007 "Read from user a procedure or function argument list." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10008 (insert " (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10009 (let ((margin (current-column)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10010 (start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10011 (end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10012 not-empty interface semicolon-pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10013 (unless vhdl-argument-list-indent |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10014 (setq margin (+ (current-indentation) vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10015 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10016 (indent-to margin)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10017 (setq interface (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10018 (concat "[CONSTANT | SIGNAL" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10019 (unless is-function " | VARIABLE") "]") " " t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10020 (while (vhdl-template-field "[names]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10021 (setq not-empty t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10022 (insert " : ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10023 (unless is-function |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10024 (if (and interface (equal (upcase interface) "CONSTANT")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10025 (vhdl-insert-keyword "IN ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10026 (vhdl-template-field "[IN | OUT | INOUT]" " " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10027 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10028 (setq semicolon-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10029 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10030 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10031 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10032 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10033 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10034 (setq interface (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10035 (concat "[CONSTANT | SIGNAL" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10036 (unless is-function " | VARIABLE") "]") " " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10037 (delete-region end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10038 (when semicolon-pos (goto-char semicolon-pos)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10039 (if not-empty |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10040 (progn (delete-char 1) (insert ")")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10041 (delete-backward-char 2)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10042 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10043 (defun vhdl-template-generic-list (optional &optional no-value) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10044 "Read from user a generic spec argument list." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10045 (let (margin |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10046 (start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10047 (vhdl-insert-keyword "GENERIC (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10048 (setq margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10049 (unless vhdl-argument-list-indent |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10050 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10051 (back-to-indentation) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10052 (setq margin (+ (current-column) vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10053 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10054 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10055 (indent-to margin))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10056 (let ((vhdl-generics (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10057 (concat (and optional "[") "name" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10058 (and no-value "s") (and optional "]")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10059 nil optional))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10060 (if (not vhdl-generics) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10061 (if optional |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10062 (progn (vhdl-line-kill-entire) (end-of-line -0) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10063 (unless vhdl-argument-list-indent |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10064 (vhdl-line-kill-entire) (end-of-line -0))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10065 (vhdl-template-undo start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10066 nil ) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10067 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10068 (let (semicolon-pos end-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10069 (while vhdl-generics |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10070 (vhdl-template-field "type") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10071 (if no-value |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10072 (progn (setq semicolon-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10073 (insert ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10074 (insert " := ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10075 (unless (vhdl-template-field "[value]" nil t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10076 (delete-char -4)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10077 (setq semicolon-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10078 (insert ";")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10079 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10080 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10081 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10082 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10083 (setq vhdl-generics (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10084 (concat "[name" (and no-value "s") "]") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10085 " : " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10086 (delete-region end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10087 (goto-char semicolon-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10088 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10089 (end-of-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10090 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10091 t))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10092 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10093 (defun vhdl-template-port-list (optional) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10094 "Read from user a port spec argument list." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10095 (let ((start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10096 margin vhdl-ports object) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10097 (vhdl-insert-keyword "PORT (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10098 (setq margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10099 (unless vhdl-argument-list-indent |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10100 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10101 (back-to-indentation) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10102 (setq margin (+ (current-column) vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10103 (goto-char position) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10104 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10105 (indent-to margin))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10106 (when (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10107 (setq object (vhdl-template-field "[SIGNAL | TERMINAL | QUANTITY]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10108 " " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10109 (setq vhdl-ports (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10110 (concat (and optional "[") "names" (and optional "]")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10111 nil optional)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10112 (if (not vhdl-ports) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10113 (if optional |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10114 (progn (vhdl-line-kill-entire) (end-of-line -0) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10115 (unless vhdl-argument-list-indent |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10116 (vhdl-line-kill-entire) (end-of-line -0))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10117 (vhdl-template-undo start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10118 nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10119 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10120 (let (semicolon-pos end-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10121 (while vhdl-ports |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10122 (cond ((or (null object) (equal "SIGNAL" (upcase object))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10123 (vhdl-template-field "IN | OUT | INOUT" " ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10124 ((equal "QUANTITY" (upcase object)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10125 (vhdl-template-field "[IN | OUT]" " " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10126 (vhdl-template-field |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10127 (if (and object (equal "TERMINAL" (upcase object))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10128 "nature" "type")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10129 (setq semicolon-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10130 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10131 (vhdl-comment-insert-inline) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10132 (setq end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10133 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10134 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10135 (when (vhdl-standard-p 'ams) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10136 (setq object (vhdl-template-field "[SIGNAL | TERMINAL | QUANTITY]" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10137 " " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10138 (setq vhdl-ports (vhdl-template-field "[names]" " : " t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10139 (delete-region end-pos (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10140 (goto-char semicolon-pos) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10141 (insert ")") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10142 (end-of-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10143 (when vhdl-auto-align (vhdl-align-region-groups start end-pos 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10144 t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10145 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10146 (defun vhdl-template-generate-body (margin label) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10147 "Insert body for generate template." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10148 (vhdl-insert-keyword " GENERATE") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10149 ; (if (not (vhdl-standard-p '87)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10150 ; (vhdl-template-begin-end "GENERATE" label margin) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10151 (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10152 (indent-to margin) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10153 (vhdl-insert-keyword "END GENERATE ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10154 (insert label ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10155 (end-of-line 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10156 (indent-to (+ margin vhdl-basic-offset))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10157 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10158 (defun vhdl-template-insert-date () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10159 "Insert date in appropriate format." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10160 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10161 (insert |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10162 (cond |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10163 ;; 'american, 'european, 'scientific kept for backward compatibility |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10164 ((eq vhdl-date-format 'american) (format-time-string "%m/%d/%Y" nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10165 ((eq vhdl-date-format 'european) (format-time-string "%d.%m.%Y" nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10166 ((eq vhdl-date-format 'scientific) (format-time-string "%Y/%m/%d" nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10167 (t (format-time-string vhdl-date-format nil))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10168 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10169 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 10170 ;; Help functions |
10171 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10172 (defun vhdl-electric-space (count) |
20665 | 10173 "Expand abbreviations and self-insert space(s), do indent-new-comment-line |
10174 if in comment and past end-comment-column." | |
10175 (interactive "p") | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10176 (cond ((vhdl-in-comment-p) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10177 (self-insert-command count) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10178 (cond ((>= (current-column) (+ 2 end-comment-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10179 (backward-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10180 (skip-chars-backward "^ \t\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10181 (indent-new-comment-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10182 (skip-chars-forward "^ \t\n") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10183 (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10184 ((>= (current-column) end-comment-column) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10185 (indent-new-comment-line)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10186 (t nil))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10187 ((or (and (>= (preceding-char) ?a) (<= (preceding-char) ?z)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10188 (and (>= (preceding-char) ?A) (<= (preceding-char) ?Z))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10189 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10190 (or (expand-abbrev) (vhdl-fix-case-word -1))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10191 (self-insert-command count)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10192 (t (self-insert-command count)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10193 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10194 (defun vhdl-template-field (prompt &optional follow-string optional |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10195 begin end is-string default) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10196 "Prompt for string and insert it in buffer with optional FOLLOW-STRING. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10197 If OPTIONAL is nil, the prompt is left if an empty string is inserted. If |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10198 an empty string is inserted, return nil and call `vhdl-template-undo' for |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10199 the region between BEGIN and END. IS-STRING indicates whether a string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10200 with double-quotes is to be inserted. DEFAULT specifies a default string." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10201 (let ((position (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10202 string) |
20665 | 10203 (insert "<" prompt ">") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10204 (setq string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10205 (condition-case () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10206 (read-from-minibuffer (concat prompt ": ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10207 (or (and is-string '("\"\"" . 2)) default) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10208 vhdl-minibuffer-local-map) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10209 (quit (if (and optional begin end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10210 (progn (beep) "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10211 (keyboard-quit))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10212 (when (or (not (equal string "")) optional) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10213 (delete-region position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10214 (when (and (equal string "") optional begin end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10215 (vhdl-template-undo begin end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10216 (message "Template aborted")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10217 (unless (equal string "") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10218 (insert string) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10219 (vhdl-fix-case-region-1 position (point) vhdl-upper-case-keywords |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10220 vhdl-keywords-regexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10221 (vhdl-fix-case-region-1 position (point) vhdl-upper-case-types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10222 vhdl-types-regexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10223 (vhdl-fix-case-region-1 position (point) vhdl-upper-case-attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10224 (concat "'" vhdl-attributes-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10225 (vhdl-fix-case-region-1 position (point) vhdl-upper-case-enum-values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10226 vhdl-enum-values-regexp)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10227 (when (or (not (equal string "")) (not optional)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10228 (insert (or follow-string ""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10229 (if (equal string "") nil string))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10230 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10231 (defun vhdl-decision-query (string prompt &optional optional) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10232 "Query a decision from the user." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10233 (let ((start (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10234 (when string (vhdl-insert-keyword (concat string " "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10235 (message prompt) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10236 (let ((char (read-char))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10237 (delete-region start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10238 (if (and optional (eq char ?\r)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10239 (progn (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10240 (unexpand-abbrev) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10241 (throw 'abort "ERROR: Template aborted")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10242 char)))) |
20665 | 10243 |
10244 (defun vhdl-insert-keyword (keyword) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10245 "Insert KEYWORD and adjust case." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10246 (insert (if vhdl-upper-case-keywords (upcase keyword) (downcase keyword)))) |
20665 | 10247 |
10248 (defun vhdl-case-keyword (keyword) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10249 "Adjust case of KEYWORD." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10250 (if vhdl-upper-case-keywords (upcase keyword) (downcase keyword))) |
20665 | 10251 |
10252 (defun vhdl-case-word (num) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10253 "Adjust case or following NUM words." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10254 (if vhdl-upper-case-keywords (upcase-word num) (downcase-word num))) |
20665 | 10255 |
10256 (defun vhdl-minibuffer-tab (&optional prefix-arg) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10257 "If preceeding character is part of a word or a paren then hippie-expand, |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10258 else insert tab (used for word completion in VHDL minibuffer)." |
20665 | 10259 (interactive "P") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10260 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10261 ;; expand word |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10262 ((= (char-syntax (preceding-char)) ?w) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10263 (let ((case-fold-search (not vhdl-word-completion-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10264 (case-replace nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10265 (hippie-expand-only-buffers |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10266 (or (and (boundp 'hippie-expand-only-buffers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10267 hippie-expand-only-buffers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10268 '(vhdl-mode)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10269 (vhdl-expand-abbrev prefix-arg))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10270 ;; expand parenthesis |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10271 ((or (= (preceding-char) ?\() (= (preceding-char) ?\))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10272 (let ((case-fold-search (not vhdl-word-completion-case-sensitive)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10273 (case-replace nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10274 (vhdl-expand-paren prefix-arg))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10275 ;; insert tab |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10276 (t (insert-tab)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10277 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10278 (defun vhdl-template-search-prompt () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10279 "Search for left out template prompts and query again." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10280 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10281 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10282 (when (or (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10283 (concat "<\\(" vhdl-template-prompt-syntax "\\)>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10284 (re-search-backward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10285 (concat "<\\(" vhdl-template-prompt-syntax "\\)>") nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10286 (let ((string (match-string 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10287 (replace-match "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10288 (vhdl-template-field string))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10289 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10290 (defun vhdl-template-undo (begin end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10291 "Undo aborted template by deleting region and unexpanding the keyword." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10292 (cond (vhdl-template-invoked-by-hook |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10293 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10294 (insert " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10295 (delete-region begin end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10296 (unexpand-abbrev)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10297 (t (delete-region begin end)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10298 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10299 (defun vhdl-insert-string-or-file (string) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10300 "Insert STRING or file contents if STRING is an existing file name." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10301 (unless (equal string "") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10302 (let ((file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10303 (progn (string-match "^\\([^\n]+\\)" string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10304 (vhdl-resolve-env-variable (match-string 1 string))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10305 (if (file-exists-p file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10306 (forward-char (cadr (insert-file-contents file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10307 (insert string))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10308 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10309 (defun vhdl-beginning-of-block () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10310 "Move cursor to the beginning of the enclosing block." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10311 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10312 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10313 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10314 ;; search backward for block beginning or end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10315 (while (or (while (and (setq pos (re-search-backward "^\\s-*\\(\\(end\\)\\|\\(\\(impure\\|pure\\)[ \t\n]+\\)?\\(function\\|procedure\\)\\|\\(for\\)\\|\\(architecture\\|component\\|configuration\\|entity\\|package\\|record\\|units\\)\\|\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(postponed[ \t\n]+\\)?\\(block\\|case\\|for\\|if\\|procedural\\|process\\|while\\)\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10316 ;; not consider subprogram declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10317 (or (and (match-string 5) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10318 (save-match-data |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10319 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10320 (goto-char (match-end 5)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10321 (forward-word 1) (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10322 (re-search-forward "\\<is\\>\\|\\(;\\)" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10323 (match-string 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10324 ;; not consider configuration specifications |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10325 (and (match-string 6) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10326 (save-match-data |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10327 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10328 (vhdl-end-of-block) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10329 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10330 (not (looking-at "^\\s-*end\\s-+\\(for\\|generate\\|loop\\)\\>")))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10331 (match-string 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10332 ;; skip subblock if block end found |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10333 (vhdl-beginning-of-block))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10334 (when pos (goto-char pos)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10335 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10336 (defun vhdl-end-of-block () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10337 "Move cursor to the end of the enclosing block." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10338 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10339 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10340 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10341 ;; search forward for block beginning or end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10342 (while (or (while (and (setq pos (re-search-forward "^\\s-*\\(\\(end\\)\\|\\(\\(impure\\|pure\\)[ \t\n]+\\)?\\(function\\|procedure\\)\\|\\(for\\)\\|\\(architecture\\|component\\|configuration\\|entity\\|package\\|record\\|units\\)\\|\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(postponed[ \t\n]+\\)?\\(block\\|case\\|for\\|if\\|procedural\\|process\\|while\\)\\)\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10343 ;; not consider subprogram declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10344 (or (and (match-string 5) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10345 (save-match-data |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10346 (save-excursion (re-search-forward "\\<is\\>\\|\\(;\\)" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10347 (match-string 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10348 ;; not consider configuration specifications |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10349 (and (match-string 6) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10350 (save-match-data |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10351 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10352 (vhdl-end-of-block) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10353 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10354 (not (looking-at "^\\s-*end\\s-+\\(for\\|generate\\|loop\\)\\>")))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10355 (not (match-string 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10356 ;; skip subblock if block beginning found |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10357 (vhdl-end-of-block))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10358 (when pos (goto-char pos)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10359 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10360 (defun vhdl-sequential-statement-p () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10361 "Check if point is within sequential statement part." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10362 (let ((start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10363 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10364 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10365 ;; is sequential statement if ... |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10366 (and (re-search-backward "^\\s-*begin\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10367 ;; ... point is between "begin" and "end" of ... |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10368 (progn (vhdl-end-of-block) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10369 (< start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10370 ;; ... a sequential block |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10371 (progn (vhdl-beginning-of-block) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10372 (looking-at "^\\s-*\\(\\(\\w+[ \t\n]+\\)?\\(function\\|procedure\\)\\|\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(\\w+[ \t\n]+\\)?\\(procedural\\|process\\)\\)\\>"))))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10373 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10374 (defun vhdl-in-argument-list-p () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10375 "Check if within an argument list." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10376 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10377 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10378 (or (string-match "arglist" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10379 (format "%s" (caar (vhdl-get-syntactic-context)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10380 (progn (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10381 (looking-at "^\\s-*\\(generic\\|port\\|\\(\\(impure\\|pure\\)\\s-+\\|\\)function\\|procedure\\)\\>\\s-*\\(\\w+\\s-*\\)?(")))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10382 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10383 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 10384 ;; Abbrev hooks |
10385 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10386 (defun vhdl-hooked-abbrev (func) |
20665 | 10387 "Do function, if syntax says abbrev is a keyword, invoked by hooked abbrev, |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10388 but not if inside a comment or quote)." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10389 (if (or (vhdl-in-literal) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10390 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10391 (forward-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10392 (and (looking-at "\\<end\\>") (not (looking-at "\\<end;"))))) |
20665 | 10393 (progn |
10394 (insert " ") | |
10395 (unexpand-abbrev) | |
10396 (delete-char -1)) | |
10397 (if (not vhdl-electric-mode) | |
10398 (progn | |
10399 (insert " ") | |
10400 (unexpand-abbrev) | |
10401 (backward-word 1) | |
10402 (vhdl-case-word 1) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10403 (delete-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10404 (let ((invoke-char last-command-char) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10405 (abbrev-mode -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10406 (vhdl-template-invoked-by-hook t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10407 (let ((caught (catch 'abort |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10408 (funcall func)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10409 (when (stringp caught) (message caught))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10410 (when (= invoke-char ?-) (setq abbrev-start-location (point))) |
20665 | 10411 ;; delete CR which is still in event queue |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
10412 (if (fboundp 'enqueue-eval-event) |
20665 | 10413 (enqueue-eval-event 'delete-char -1) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10414 (setq unread-command-events ; push back a delete char |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10415 (list (vhdl-character-to-event ?\177)))))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10416 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10417 (defun vhdl-template-alias-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10418 (vhdl-hooked-abbrev 'vhdl-template-alias)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10419 (defun vhdl-template-architecture-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10420 (vhdl-hooked-abbrev 'vhdl-template-architecture)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10421 (defun vhdl-template-assert-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10422 (vhdl-hooked-abbrev 'vhdl-template-assert)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10423 (defun vhdl-template-attribute-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10424 (vhdl-hooked-abbrev 'vhdl-template-attribute)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10425 (defun vhdl-template-block-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10426 (vhdl-hooked-abbrev 'vhdl-template-block)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10427 (defun vhdl-template-break-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10428 (vhdl-hooked-abbrev 'vhdl-template-break)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10429 (defun vhdl-template-case-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10430 (vhdl-hooked-abbrev 'vhdl-template-case)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10431 (defun vhdl-template-component-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10432 (vhdl-hooked-abbrev 'vhdl-template-component)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10433 (defun vhdl-template-instance-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10434 (vhdl-hooked-abbrev 'vhdl-template-instance)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10435 (defun vhdl-template-conditional-signal-asst-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10436 (vhdl-hooked-abbrev 'vhdl-template-conditional-signal-asst)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10437 (defun vhdl-template-configuration-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10438 (vhdl-hooked-abbrev 'vhdl-template-configuration)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10439 (defun vhdl-template-constant-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10440 (vhdl-hooked-abbrev 'vhdl-template-constant)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10441 (defun vhdl-template-disconnect-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10442 (vhdl-hooked-abbrev 'vhdl-template-disconnect)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10443 (defun vhdl-template-display-comment-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10444 (vhdl-hooked-abbrev 'vhdl-comment-display)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10445 (defun vhdl-template-else-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10446 (vhdl-hooked-abbrev 'vhdl-template-else)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10447 (defun vhdl-template-elsif-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10448 (vhdl-hooked-abbrev 'vhdl-template-elsif)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10449 (defun vhdl-template-entity-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10450 (vhdl-hooked-abbrev 'vhdl-template-entity)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10451 (defun vhdl-template-exit-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10452 (vhdl-hooked-abbrev 'vhdl-template-exit)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10453 (defun vhdl-template-file-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10454 (vhdl-hooked-abbrev 'vhdl-template-file)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10455 (defun vhdl-template-for-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10456 (vhdl-hooked-abbrev 'vhdl-template-for)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10457 (defun vhdl-template-function-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10458 (vhdl-hooked-abbrev 'vhdl-template-function)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10459 (defun vhdl-template-generic-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10460 (vhdl-hooked-abbrev 'vhdl-template-generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10461 (defun vhdl-template-group-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10462 (vhdl-hooked-abbrev 'vhdl-template-group)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10463 (defun vhdl-template-library-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10464 (vhdl-hooked-abbrev 'vhdl-template-library)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10465 (defun vhdl-template-limit-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10466 (vhdl-hooked-abbrev 'vhdl-template-limit)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10467 (defun vhdl-template-if-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10468 (vhdl-hooked-abbrev 'vhdl-template-if)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10469 (defun vhdl-template-bare-loop-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10470 (vhdl-hooked-abbrev 'vhdl-template-bare-loop)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10471 (defun vhdl-template-map-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10472 (vhdl-hooked-abbrev 'vhdl-template-map)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10473 (defun vhdl-template-nature-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10474 (vhdl-hooked-abbrev 'vhdl-template-nature)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10475 (defun vhdl-template-next-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10476 (vhdl-hooked-abbrev 'vhdl-template-next)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10477 (defun vhdl-template-others-hook () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10478 (vhdl-hooked-abbrev 'vhdl-template-others)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10479 (defun vhdl-template-package-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10480 (vhdl-hooked-abbrev 'vhdl-template-package)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10481 (defun vhdl-template-port-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10482 (vhdl-hooked-abbrev 'vhdl-template-port)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10483 (defun vhdl-template-procedural-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10484 (vhdl-hooked-abbrev 'vhdl-template-procedural)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10485 (defun vhdl-template-procedure-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10486 (vhdl-hooked-abbrev 'vhdl-template-procedure)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10487 (defun vhdl-template-process-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10488 (vhdl-hooked-abbrev 'vhdl-template-process)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10489 (defun vhdl-template-quantity-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10490 (vhdl-hooked-abbrev 'vhdl-template-quantity)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10491 (defun vhdl-template-report-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10492 (vhdl-hooked-abbrev 'vhdl-template-report)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10493 (defun vhdl-template-return-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10494 (vhdl-hooked-abbrev 'vhdl-template-return)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10495 (defun vhdl-template-selected-signal-asst-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10496 (vhdl-hooked-abbrev 'vhdl-template-selected-signal-asst)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10497 (defun vhdl-template-signal-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10498 (vhdl-hooked-abbrev 'vhdl-template-signal)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10499 (defun vhdl-template-subnature-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10500 (vhdl-hooked-abbrev 'vhdl-template-subnature)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10501 (defun vhdl-template-subtype-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10502 (vhdl-hooked-abbrev 'vhdl-template-subtype)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10503 (defun vhdl-template-terminal-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10504 (vhdl-hooked-abbrev 'vhdl-template-terminal)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10505 (defun vhdl-template-type-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10506 (vhdl-hooked-abbrev 'vhdl-template-type)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10507 (defun vhdl-template-use-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10508 (vhdl-hooked-abbrev 'vhdl-template-use)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10509 (defun vhdl-template-variable-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10510 (vhdl-hooked-abbrev 'vhdl-template-variable)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10511 (defun vhdl-template-wait-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10512 (vhdl-hooked-abbrev 'vhdl-template-wait)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10513 (defun vhdl-template-when-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10514 (vhdl-hooked-abbrev 'vhdl-template-when)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10515 (defun vhdl-template-while-loop-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10516 (vhdl-hooked-abbrev 'vhdl-template-while-loop)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10517 (defun vhdl-template-with-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10518 (vhdl-hooked-abbrev 'vhdl-template-with)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10519 (defun vhdl-template-and-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10520 (vhdl-hooked-abbrev 'vhdl-template-and)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10521 (defun vhdl-template-or-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10522 (vhdl-hooked-abbrev 'vhdl-template-or)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10523 (defun vhdl-template-nand-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10524 (vhdl-hooked-abbrev 'vhdl-template-nand)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10525 (defun vhdl-template-nor-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10526 (vhdl-hooked-abbrev 'vhdl-template-nor)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10527 (defun vhdl-template-xor-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10528 (vhdl-hooked-abbrev 'vhdl-template-xor)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10529 (defun vhdl-template-xnor-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10530 (vhdl-hooked-abbrev 'vhdl-template-xnor)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10531 (defun vhdl-template-not-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10532 (vhdl-hooked-abbrev 'vhdl-template-not)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10533 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10534 (defun vhdl-template-default-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10535 (vhdl-hooked-abbrev 'vhdl-template-default)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10536 (defun vhdl-template-default-indent-hook () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10537 (vhdl-hooked-abbrev 'vhdl-template-default-indent)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10538 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10539 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10540 ;; Template insertion from completion list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10541 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10542 (defun vhdl-template-insert-construct (name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10543 "Insert the built-in construct template with NAME." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10544 (interactive |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10545 (list (let ((completion-ignore-case t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10546 (completing-read "Construct name: " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10547 vhdl-template-construct-alist nil t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10548 (vhdl-template-insert-fun |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10549 (cadr (assoc name vhdl-template-construct-alist)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10550 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10551 (defun vhdl-template-insert-package (name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10552 "Insert the built-in package template with NAME." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10553 (interactive |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10554 (list (let ((completion-ignore-case t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10555 (completing-read "Package name: " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10556 vhdl-template-package-alist nil t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10557 (vhdl-template-insert-fun |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10558 (cadr (assoc name vhdl-template-package-alist)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10559 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10560 (defun vhdl-template-insert-directive (name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10561 "Insert the built-in directive template with NAME." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10562 (interactive |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10563 (list (let ((completion-ignore-case t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10564 (completing-read "Directive name: " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10565 vhdl-template-directive-alist nil t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10566 (vhdl-template-insert-fun |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10567 (cadr (assoc name vhdl-template-directive-alist)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10568 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10569 (defun vhdl-template-insert-fun (fun) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10570 "Call FUN to insert a built-in template." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10571 (let ((caught (catch 'abort (when fun (funcall fun))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10572 (when (stringp caught) (message caught)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10573 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10574 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10575 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10576 ;;; Models |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10577 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10578 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10579 (defun vhdl-model-insert (model-name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10580 "Insert the user model with name MODEL-NAME." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10581 (interactive |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10582 (let ((completion-ignore-case t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10583 (list (completing-read "Model name: " vhdl-model-alist)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10584 (indent-according-to-mode) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10585 (let ((start (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10586 (margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10587 model position prompt string end) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10588 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10589 (when (setq model (assoc model-name vhdl-model-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10590 ;; insert model |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10591 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10592 (delete-horizontal-space) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10593 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10594 (vhdl-insert-string-or-file (nth 1 model)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10595 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10596 ;; indent code |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10597 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10598 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10599 (while (< (point) end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10600 (unless (looking-at "^$") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10601 (insert-char ? margin)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10602 (beginning-of-line 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10603 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10604 ;; insert clock |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10605 (unless (equal "" vhdl-clock-name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10606 (while (re-search-forward "<clock>" end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10607 (replace-match vhdl-clock-name))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10608 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10609 ;; insert reset |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10610 (unless (equal "" vhdl-reset-name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10611 (while (re-search-forward "<reset>" end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10612 (replace-match vhdl-reset-name))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10613 ;; replace header prompts |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10614 (vhdl-template-replace-header-keywords start end nil t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10615 (goto-char start) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10616 ;; query other prompts |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10617 (while (re-search-forward |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10618 (concat "<\\(" vhdl-template-prompt-syntax "\\)>") end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10619 (unless (equal "cursor" (match-string 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10620 (setq position (match-beginning 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10621 (setq prompt (match-string 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10622 (replace-match "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10623 (setq string (vhdl-template-field prompt nil t)) |
42942 | 10624 ;; replace occurrences of same prompt |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10625 (while (re-search-forward (concat "<\\(" prompt "\\)>") end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10626 (replace-match (or string ""))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10627 (goto-char position))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10628 (goto-char start) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10629 ;; goto final position |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10630 (if (re-search-forward "<cursor>" end t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10631 (replace-match "") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10632 (goto-char end)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10633 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10634 (defun vhdl-model-defun () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10635 "Define help and hook functions for user models." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10636 (let ((model-alist vhdl-model-alist) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10637 model-name model-keyword) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10638 (while model-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10639 ;; define functions for user models that can be invoked from menu and key |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10640 ;; bindings and which themselves call `vhdl-model-insert' with the model |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10641 ;; name as argument |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10642 (setq model-name (nth 0 (car model-alist))) |
26464 | 10643 (eval `(defun ,(vhdl-function-name "vhdl-model" model-name) () |
10644 ,(concat "Insert model for \"" model-name "\".") | |
10645 (interactive) | |
10646 (vhdl-model-insert ,model-name))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10647 ;; define hooks for user models that are invoked from keyword abbrevs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10648 (setq model-keyword (nth 3 (car model-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10649 (unless (equal model-keyword "") |
26464 | 10650 (eval `(defun |
10651 ,(vhdl-function-name | |
10652 "vhdl-model" model-name "hook") () | |
10653 (vhdl-hooked-abbrev | |
10654 ',(vhdl-function-name "vhdl-model" model-name))))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10655 (setq model-alist (cdr model-alist))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10656 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10657 (vhdl-model-defun) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10658 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10659 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10660 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10661 ;;; Port translation |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10662 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10663 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10664 (defvar vhdl-port-list nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10665 "Variable to hold last port map parsed.") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10666 ;; structure: (parenthesised expression means list of such entries) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10667 ;; (ent-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10668 ;; ((generic-names) generic-type generic-init generic-comment group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10669 ;; ((port-names) port-object port-direct port-type port-comment group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10670 ;; (lib-name pack-key)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10671 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10672 (defun vhdl-parse-string (string &optional optional) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10673 "Check that the text following point matches the regexp in STRING." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10674 (if (looking-at string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10675 (goto-char (match-end 0)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10676 (unless optional |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10677 (throw 'parse (format "ERROR: Syntax error near line %s, expecting \"%s\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10678 (vhdl-current-line) string))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10679 nil)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10680 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10681 (defun vhdl-replace-string (regexp-cons string) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10682 "Replace STRING from car of REGEXP-CONS to cdr of REGEXP-CONS." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10683 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10684 (if (string-match (car regexp-cons) string) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10685 (funcall vhdl-file-name-case |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10686 (replace-match (cdr regexp-cons) t nil string)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10687 string))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10688 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10689 (defun vhdl-parse-group-comment () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10690 "Parse comment and empty lines between groups of lines." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10691 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10692 string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10693 (vhdl-forward-comment (point-max)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10694 (setq string (buffer-substring-no-properties start (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10695 ;; strip off leading blanks and first newline |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10696 (while (string-match "^\\(\\s-+\\)" string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10697 (setq string (concat (substring string 0 (match-beginning 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10698 (substring string (match-end 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10699 (if (and (not (equal string "")) (equal (substring string 0 1) "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10700 (substring string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10701 string))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10702 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10703 (defun vhdl-paste-group-comment (string indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10704 "Paste comment and empty lines from STRING between groups of lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10705 with INDENT." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10706 (let ((pos (point-marker))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10707 (when (> indent 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10708 (while (string-match "^\\(--\\)" string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10709 (setq string (concat (substring string 0 (match-beginning 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10710 (make-string indent ? ) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10711 (substring string (match-beginning 1)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10712 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10713 (insert string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10714 (goto-char pos))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10715 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10716 (defvar vhdl-port-flattened nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10717 "Indicates whether a port has been flattened.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10718 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10719 (defun vhdl-port-flatten (&optional as-alist) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10720 "Flatten port list so that only one generic/port exists per line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10721 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10722 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10723 (error "ERROR: No port has been read") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10724 (message "Flattening port...") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10725 (let ((new-vhdl-port-list (list (car vhdl-port-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10726 (old-vhdl-port-list (cdr vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10727 old-port-list new-port-list old-port new-port names) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10728 ;; traverse port list and flatten entries |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10729 (while (cdr old-vhdl-port-list) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10730 (setq old-port-list (car old-vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10731 (setq new-port-list nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10732 (while old-port-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10733 (setq old-port (car old-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10734 (setq names (car old-port)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10735 (while names |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10736 (setq new-port (cons (if as-alist (car names) (list (car names))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10737 (cdr old-port))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10738 (setq new-port-list (append new-port-list (list new-port))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10739 (setq names (cdr names))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10740 (setq old-port-list (cdr old-port-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10741 (setq old-vhdl-port-list (cdr old-vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10742 (setq new-vhdl-port-list (append new-vhdl-port-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10743 (list new-port-list)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10744 (setq vhdl-port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10745 (append new-vhdl-port-list (list old-vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10746 vhdl-port-flattened t) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10747 (message "Flattening port...done")))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10748 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10749 (defvar vhdl-port-reversed-direction nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10750 "Indicates whether port directions are reversed.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10751 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10752 (defun vhdl-port-reverse-direction () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10753 "Reverse direction for all ports (useful in testbenches)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10754 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10755 (if (not vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10756 (error "ERROR: No port has been read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10757 (message "Reversing port directions...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10758 (let ((port-list (nth 2 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10759 port-dir-car port-dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10760 ;; traverse port list and reverse directions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10761 (while port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10762 (setq port-dir-car (cddr (car port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10763 port-dir (car port-dir-car)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10764 (setcar port-dir-car |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10765 (cond ((equal port-dir "in") "out") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10766 ((equal port-dir "out") "in") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10767 (t port-dir))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10768 (setq port-list (cdr port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10769 (setq vhdl-port-reversed-direction (not vhdl-port-reversed-direction)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10770 (message "Reversing port directions...done")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10771 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10772 (defun vhdl-port-copy () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10773 "Get generic and port information from an entity or component declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10774 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10775 (save-excursion |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10776 (let (parse-error end-of-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10777 decl-type name generic-list port-list context-clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10778 object names direct type init comment group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10779 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10780 (setq |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10781 parse-error |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10782 (catch 'parse |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10783 ;; check if within entity or component declaration |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10784 (end-of-line) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10785 (when (or (not (re-search-backward |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10786 "^\\s-*\\(component\\|entity\\|end\\)\\>" nil t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10787 (equal "END" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10788 (throw 'parse "ERROR: Not within an entity or component declaration")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10789 (setq decl-type (downcase (match-string-no-properties 1))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10790 (forward-word 1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10791 (vhdl-parse-string "\\s-+\\(\\w+\\)\\(\\s-+is\\>\\)?") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10792 (setq name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10793 (message "Reading port of %s \"%s\"..." decl-type name) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10794 (vhdl-forward-syntactic-ws) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10795 ;; parse generic clause |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10796 (when (vhdl-parse-string "generic[ \t\n]*(" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10797 ;; parse group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10798 (setq group-comment (vhdl-parse-group-comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10799 (setq end-of-list (vhdl-parse-string ")[ \t\n]*;[ \t\n]*" t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10800 (while (not end-of-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10801 ;; parse names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10802 (vhdl-parse-string "\\(\\w+\\)[ \t\n]*") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10803 (setq names (list (match-string-no-properties 1))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10804 (while (vhdl-parse-string ",[ \t\n]*\\(\\w+\\)[ \t\n]*" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10805 (setq names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10806 (append names (list (match-string-no-properties 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10807 ;; parse type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10808 (vhdl-parse-string ":[ \t\n]*\\([^():;\n]+\\)") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10809 (setq type (match-string-no-properties 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10810 (setq comment nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10811 (while (looking-at "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10812 (setq type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10813 (concat type |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10814 (buffer-substring-no-properties |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10815 (point) (progn (forward-sexp) (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10816 (and (vhdl-parse-string "\\([^():;\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10817 (match-string-no-properties 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10818 ;; special case: closing parenthesis is on separate line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10819 (when (and type (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" type)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10820 (setq comment (substring type (match-beginning 2))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10821 (setq type (substring type 0 (match-beginning 1)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10822 ;; strip of trailing group-comment |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10823 (string-match "\\(\\(\\s-*\\S-+\\)+\\)\\s-*" type) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10824 (setq type (substring type 0 (match-end 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10825 ;; parse initialization expression |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10826 (setq init nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10827 (when (vhdl-parse-string ":=[ \t\n]*" t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10828 (vhdl-parse-string "\\([^();\n]*\\)") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10829 (setq init (match-string-no-properties 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10830 (while (looking-at "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10831 (setq init |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10832 (concat init |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10833 (buffer-substring-no-properties |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10834 (point) (progn (forward-sexp) (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10835 (and (vhdl-parse-string "\\([^();\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10836 (match-string-no-properties 1)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10837 ;; special case: closing parenthesis is on separate line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10838 (when (and init (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" init)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10839 (setq comment (substring init (match-beginning 2))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10840 (setq init (substring init 0 (match-beginning 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10841 (vhdl-forward-syntactic-ws)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10842 (skip-chars-forward " \t") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10843 ;; parse inline comment, special case: as above, no initial. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10844 (unless comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10845 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10846 (match-string-no-properties 1)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10847 (vhdl-forward-syntactic-ws) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10848 (setq end-of-list (vhdl-parse-string ")" t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10849 (vhdl-parse-string "\\s-*;\\s-*") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10850 ;; parse inline comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10851 (unless comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10852 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10853 (match-string-no-properties 1)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10854 ;; save everything in list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10855 (setq generic-list (append generic-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10856 (list (list names type init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10857 comment group-comment)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10858 ;; parse group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10859 (setq group-comment (vhdl-parse-group-comment)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10860 ;; parse port clause |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10861 (when (vhdl-parse-string "port[ \t\n]*(" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10862 ;; parse group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10863 (setq group-comment (vhdl-parse-group-comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10864 (setq end-of-list (vhdl-parse-string ")[ \t\n]*;[ \t\n]*" t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10865 (while (not end-of-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10866 ;; parse object |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10867 (setq object |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10868 (and (vhdl-parse-string "\\(signal\\|quantity\\|terminal\\)[ \t\n]*" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10869 (match-string-no-properties 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10870 ;; parse names (accept extended identifiers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10871 (vhdl-parse-string "\\(\\w+\\|\\\\[^\\]+\\\\\\)[ \t\n]*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10872 (setq names (list (match-string-no-properties 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10873 (while (vhdl-parse-string ",[ \t\n]*\\(\\w+\\|\\\\[^\\]+\\\\\\)[ \t\n]*" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10874 (setq names (append names (list (match-string-no-properties 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10875 ;; parse direction |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10876 (vhdl-parse-string ":[ \t\n]*") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10877 (setq direct |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10878 (and (vhdl-parse-string "\\(in\\|out\\|inout\\|buffer\\|linkage\\)[ \t\n]+" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10879 (match-string-no-properties 1))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10880 ;; parse type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10881 (vhdl-parse-string "\\([^();\n]+\\)") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10882 (setq type (match-string-no-properties 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10883 (setq comment nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10884 (while (looking-at "(") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10885 (setq type (concat type |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10886 (buffer-substring-no-properties |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10887 (point) (progn (forward-sexp) (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10888 (and (vhdl-parse-string "\\([^();\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10889 (match-string-no-properties 1))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10890 ;; special case: closing parenthesis is on separate line |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10891 (when (and type (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" type)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10892 (setq comment (substring type (match-beginning 2))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10893 (setq type (substring type 0 (match-beginning 1)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10894 ;; strip of trailing group-comment |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10895 (string-match "\\(\\(\\s-*\\S-+\\)+\\)\\s-*" type) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10896 (setq type (substring type 0 (match-end 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10897 (vhdl-forward-syntactic-ws) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10898 (setq end-of-list (vhdl-parse-string ")" t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10899 (vhdl-parse-string "\\s-*;\\s-*") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10900 ;; parse inline comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10901 (unless comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10902 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10903 (match-string-no-properties 1)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10904 ;; save everything in list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10905 (setq port-list (append port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10906 (list (list names object direct type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10907 comment group-comment)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10908 ;; parse group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10909 (setq group-comment (vhdl-parse-group-comment)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10910 ; (vhdl-parse-string "end\\>") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10911 ;; parse context clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10912 (setq context-clause (vhdl-scan-context-clause)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10913 ; ;; add surrounding package to context clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10914 ; (when (and (equal decl-type "component") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10915 ; (re-search-backward "^\\s-*package\\s-+\\(\\w+\\)" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10916 ; (setq context-clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10917 ; (append context-clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10918 ; (list (cons (vhdl-work-library) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10919 ; (match-string-no-properties 1)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10920 (message "Reading port of %s \"%s\"...done" decl-type name) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10921 nil))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10922 ;; finish parsing |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10923 (if parse-error |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10924 (error parse-error) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10925 (setq vhdl-port-list (list name generic-list port-list context-clause) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10926 vhdl-port-reversed-direction nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10927 vhdl-port-flattened nil))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10928 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10929 (defun vhdl-port-paste-context-clause (&optional exclude-pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10930 "Paste a context clause." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10931 (let ((margin (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10932 (clause-list (nth 3 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10933 clause) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10934 (while clause-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10935 (setq clause (car clause-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10936 (unless (or (and exclude-pack-name (equal (downcase (cdr clause)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10937 (downcase exclude-pack-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10938 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10939 (re-search-backward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10940 (concat "^\\s-*use\\s-+" (car clause) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10941 "\." (cdr clause) "\\>") nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10942 (vhdl-template-standard-package (car clause) (cdr clause)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10943 (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10944 (setq clause-list (cdr clause-list))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10945 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10946 (defun vhdl-port-paste-generic (&optional no-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10947 "Paste a generic clause." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10948 (let ((margin (current-indentation)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10949 (generic-list (nth 1 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10950 list-margin start names generic) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10951 ;; paste generic clause |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10952 (when generic-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10953 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10954 (vhdl-insert-keyword "GENERIC (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10955 (unless vhdl-argument-list-indent |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10956 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10957 (setq list-margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10958 (while generic-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10959 (setq generic (car generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10960 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10961 (when (memq vhdl-include-group-comments '(decl always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10962 (vhdl-paste-group-comment (nth 4 generic) list-margin)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10963 ;; paste names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10964 (setq names (nth 0 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10965 (while names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10966 (insert (car names)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10967 (setq names (cdr names)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10968 (when names (insert ", "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10969 ;; paste type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10970 (insert " : " (nth 1 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10971 ;; paste initialization |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10972 (when (and (not no-init) (nth 2 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10973 (insert " := " (nth 2 generic))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10974 (unless (cdr generic-list) (insert ")")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10975 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10976 ;; paste comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10977 (when (and vhdl-include-port-comments (nth 3 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10978 (vhdl-comment-insert-inline (nth 3 generic) t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10979 (setq generic-list (cdr generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10980 (when generic-list (insert "\n") (indent-to list-margin))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10981 ;; align generic clause |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10982 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1 t))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10983 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10984 (defun vhdl-port-paste-port () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10985 "Paste a port clause." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10986 (let ((margin (current-indentation)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10987 (port-list (nth 2 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10988 list-margin start names port) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10989 ;; paste port clause |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10990 (when port-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10991 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10992 (vhdl-insert-keyword "PORT (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10993 (unless vhdl-argument-list-indent |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10994 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
10995 (setq list-margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10996 (while port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10997 (setq port (car port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10998 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
10999 (when (memq vhdl-include-group-comments '(decl always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11000 (vhdl-paste-group-comment (nth 5 port) list-margin)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11001 ;; paste object |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11002 (when (nth 1 port) (insert (nth 1 port) " ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11003 ;; paste names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11004 (setq names (nth 0 port)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11005 (while names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11006 (insert (car names)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11007 (setq names (cdr names)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11008 (when names (insert ", "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11009 ;; paste direction |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11010 (insert " : ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11011 (when (nth 2 port) (insert (nth 2 port) " ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11012 ;; paste type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11013 (insert (nth 3 port)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11014 (unless (cdr port-list) (insert ")")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11015 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11016 ;; paste comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11017 (when (and vhdl-include-port-comments (nth 4 port)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11018 (vhdl-comment-insert-inline (nth 4 port) t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11019 (setq port-list (cdr port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11020 (when port-list (insert "\n") (indent-to list-margin))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11021 ;; align port clause |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11022 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11023 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11024 (defun vhdl-port-paste-declaration (kind &optional no-indent) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11025 "Paste as an entity or component declaration." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11026 (unless no-indent (indent-according-to-mode)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11027 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11028 (name (nth 0 vhdl-port-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11029 (vhdl-insert-keyword (if (eq kind 'entity) "ENTITY " "COMPONENT ")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11030 (insert name) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11031 (when (or (eq kind 'entity) (not (vhdl-standard-p '87))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11032 (vhdl-insert-keyword " IS")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11033 ;; paste generic and port clause |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11034 (when (nth 1 vhdl-port-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11035 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11036 (when (and (memq vhdl-insert-empty-lines '(unit all)) (eq kind 'entity)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11037 (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11038 (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11039 (vhdl-port-paste-generic (eq kind 'component))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11040 (when (nth 2 vhdl-port-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11041 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11042 (when (and (memq vhdl-insert-empty-lines '(unit all)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11043 (eq kind 'entity)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11044 (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11045 (indent-to (+ margin vhdl-basic-offset))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11046 (vhdl-port-paste-port) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11047 (insert "\n") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11048 (when (and (memq vhdl-insert-empty-lines '(unit all)) (eq kind 'entity)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11049 (insert "\n")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11050 (indent-to margin) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11051 (vhdl-insert-keyword "END") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11052 (if (eq kind 'entity) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11053 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11054 (unless (vhdl-standard-p '87) (vhdl-insert-keyword " ENTITY")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11055 (insert " " name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11056 (vhdl-insert-keyword " COMPONENT") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11057 (unless (vhdl-standard-p '87) (insert " " name))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11058 (insert ";"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11059 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11060 (defun vhdl-port-paste-entity (&optional no-indent) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11061 "Paste as an entity declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11062 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11063 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11064 (error "ERROR: No port read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11065 (message "Pasting port as entity \"%s\"..." (car vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11066 (vhdl-port-paste-declaration 'entity no-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11067 (message "Pasting port as entity \"%s\"...done" (car vhdl-port-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11068 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11069 (defun vhdl-port-paste-component (&optional no-indent) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11070 "Paste as a component declaration." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11071 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11072 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11073 (error "ERROR: No port read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11074 (message "Pasting port as component \"%s\"..." (car vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11075 (vhdl-port-paste-declaration 'component no-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11076 (message "Pasting port as component \"%s\"...done" (car vhdl-port-list)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11077 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11078 (defun vhdl-port-paste-generic-map (&optional secondary no-constants) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11079 "Paste as a generic map." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11080 (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11081 (unless secondary (indent-according-to-mode)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11082 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11083 list-margin start generic |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11084 (generic-list (nth 1 vhdl-port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11085 (when generic-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11086 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11087 (vhdl-insert-keyword "GENERIC MAP (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11088 (if (not vhdl-association-list-with-formals) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11089 ;; paste list of actual generics |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11090 (while generic-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11091 (insert (if no-constants |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11092 (car (nth 0 (car generic-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11093 (or (nth 2 (car generic-list)) " "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11094 (setq generic-list (cdr generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11095 (insert (if generic-list ", " ")"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11096 (unless vhdl-argument-list-indent |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11097 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11098 (setq list-margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11099 (while generic-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11100 (setq generic (car generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11101 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11102 (when (eq vhdl-include-group-comments 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11103 (vhdl-paste-group-comment (nth 4 generic) list-margin)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11104 ;; paste formal and actual generic |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11105 (insert (car (nth 0 generic)) " => " |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11106 (if no-constants |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11107 (car (nth 0 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11108 (or (nth 2 generic) ""))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11109 (setq generic-list (cdr generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11110 (insert (if generic-list "," ")")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11111 ;; paste comment |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11112 (when (or vhdl-include-type-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11113 (and vhdl-include-port-comments (nth 3 generic))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11114 (vhdl-comment-insert-inline |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11115 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11116 (when vhdl-include-type-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11117 (concat "[" (nth 1 generic) "] ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11118 (when vhdl-include-port-comments (nth 3 generic))) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11119 (when generic-list (insert "\n") (indent-to list-margin))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11120 ;; align generic map |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11121 (when vhdl-auto-align |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11122 (vhdl-align-region-groups start (point) 1 t)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11123 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11124 (defun vhdl-port-paste-port-map () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11125 "Paste as a port map." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11126 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11127 list-margin start port |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11128 (port-list (nth 2 vhdl-port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11129 (when port-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11130 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11131 (vhdl-insert-keyword "PORT MAP (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11132 (if (not vhdl-association-list-with-formals) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11133 ;; paste list of actual ports |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11134 (while port-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11135 (insert (vhdl-replace-string vhdl-actual-port-name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11136 (car (nth 0 (car port-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11137 (setq port-list (cdr port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11138 (insert (if port-list ", " ");"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11139 (unless vhdl-argument-list-indent |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11140 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11141 (setq list-margin (current-column)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11142 (while port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11143 (setq port (car port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11144 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11145 (when (eq vhdl-include-group-comments 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11146 (vhdl-paste-group-comment (nth 5 port) list-margin)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11147 ;; paste formal and actual port |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11148 (insert (car (nth 0 port)) " => ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11149 (insert (vhdl-replace-string vhdl-actual-port-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11150 (car (nth 0 port)))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11151 (setq port-list (cdr port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11152 (insert (if port-list "," ");")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11153 ;; paste comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11154 (when (or vhdl-include-direction-comments |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11155 vhdl-include-type-comments |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11156 (and vhdl-include-port-comments (nth 4 port))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11157 (vhdl-comment-insert-inline |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11158 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11159 (cond ((and vhdl-include-direction-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11160 vhdl-include-type-comments) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11161 (concat "[" (format "%-4s" (concat (nth 2 port) " ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11162 (nth 3 port) "] ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11163 ((and vhdl-include-direction-comments (nth 2 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11164 (format "%-6s" (concat "[" (nth 2 port) "] "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11165 (vhdl-include-direction-comments " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11166 (vhdl-include-type-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11167 (concat "[" (nth 3 port) "] "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11168 (when vhdl-include-port-comments (nth 4 port))) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11169 (when port-list (insert "\n") (indent-to list-margin))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11170 ;; align port clause |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11171 (when vhdl-auto-align |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11172 (vhdl-align-region-groups start (point) 1)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11173 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11174 (defun vhdl-port-paste-instance (&optional name no-indent title) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11175 "Paste as an instantiation." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11176 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11177 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11178 (error "ERROR: No port read") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11179 (let ((orig-vhdl-port-list vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11180 ;; flatten local copy of port list (must be flat for port mapping) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11181 (vhdl-port-flatten) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11182 (unless no-indent (indent-according-to-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11183 (let ((margin (current-indentation))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11184 ;; paste instantiation |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11185 (cond (name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11186 (insert name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11187 ((equal (cdr vhdl-instance-name) "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11188 (setq name (vhdl-template-field "instance name"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11189 ((string-match "\%d" (cdr vhdl-instance-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11190 (let ((n 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11191 (while (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11192 (setq name (format (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11193 vhdl-instance-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11194 (nth 0 vhdl-port-list)) n)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11195 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11196 (vhdl-re-search-forward name nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11197 (setq n (1+ n))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11198 (insert name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11199 (t (insert (vhdl-replace-string vhdl-instance-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11200 (nth 0 vhdl-port-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11201 (message "Pasting port as instantiation \"%s\"..." name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11202 (insert ": ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11203 (when title |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11204 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11205 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11206 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11207 (insert "-- instance \"" name "\"\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11208 (if (not (vhdl-use-direct-instantiation)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11209 (insert (nth 0 vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11210 (vhdl-insert-keyword "ENTITY ") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11211 (insert (vhdl-work-library) "." (nth 0 vhdl-port-list))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11212 (when (nth 1 vhdl-port-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11213 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11214 (vhdl-port-paste-generic-map t t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11215 (when (nth 2 vhdl-port-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11216 (insert "\n") (indent-to (+ margin vhdl-basic-offset)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11217 (vhdl-port-paste-port-map)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11218 (message "Pasting port as instantiation \"%s\"...done" name)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11219 (setq vhdl-port-list orig-vhdl-port-list)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11220 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11221 (defun vhdl-port-paste-constants (&optional no-indent) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11222 "Paste generics as constants." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11223 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11224 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11225 (error "ERROR: No port read") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11226 (let ((orig-vhdl-port-list vhdl-port-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11227 (message "Pasting port as constants...") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11228 ;; flatten local copy of port list (must be flat for constant initial.) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11229 (vhdl-port-flatten) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11230 (unless no-indent (indent-according-to-mode)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11231 (let ((margin (current-indentation)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11232 start generic name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11233 (generic-list (nth 1 vhdl-port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11234 (when generic-list |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11235 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11236 (while generic-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11237 (setq generic (car generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11238 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11239 (when (memq vhdl-include-group-comments '(decl always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11240 (vhdl-paste-group-comment (nth 4 generic) margin)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11241 (vhdl-insert-keyword "CONSTANT ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11242 ;; paste generic constants |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11243 (setq name (nth 0 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11244 (when name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11245 (insert (car name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11246 ;; paste type |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11247 (insert " : " (nth 1 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11248 ;; paste initialization |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11249 (when (nth 2 generic) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11250 (insert " := " (nth 2 generic))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11251 (insert ";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11252 ;; paste comment |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11253 (when (and vhdl-include-port-comments (nth 3 generic)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11254 (vhdl-comment-insert-inline (nth 3 generic) t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11255 (setq generic-list (cdr generic-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11256 (when generic-list (insert "\n") (indent-to margin)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11257 ;; align signal list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11258 (when vhdl-auto-align |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11259 (vhdl-align-region-groups start (point) 1)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11260 (message "Pasting port as constants...done") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11261 (setq vhdl-port-list orig-vhdl-port-list)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11262 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11263 (defun vhdl-port-paste-signals (&optional initialize no-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11264 "Paste ports as internal signals." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11265 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11266 (if (not vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11267 (error "ERROR: No port read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11268 (message "Pasting port as signals...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11269 (unless no-indent (indent-according-to-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11270 (let ((margin (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11271 start port names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11272 (port-list (nth 2 vhdl-port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11273 (when port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11274 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11275 (while port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11276 (setq port (car port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11277 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11278 (when (memq vhdl-include-group-comments '(decl always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11279 (vhdl-paste-group-comment (nth 5 port) margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11280 ;; paste object |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11281 (if (nth 1 port) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11282 (insert (nth 1 port) " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11283 (vhdl-insert-keyword "SIGNAL ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11284 ;; paste actual port signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11285 (setq names (nth 0 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11286 (while names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11287 (insert (vhdl-replace-string vhdl-actual-port-name (car names))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11288 (setq names (cdr names)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11289 (when names (insert ", "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11290 ;; paste type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11291 (insert " : " (nth 3 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11292 ;; paste initialization (inputs only) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11293 (when (and initialize (equal "IN" (upcase (nth 2 port)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11294 (insert " := " (if (string-match "(.+)" (nth 3 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11295 "(others => '0')" "'0'"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11296 (insert ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11297 ;; paste comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11298 (when (or vhdl-include-direction-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11299 (and vhdl-include-port-comments (nth 4 port))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11300 (vhdl-comment-insert-inline |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11301 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11302 (cond ((and vhdl-include-direction-comments (nth 2 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11303 (format "%-6s" (concat "[" (nth 2 port) "] "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11304 (vhdl-include-direction-comments " ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11305 (when vhdl-include-port-comments (nth 4 port))) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11306 (setq port-list (cdr port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11307 (when port-list (insert "\n") (indent-to margin))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11308 ;; align signal list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11309 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11310 (message "Pasting port as signals...done"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11311 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11312 (defun vhdl-port-paste-initializations (&optional no-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11313 "Paste ports as signal initializations." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11314 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11315 (if (not vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11316 (error "ERROR: No port read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11317 (let ((orig-vhdl-port-list vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11318 (message "Pasting port as initializations...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11319 ;; flatten local copy of port list (must be flat for signal initial.) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11320 (vhdl-port-flatten) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11321 (unless no-indent (indent-according-to-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11322 (let ((margin (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11323 start port name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11324 (port-list (nth 2 vhdl-port-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11325 (when port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11326 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11327 (while port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11328 (setq port (car port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11329 ;; paste actual port signal (inputs only) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11330 (when (equal "IN" (upcase (nth 2 port))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11331 (setq name (car (nth 0 port))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11332 (insert (vhdl-replace-string vhdl-actual-port-name name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11333 ;; paste initialization |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11334 (insert " <= " (if (string-match "(.+)" (nth 3 port)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11335 "(others => '0')" "'0'") ";")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11336 (setq port-list (cdr port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11337 (when (and port-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11338 (equal "IN" (upcase (nth 2 (car port-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11339 (insert "\n") (indent-to margin))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11340 ;; align signal list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11341 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11342 (message "Pasting port as initializations...done") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11343 (setq vhdl-port-list orig-vhdl-port-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11344 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11345 (defun vhdl-port-paste-testbench () |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11346 "Paste as a bare-bones testbench." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11347 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11348 (if (not vhdl-port-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11349 (error "ERROR: No port read") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11350 (let ((case-fold-search t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11351 (ent-name (vhdl-replace-string vhdl-testbench-entity-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11352 (nth 0 vhdl-port-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11353 (source-buffer (current-buffer)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11354 arch-name config-name ent-file-name arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11355 ent-buffer arch-buffer position) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11356 ;; open entity file |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11357 (unless (eq vhdl-testbench-create-files 'none) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11358 (setq ent-file-name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11359 (concat ent-name "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11360 (if (file-exists-p ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11361 (if (y-or-n-p |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11362 (concat "File \"" ent-file-name "\" exists; overwrite? ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11363 (progn (find-file ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11364 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11365 (set-buffer-modified-p nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11366 (if (eq vhdl-testbench-create-files 'separate) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11367 (setq ent-file-name nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11368 (error "ERROR: Pasting port as testbench...aborted"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11369 (find-file ent-file-name))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11370 (unless (and (eq vhdl-testbench-create-files 'separate) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11371 (null ent-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11372 ;; paste entity header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11373 (if vhdl-testbench-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11374 (progn (vhdl-template-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11375 (concat "Testbench for design \"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11376 (nth 0 vhdl-port-list) "\"")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11377 (goto-char (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11378 (vhdl-comment-display-line) (insert "\n\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11379 ;; paste std_logic_1164 package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11380 (when vhdl-testbench-include-library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11381 (vhdl-template-package-std-logic-1164) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11382 (insert "\n\n") (vhdl-comment-display-line) (insert "\n\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11383 ;; paste entity declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11384 (vhdl-insert-keyword "ENTITY ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11385 (insert ent-name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11386 (vhdl-insert-keyword " IS") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11387 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11388 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11389 (vhdl-insert-keyword "END ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11390 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "ENTITY ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11391 (insert ent-name ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11392 (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11393 (vhdl-comment-display-line) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11394 ;; get architecture name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11395 (setq arch-name (if (equal (cdr vhdl-testbench-architecture-name) "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11396 (read-from-minibuffer "architecture name: " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11397 nil vhdl-minibuffer-local-map) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11398 (vhdl-replace-string vhdl-testbench-architecture-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11399 (nth 0 vhdl-port-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11400 (message "Pasting port as testbench \"%s(%s)\"..." ent-name arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11401 ;; open architecture file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11402 (if (not (eq vhdl-testbench-create-files 'separate)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11403 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11404 (setq ent-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11405 (setq arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11406 (concat ent-name "_" arch-name "." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11407 (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11408 (when (and (file-exists-p arch-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11409 (not (y-or-n-p (concat "File \"" arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11410 "\" exists; overwrite? ")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11411 (error "ERROR: Pasting port as testbench...aborted")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11412 (find-file arch-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11413 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11414 (set-buffer-modified-p nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11415 ;; paste architecture header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11416 (if vhdl-testbench-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11417 (progn (vhdl-template-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11418 (concat "Testbench architecture for design \"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11419 (nth 0 vhdl-port-list) "\"")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11420 (goto-char (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11421 (vhdl-comment-display-line) (insert "\n\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11422 ;; paste architecture body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11423 (vhdl-insert-keyword "ARCHITECTURE ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11424 (insert arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11425 (vhdl-insert-keyword " OF ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11426 (insert ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11427 (vhdl-insert-keyword " IS") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11428 (insert "\n\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11429 ;; paste component declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11430 (unless (vhdl-use-direct-instantiation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11431 (vhdl-port-paste-component t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11432 (insert "\n\n") (indent-to vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11433 ;; paste constants |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11434 (when (nth 1 vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11435 (insert "-- component generics\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11436 (vhdl-port-paste-constants t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11437 (insert "\n\n") (indent-to vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11438 ;; paste internal signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11439 (insert "-- component ports\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11440 (vhdl-port-paste-signals vhdl-testbench-initialize-signals t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11441 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11442 ;; paste custom declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11443 (unless (equal "" vhdl-testbench-declarations) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11444 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11445 (vhdl-insert-string-or-file vhdl-testbench-declarations)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11446 (setq position (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11447 (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11448 (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11449 (when vhdl-testbench-include-configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11450 (setq config-name (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11451 vhdl-testbench-configuration-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11452 (concat ent-name " " arch-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11453 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11454 (vhdl-insert-keyword "CONFIGURATION ") (insert config-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11455 (vhdl-insert-keyword " OF ") (insert ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11456 (vhdl-insert-keyword " IS\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11457 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11458 (vhdl-insert-keyword "FOR ") (insert arch-name "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11459 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11460 (vhdl-insert-keyword "END FOR;\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11461 (vhdl-insert-keyword "END ") (insert config-name ";\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11462 (vhdl-comment-display-line) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11463 (goto-char position) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11464 (vhdl-template-begin-end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11465 (unless (vhdl-standard-p '87) "ARCHITECTURE") arch-name 0 t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11466 ;; paste instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11467 (insert "-- component instantiation\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11468 (vhdl-port-paste-instance |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11469 (vhdl-replace-string vhdl-testbench-dut-name (nth 0 vhdl-port-list)) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11470 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11471 ;; paste custom statements |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11472 (unless (equal "" vhdl-testbench-statements) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11473 (insert "\n") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11474 (vhdl-insert-string-or-file vhdl-testbench-statements)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11475 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11476 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11477 (unless (eq vhdl-testbench-create-files 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11478 (setq arch-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11479 (when ent-buffer (set-buffer ent-buffer) (save-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11480 (set-buffer arch-buffer) (save-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11481 (message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11482 (concat (format "Pasting port as testbench \"%s(%s)\"...done" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11483 ent-name arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11484 (and ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11485 (format "\n File created: \"%s\"" ent-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11486 (and arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11487 (format "\n File created: \"%s\"" arch-file-name))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11488 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11489 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11490 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11491 ;;; Subprogram interface translation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11492 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11493 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11494 (defvar vhdl-subprog-list nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11495 "Variable to hold last subprogram interface parsed.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11496 ;; structure: (parenthesised expression means list of such entries) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11497 ;; (subprog-name kind |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11498 ;; ((names) object direct type init comment group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11499 ;; return-type return-comment group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11500 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11501 (defvar vhdl-subprog-flattened nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11502 "Indicates whether an subprogram interface has been flattened.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11503 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11504 (defun vhdl-subprog-flatten () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11505 "Flatten interface list so that only one parameter exists per line." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11506 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11507 (if (not vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11508 (error "ERROR: No subprogram interface has been read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11509 (message "Flattening subprogram interface...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11510 (let ((old-subprog-list (nth 2 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11511 new-subprog-list old-subprog new-subprog names) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11512 ;; traverse parameter list and flatten entries |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11513 (while old-subprog-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11514 (setq old-subprog (car old-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11515 (setq names (car old-subprog)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11516 (while names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11517 (setq new-subprog (cons (list (car names)) (cdr old-subprog))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11518 (setq new-subprog-list (append new-subprog-list (list new-subprog))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11519 (setq names (cdr names))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11520 (setq old-subprog-list (cdr old-subprog-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11521 (setq vhdl-subprog-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11522 (list (nth 0 vhdl-subprog-list) (nth 1 vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11523 new-subprog-list (nth 3 vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11524 (nth 4 vhdl-subprog-list) (nth 5 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11525 vhdl-subprog-flattened t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11526 (message "Flattening subprogram interface...done")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11527 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11528 (defun vhdl-subprog-copy () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11529 "Get interface information from a subprogram specification." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11530 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11531 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11532 (let (parse-error pos end-of-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11533 name kind param-list object names direct type init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11534 comment group-comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11535 return-type return-comment return-group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11536 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11537 (setq |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11538 parse-error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11539 (catch 'parse |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11540 ;; check if within function declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11541 (setq pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11542 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11543 (when (looking-at "[ \t\n]*\\((\\|;\\|is\\>\\)") (goto-char (match-end 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11544 (unless (and (re-search-backward "^\\s-*\\(\\(procedure\\)\\|\\(\\(pure\\|impure\\)\\s-+\\)?function\\)\\s-+\\(\"?\\w+\"?\\)[ \t\n]*\\(\\((\\)\\|;\\|is\\>\\)" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11545 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11546 (save-excursion (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11547 (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11548 (<= pos (point)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11549 (throw 'parse "ERROR: Not within a subprogram specification")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11550 (setq name (match-string-no-properties 5)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11551 (setq kind (if (match-string 2) 'procedure 'function)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11552 (setq end-of-list (not (match-string 7))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11553 (message "Reading interface of subprogram \"%s\"..." name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11554 ;; parse parameter list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11555 (setq group-comment (vhdl-parse-group-comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11556 (setq end-of-list (or end-of-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11557 (vhdl-parse-string ")[ \t\n]*\\(;\\|\\(is\\|return\\)\\>\\)" t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11558 (while (not end-of-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11559 ;; parse object |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11560 (setq object |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11561 (and (vhdl-parse-string "\\(constant\\|signal\\|variable\\|file\\|quantity\\|terminal\\)[ \t\n]*" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11562 (match-string-no-properties 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11563 ;; parse names (accept extended identifiers) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11564 (vhdl-parse-string "\\(\\w+\\|\\\\[^\\]+\\\\\\)[ \t\n]*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11565 (setq names (list (match-string-no-properties 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11566 (while (vhdl-parse-string ",[ \t\n]*\\(\\w+\\|\\\\[^\\]+\\\\\\)[ \t\n]*" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11567 (setq names (append names (list (match-string-no-properties 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11568 ;; parse direction |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11569 (vhdl-parse-string ":[ \t\n]*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11570 (setq direct |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11571 (and (vhdl-parse-string "\\(in\\|out\\|inout\\|buffer\\|linkage\\)[ \t\n]+" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11572 (match-string-no-properties 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11573 ;; parse type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11574 (vhdl-parse-string "\\([^():;\n]+\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11575 (setq type (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11576 (setq comment nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11577 (while (looking-at "(") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11578 (setq type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11579 (concat type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11580 (buffer-substring-no-properties |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11581 (point) (progn (forward-sexp) (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11582 (and (vhdl-parse-string "\\([^():;\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11583 (match-string-no-properties 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11584 ;; special case: closing parenthesis is on separate line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11585 (when (and type (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" type)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11586 (setq comment (substring type (match-beginning 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11587 (setq type (substring type 0 (match-beginning 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11588 ;; strip off trailing group-comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11589 (string-match "\\(\\(\\s-*\\S-+\\)+\\)\\s-*" type) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11590 (setq type (substring type 0 (match-end 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11591 ;; parse initialization expression |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11592 (setq init nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11593 (when (vhdl-parse-string ":=[ \t\n]*" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11594 (vhdl-parse-string "\\([^();\n]*\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11595 (setq init (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11596 (while (looking-at "(") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11597 (setq init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11598 (concat init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11599 (buffer-substring-no-properties |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11600 (point) (progn (forward-sexp) (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11601 (and (vhdl-parse-string "\\([^();\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11602 (match-string-no-properties 1)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11603 ;; special case: closing parenthesis is on separate line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11604 (when (and init (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" init)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11605 (setq comment (substring init (match-beginning 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11606 (setq init (substring init 0 (match-beginning 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11607 (vhdl-forward-syntactic-ws)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11608 (skip-chars-forward " \t") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11609 ;; parse inline comment, special case: as above, no initial. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11610 (unless comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11611 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11612 (match-string-no-properties 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11613 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11614 (setq end-of-list (vhdl-parse-string ")\\s-*" t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11615 ;; parse inline comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11616 (unless comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11617 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11618 (match-string-no-properties 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11619 (setq return-group-comment (vhdl-parse-group-comment)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11620 (vhdl-parse-string "\\(;\\|\\(is\\|\\(return\\)\\)\\>\\)\\s-*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11621 ;; parse return type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11622 (when (match-string 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11623 (vhdl-parse-string "[ \t\n]*\\(.+\\)[ \t\n]*\\(;\\|is\\>\\)\\s-*") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11624 (setq return-type (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11625 (when (and return-type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11626 (string-match "\\(\\s-*--\\s-*\\)\\(.*\\)" return-type)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11627 (setq return-comment (substring return-type (match-beginning 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11628 (setq return-type (substring return-type 0 (match-beginning 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11629 ;; strip of trailing group-comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11630 (string-match "\\(\\(\\s-*\\S-+\\)+\\)\\s-*" return-type) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11631 (setq return-type (substring return-type 0 (match-end 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11632 ;; parse return comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11633 (unless return-comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11634 (setq return-comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11635 (match-string-no-properties 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11636 ;; parse inline comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11637 (unless comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11638 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11639 (match-string-no-properties 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11640 ;; save everything in list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11641 (setq param-list (append param-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11642 (list (list names object direct type init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11643 comment group-comment)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11644 ;; parse group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11645 (setq group-comment (vhdl-parse-group-comment))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11646 (message "Reading interface of subprogram \"%s\"...done" name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11647 nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11648 ;; finish parsing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11649 (if parse-error |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11650 (error parse-error) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11651 (setq vhdl-subprog-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11652 (list name kind param-list return-type return-comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11653 return-group-comment) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11654 vhdl-subprog-flattened nil))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11655 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11656 (defun vhdl-subprog-paste-specification (kind) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11657 "Paste as a subprogram specification." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11658 (indent-according-to-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11659 (let ((margin (current-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11660 (param-list (nth 2 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11661 list-margin start names param) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11662 ;; paste keyword and name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11663 (vhdl-insert-keyword |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11664 (if (eq (nth 1 vhdl-subprog-list) 'procedure) "PROCEDURE " "FUNCTION ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11665 (insert (nth 0 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11666 (if (not param-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11667 (if (eq kind 'decl) (insert ";") (vhdl-insert-keyword " is")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11668 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11669 ;; paste parameter list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11670 (insert " (") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11671 (unless vhdl-argument-list-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11672 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11673 (setq list-margin (current-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11674 (while param-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11675 (setq param (car param-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11676 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11677 (when (memq vhdl-include-group-comments (list kind 'always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11678 (vhdl-paste-group-comment (nth 6 param) list-margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11679 ;; paste object |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11680 (when (nth 1 param) (insert (nth 1 param) " ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11681 ;; paste names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11682 (setq names (nth 0 param)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11683 (while names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11684 (insert (car names)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11685 (setq names (cdr names)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11686 (when names (insert ", "))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11687 ;; paste direction |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11688 (insert " : ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11689 (when (nth 2 param) (insert (nth 2 param) " ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11690 ;; paste type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11691 (insert (nth 3 param)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11692 ;; paste initialization |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11693 (when (nth 4 param) (insert " := " (nth 4 param))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11694 ;; terminate line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11695 (if (cdr param-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11696 (insert ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11697 (insert ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11698 (when (null (nth 3 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11699 (if (eq kind 'decl) (insert ";") (vhdl-insert-keyword " is")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11700 ;; paste comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11701 (when (and vhdl-include-port-comments (nth 5 param)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11702 (vhdl-comment-insert-inline (nth 5 param) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11703 (setq param-list (cdr param-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11704 (when param-list (insert "\n") (indent-to list-margin))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11705 (when (nth 3 vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11706 (insert "\n") (indent-to list-margin) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11707 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11708 (when (memq vhdl-include-group-comments (list kind 'always)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11709 (vhdl-paste-group-comment (nth 5 vhdl-subprog-list) list-margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11710 ;; paste return type |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11711 (insert "return " (nth 3 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11712 (if (eq kind 'decl) (insert ";") (vhdl-insert-keyword " is")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11713 (when (and vhdl-include-port-comments (nth 4 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11714 (vhdl-comment-insert-inline (nth 4 vhdl-subprog-list) t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11715 ;; align parameter list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11716 (when vhdl-auto-align (vhdl-align-region-groups start (point) 1 t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11717 ;; paste body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11718 (when (eq kind 'body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11719 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11720 (vhdl-template-begin-end |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11721 (unless (vhdl-standard-p '87) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11722 (if (eq (nth 1 vhdl-subprog-list) 'procedure) "PROCEDURE" "FUNCTION")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11723 (nth 0 vhdl-subprog-list) margin)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11724 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11725 (defun vhdl-subprog-paste-declaration () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11726 "Paste as a subprogram declaration." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11727 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11728 (if (not vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11729 (error "ERROR: No subprogram interface read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11730 (message "Pasting interface as subprogram declaration \"%s\"..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11731 (car vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11732 ;; paste specification |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11733 (vhdl-subprog-paste-specification 'decl) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11734 (message "Pasting interface as subprogram declaration \"%s\"...done" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11735 (car vhdl-subprog-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11736 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11737 (defun vhdl-subprog-paste-body () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11738 "Paste as a subprogram body." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11739 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11740 (if (not vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11741 (error "ERROR: No subprogram interface read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11742 (message "Pasting interface as subprogram body \"%s\"..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11743 (car vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11744 ;; paste specification and body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11745 (vhdl-subprog-paste-specification 'body) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11746 (message "Pasting interface as subprogram body \"%s\"...done" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11747 (car vhdl-subprog-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11748 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11749 (defun vhdl-subprog-paste-call () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11750 "Paste as a subprogram call." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11751 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11752 (if (not vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11753 (error "ERROR: No subprogram interface read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11754 (let ((orig-vhdl-subprog-list vhdl-subprog-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11755 param-list margin list-margin param start) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11756 ;; flatten local copy of interface list (must be flat for parameter mapping) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11757 (vhdl-subprog-flatten) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11758 (setq param-list (nth 2 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11759 (indent-according-to-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11760 (setq margin (current-indentation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11761 (message "Pasting interface as subprogram call \"%s\"..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11762 (car vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11763 ;; paste name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11764 (insert (nth 0 vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11765 (if (not param-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11766 (insert ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11767 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11768 ;; paste parameter list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11769 (insert " (") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11770 (unless vhdl-argument-list-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11771 (insert "\n") (indent-to (+ margin vhdl-basic-offset))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11772 (setq list-margin (current-column)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11773 (while param-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11774 (setq param (car param-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11775 ;; paste group comment and spacing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11776 (when (eq vhdl-include-group-comments 'always) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11777 (vhdl-paste-group-comment (nth 6 param) list-margin)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11778 ;; paste formal port |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11779 (insert (car (nth 0 param)) " => ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11780 (setq param-list (cdr param-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11781 (insert (if param-list "," ");")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11782 ;; paste comment |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11783 (when (and vhdl-include-port-comments (nth 5 param)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11784 (vhdl-comment-insert-inline (nth 5 param))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11785 (when param-list (insert "\n") (indent-to list-margin))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11786 ;; align parameter list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11787 (when vhdl-auto-align |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11788 (vhdl-align-region-groups start (point) 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11789 (message "Pasting interface as subprogram call \"%s\"...done" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11790 (car vhdl-subprog-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11791 (setq vhdl-subprog-list orig-vhdl-subprog-list)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11792 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11793 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11794 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11795 ;;; Miscellaneous |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11796 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11797 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11798 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11799 ;; Hippie expand customization |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11800 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11801 (defvar vhdl-expand-upper-case nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11802 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11803 (defun vhdl-try-expand-abbrev (old) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11804 "Try expanding abbreviations from `vhdl-abbrev-list'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11805 (unless old |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11806 (he-init-string (he-dabbrev-beg) (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11807 (setq he-expand-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11808 (let ((abbrev-list vhdl-abbrev-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11809 (sel-abbrev-list '())) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11810 (while abbrev-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11811 (when (or (not (stringp (car abbrev-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11812 (string-match |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11813 (concat "^" he-search-string) (car abbrev-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11814 (setq sel-abbrev-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11815 (cons (car abbrev-list) sel-abbrev-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11816 (setq abbrev-list (cdr abbrev-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11817 (nreverse sel-abbrev-list)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11818 (while (and he-expand-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11819 (or (not (stringp (car he-expand-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11820 (he-string-member (car he-expand-list) he-tried-table t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11821 ; (equal (car he-expand-list) he-search-string))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11822 (unless (stringp (car he-expand-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11823 (setq vhdl-expand-upper-case (car he-expand-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11824 (setq he-expand-list (cdr he-expand-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11825 (if (null he-expand-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11826 (progn (when old (he-reset-string)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11827 nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11828 (he-substitute-string |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11829 (if vhdl-expand-upper-case |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11830 (upcase (car he-expand-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11831 (car he-expand-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11832 t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11833 (setq he-expand-list (cdr he-expand-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11834 t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11835 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11836 (defun vhdl-he-list-beg () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11837 "Also looks at the word before `(' in order to better match parenthesized |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11838 expressions (e.g. for index ranges of types and signals)." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11839 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11840 (condition-case () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11841 (progn (backward-up-list 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11842 (skip-syntax-backward "w_")) ; crashes in `viper-mode' |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11843 (error ())) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11844 (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11845 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11846 ;; override `he-list-beg' from `hippie-exp' |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11847 (unless (and (boundp 'viper-mode) viper-mode) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11848 (defalias 'he-list-beg 'vhdl-he-list-beg)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11849 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11850 ;; function for expanding abbrevs and dabbrevs |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11851 (defun vhdl-expand-abbrev (arg)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11852 (fset 'vhdl-expand-abbrev (make-hippie-expand-function |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11853 '(try-expand-dabbrev |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11854 try-expand-dabbrev-all-buffers |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11855 vhdl-try-expand-abbrev))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11856 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11857 ;; function for expanding parenthesis |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11858 (defun vhdl-expand-paren (arg)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11859 (fset 'vhdl-expand-paren (make-hippie-expand-function |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11860 '(try-expand-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11861 try-expand-list-all-buffers))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11862 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11863 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11864 ;; Case fixing |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11865 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11866 (defun vhdl-fix-case-region-1 (beg end upper-case word-regexp &optional count) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11867 "Convert all words matching word-regexp in region to lower or upper case, |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11868 depending on parameter upper-case." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11869 (let ((case-replace nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11870 (last-update 0)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11871 (vhdl-prepare-search-2 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11872 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11873 (goto-char end) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11874 (setq end (point-marker)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11875 (goto-char beg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11876 (while (re-search-forward word-regexp end t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11877 (or (vhdl-in-literal) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11878 (if upper-case |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11879 (upcase-word -1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11880 (downcase-word -1))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11881 (when (and count vhdl-progress-interval (not noninteractive) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11882 (< vhdl-progress-interval |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11883 (- (nth 1 (current-time)) last-update))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11884 (message "Fixing case... (%2d%s)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11885 (+ (* count 25) (/ (* 25 (- (point) beg)) (- end beg))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11886 "%") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11887 (setq last-update (nth 1 (current-time))))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11888 (goto-char end))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11889 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11890 (defun vhdl-fix-case-region (beg end &optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11891 "Convert all VHDL words in region to lower or upper case, depending on |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11892 options vhdl-upper-case-{keywords,types,attributes,enum-values}." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11893 (interactive "r\nP") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11894 (vhdl-fix-case-region-1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11895 beg end vhdl-upper-case-keywords vhdl-keywords-regexp 0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11896 (vhdl-fix-case-region-1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11897 beg end vhdl-upper-case-types vhdl-types-regexp 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11898 (vhdl-fix-case-region-1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11899 beg end vhdl-upper-case-attributes (concat "'" vhdl-attributes-regexp) 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11900 (vhdl-fix-case-region-1 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11901 beg end vhdl-upper-case-enum-values vhdl-enum-values-regexp 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11902 (when vhdl-progress-interval (message "Fixing case...done"))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11903 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11904 (defun vhdl-fix-case-buffer () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11905 "Convert all VHDL words in buffer to lower or upper case, depending on |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11906 options vhdl-upper-case-{keywords,types,attributes,enum-values}." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11907 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11908 (vhdl-fix-case-region (point-min) (point-max))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11909 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11910 (defun vhdl-fix-case-word (&optional arg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11911 "Convert word after cursor to upper case if necessary." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11912 (interactive "p") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11913 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11914 (when arg (backward-word 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11915 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11916 (when (and vhdl-upper-case-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11917 (looking-at vhdl-keywords-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11918 (upcase-word 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11919 (when (and vhdl-upper-case-types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11920 (looking-at vhdl-types-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11921 (upcase-word 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11922 (when (and vhdl-upper-case-attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11923 (looking-at vhdl-attributes-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11924 (upcase-word 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11925 (when (and vhdl-upper-case-enum-values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11926 (looking-at vhdl-enum-values-regexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11927 (upcase-word 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11928 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11929 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11930 ;; Line handling functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11931 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11932 (defun vhdl-current-line () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11933 "Return the line number of the line containing point." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11934 (save-restriction |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11935 (widen) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
11936 (1+ (count-lines (point-min) (line-beginning-position))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11937 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11938 (defun vhdl-line-kill-entire (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11939 "Delete entire line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11940 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11941 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11942 (kill-line (or arg 1))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11943 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11944 (defun vhdl-line-kill (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11945 "Kill current line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11946 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11947 (vhdl-line-kill-entire arg)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11948 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11949 (defun vhdl-line-copy (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11950 "Copy current line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11951 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11952 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11953 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11954 (let ((position (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11955 (forward-line (or arg 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11956 (copy-region-as-kill position (point))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11957 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11958 (defun vhdl-line-yank () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11959 "Yank entire line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11960 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11961 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11962 (yank)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11963 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11964 (defun vhdl-line-expand (&optional prefix-arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11965 "Hippie-expand current line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11966 (interactive "P") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11967 (let ((case-fold-search t) (case-replace nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11968 (hippie-expand-try-functions-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11969 '(try-expand-line try-expand-line-all-buffers))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11970 (hippie-expand prefix-arg))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11971 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11972 (defun vhdl-line-transpose-next (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11973 "Interchange this line with next line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11974 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11975 (forward-line 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11976 (transpose-lines (or arg 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11977 (forward-line -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11978 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11979 (defun vhdl-line-transpose-previous (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11980 "Interchange this line with previous line." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11981 (interactive "p") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11982 (forward-line 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11983 (transpose-lines (- 0 (or arg 0))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11984 (forward-line -1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11985 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11986 (defun vhdl-line-open () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11987 "Open a new line and indent." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11988 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11989 (end-of-line -0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11990 (newline-and-indent)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
11991 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11992 (defun vhdl-delete-indentation () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11993 "Join lines. That is, call `delete-indentation' with `fill-prefix' so that |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11994 it works within comments too." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11995 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11996 (let ((fill-prefix "-- ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11997 (delete-indentation))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11998 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
11999 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12000 ;; Move functions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12001 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12002 (defun vhdl-forward-same-indent () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12003 "Move forward to next line with same indent." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12004 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12005 (let ((pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12006 (indent (current-indentation))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12007 (beginning-of-line 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12008 (while (and (not (eobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12009 (or (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12010 (> (current-indentation) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12011 (beginning-of-line 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12012 (if (= (current-indentation) indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12013 (back-to-indentation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12014 (message "No following line with same indent found in this block") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12015 (goto-char pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12016 nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12017 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12018 (defun vhdl-backward-same-indent () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12019 "Move backward to previous line with same indent." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12020 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12021 (let ((pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12022 (indent (current-indentation))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12023 (beginning-of-line -0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12024 (while (and (not (bobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12025 (or (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12026 (> (current-indentation) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12027 (beginning-of-line -0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12028 (if (= (current-indentation) indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12029 (back-to-indentation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12030 (message "No preceding line with same indent found in this block") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12031 (goto-char pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12032 nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12033 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12034 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12035 ;; Statistics |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12036 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12037 (defun vhdl-statistics-buffer () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12038 "Get some file statistics." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12039 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12040 (let ((no-stats 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12041 (no-code-lines 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12042 (no-lines (count-lines (point-min) (point-max)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12043 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12044 ;; count statements |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12045 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12046 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|;" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12047 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12048 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12049 (setq no-stats (1+ no-stats)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12050 ;; count code lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12051 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12052 (while (not (eobp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12053 (unless (looking-at "^\\s-*\\(--.*\\)?$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12054 (setq no-code-lines (1+ no-code-lines))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12055 (beginning-of-line 2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12056 ;; print results |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12057 (message "\n\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12058 File statistics: \"%s\"\n\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12059 ---------------------\n\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12060 # statements : %5d\n\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12061 # code lines : %5d\n\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12062 # total lines : %5d\n\ " |
62917
e66c3159d2a4
(vhdl-fill-region): Test ARG, not INTERACTIVE.
Richard M. Stallman <rms@gnu.org>
parents:
62772
diff
changeset
|
12063 (buffer-file-name) no-stats no-code-lines no-lines))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12064 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12065 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12066 ;; Help functions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12067 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12068 (defun vhdl-re-search-forward (regexp &optional bound noerror count) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12069 "Like `re-search-forward', but does not match within literals." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12070 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12071 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12072 (while (and (setq pos (re-search-forward regexp bound noerror count)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12073 (vhdl-in-literal)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12074 (when pos (goto-char pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12075 pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12076 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12077 (defun vhdl-re-search-backward (regexp &optional bound noerror count) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12078 "Like `re-search-backward', but does not match within literals." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12079 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12080 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12081 (while (and (setq pos (re-search-backward regexp bound noerror count)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12082 (vhdl-in-literal)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12083 (when pos (goto-char pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12084 pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12085 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12086 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12087 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12088 ;;; Project |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12089 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12090 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12091 (defun vhdl-set-project (name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12092 "Set current project to NAME." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12093 (interactive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12094 (list (let ((completion-ignore-case t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12095 (completing-read "Project name: " vhdl-project-alist nil t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12096 (cond ((equal name "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12097 (setq vhdl-project nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12098 (message "Current VHDL project: None")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12099 ((assoc name vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12100 (setq vhdl-project name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12101 (message "Current VHDL project: \"%s\"" name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12102 (t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12103 (vhdl-warning (format "Unknown VHDL project: \"%s\"" name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12104 (vhdl-speedbar-update-current-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12105 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12106 (defun vhdl-toggle-project (name token indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12107 "Set current project to NAME or unset if NAME is current project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12108 (vhdl-set-project (if (equal name vhdl-project) "" name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12109 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12110 (defun vhdl-export-project (file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12111 "Write project setup for current project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12112 (interactive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12113 (let ((name (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12114 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12115 (cons "\\(.*\\) \\(.*\\)" (car vhdl-project-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12116 (concat (subst-char-in-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12117 ? ?_ (or (vhdl-project-p) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12118 (error "ERROR: No current project"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12119 " " (user-login-name)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12120 (list (read-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12121 "Write project file: " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12122 (when (file-name-absolute-p name) "") nil nil name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12123 (setq file-name (abbreviate-file-name file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12124 (let ((orig-buffer (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12125 (unless (file-exists-p (file-name-directory file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12126 (make-directory (file-name-directory file-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12127 (if (not (file-writable-p file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12128 (error "ERROR: File not writable: \"%s\"" file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12129 (set-buffer (find-file-noselect file-name t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12130 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12131 (insert ";; -*- Emacs-Lisp -*-\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12132 ";;; " (file-name-nondirectory file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12133 " - project setup file for Emacs VHDL Mode " vhdl-version "\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12134 ";; Project : " vhdl-project "\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12135 ";; Saved : " (format-time-string "%Y-%m-%d %T ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12136 (user-login-name) "\n\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12137 ";; project name\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12138 "(setq vhdl-project \"" vhdl-project "\")\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12139 ";; project setup\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12140 "(aput 'vhdl-project-alist vhdl-project\n'") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12141 (pp (aget vhdl-project-alist vhdl-project) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12142 (insert ")\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12143 (save-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12144 (kill-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12145 (set-buffer orig-buffer)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12146 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12147 (defun vhdl-import-project (file-name &optional auto not-make-current) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12148 "Read project setup and set current project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12149 (interactive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12150 (let ((name (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12151 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12152 (cons "\\(.*\\) \\(.*\\)" (car vhdl-project-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12153 (concat "" " " (user-login-name)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12154 (list (read-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12155 "Read project file: " (when (file-name-absolute-p name) "") nil t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12156 (file-name-directory name))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12157 (when (file-exists-p file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12158 (condition-case () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12159 (let ((current-project vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12160 (load-file file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12161 (when (/= (length (aget vhdl-project-alist vhdl-project t)) 10) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12162 (adelete 'vhdl-project-alist vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12163 (error)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12164 (when not-make-current |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12165 (setq vhdl-project current-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12166 (vhdl-update-mode-menu) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12167 (vhdl-speedbar-refresh) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12168 (unless not-make-current |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12169 (message "Current VHDL project: \"%s\"%s" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12170 vhdl-project (if auto " (auto-loaded)" "")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12171 (error (vhdl-warning |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12172 (format "ERROR: Invalid project setup file: \"%s\"" file-name)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12173 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12174 (defun vhdl-duplicate-project () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12175 "Duplicate setup of current project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12176 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12177 (let ((new-name (read-from-minibuffer "New project name: ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12178 (project-entry (aget vhdl-project-alist vhdl-project t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12179 (setq vhdl-project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12180 (append vhdl-project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12181 (list (cons new-name project-entry)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12182 (vhdl-update-mode-menu))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12183 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12184 (defun vhdl-auto-load-project () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12185 "Automatically load project setup at startup." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12186 (let ((file-name-list vhdl-project-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12187 file-list list-length) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12188 (while file-name-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12189 (setq file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12190 (append file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12191 (file-expand-wildcards |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12192 (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12193 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12194 (cons "\\(.*\\) \\(.*\\)" (car file-name-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12195 (concat "\*" " " (user-login-name))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12196 (setq list-length (or list-length (length file-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12197 (setq file-name-list (cdr file-name-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12198 (while file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12199 (vhdl-import-project (expand-file-name (car file-list)) t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12200 (not (> list-length 0))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12201 (setq list-length (1- list-length)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12202 (setq file-list (cdr file-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12203 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12204 ;; automatically load project setup when idle after startup |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12205 (when (memq 'startup vhdl-project-auto-load) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12206 (if noninteractive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12207 (vhdl-auto-load-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12208 (vhdl-run-when-idle .1 nil 'vhdl-auto-load-project))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12209 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12210 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12211 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12212 ;;; Hideshow |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12213 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12214 ;; (using `hideshow.el') |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12215 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12216 (defconst vhdl-hs-start-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12217 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12218 "\\(^\\)\\s-*\\(" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12219 ;; generic/port clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12220 "\\(generic\\|port\\)[ \t\n]*(\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12221 ;; component |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12222 "component\\>\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12223 ;; component instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12224 "\\(\\w\\|\\s_\\)+[ \t\n]*:[ \t\n]*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12225 "\\(\\(component\\|configuration\\|entity\\)[ \t\n]+\\)?" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12226 "\\(\\w\\|\\s_\\)+\\([ \t\n]*(\\(\\w\\|\\s_\\)+)\\)?[ \t\n]*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12227 "\\(generic\\|port\\)[ \t\n]+map[ \t\n]*(\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12228 ;; subprogram |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12229 "\\(function\\|procedure\\)\\>\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12230 ;; process, block |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12231 "\\(\\(\\w\\|\\s_\\)+[ \t\n]*:[ \t\n]*\\)?\\(process\\|block\\)\\>\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12232 ;; configuration declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12233 "configuration\\>" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12234 "\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12235 "Regexp to match start of construct to hide.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12236 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12237 (defun vhdl-hs-forward-sexp-func (count) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12238 "Find end of construct to hide (for hideshow). Only searches forward." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12239 (let ((pos (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12240 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12241 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12242 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12243 ;; generic/port clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12244 ((looking-at "^\\s-*\\(generic\\|port\\)[ \t\n]*(") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12245 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12246 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12247 (forward-sexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12248 ;; component declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12249 ((looking-at "^\\s-*component\\>") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12250 (re-search-forward "^\\s-*end\\s-+component\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12251 ;; component instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12252 ((looking-at |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12253 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12254 "^\\s-*\\w+\\s-*:[ \t\n]*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12255 "\\(\\(component\\|configuration\\|entity\\)[ \t\n]+\\)?" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12256 "\\w+\\(\\s-*(\\w+)\\)?[ \t\n]*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12257 "\\(generic\\|port\\)\\s-+map[ \t\n]*(")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12258 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12259 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12260 (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12261 (setq pos (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12262 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12263 (when (looking-at "port\\s-+map[ \t\n]*(") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12264 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12265 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12266 (forward-sexp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12267 (setq pos (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12268 (goto-char pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12269 ;; subprogram declaration/body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12270 ((looking-at "^\\s-*\\(function\\|procedure\\)\\s-+\\(\\w+\\|\".+\"\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12271 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12272 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12273 (when (looking-at "(") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12274 (forward-sexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12275 (while (and (re-search-forward "\\(;\\)\\|\\(\\<is\\>\\)" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12276 (vhdl-in-literal))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12277 ;; subprogram body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12278 (when (match-string 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12279 (re-search-forward "^\\s-*\\<begin\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12280 (backward-word 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12281 (vhdl-forward-sexp))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12282 ;; block (recursive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12283 ((looking-at "^\\s-*\\w+\\s-*:\\s-*block\\>") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12284 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12285 (while (and (re-search-forward "^\\s-*\\(\\(\\w+\\s-*:\\s-*block\\>\\)\\|\\(end\\s-+block\\>\\)\\)" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12286 (match-beginning 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12287 (vhdl-hs-forward-sexp-func count))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12288 ;; process |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12289 ((looking-at "^\\s-*\\(\\w+\\s-*:\\s-*\\)?process\\>") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12290 (re-search-forward "^\\s-*end\\s-+process\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12291 ;; configuration declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12292 ((looking-at "^\\s-*configuration\\>") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12293 (forward-word 4) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12294 (vhdl-forward-sexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12295 (t (goto-char pos)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12296 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12297 (defun vhdl-hideshow-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12298 "Initialize `hideshow'." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12299 (when vhdl-hideshow-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12300 (vhdl-hs-minor-mode 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12301 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12302 (defun vhdl-hs-minor-mode (&optional arg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12303 "Toggle hideshow minor mode and update menu bar." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12304 (interactive "P") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12305 (require 'hideshow) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12306 ;; check for hideshow version 5.x |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12307 (if (not (boundp 'hs-block-start-mdata-select)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12308 (vhdl-warning-when-idle "Install included `hideshow.el' patch first (see INSTALL file)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12309 ;; initialize hideshow |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12310 (unless (assoc 'vhdl-mode hs-special-modes-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12311 (setq hs-special-modes-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12312 (cons (list 'vhdl-mode vhdl-hs-start-regexp nil "--\\( \\|$\\)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12313 'vhdl-hs-forward-sexp-func nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12314 hs-special-modes-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12315 (make-local-variable 'hs-minor-mode-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12316 (if vhdl-hide-all-init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12317 (add-hook 'hs-minor-mode-hook 'hs-hide-all) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12318 (remove-hook 'hs-minor-mode-hook 'hs-hide-all)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12319 (hs-minor-mode arg) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12320 (vhdl-mode-line-update))) ; hack to update menu bar |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12321 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12322 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12323 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12324 ;;; Font locking |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12325 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 12326 ;; (using `font-lock.el') |
12327 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12328 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12329 ;; Help functions |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12330 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12331 (defun vhdl-within-translate-off () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12332 "Return point if within translate-off region, else nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12333 (and (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12334 (re-search-backward |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12335 "^\\s-*--\\s-*pragma\\s-*translate_\\(on\\|off\\)\\s-*\n" nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12336 (equal "off" (match-string 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12337 (point))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12338 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12339 (defun vhdl-start-translate-off (limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12340 "Return point before translate-off pragma if before LIMIT, else nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12341 (when (re-search-forward |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12342 "^\\s-*--\\s-*pragma\\s-*translate_off\\s-*\n" limit t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12343 (match-beginning 0))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12344 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12345 (defun vhdl-end-translate-off (limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12346 "Return point after translate-on pragma if before LIMIT, else nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12347 (re-search-forward "^\\s-*--\\s-*pragma\\s-*translate_on\\s-*\n" limit t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12348 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12349 (defun vhdl-match-translate-off (limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12350 "Match a translate-off block, setting match-data and returning t, else nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12351 (when (< (point) limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12352 (let ((start (or (vhdl-within-translate-off) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12353 (vhdl-start-translate-off limit))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12354 (case-fold-search t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12355 (when start |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12356 (let ((end (or (vhdl-end-translate-off limit) limit))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12357 (set-match-data (list start end)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12358 (goto-char end)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12359 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12360 (defun vhdl-font-lock-match-item (limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12361 "Match, and move over, any declaration item after point. Adapted from |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12362 `font-lock-match-c-style-declaration-item-and-skip-to-next'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12363 (condition-case nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12364 (save-restriction |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12365 (narrow-to-region (point-min) limit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12366 ;; match item |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12367 (when (looking-at "\\s-*\\([a-zA-Z]\\w*\\)") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12368 (save-match-data |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12369 (goto-char (match-end 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12370 ;; move to next item |
62551
428c1f634761
(vhdl-font-lock-match-item): Simplify regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62402
diff
changeset
|
12371 (if (looking-at "\\s-*,") |
428c1f634761
(vhdl-font-lock-match-item): Simplify regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62402
diff
changeset
|
12372 (goto-char (match-end 0)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12373 (end-of-line) t)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12374 (error t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12375 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12376 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 12377 ;; Syntax definitions |
12378 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12379 (defconst vhdl-font-lock-syntactic-keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12380 '(("\\(\'\\).\\(\'\\)" (1 (7 . ?\')) (2 (7 . ?\')))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12381 "Mark single quotes as having string quote syntax in 'c' instances.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12382 |
20665 | 12383 (defvar vhdl-font-lock-keywords nil |
12384 "Regular expressions to highlight in VHDL Mode.") | |
12385 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12386 (defvar vhdl-font-lock-keywords-0 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12387 ;; set in `vhdl-font-lock-init' because dependent on user options |
20665 | 12388 "For consideration as a value of `vhdl-font-lock-keywords'. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12389 This does highlighting of template prompts and directives (pragmas).") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12390 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12391 (defvar vhdl-font-lock-keywords-1 nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12392 ;; set in `vhdl-font-lock-init' because dependent on user options |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12393 "For consideration as a value of `vhdl-font-lock-keywords'. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12394 This does highlighting of keywords and standard identifiers.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12395 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12396 (defconst vhdl-font-lock-keywords-2 |
20665 | 12397 (list |
12398 ;; highlight names of units, subprograms, and components when declared | |
12399 (list | |
12400 (concat | |
12401 "^\\s-*\\(" | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12402 "architecture\\|configuration\\|entity\\|package\\(\\s-+body\\)?\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12403 "\\(\\(impure\\|pure\\)\\s-+\\)?function\\|procedure\\|component" |
20665 | 12404 "\\)\\s-+\\(\\w+\\)") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12405 5 'font-lock-function-name-face) |
20665 | 12406 |
12407 ;; highlight entity names of architectures and configurations | |
12408 (list | |
12409 "^\\s-*\\(architecture\\|configuration\\)\\s-+\\w+\\s-+of\\s-+\\(\\w+\\)" | |
12410 2 'font-lock-function-name-face) | |
12411 | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12412 ;; highlight labels of common constructs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12413 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12414 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12415 "^\\s-*\\(\\w+\\)\\s-*:[ \t\n]*\\(\\(" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12416 "assert\\|block\\|case\\|exit\\|for\\|if\\|loop\\|next\\|null\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12417 "postponed\\|process\\|" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12418 (when (vhdl-standard-p 'ams) "procedural\\|") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12419 "with\\|while" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12420 "\\)\\>\\|\\w+\\s-*\\(([^\n]*)\\)*\\s-*<=\\)") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12421 1 'font-lock-function-name-face) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12422 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12423 ;; highlight label and component name of component instantiations |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12424 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12425 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12426 "^\\s-*\\(\\w+\\)\\s-*:[ \t\n]*\\(\\w+\\)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12427 "\\(\\s-*\\(--[^\n]*\\)?$\\|\\s-+\\(generic\\|port\\)\\s-+map\\>\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12428 '(1 font-lock-function-name-face) '(2 font-lock-function-name-face)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12429 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12430 ;; highlight label and instantiated unit of component instantiations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12431 (list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12432 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12433 "^\\s-*\\(\\w+\\)\\s-*:[ \t\n]*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12434 "\\(component\\|configuration\\|entity\\)\\s-+" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12435 "\\(\\w+\\)\\(\\.\\(\\w+\\)\\)?\\(\\s-*(\\(\\w+\\))\\)?") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12436 '(1 font-lock-function-name-face) '(3 font-lock-function-name-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12437 '(5 font-lock-function-name-face nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12438 '(7 font-lock-function-name-face nil t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12439 |
20665 | 12440 ;; highlight names and labels at end of constructs |
12441 (list | |
12442 (concat | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12443 "^\\s-*end\\s-+\\(\\(" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12444 "architecture\\|block\\|case\\|component\\|configuration\\|entity\\|" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12445 "for\\|function\\|generate\\|if\\|loop\\|package\\(\\s-+body\\)?\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12446 "procedure\\|\\(postponed\\s-+\\)?process\\|" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12447 (when (vhdl-standard-p 'ams) "procedural\\|") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12448 "units" |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12449 "\\)\\s-+\\)?\\(\\w*\\)") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12450 5 'font-lock-function-name-face) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12451 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12452 ;; highlight labels in exit and next statements |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12453 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12454 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12455 "^\\s-*\\(\\w+\\s-*:\\s-*\\)?\\(exit\\|next\\)\\s-+\\(\\w*\\)") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12456 3 'font-lock-function-name-face) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12457 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12458 ;; highlight entity name in attribute specifications |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12459 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12460 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12461 "^\\s-*attribute\\s-+\\w+\\s-+of\\s-+\\(\\w+\\(,\\s-*\\w+\\)*\\)\\s-*:") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12462 1 'font-lock-function-name-face) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12463 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12464 ;; highlight labels in block and component specifications |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12465 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12466 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12467 "^\\s-*for\\s-+\\(\\w+\\(,\\s-*\\w+\\)*\\)\\>\\s-*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12468 "\\(:[ \t\n]*\\(\\w+\\)\\|[^i \t]\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12469 '(1 font-lock-function-name-face) '(4 font-lock-function-name-face nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12470 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12471 ;; highlight names in library clauses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12472 (list "^\\s-*library\\>" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12473 '(vhdl-font-lock-match-item nil nil (1 font-lock-function-name-face))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12474 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12475 ;; highlight names in use clauses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12476 (list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12477 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12478 "\\<use\\s-+\\(\\(entity\\|configuration\\)\\s-+\\)?" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12479 "\\(\\w+\\)\\(\\.\\(\\w+\\)\\)?\\((\\(\\w+\\))\\)?") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12480 '(3 font-lock-function-name-face) '(5 font-lock-function-name-face nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12481 '(7 font-lock-function-name-face nil t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12482 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12483 ;; highlight attribute name in attribute declarations/specifications |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12484 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12485 (concat |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12486 "^\\s-*attribute\\s-+\\(\\w+\\)") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12487 1 'vhdl-attribute) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12488 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12489 ;; highlight type/nature name in (sub)type/(sub)nature declarations |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12490 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12491 (concat |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12492 "^\\s-*\\(sub\\)?\\(nature\\|type\\)\\s-+\\(\\w+\\)") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12493 3 'font-lock-type-face) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12494 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12495 ;; highlight signal/variable/constant declaration names |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12496 (list "\\(:[^=]\\)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12497 '(vhdl-font-lock-match-item |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12498 (progn (goto-char (match-beginning 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12499 (skip-syntax-backward " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12500 (skip-syntax-backward "w_") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12501 (skip-syntax-backward " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12502 (while (= (preceding-char) ?,) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12503 (backward-char 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12504 (skip-syntax-backward " ") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12505 (skip-syntax-backward "w_") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12506 (skip-syntax-backward " "))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12507 ; (skip-chars-backward "^-(\n\";") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12508 (goto-char (match-end 1)) (1 font-lock-variable-name-face))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12509 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12510 ;; highlight formal parameters in component instantiations and subprogram |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12511 ;; calls |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12512 (list "\\(=>\\)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12513 '(vhdl-font-lock-match-item |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12514 (progn (goto-char (match-beginning 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12515 (skip-syntax-backward " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12516 (while (= (preceding-char) ?\)) (backward-sexp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12517 (skip-syntax-backward "w_") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12518 (skip-syntax-backward " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12519 (when (memq (preceding-char) '(?n ?N)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12520 (goto-char (point-max)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12521 (goto-char (match-end 1)) (1 font-lock-variable-name-face))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12522 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12523 ;; highlight alias/group/quantity declaration names and for-loop/-generate |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12524 ;; variables |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12525 (list "\\<\\(alias\\|for\\|group\\|quantity\\)\\s-+\\w+\\s-+\\(across\\|in\\|is\\)\\>" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12526 '(vhdl-font-lock-match-item |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12527 (progn (goto-char (match-end 1)) (match-beginning 2)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12528 nil (1 font-lock-variable-name-face))) |
20665 | 12529 ) |
12530 "For consideration as a value of `vhdl-font-lock-keywords'. | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12531 This does context sensitive highlighting of names and labels.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12532 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12533 (defvar vhdl-font-lock-keywords-3 nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12534 ;; set in `vhdl-font-lock-init' because dependent on user options |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12535 "For consideration as a value of `vhdl-font-lock-keywords'. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12536 This does highlighting of words with special syntax.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12537 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12538 (defvar vhdl-font-lock-keywords-4 nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12539 ;; set in `vhdl-font-lock-init' because dependent on user options |
20665 | 12540 "For consideration as a value of `vhdl-font-lock-keywords'. |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12541 This does highlighting of additional reserved words.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12542 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12543 (defconst vhdl-font-lock-keywords-5 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12544 ;; background highlight translate-off regions |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12545 '((vhdl-match-translate-off (0 vhdl-translate-off-face append))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12546 "For consideration as a value of `vhdl-font-lock-keywords'. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12547 This does background highlighting of translate-off regions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12548 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12549 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 12550 ;; Font and color definitions |
12551 | |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12552 (defvar vhdl-prompt-face 'vhdl-prompt |
20665 | 12553 "Face name to use for prompts.") |
12554 | |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12555 (defvar vhdl-attribute-face 'vhdl-attribute |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12556 "Face name to use for standardized attributes.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12557 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12558 (defvar vhdl-enumvalue-face 'vhdl-enumvalue |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12559 "Face name to use for standardized enumeration values.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12560 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12561 (defvar vhdl-function-face 'vhdl-function |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12562 "Face name to use for standardized functions and packages.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12563 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12564 (defvar vhdl-directive-face 'vhdl-directive |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12565 "Face name to use for directives.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12566 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12567 (defvar vhdl-reserved-words-face 'vhdl-reserved-words |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12568 "Face name to use for additional reserved words.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12569 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12570 (defvar vhdl-translate-off-face 'vhdl-translate-off |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12571 "Face name to use for translate-off regions.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12572 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12573 ;; face names to use for words with special syntax. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12574 (let ((syntax-alist vhdl-special-syntax-alist) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12575 name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12576 (while syntax-alist |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12577 (setq name (vhdl-function-name "vhdl" (nth 0 (car syntax-alist)))) |
26464 | 12578 (eval `(defvar ,name ',name |
12579 ,(concat "Face name to use for " | |
12580 (nth 0 (car syntax-alist)) "."))) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12581 (setq syntax-alist (cdr syntax-alist)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12582 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12583 (defgroup vhdl-highlight-faces nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12584 "Faces for highlighting." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12585 :group 'vhdl-highlight) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12586 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12587 ;; add faces used from `font-lock' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12588 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12589 'vhdl-highlight-faces 'font-lock-comment-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12590 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12591 'vhdl-highlight-faces 'font-lock-string-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12592 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12593 'vhdl-highlight-faces 'font-lock-keyword-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12594 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12595 'vhdl-highlight-faces 'font-lock-type-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12596 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12597 'vhdl-highlight-faces 'font-lock-function-name-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12598 (custom-add-to-group |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12599 'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12600 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12601 (defface vhdl-prompt |
63428
252224857a7b
(vhdl-speedbar-place-component): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
62917
diff
changeset
|
12602 '((((min-colors 88) (class color) (background light)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
12603 (:foreground "Red1" :bold t)) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
12604 (((class color) (background light)) (:foreground "Red" :bold t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12605 (((class color) (background dark)) (:foreground "Pink" :bold t)) |
20665 | 12606 (t (:inverse-video t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12607 "Font lock mode face used to highlight prompts." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12608 :group 'vhdl-highlight-faces |
20665 | 12609 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12610 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12611 (put 'vhdl-font-lock-prompt-face 'face-alias 'vhdl-prompt) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12612 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12613 (defface vhdl-attribute |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12614 '((((class color) (background light)) (:foreground "Orchid")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12615 (((class color) (background dark)) (:foreground "LightSteelBlue")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12616 (t (:italic t :bold t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12617 "Font lock mode face used to highlight standardized attributes." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12618 :group 'vhdl-highlight-faces |
20665 | 12619 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12620 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12621 (put 'vhdl-font-lock-attribute-face 'face-alias 'vhdl-attribute) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12622 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12623 (defface vhdl-enumvalue |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12624 '((((class color) (background light)) (:foreground "SaddleBrown")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12625 (((class color) (background dark)) (:foreground "BurlyWood")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12626 (t (:italic t :bold t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12627 "Font lock mode face used to highlight standardized enumeration values." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12628 :group 'vhdl-highlight-faces |
20665 | 12629 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12630 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12631 (put 'vhdl-font-lock-enumvalue-face 'face-alias 'vhdl-enumvalue) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12632 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12633 (defface vhdl-function |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12634 '((((class color) (background light)) (:foreground "Cyan4")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12635 (((class color) (background dark)) (:foreground "Orchid1")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12636 (t (:italic t :bold t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12637 "Font lock mode face used to highlight standardized functions and packages." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12638 :group 'vhdl-highlight-faces |
20665 | 12639 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12640 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12641 (put 'vhdl-font-lock-function-face 'face-alias 'vhdl-function) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12642 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12643 (defface vhdl-directive |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12644 '((((class color) (background light)) (:foreground "CadetBlue")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12645 (((class color) (background dark)) (:foreground "Aquamarine")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12646 (t (:italic t :bold t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12647 "Font lock mode face used to highlight directives." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12648 :group 'vhdl-highlight-faces |
20665 | 12649 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12650 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12651 (put 'vhdl-font-lock-directive-face 'face-alias 'vhdl-directive) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12652 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12653 (defface vhdl-reserved-word |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12654 '((((class color) (background light)) (:foreground "Orange" :bold t)) |
63428
252224857a7b
(vhdl-speedbar-place-component): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
62917
diff
changeset
|
12655 (((min-colors 88) (class color) (background dark)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
12656 (:foreground "Yellow1" :bold t)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12657 (((class color) (background dark)) (:foreground "Yellow" :bold t)) |
20665 | 12658 (t ())) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12659 "Font lock mode face used to highlight additional reserved words." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12660 :group 'vhdl-highlight-faces |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12661 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12662 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12663 (put 'vhdl-font-lock-reserved-words-face 'face-alias 'vhdl-reserved-word) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12664 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12665 (defface vhdl-translate-off |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12666 '((((class color) (background light)) (:background "LightGray")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12667 (((class color) (background dark)) (:background "DimGray")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12668 (t ())) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12669 "Font lock mode face used to background highlight translate-off regions." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12670 :group 'vhdl-highlight-faces |
20665 | 12671 :group 'font-lock-highlighting-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12672 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12673 (put 'vhdl-font-lock-translate-off-face 'face-alias 'vhdl-translate-off) |
20665 | 12674 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12675 ;; font lock mode faces used to highlight words with special syntax. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12676 (let ((syntax-alist vhdl-special-syntax-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12677 (while syntax-alist |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12678 (eval `(defface ,(vhdl-function-name "vhdl" (caar syntax-alist)) |
26464 | 12679 '((((class color) (background light)) |
12680 (:foreground ,(nth 2 (car syntax-alist)))) | |
12681 (((class color) (background dark)) | |
12682 (:foreground ,(nth 3 (car syntax-alist)))) | |
12683 (t ())) | |
12684 ,(concat "Font lock mode face used to highlight " | |
12685 (nth 0 (car syntax-alist)) ".") | |
12686 :group 'vhdl-highlight-faces | |
12687 :group 'font-lock-highlighting-faces)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12688 (setq syntax-alist (cdr syntax-alist)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12689 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12690 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 12691 ;; Font lock initialization |
12692 | |
12693 (defun vhdl-font-lock-init () | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12694 "Initialize fontification." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12695 ;; highlight template prompts and directives |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12696 (setq vhdl-font-lock-keywords-0 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12697 (list (list (concat "\\(^\\|[ \t(.']\\)\\(<" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12698 vhdl-template-prompt-syntax ">\\)") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12699 2 'vhdl-prompt t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12700 (list (concat "--\\s-*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12701 vhdl-directive-keywords-regexp "\\s-+\\(.*\\)$") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12702 2 'vhdl-directive t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12703 ;; highlight keywords and standardized types, attributes, enumeration |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12704 ;; values, and subprograms |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12705 (setq vhdl-font-lock-keywords-1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12706 (list |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12707 (list (concat "'" vhdl-attributes-regexp) 1 'vhdl-attribute) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12708 (list vhdl-types-regexp 1 'font-lock-type-face) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12709 (list vhdl-functions-regexp 1 'vhdl-function) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12710 (list vhdl-packages-regexp 1 'vhdl-function) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12711 (list vhdl-enum-values-regexp 1 'vhdl-enumvalue) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12712 (list vhdl-keywords-regexp 1 'font-lock-keyword-face))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12713 ;; highlight words with special syntax. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12714 (setq vhdl-font-lock-keywords-3 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12715 (let ((syntax-alist vhdl-special-syntax-alist) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12716 keywords) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12717 (while syntax-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12718 (setq keywords |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12719 (cons |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12720 (cons (concat "\\<\\(" (nth 1 (car syntax-alist)) "\\)\\>") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12721 (vhdl-function-name |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12722 "vhdl" (nth 0 (car syntax-alist)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12723 keywords)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12724 (setq syntax-alist (cdr syntax-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12725 keywords)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12726 ;; highlight additional reserved words |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12727 (setq vhdl-font-lock-keywords-4 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12728 (list (list vhdl-reserved-words-regexp 1 'vhdl-reserved-word))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12729 ;; highlight everything together |
20665 | 12730 (setq vhdl-font-lock-keywords |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12731 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12732 vhdl-font-lock-keywords-0 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12733 (when vhdl-highlight-keywords vhdl-font-lock-keywords-1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12734 (when (or vhdl-highlight-forbidden-words |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12735 vhdl-highlight-verilog-keywords) vhdl-font-lock-keywords-4) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12736 (when vhdl-highlight-special-words vhdl-font-lock-keywords-3) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12737 (when vhdl-highlight-names vhdl-font-lock-keywords-2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12738 (when vhdl-highlight-translate-off vhdl-font-lock-keywords-5)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12739 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12740 ;; initialize fontification for VHDL Mode |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12741 (vhdl-font-lock-init) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12742 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12743 (defun vhdl-fontify-buffer () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12744 "Re-initialize fontification and fontify buffer." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12745 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12746 (setq font-lock-defaults |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12747 (list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12748 'vhdl-font-lock-keywords nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12749 (not vhdl-highlight-case-sensitive) '((?\_ . "w")) 'beginning-of-line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12750 '(font-lock-syntactic-keywords . vhdl-font-lock-syntactic-keywords))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12751 (when (fboundp 'font-lock-unset-defaults) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12752 (font-lock-unset-defaults)) ; not implemented in XEmacs |
62551
428c1f634761
(vhdl-font-lock-match-item): Simplify regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62402
diff
changeset
|
12753 (font-lock-set-defaults) ;What for? --Stef |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12754 (font-lock-mode nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12755 (font-lock-mode t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12756 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12757 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12758 ;; Initialization for postscript printing |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12759 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12760 (defun vhdl-ps-print-settings () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12761 "Initialize custom face and page settings for postscript printing." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12762 ;; define custom face settings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12763 (unless (or (not vhdl-print-customize-faces) |
20665 | 12764 ps-print-color-p) |
12765 (set (make-local-variable 'ps-bold-faces) | |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12766 '(font-lock-keyword-face font-lock-type-face |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12767 vhdl-attribute vhdl-enumvalue vhdl-directive)) |
20665 | 12768 (set (make-local-variable 'ps-italic-faces) |
12769 '(font-lock-comment-face | |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12770 font-lock-function-name-face font-lock-type-face |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
12771 vhdl-attribute vhdl-enumvalue vhdl-directive)) |
20665 | 12772 (set (make-local-variable 'ps-underlined-faces) |
12773 '(font-lock-string-face)) | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12774 (setq ps-always-build-face-reference t)) |
20665 | 12775 ;; define page settings, so that a line containing 79 characters (default) |
12776 ;; fits into one column | |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12777 (when vhdl-print-two-column |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12778 (set (make-local-variable 'ps-landscape-mode) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12779 (set (make-local-variable 'ps-number-of-columns) 2) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12780 (set (make-local-variable 'ps-font-size) 7.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12781 (set (make-local-variable 'ps-header-title-font-size) 10.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12782 (set (make-local-variable 'ps-header-font-size) 9.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12783 (set (make-local-variable 'ps-header-offset) 12.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12784 (when (eq ps-paper-type 'letter) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12785 (set (make-local-variable 'ps-inter-column) 40.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12786 (set (make-local-variable 'ps-left-margin) 40.0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12787 (set (make-local-variable 'ps-right-margin) 40.0)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12788 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12789 (defun vhdl-ps-print-init () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12790 "Initialize postscript printing." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12791 (if vhdl-xemacs |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12792 (when (boundp 'ps-print-color-p) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12793 (vhdl-ps-print-settings)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12794 (make-local-variable 'ps-print-hook) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12795 (add-hook 'ps-print-hook 'vhdl-ps-print-settings))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12796 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12797 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12798 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12799 ;;; Hierarchy browser (using `speedbar.el') |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12800 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12801 ;; Allows displaying the hierarchy of all VHDL design units contained in a |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12802 ;; directory by using the speedbar. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12803 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12804 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12805 ;; Variables |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12806 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12807 (defvar vhdl-entity-alist nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12808 "Cache with entities and corresponding architectures for each |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12809 project/directory.") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12810 ;; structure: (parenthesised expression means list of such entries) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12811 ;; (cache-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12812 ;; (ent-key ent-name ent-file ent-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12813 ;; (arch-key arch-name arch-file arch-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12814 ;; (inst-key inst-name inst-file inst-line inst-comp-name inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12815 ;; inst-arch-key inst-conf-key inst-lib-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12816 ;; (lib-name pack-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12817 ;; (lib-name pack-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12818 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12819 (defvar vhdl-config-alist nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12820 "Cache with configurations for each project/directory.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12821 ;; structure: (parenthesised expression means list of such entries) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12822 ;; (cache-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12823 ;; (conf-key conf-name conf-file conf-line ent-key arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12824 ;; (inst-key inst-comp-name inst-ent-key inst-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12825 ;; inst-conf-key inst-lib-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12826 ;; (lib-name pack-key))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12827 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12828 (defvar vhdl-package-alist nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12829 "Cache with packages for each project/directory.") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12830 ;; structure: (parenthesised expression means list of such entries) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12831 ;; (cache-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12832 ;; (pack-key pack-name pack-file pack-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12833 ;; (comp-key comp-name comp-file comp-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12834 ;; (func-key func-name func-file func-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12835 ;; (lib-name pack-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12836 ;; pack-body-file pack-body-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12837 ;; (func-key func-name func-body-file func-body-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12838 ;; (lib-name pack-key))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12839 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12840 (defvar vhdl-ent-inst-alist nil |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12841 "Cache with instantiated entities for each project/directory.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12842 ;; structure: (parenthesised expression means list of such entries) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12843 ;; (cache-key (inst-ent-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12844 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12845 (defvar vhdl-file-alist nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12846 "Cache with design units in each file for each project/directory.") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12847 ;; structure: (parenthesised expression means list of such entries) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12848 ;; (cache-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12849 ;; (file-name (ent-list) (arch-list) (arch-ent-list) (conf-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12850 ;; (pack-list) (pack-body-list) (inst-list) (inst-ent-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12851 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12852 (defvar vhdl-directory-alist nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12853 "Cache with source directories for each project.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12854 ;; structure: (parenthesised expression means list of such entries) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12855 ;; (cache-key (directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12856 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12857 (defvar vhdl-speedbar-shown-unit-alist nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12858 "Alist of design units simultaneously open in the current speedbar for each |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12859 directory and project.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12860 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12861 (defvar vhdl-speedbar-shown-project-list nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12862 "List of projects simultaneously open in the current speedbar.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12863 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12864 (defvar vhdl-updated-project-list nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12865 "List of projects and directories with updated files.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12866 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12867 (defvar vhdl-modified-file-list nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12868 "List of modified files to be rescanned for hierarchy updating.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12869 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12870 (defvar vhdl-speedbar-hierarchy-depth 0 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12871 "Depth of instantiation hierarchy to display.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12872 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12873 (defvar vhdl-speedbar-show-projects nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12874 "Non-nil means project hierarchy is displayed in speedbar, directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12875 hierarchy otherwise.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12876 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12877 (defun vhdl-get-end-of-unit () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12878 "Return position of end of current unit." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12879 (let ((pos (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12880 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12881 (while (and (re-search-forward "^[ \t]*\\(architecture\\|configuration\\|entity\\|package\\)\\>" nil 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12882 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12883 (goto-char (match-beginning 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12884 (vhdl-backward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12885 (and (/= (preceding-char) ?\;) (not (bobp)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12886 (re-search-backward "^[ \t]*end\\>" pos 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12887 (point)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12888 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12889 (defun vhdl-match-string-downcase (num &optional string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12890 "Like `match-string-no-properties' with down-casing." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12891 (let ((match (match-string-no-properties num string))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12892 (and match (downcase match)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12893 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12894 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12895 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12896 ;; Scan functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12897 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12898 (defun vhdl-scan-context-clause () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12899 "Scan the context clause that preceeds a design unit." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12900 (let (lib-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12901 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12902 (when (re-search-backward "^[ \t]*\\(architecture\\|configuration\\|entity\\|package\\)\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12903 (while (and (re-search-backward "^[ \t]*\\(end\\|use\\)\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12904 (equal "USE" (upcase (match-string 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12905 (when (looking-at "^[ \t]*use[ \t\n]*\\(\\w+\\)\\.\\(\\w+\\)\\.\\w+") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12906 (setq lib-alist (cons (cons (match-string-no-properties 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12907 (vhdl-match-string-downcase 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12908 lib-alist)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12909 lib-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12910 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12911 (defun vhdl-scan-directory-contents (name &optional project update num-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12912 non-final) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12913 "Scan contents of VHDL files in directory or file pattern DIR-NAME." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12914 (string-match "\\(.*[/\\]\\)\\(.*\\)" name) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12915 ; (unless (file-directory-p (match-string 1 name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12916 ; (message "No such directory: \"%s\"" (match-string 1 name))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12917 (let* ((dir-name (match-string 1 name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12918 (file-pattern (match-string 2 name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12919 (is-directory (= 0 (length file-pattern))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12920 (file-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12921 (if update |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12922 (list name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12923 (if is-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12924 (vhdl-get-source-files t dir-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12925 (vhdl-directory-files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12926 dir-name t (wildcard-to-regexp file-pattern))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12927 (key (or project dir-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12928 (file-exclude-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12929 (or (nth 3 (aget vhdl-project-alist project)) "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12930 (limit-design-file-size (nth 0 vhdl-speedbar-scan-limit)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12931 (limit-hier-file-size (nth 0 (nth 1 vhdl-speedbar-scan-limit))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12932 (limit-hier-inst-no (nth 1 (nth 1 vhdl-speedbar-scan-limit))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12933 ent-alist conf-alist pack-alist ent-inst-list file-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12934 tmp-list tmp-entry no-files files-exist big-files) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12935 (when (or project update) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12936 (setq ent-alist (aget vhdl-entity-alist key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12937 conf-alist (aget vhdl-config-alist key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12938 pack-alist (aget vhdl-package-alist key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12939 ent-inst-list (car (aget vhdl-ent-inst-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12940 file-alist (aget vhdl-file-alist key t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12941 (when (and (not is-directory) (null file-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12942 (message "No such file: \"%s\"" name)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12943 (setq files-exist file-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12944 (when file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12945 (setq no-files (length file-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12946 (message "Scanning %s %s\"%s\"..." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12947 (if is-directory "directory" "files") (or num-string "") name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12948 ;; exclude files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12949 (unless (equal file-exclude-regexp "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12950 (let ((case-fold-search nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12951 file-tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12952 (while file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12953 (unless (string-match file-exclude-regexp (car file-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12954 (setq file-tmp-list (cons (car file-list) file-tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12955 (setq file-list (cdr file-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12956 (setq file-list (nreverse file-tmp-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12957 ;; do for all files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12958 (while file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12959 (unless noninteractive |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12960 (message "Scanning %s %s\"%s\"... (%2d%s)" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12961 (if is-directory "directory" "files") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
12962 (or num-string "") name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12963 (/ (* 100 (- no-files (length file-list))) no-files) "%")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12964 (let ((file-name (abbreviate-file-name (car file-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12965 ent-list arch-list arch-ent-list conf-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12966 pack-list pack-body-list inst-list inst-ent-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12967 ;; scan file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12968 (vhdl-visit-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12969 file-name nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12970 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12971 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12972 ;; scan for design units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12973 (if (and limit-design-file-size |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12974 (< limit-design-file-size (buffer-size))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12975 (progn (message "WARNING: Scan limit (design units: file size) reached in file:\n \"%s\"" file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12976 (setq big-files t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12977 ;; scan for entities |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12978 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12979 (while (re-search-forward "^[ \t]*entity[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12980 (let* ((ent-name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12981 (ent-key (downcase ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12982 (ent-entry (aget ent-alist ent-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12983 (arch-alist (nth 3 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12984 (lib-alist (vhdl-scan-context-clause))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12985 (if (nth 1 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12986 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12987 "Entity declared twice (used 1.): \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12988 ent-name (nth 1 ent-entry) (nth 2 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12989 file-name (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12990 (setq ent-list (cons ent-key ent-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12991 (aput 'ent-alist ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12992 (list ent-name file-name (vhdl-current-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12993 arch-alist lib-alist))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12994 ;; scan for architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12995 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12996 (while (re-search-forward "^[ \t]*architecture[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12997 (let* ((arch-name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12998 (arch-key (downcase arch-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
12999 (ent-name (match-string-no-properties 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13000 (ent-key (downcase ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13001 (ent-entry (aget ent-alist ent-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13002 (arch-alist (nth 3 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13003 (arch-entry (aget arch-alist arch-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13004 (lib-arch-alist (vhdl-scan-context-clause))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13005 (if arch-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13006 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13007 "Architecture declared twice (used 1.): \"%s\" of \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13008 arch-name ent-name (nth 1 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13009 (nth 2 arch-entry) file-name (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13010 (setq arch-list (cons arch-key arch-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13011 arch-ent-list (cons ent-key arch-ent-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13012 (aput 'arch-alist arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13013 (list arch-name file-name (vhdl-current-line) nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13014 lib-arch-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13015 (aput 'ent-alist ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13016 (list (or (nth 0 ent-entry) ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13017 (nth 1 ent-entry) (nth 2 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13018 (vhdl-sort-alist arch-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13019 (nth 4 ent-entry)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13020 ;; scan for configurations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13021 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13022 (while (re-search-forward "^[ \t]*configuration[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13023 (let* ((conf-name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13024 (conf-key (downcase conf-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13025 (conf-entry (aget conf-alist conf-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13026 (ent-name (match-string-no-properties 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13027 (ent-key (downcase ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13028 (lib-alist (vhdl-scan-context-clause)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13029 (conf-line (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13030 (end-of-unit (vhdl-get-end-of-unit)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13031 arch-key comp-conf-list inst-key-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13032 inst-comp-key inst-ent-key inst-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13033 inst-conf-key inst-lib-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13034 (when (vhdl-re-search-forward "\\<for[ \t\n]+\\(\\w+\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13035 (setq arch-key (vhdl-match-string-downcase 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13036 (if conf-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13037 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13038 "Configuration declared twice (used 1.): \"%s\" of \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13039 conf-name ent-name (nth 1 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13040 (nth 2 conf-entry) file-name conf-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13041 (setq conf-list (cons conf-key conf-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13042 ;; scan for subconfigurations and subentities |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13043 (while (re-search-forward "^[ \t]*for[ \t\n]+\\(\\w+\\([ \t\n]*,[ \t\n]*\\w+\\)*\\)[ \t\n]*:[ \t\n]*\\(\\w+\\)[ \t\n]+" end-of-unit t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13044 (setq inst-comp-key (vhdl-match-string-downcase 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13045 inst-key-list (split-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13046 (vhdl-match-string-downcase 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13047 "[ \t\n]*,[ \t\n]*")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13048 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13049 (when (looking-at "use[ \t\n]+\\(\\(entity\\)\\|configuration\\)[ \t\n]+\\(\\w+\\)\\.\\(\\w+\\)[ \t\n]*\\((\\(\\w+\\))\\)?") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13050 (setq |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13051 inst-lib-key (vhdl-match-string-downcase 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13052 inst-ent-key (and (match-string 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13053 (vhdl-match-string-downcase 4)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13054 inst-arch-key (and (match-string 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13055 (vhdl-match-string-downcase 6)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13056 inst-conf-key (and (not (match-string 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13057 (vhdl-match-string-downcase 4))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13058 (while inst-key-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13059 (setq comp-conf-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13060 (cons (list (car inst-key-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13061 inst-comp-key inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13062 inst-arch-key inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13063 inst-lib-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13064 comp-conf-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13065 (setq inst-key-list (cdr inst-key-list))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13066 (aput 'conf-alist conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13067 (list conf-name file-name conf-line ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13068 arch-key comp-conf-list lib-alist))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13069 ;; scan for packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13070 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13071 (while (re-search-forward "^[ \t]*package[ \t\n]+\\(body[ \t\n]+\\)?\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13072 (let* ((pack-name (match-string-no-properties 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13073 (pack-key (downcase pack-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13074 (is-body (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13075 (pack-entry (aget pack-alist pack-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13076 (pack-line (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13077 (end-of-unit (vhdl-get-end-of-unit)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13078 comp-name func-name comp-alist func-alist lib-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13079 (if (if is-body (nth 6 pack-entry) (nth 1 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13080 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13081 "Package%s declared twice (used 1.): \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13082 (if is-body " body" "") pack-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13083 (if is-body (nth 6 pack-entry) (nth 1 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13084 (if is-body (nth 7 pack-entry) (nth 2 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13085 file-name (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13086 ;; scan for context clauses |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13087 (setq lib-alist (vhdl-scan-context-clause)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13088 ;; scan for component and subprogram declarations/bodies |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13089 (while (re-search-forward "^[ \t]*\\(component\\|function\\|procedure\\)[ \t\n]+\\(\\w+\\|\".*\"\\)" end-of-unit t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13090 (if (equal (upcase (match-string 1)) "COMPONENT") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13091 (setq comp-name (match-string-no-properties 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13092 comp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13093 (cons (list (downcase comp-name) comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13094 file-name (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13095 comp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13096 (setq func-name (match-string-no-properties 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13097 func-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13098 (cons (list (downcase func-name) func-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13099 file-name (vhdl-current-line)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13100 func-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13101 (setq func-alist (nreverse func-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13102 (setq comp-alist (nreverse comp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13103 (if is-body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13104 (setq pack-body-list (cons pack-key pack-body-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13105 (setq pack-list (cons pack-key pack-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13106 (aput |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13107 'pack-alist pack-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13108 (if is-body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13109 (list (or (nth 0 pack-entry) pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13110 (nth 1 pack-entry) (nth 2 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13111 (nth 3 pack-entry) (nth 4 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13112 (nth 5 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13113 file-name pack-line func-alist lib-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13114 (list pack-name file-name pack-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13115 comp-alist func-alist lib-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13116 (nth 6 pack-entry) (nth 7 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13117 (nth 8 pack-entry) (nth 9 pack-entry)))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13118 ;; scan for hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13119 (if (and limit-hier-file-size |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13120 (< limit-hier-file-size (buffer-size))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13121 (progn (message "WARNING: Scan limit (hierarchy: file size) reached in file:\n \"%s\"" file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13122 (setq big-files t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13123 ;; scan for architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13124 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13125 (while (re-search-forward "^[ \t]*architecture[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13126 (let* ((ent-name (match-string-no-properties 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13127 (ent-key (downcase ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13128 (arch-name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13129 (arch-key (downcase arch-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13130 (ent-entry (aget ent-alist ent-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13131 (arch-alist (nth 3 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13132 (arch-entry (aget arch-alist arch-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13133 (beg-of-unit (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13134 (end-of-unit (vhdl-get-end-of-unit)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13135 (inst-no 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13136 inst-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13137 ;; scan for contained instantiations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13138 (while (and (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13139 (concat "^[ \t]*\\(\\w+\\)[ \t\n]*:[ \t\n]*\\(" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13140 "\\(\\w+\\)[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(generic\\|port\\)[ \t\n]+map\\>\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13141 "component[ \t\n]+\\(\\w+\\)\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13142 "\\(\\(entity\\)\\|configuration\\)[ \t\n]+\\(\\(\\w+\\)\\.\\)?\\(\\w+\\)\\([ \t\n]*(\\(\\w+\\))\\)?\\)") end-of-unit t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13143 (or (not limit-hier-inst-no) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13144 (<= (setq inst-no (1+ inst-no)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13145 limit-hier-inst-no))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13146 (let* ((inst-name (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13147 (inst-key (downcase inst-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13148 (inst-comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13149 (or (match-string-no-properties 3) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13150 (match-string-no-properties 6))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13151 (inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13152 (or (and (match-string 8) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13153 (vhdl-match-string-downcase 11)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13154 (and inst-comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13155 (downcase inst-comp-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13156 (inst-arch-key (vhdl-match-string-downcase 13)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13157 (inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13158 (and (not (match-string 8)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13159 (vhdl-match-string-downcase 11))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13160 (inst-lib-key (vhdl-match-string-downcase 10))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13161 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13162 (setq inst-list (cons inst-key inst-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13163 inst-ent-list (cons inst-ent-key inst-ent-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13164 (setq inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13165 (append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13166 inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13167 (list (list inst-key inst-name file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13168 (vhdl-current-line) inst-comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13169 inst-ent-key inst-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13170 inst-conf-key inst-lib-key)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13171 ;; scan for contained configuration specifications |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13172 (goto-char beg-of-unit) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13173 (while (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13174 (concat "^[ \t]*for[ \t\n]+\\(\\w+\\([ \t\n]*,[ \t\n]*\\w+\\)*\\)[ \t\n]*:[ \t\n]*\\(\\w+\\)[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13175 "use[ \t\n]+\\(\\(entity\\)\\|configuration\\)[ \t\n]+\\(\\(\\w+\\)\\.\\)?\\(\\w+\\)\\([ \t\n]*(\\(\\w+\\))\\)?") end-of-unit t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13176 (let* ((inst-comp-name (match-string-no-properties 3)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13177 (inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13178 (and (match-string 6) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13179 (vhdl-match-string-downcase 9))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13180 (inst-arch-key (vhdl-match-string-downcase 11)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13181 (inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13182 (and (not (match-string 6)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13183 (vhdl-match-string-downcase 9))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13184 (inst-lib-key (vhdl-match-string-downcase 8)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13185 (inst-key-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13186 (split-string (vhdl-match-string-downcase 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13187 "[ \t\n]*,[ \t\n]*")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13188 (tmp-inst-alist inst-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13189 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13190 (while tmp-inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13191 (when (and (or (equal "all" (car inst-key-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13192 (member (nth 0 (car tmp-inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13193 inst-key-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13194 (equal |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13195 (downcase |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13196 (or (nth 4 (car tmp-inst-alist)) "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13197 (downcase inst-comp-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13198 (setq inst-entry (car tmp-inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13199 (setq inst-ent-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13200 (cons (or inst-ent-key (nth 5 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13201 (vhdl-delete |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13202 (nth 5 inst-entry) inst-ent-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13203 (setq inst-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13204 (list (nth 0 inst-entry) (nth 1 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13205 (nth 2 inst-entry) (nth 3 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13206 (nth 4 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13207 (or inst-ent-key (nth 5 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13208 (or inst-arch-key (nth 6 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13209 inst-conf-key inst-lib-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13210 (setcar tmp-inst-alist inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13211 (setq tmp-inst-alist (cdr tmp-inst-alist))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13212 ;; save in cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13213 (aput 'arch-alist arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13214 (list (nth 0 arch-entry) (nth 1 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13215 (nth 2 arch-entry) inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13216 (nth 4 arch-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13217 (aput 'ent-alist ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13218 (list (nth 0 ent-entry) (nth 1 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13219 (nth 2 ent-entry) (vhdl-sort-alist arch-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13220 (nth 4 ent-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13221 (when (and limit-hier-inst-no |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13222 (> inst-no limit-hier-inst-no)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13223 (message "WARNING: Scan limit (hierarchy: instances per architecture) reached in file:\n \"%s\"" file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13224 (setq big-files t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13225 (goto-char end-of-unit)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13226 ;; remember design units for this file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13227 (aput 'file-alist file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13228 (list ent-list arch-list arch-ent-list conf-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13229 pack-list pack-body-list inst-list inst-ent-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13230 (setq ent-inst-list (append inst-ent-list ent-inst-list)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13231 (setq file-list (cdr file-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13232 (when (or (and (not project) files-exist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13233 (and project (not non-final))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13234 ;; consistency checks: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13235 ;; check whether each architecture has a corresponding entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13236 (setq tmp-list ent-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13237 (while tmp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13238 (when (null (nth 2 (car tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13239 (setq tmp-entry (car (nth 4 (car tmp-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13240 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13241 "Architecture of non-existing entity: \"%s\" of \"%s\"\n in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13242 (nth 1 tmp-entry) (nth 1 (car tmp-list)) (nth 2 tmp-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13243 (nth 3 tmp-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13244 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13245 ;; check whether configuration has a corresponding entity/architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13246 (setq tmp-list conf-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13247 (while tmp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13248 (if (setq tmp-entry (aget ent-alist (nth 4 (car tmp-list)) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13249 (unless (aget (nth 3 tmp-entry) (nth 5 (car tmp-list)) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13250 (setq tmp-entry (car tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13251 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13252 "Configuration of non-existing architecture: \"%s\" of \"%s(%s)\"\n in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13253 (nth 1 tmp-entry) (nth 4 tmp-entry) (nth 5 tmp-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13254 (nth 2 tmp-entry) (nth 3 tmp-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13255 (setq tmp-entry (car tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13256 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13257 "Configuration of non-existing entity: \"%s\" of \"%s\"\n in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13258 (nth 1 tmp-entry) (nth 4 tmp-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13259 (nth 2 tmp-entry) (nth 3 tmp-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13260 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13261 ;; check whether each package body has a package declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13262 (setq tmp-list pack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13263 (while tmp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13264 (when (null (nth 2 (car tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13265 (setq tmp-entry (car tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13266 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13267 "Package body of non-existing package: \"%s\"\n in \"%s\" (line %d)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13268 (nth 1 tmp-entry) (nth 7 tmp-entry) (nth 8 tmp-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13269 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13270 ;; sort lists |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13271 (setq ent-alist (vhdl-sort-alist ent-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13272 (setq conf-alist (vhdl-sort-alist conf-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13273 (setq pack-alist (vhdl-sort-alist pack-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13274 ;; remember updated directory/project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13275 (add-to-list 'vhdl-updated-project-list (or project dir-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13276 ;; clear directory alists |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13277 (unless project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13278 (adelete 'vhdl-entity-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13279 (adelete 'vhdl-config-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13280 (adelete 'vhdl-package-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13281 (adelete 'vhdl-ent-inst-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13282 (adelete 'vhdl-file-alist key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13283 ;; put directory contents into cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13284 (aput 'vhdl-entity-alist key ent-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13285 (aput 'vhdl-config-alist key conf-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13286 (aput 'vhdl-package-alist key pack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13287 (aput 'vhdl-ent-inst-alist key (list ent-inst-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13288 (aput 'vhdl-file-alist key file-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13289 ;; final messages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13290 (message "Scanning %s %s\"%s\"...done" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13291 (if is-directory "directory" "files") (or num-string "") name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13292 (unless project (message "Scanning directory...done")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13293 (when big-files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13294 (vhdl-warning-when-idle "Scanning is incomplete.\n --> see user option `vhdl-speedbar-scan-limit'")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13295 ;; save cache when scanned non-interactively |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13296 (when (or (not project) (not non-final)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13297 (when (and noninteractive vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13298 (vhdl-save-cache key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13299 t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13300 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13301 (defun vhdl-scan-project-contents (project) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13302 "Scan the contents of all VHDL files found in the directories and files |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13303 of PROJECT." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13304 (let ((dir-list (or (nth 2 (aget vhdl-project-alist project)) '(""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13305 (default-dir (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13306 (nth 1 (aget vhdl-project-alist project)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13307 (file-exclude-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13308 (or (nth 3 (aget vhdl-project-alist project)) "")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13309 dir-list-tmp dir dir-name num-dir act-dir recursive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13310 ;; clear project alists |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13311 (adelete 'vhdl-entity-alist project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13312 (adelete 'vhdl-config-alist project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13313 (adelete 'vhdl-package-alist project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13314 (adelete 'vhdl-ent-inst-alist project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13315 (adelete 'vhdl-file-alist project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13316 ;; expand directory names by default-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13317 (message "Collecting source files...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13318 (while dir-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13319 (setq dir (vhdl-resolve-env-variable (car dir-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13320 (string-match "\\(\\(-r \\)?\\)\\(.*\\)" dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13321 (setq recursive (match-string 1 dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13322 dir-name (match-string 3 dir)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13323 (setq dir-list-tmp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13324 (cons (concat recursive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13325 (if (file-name-absolute-p dir-name) "" default-dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13326 dir-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13327 dir-list-tmp)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13328 (setq dir-list (cdr dir-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13329 ;; resolve path wildcards |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13330 (setq dir-list-tmp (vhdl-resolve-paths dir-list-tmp)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13331 ;; expand directories |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13332 (while dir-list-tmp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13333 (setq dir (car dir-list-tmp)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13334 ;; get subdirectories |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13335 (if (string-match "-r \\(.*[/\\]\\)" dir) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13336 (setq dir-list (append dir-list (vhdl-get-subdirs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13337 (match-string 1 dir)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13338 (setq dir-list (append dir-list (list dir)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13339 (setq dir-list-tmp (cdr dir-list-tmp))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13340 ;; exclude files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13341 (unless (equal file-exclude-regexp "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13342 (let ((case-fold-search nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13343 (while dir-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13344 (unless (string-match file-exclude-regexp (car dir-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13345 (setq dir-list-tmp (cons (car dir-list) dir-list-tmp))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13346 (setq dir-list (cdr dir-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13347 (setq dir-list (nreverse dir-list-tmp)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13348 (message "Collecting source files...done") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13349 ;; scan for design units for each directory in DIR-LIST |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13350 (setq dir-list-tmp nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13351 num-dir (length dir-list) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13352 act-dir 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13353 (while dir-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13354 (setq dir-name (abbreviate-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13355 (expand-file-name (car dir-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13356 (vhdl-scan-directory-contents dir-name project nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13357 (format "(%s/%s) " act-dir num-dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13358 (cdr dir-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13359 (add-to-list 'dir-list-tmp (file-name-directory dir-name)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13360 (setq dir-list (cdr dir-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13361 act-dir (1+ act-dir))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13362 (aput 'vhdl-directory-alist project (list (nreverse dir-list-tmp))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13363 (message "Scanning project \"%s\"...done" project))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13364 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13365 (defun vhdl-update-file-contents (file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13366 "Update hierarchy information by contents of current buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13367 (setq file-name (abbreviate-file-name file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13368 (let* ((dir-name (file-name-directory file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13369 (directory-alist vhdl-directory-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13370 updated) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13371 (while directory-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13372 (when (member dir-name (nth 1 (car directory-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13373 (let* ((vhdl-project (nth 0 (car directory-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13374 (project (vhdl-project-p)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13375 (ent-alist (aget vhdl-entity-alist (or project dir-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13376 (conf-alist (aget vhdl-config-alist (or project dir-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13377 (pack-alist (aget vhdl-package-alist (or project dir-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13378 (ent-inst-list (car (aget vhdl-ent-inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13379 (or project dir-name) t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13380 (file-alist (aget vhdl-file-alist (or project dir-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13381 (file-entry (aget file-alist file-name t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13382 (ent-list (nth 0 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13383 (arch-list (nth 1 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13384 (arch-ent-list (nth 2 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13385 (conf-list (nth 3 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13386 (pack-list (nth 4 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13387 (pack-body-list (nth 5 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13388 (inst-ent-list (nth 7 file-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13389 (cache-key (or project dir-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13390 arch-alist key ent-key entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13391 ;; delete design units previously contained in this file: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13392 ;; entities |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13393 (while ent-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13394 (setq key (car ent-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13395 entry (aget ent-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13396 (when (equal file-name (nth 1 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13397 (if (nth 3 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13398 (aput 'ent-alist key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13399 (list (nth 0 entry) nil nil (nth 3 entry) nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13400 (adelete 'ent-alist key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13401 (setq ent-list (cdr ent-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13402 ;; architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13403 (while arch-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13404 (setq key (car arch-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13405 ent-key (car arch-ent-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13406 entry (aget ent-alist ent-key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13407 arch-alist (nth 3 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13408 (when (equal file-name (nth 1 (aget arch-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13409 (adelete 'arch-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13410 (if (or (nth 1 entry) arch-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13411 (aput 'ent-alist ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13412 (list (nth 0 entry) (nth 1 entry) (nth 2 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13413 arch-alist (nth 4 entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13414 (adelete 'ent-alist ent-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13415 (setq arch-list (cdr arch-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13416 arch-ent-list (cdr arch-ent-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13417 ;; configurations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13418 (while conf-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13419 (setq key (car conf-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13420 (when (equal file-name (nth 1 (aget conf-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13421 (adelete 'conf-alist key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13422 (setq conf-list (cdr conf-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13423 ;; package declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13424 (while pack-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13425 (setq key (car pack-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13426 entry (aget pack-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13427 (when (equal file-name (nth 1 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13428 (if (nth 6 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13429 (aput 'pack-alist key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13430 (list (nth 0 entry) nil nil nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13431 (nth 6 entry) (nth 7 entry) (nth 8 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13432 (nth 9 entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13433 (adelete 'pack-alist key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13434 (setq pack-list (cdr pack-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13435 ;; package bodies |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13436 (while pack-body-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13437 (setq key (car pack-body-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13438 entry (aget pack-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13439 (when (equal file-name (nth 6 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13440 (if (nth 1 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13441 (aput 'pack-alist key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13442 (list (nth 0 entry) (nth 1 entry) (nth 2 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13443 (nth 3 entry) (nth 4 entry) (nth 5 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13444 nil nil nil nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13445 (adelete 'pack-alist key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13446 (setq pack-body-list (cdr pack-body-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13447 ;; instantiated entities |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13448 (while inst-ent-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13449 (setq ent-inst-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13450 (vhdl-delete (car inst-ent-list) ent-inst-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13451 (setq inst-ent-list (cdr inst-ent-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13452 ;; update caches |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13453 (vhdl-aput 'vhdl-entity-alist cache-key ent-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13454 (vhdl-aput 'vhdl-config-alist cache-key conf-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13455 (vhdl-aput 'vhdl-package-alist cache-key pack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13456 (vhdl-aput 'vhdl-ent-inst-alist cache-key (list ent-inst-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13457 ;; scan file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13458 (vhdl-scan-directory-contents file-name project t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13459 (when (or (and vhdl-speedbar-show-projects project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13460 (and (not vhdl-speedbar-show-projects) (not project))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13461 (vhdl-speedbar-refresh project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13462 (setq updated t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13463 (setq directory-alist (cdr directory-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13464 updated)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13465 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13466 (defun vhdl-update-hierarchy () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13467 "Update directory and hierarchy information in speedbar." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13468 (let ((file-list (reverse vhdl-modified-file-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13469 updated) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13470 (when (and vhdl-speedbar-update-on-saving file-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13471 (while file-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13472 (setq updated |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13473 (or (vhdl-update-file-contents (car file-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13474 updated)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13475 (setq file-list (cdr file-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13476 (setq vhdl-modified-file-list nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13477 (when updated (message "Updating hierarchy...done"))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13478 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13479 ;; structure (parenthesised expression means list of such entries) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13480 ;; (inst-key inst-file-marker comp-ent-key comp-ent-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13481 ;; comp-arch-key comp-arch-file-marker comp-conf-key comp-conf-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13482 ;; comp-lib-name level) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13483 (defun vhdl-get-hierarchy (ent-alist conf-alist ent-key arch-key conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13484 conf-inst-alist level indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13485 &optional include-top ent-hier) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13486 "Get instantiation hierarchy beginning in architecture ARCH-KEY of |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13487 entity ENT-KEY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13488 (let* ((ent-entry (aget ent-alist ent-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13489 (arch-entry (if arch-key (aget (nth 3 ent-entry) arch-key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13490 (cdar (last (nth 3 ent-entry))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13491 (inst-alist (nth 3 arch-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13492 inst-entry inst-ent-entry inst-arch-entry inst-conf-entry comp-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13493 hier-list subcomp-list tmp-list inst-key inst-comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13494 inst-ent-key inst-arch-key inst-conf-key inst-lib-key) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13495 (when (= level 0) (message "Extract design hierarchy...")) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13496 (when include-top |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13497 (setq level (1+ level))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13498 (when (member ent-key ent-hier) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13499 (error "ERROR: Instantiation loop detected, component instantiates itself: \"%s\"" ent-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13500 ;; check configured architecture (already checked during scanning) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13501 ; (unless (or (null conf-inst-alist) (assoc arch-key (nth 3 ent-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13502 ; (vhdl-warning-when-idle "Configuration for non-existing architecture used: \"%s\"" conf-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13503 ;; process all instances |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13504 (while inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13505 (setq inst-entry (car inst-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13506 inst-key (nth 0 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13507 inst-comp-name (nth 4 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13508 inst-conf-key (nth 7 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13509 ;; search entry in configuration's instantiations list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13510 (setq tmp-list conf-inst-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13511 (while (and tmp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13512 (not (and (member (nth 0 (car tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13513 (list "all" inst-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13514 (equal (nth 1 (car tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13515 (downcase (or inst-comp-name "")))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13516 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13517 (setq inst-conf-key (or (nth 4 (car tmp-list)) inst-conf-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13518 (setq inst-conf-entry (aget conf-alist inst-conf-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13519 (when (and inst-conf-key (not inst-conf-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13520 (vhdl-warning-when-idle "Configuration not found: \"%s\"" inst-conf-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13521 ;; determine entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13522 (setq inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13523 (or (nth 2 (car tmp-list)) ; from configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13524 (nth 3 inst-conf-entry) ; from subconfiguration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13525 (nth 3 (aget conf-alist (nth 7 inst-entry) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13526 ; from configuration spec. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13527 (nth 5 inst-entry))) ; from direct instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13528 (setq inst-ent-entry (aget ent-alist inst-ent-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13529 ;; determine architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13530 (setq inst-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13531 (or (nth 3 (car tmp-list)) ; from configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13532 (nth 4 inst-conf-entry) ; from subconfiguration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13533 (nth 6 inst-entry) ; from direct instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13534 (nth 4 (aget conf-alist (nth 7 inst-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13535 ; from configuration spec. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13536 (caar (nth 3 inst-ent-entry)))) ; random (simplified MRA) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13537 (setq inst-arch-entry (aget (nth 3 inst-ent-entry) inst-arch-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13538 ;; set library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13539 (setq inst-lib-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13540 (or (nth 5 (car tmp-list)) ; from configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13541 (nth 8 inst-entry))) ; from direct instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13542 ;; gather information for this instance |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13543 (setq comp-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13544 (list (nth 1 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13545 (cons (nth 2 inst-entry) (nth 3 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13546 (or (nth 0 inst-ent-entry) (nth 4 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13547 (cons (nth 1 inst-ent-entry) (nth 2 inst-ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13548 (or (nth 0 inst-arch-entry) inst-arch-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13549 (cons (nth 1 inst-arch-entry) (nth 2 inst-arch-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13550 (or (nth 0 inst-conf-entry) inst-conf-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13551 (cons (nth 1 inst-conf-entry) (nth 2 inst-conf-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13552 inst-lib-key level)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13553 ;; get subcomponent hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13554 (setq subcomp-list (vhdl-get-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13555 ent-alist conf-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13556 inst-ent-key inst-arch-key inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13557 (nth 5 inst-conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13558 (1+ level) indent nil (cons ent-key ent-hier))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13559 ;; add to list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13560 (setq hier-list (append hier-list (list comp-entry) subcomp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13561 (setq inst-alist (cdr inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13562 (when include-top |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13563 (setq hier-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13564 (cons (list nil nil (nth 0 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13565 (cons (nth 1 ent-entry) (nth 2 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13566 (nth 0 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13567 (cons (nth 1 arch-entry) (nth 2 arch-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13568 nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13569 nil (1- level)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13570 hier-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13571 (when (or (= level 0) (and include-top (= level 1))) (message "")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13572 hier-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13573 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13574 (defun vhdl-get-instantiations (ent-key indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13575 "Get all instantiations of entity ENT-KEY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13576 (let ((ent-alist (aget vhdl-entity-alist (vhdl-speedbar-line-key indent) t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13577 arch-alist inst-alist ent-inst-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13578 ent-entry arch-entry inst-entry) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13579 (while ent-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13580 (setq ent-entry (car ent-alist)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13581 (setq arch-alist (nth 4 ent-entry)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13582 (while arch-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13583 (setq arch-entry (car arch-alist)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13584 (setq inst-alist (nth 4 arch-entry)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13585 (while inst-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13586 (setq inst-entry (car inst-alist)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13587 (when (equal ent-key (nth 5 inst-entry)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13588 (setq ent-inst-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13589 (cons (list (nth 1 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13590 (cons (nth 2 inst-entry) (nth 3 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13591 (nth 1 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13592 (cons (nth 2 ent-entry) (nth 3 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13593 (nth 1 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13594 (cons (nth 2 arch-entry) (nth 3 arch-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13595 ent-inst-list))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13596 (setq inst-alist (cdr inst-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13597 (setq arch-alist (cdr arch-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13598 (setq ent-alist (cdr ent-alist))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13599 (nreverse ent-inst-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13600 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13601 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13602 ;; Caching in file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13603 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13604 (defun vhdl-save-caches () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13605 "Save all updated hierarchy caches to file." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13606 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13607 (condition-case nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13608 (when vhdl-speedbar-save-cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13609 ;; update hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13610 (vhdl-update-hierarchy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13611 (let ((project-list vhdl-updated-project-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13612 (message "Saving hierarchy caches...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13613 ;; write updated project caches |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13614 (while project-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13615 (vhdl-save-cache (car project-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13616 (setq project-list (cdr project-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13617 (message "Saving hierarchy caches...done"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13618 (error (progn (vhdl-warning "ERROR: An error occured while saving the hierarchy caches") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13619 (sit-for 2))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13620 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13621 (defun vhdl-save-cache (key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13622 "Save current hierarchy cache to file." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13623 (let* ((orig-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13624 (vhdl-project key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13625 (project (vhdl-project-p)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13626 (default-directory key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13627 (directory (abbreviate-file-name (vhdl-default-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13628 (file-name (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13629 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13630 (cons "\\(.*\\) \\(.*\\)" vhdl-speedbar-cache-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13631 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13632 (subst-char-in-string ? ?_ (or project "dir")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13633 " " (user-login-name))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13634 (file-dir-name (expand-file-name file-name directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13635 (cache-key (or project directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13636 (key (if project "project" "directory"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13637 (unless (file-exists-p (file-name-directory file-dir-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13638 (make-directory (file-name-directory file-dir-name) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13639 (if (not (file-writable-p file-dir-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13640 (progn (vhdl-warning (format "File not writable: \"%s\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13641 (abbreviate-file-name file-dir-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13642 (sit-for 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13643 (message "Saving cache: \"%s\"" file-dir-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13644 (set-buffer (find-file-noselect file-dir-name t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13645 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13646 (insert ";; -*- Emacs-Lisp -*-\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13647 ";;; " (file-name-nondirectory file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13648 " - design hierarchy cache file for Emacs VHDL Mode " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13649 vhdl-version "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13650 (insert "\n;; " (if project "Project " "Directory") " : ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13651 (if project (insert project) (prin1 directory (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13652 (insert "\n;; Saved : " (format-time-string "%Y-%m-%d %T ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13653 (user-login-name) "\n\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13654 "\n;; version number\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13655 "(setq vhdl-cache-version \"" vhdl-version "\")\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13656 "\n;; " (if project "project" "directory") " name" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13657 "\n(setq " key " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13658 (prin1 (or project directory) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13659 (insert ")\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13660 (when (member 'hierarchy vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13661 (insert "\n;; entity and architecture cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13662 "(aput 'vhdl-entity-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13663 (print (aget vhdl-entity-alist cache-key t) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13664 (insert ")\n\n;; configuration cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13665 "(aput 'vhdl-config-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13666 (print (aget vhdl-config-alist cache-key t) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13667 (insert ")\n\n;; package cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13668 "(aput 'vhdl-package-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13669 (print (aget vhdl-package-alist cache-key t) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13670 (insert ")\n\n;; instantiated entities cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13671 "(aput 'vhdl-ent-inst-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13672 (print (aget vhdl-ent-inst-alist cache-key t) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13673 (insert ")\n\n;; design units per file cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13674 "(aput 'vhdl-file-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13675 (print (aget vhdl-file-alist cache-key t) (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13676 (when project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13677 (insert ")\n\n;; source directories in project cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13678 "(aput 'vhdl-directory-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13679 (print (aget vhdl-directory-alist cache-key t) (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13680 (insert ")\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13681 (when (member 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13682 (insert "\n;; shown design units cache\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13683 "(aput 'vhdl-speedbar-shown-unit-alist " key " '") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13684 (print (aget vhdl-speedbar-shown-unit-alist cache-key t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13685 (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13686 (insert ")\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13687 (setq vhdl-updated-project-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13688 (delete cache-key vhdl-updated-project-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13689 (save-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13690 (kill-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13691 (set-buffer orig-buffer)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13692 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13693 (defun vhdl-load-cache (key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13694 "Load hierarchy cache information from file." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13695 (let* ((vhdl-project key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13696 (default-directory key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13697 (directory (vhdl-default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13698 (file-name (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13699 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13700 (cons "\\(.*\\) \\(.*\\)" vhdl-speedbar-cache-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13701 (concat |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13702 (subst-char-in-string ? ?_ (or (vhdl-project-p) "dir")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13703 " " (user-login-name))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13704 (file-dir-name (expand-file-name file-name directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13705 vhdl-cache-version) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13706 (unless (memq 'vhdl-save-caches kill-emacs-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13707 (add-hook 'kill-emacs-hook 'vhdl-save-caches)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13708 (when (file-exists-p file-dir-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13709 (condition-case () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13710 (progn (load-file file-dir-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13711 (string< (mapconcat |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
61431
diff
changeset
|
13712 (lambda (a) (format "%3d" (string-to-number a))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13713 (split-string "3.31.14" "\\.") "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13714 (mapconcat |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
61431
diff
changeset
|
13715 (lambda (a) (format "%3d" (string-to-number a))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13716 (split-string vhdl-cache-version "\\.") ""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13717 (error (progn (vhdl-warning (format "ERROR: Corrupted cache file: \"%s\"" file-dir-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13718 nil)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13719 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13720 (defun vhdl-require-hierarchy-info () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13721 "Make sure that hierarchy information is available. Load cache or scan files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13722 if required." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13723 (if (vhdl-project-p) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13724 (unless (or (assoc vhdl-project vhdl-file-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13725 (vhdl-load-cache vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13726 (vhdl-scan-project-contents vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13727 (let ((directory (abbreviate-file-name default-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13728 (unless (or (assoc directory vhdl-file-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13729 (vhdl-load-cache directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13730 (vhdl-scan-directory-contents directory))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13731 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13732 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13733 ;; Add hierarchy browser functionality to speedbar |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13734 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13735 (defvar vhdl-speedbar-key-map nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13736 "Keymap used when in the VHDL hierarchy browser mode.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13737 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13738 (defvar vhdl-speedbar-menu-items nil |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13739 "Additional menu-items to add to speedbar frame.") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13740 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13741 (defun vhdl-speedbar-initialize () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13742 "Initialize speedbar." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13743 ;; general settings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13744 ; (set (make-local-variable 'speedbar-tag-hierarchy-method) nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13745 ;; VHDL file extensions (extracted from `auto-mode-alist') |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13746 (let ((mode-alist auto-mode-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13747 (while mode-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13748 (when (eq (cdar mode-alist) 'vhdl-mode) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13749 (speedbar-add-supported-extension (caar mode-alist))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13750 (setq mode-alist (cdr mode-alist)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13751 ;; hierarchy browser settings |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13752 (when (boundp 'speedbar-mode-functions-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13753 ;; special functions |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13754 (speedbar-add-mode-functions-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13755 '("vhdl directory" |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13756 (speedbar-item-info . vhdl-speedbar-item-info) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13757 (speedbar-line-path . speedbar-files-line-path))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13758 (speedbar-add-mode-functions-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13759 '("vhdl project" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13760 (speedbar-item-info . vhdl-speedbar-item-info) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13761 (speedbar-line-path . vhdl-speedbar-line-project))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13762 ;; keymap |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13763 (unless vhdl-speedbar-key-map |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13764 (setq vhdl-speedbar-key-map (speedbar-make-specialized-keymap)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13765 (define-key vhdl-speedbar-key-map "e" 'speedbar-edit-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13766 (define-key vhdl-speedbar-key-map "\C-m" 'speedbar-edit-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13767 (define-key vhdl-speedbar-key-map "+" 'speedbar-expand-line) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13768 (define-key vhdl-speedbar-key-map "=" 'speedbar-expand-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13769 (define-key vhdl-speedbar-key-map "-" 'vhdl-speedbar-contract-level) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13770 (define-key vhdl-speedbar-key-map "_" 'vhdl-speedbar-contract-all) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13771 (define-key vhdl-speedbar-key-map "C" 'vhdl-speedbar-port-copy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13772 (define-key vhdl-speedbar-key-map "P" 'vhdl-speedbar-place-component) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13773 (define-key vhdl-speedbar-key-map "K" 'vhdl-speedbar-make-design) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13774 (define-key vhdl-speedbar-key-map "R" 'vhdl-speedbar-rescan-hierarchy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13775 (define-key vhdl-speedbar-key-map "S" 'vhdl-save-caches) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13776 (let ((key 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13777 (while (<= key 9) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13778 (define-key vhdl-speedbar-key-map (int-to-string key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13779 `(lambda () (interactive) (vhdl-speedbar-set-depth ,key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13780 (setq key (1+ key))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13781 (define-key speedbar-key-map "h" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13782 (lambda () (interactive) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13783 (speedbar-change-initial-expansion-list "vhdl directory"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13784 (define-key speedbar-key-map "H" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13785 (lambda () (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13786 (speedbar-change-initial-expansion-list "vhdl project"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13787 ;; menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13788 (unless vhdl-speedbar-menu-items |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13789 (setq |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13790 vhdl-speedbar-menu-items |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13791 `(["Edit" speedbar-edit-line t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13792 ["Expand" speedbar-expand-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13793 (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13794 ["Contract" vhdl-speedbar-contract-level t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13795 ["Expand All" vhdl-speedbar-expand-all t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13796 ["Contract All" vhdl-speedbar-contract-all t] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13797 ,(let ((key 0) (menu-list '("Hierarchy Depth"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13798 (while (<= key 9) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13799 (setq menu-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13800 (cons `[,(if (= key 0) "All" (int-to-string key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13801 (vhdl-speedbar-set-depth ,key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13802 :style radio |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13803 :selected (= vhdl-speedbar-hierarchy-depth ,key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13804 :keys ,(int-to-string key)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13805 menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13806 (setq key (1+ key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13807 (nreverse menu-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13808 "--" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13809 ["Copy Port/Subprogram" vhdl-speedbar-port-copy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13810 (or (vhdl-speedbar-check-unit 'entity) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13811 (vhdl-speedbar-check-unit 'subprogram))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13812 ["Place Component" vhdl-speedbar-place-component |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13813 (vhdl-speedbar-check-unit 'entity)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13814 ["Make" vhdl-speedbar-make-design |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13815 (save-excursion (beginning-of-line) (looking-at "[0-9]+: *[[<]"))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13816 ["Generate Makefile" vhdl-speedbar-generate-makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13817 (save-excursion (beginning-of-line) (looking-at "[0-9]+:"))] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13818 ["Rescan Directory" vhdl-speedbar-rescan-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13819 :active (save-excursion (beginning-of-line) (looking-at "[0-9]+:")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13820 ,(if vhdl-xemacs :active :visible) (not vhdl-speedbar-show-projects)] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13821 ["Rescan Project" vhdl-speedbar-rescan-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13822 :active (save-excursion (beginning-of-line) (looking-at "[0-9]+:")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13823 ,(if vhdl-xemacs :active :visible) vhdl-speedbar-show-projects] |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13824 ["Save Caches" vhdl-save-caches vhdl-updated-project-list]))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13825 ;; hook-ups |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13826 (speedbar-add-expansion-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13827 '("vhdl directory" vhdl-speedbar-menu-items vhdl-speedbar-key-map |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13828 vhdl-speedbar-display-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13829 (speedbar-add-expansion-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13830 '("vhdl project" vhdl-speedbar-menu-items vhdl-speedbar-key-map |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13831 vhdl-speedbar-display-projects)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13832 (setq speedbar-stealthy-function-list |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13833 (append |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13834 '(("vhdl directory" vhdl-speedbar-update-current-unit) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13835 ("vhdl project" vhdl-speedbar-update-current-project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13836 vhdl-speedbar-update-current-unit) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13837 ; ("files" (lambda () (setq speedbar-ignored-path-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13838 ; (speedbar-extension-list-to-regex |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13839 ; speedbar-ignored-path-expressions)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13840 ) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13841 speedbar-stealthy-function-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13842 (when (eq vhdl-speedbar-display-mode 'directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13843 (setq speedbar-initial-expansion-list-name "vhdl directory")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13844 (when (eq vhdl-speedbar-display-mode 'project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13845 (setq speedbar-initial-expansion-list-name "vhdl project")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13846 (add-hook 'speedbar-timer-hook 'vhdl-update-hierarchy))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13847 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13848 (defun vhdl-speedbar (&optional arg) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13849 "Open/close speedbar." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13850 (interactive) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13851 (if (not (fboundp 'speedbar)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13852 (error "WARNING: Speedbar is not available or not installed") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13853 (condition-case () |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13854 (speedbar-frame-mode arg) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13855 (error (error "WARNING: An error occurred while opening speedbar"))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13856 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13857 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13858 ;; Display functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13859 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13860 (defvar vhdl-speedbar-last-selected-project nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13861 "Name of last selected project.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13862 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13863 ;; macros must be defined in the file they are used (copied from `speedbar.el') |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13864 (defmacro speedbar-with-writable (&rest forms) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13865 "Allow the buffer to be writable and evaluate FORMS." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13866 (list 'let '((inhibit-read-only t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13867 (cons 'progn forms))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13868 (put 'speedbar-with-writable 'lisp-indent-function 0) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13869 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13870 (defun vhdl-speedbar-display-directory (directory depth &optional rescan) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13871 "Display directory and hierarchy information in speedbar." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13872 (setq vhdl-speedbar-show-projects nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13873 (setq speedbar-ignored-path-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13874 (speedbar-extension-list-to-regex speedbar-ignored-path-expressions)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13875 (setq directory (abbreviate-file-name (file-name-as-directory directory))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13876 (setq speedbar-last-selected-file nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13877 (speedbar-with-writable |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13878 (condition-case nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13879 (progn |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13880 ;; insert directory path |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13881 (speedbar-directory-buttons directory depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13882 ;; insert subdirectories |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13883 (vhdl-speedbar-insert-dirs (speedbar-file-lists directory) depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13884 ;; scan and insert hierarchy of current directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13885 (vhdl-speedbar-insert-dir-hierarchy directory depth |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13886 speedbar-power-click) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13887 ;; expand subdirectories |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13888 (when (= depth 0) (vhdl-speedbar-expand-dirs directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13889 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly"))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13890 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13891 (defun vhdl-speedbar-display-projects (project depth &optional rescan) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13892 "Display projects and hierarchy information in speedbar." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13893 (setq vhdl-speedbar-show-projects t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13894 (setq speedbar-ignored-path-regexp ".") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13895 (setq speedbar-last-selected-file nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13896 (setq vhdl-speedbar-last-selected-project nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13897 (speedbar-with-writable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13898 (condition-case nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13899 ;; insert projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13900 (vhdl-speedbar-insert-projects) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13901 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13902 (setq speedbar-full-text-cache nil)) ; prevent caching |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13903 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13904 (defun vhdl-speedbar-insert-projects () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13905 "Insert all projects in speedbar." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13906 (vhdl-speedbar-make-title-line "Projects:") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13907 (let ((project-alist (if vhdl-project-sort |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13908 (vhdl-sort-alist (copy-alist vhdl-project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13909 vhdl-project-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13910 (vhdl-speedbar-update-current-unit nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13911 ;; insert projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13912 (while project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13913 (speedbar-make-tag-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13914 'angle ?+ 'vhdl-speedbar-expand-project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13915 (caar project-alist) (caar project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13916 'vhdl-toggle-project (caar project-alist) 'speedbar-directory-face 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13917 (setq project-alist (cdr project-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13918 (setq project-alist vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13919 ;; expand projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13920 (while project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13921 (when (member (caar project-alist) vhdl-speedbar-shown-project-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13922 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13923 (when (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13924 (concat "^\\([0-9]+:\\s-*<\\)[+]>\\s-+" (caar project-alist) "$") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13925 (goto-char (match-end 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13926 (speedbar-do-function-pointer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13927 (setq project-alist (cdr project-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13928 ; (vhdl-speedbar-update-current-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13929 ; (vhdl-speedbar-update-current-unit nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13930 ) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13931 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13932 (defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13933 "Insert hierarchy of project. Rescan directories if RESCAN is non-nil, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13934 otherwise use cached data." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13935 (when (or rescan (and (not (assoc project vhdl-file-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13936 (not (vhdl-load-cache project)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13937 (vhdl-scan-project-contents project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13938 ;; insert design hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13939 (vhdl-speedbar-insert-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13940 (aget vhdl-entity-alist project t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13941 (aget vhdl-config-alist project t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13942 (aget vhdl-package-alist project t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13943 (car (aget vhdl-ent-inst-alist project t)) indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13944 (insert (int-to-string indent) ":\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13945 (put-text-property (- (point) 3) (1- (point)) 'invisible t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13946 (put-text-property (1- (point)) (point) 'invisible nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13947 ;; expand design units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13948 (vhdl-speedbar-expand-units project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13949 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13950 (defun vhdl-speedbar-insert-dir-hierarchy (directory depth &optional rescan) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13951 "Insert hierarchy of DIRECTORY. Rescan directory if RESCAN is non-nil, |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13952 otherwise use cached data." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13953 (when (or rescan (and (not (assoc directory vhdl-file-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13954 (not (vhdl-load-cache directory)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13955 (vhdl-scan-directory-contents directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13956 ;; insert design hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13957 (vhdl-speedbar-insert-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13958 (aget vhdl-entity-alist directory t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13959 (aget vhdl-config-alist directory t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13960 (aget vhdl-package-alist directory t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13961 (car (aget vhdl-ent-inst-alist directory t)) depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13962 ;; expand design units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13963 (vhdl-speedbar-expand-units directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13964 (aput 'vhdl-directory-alist directory (list (list directory)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13965 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13966 (defun vhdl-speedbar-insert-hierarchy (ent-alist conf-alist pack-alist |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13967 ent-inst-list depth) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13968 "Insert hierarchy of ENT-ALIST, CONF-ALIST, and PACK-ALIST." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13969 (if (not (or ent-alist conf-alist pack-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13970 (vhdl-speedbar-make-title-line "No VHDL design units!" depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13971 (let (ent-entry conf-entry pack-entry) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13972 ;; insert entities |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13973 (when ent-alist (vhdl-speedbar-make-title-line "Entities:" depth)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13974 (while ent-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13975 (setq ent-entry (car ent-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13976 (speedbar-make-tag-line |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13977 'bracket ?+ 'vhdl-speedbar-expand-entity (nth 0 ent-entry) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13978 (nth 1 ent-entry) 'vhdl-speedbar-find-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13979 (cons (nth 2 ent-entry) (nth 3 ent-entry)) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
13980 'vhdl-speedbar-entity depth) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13981 (unless (nth 2 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13982 (end-of-line 0) (insert "!") (forward-char 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13983 (unless (member (nth 0 ent-entry) ent-inst-list) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13984 (end-of-line 0) (insert " (top)") (forward-char 1)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13985 (setq ent-alist (cdr ent-alist))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13986 ;; insert configurations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13987 (when conf-alist (vhdl-speedbar-make-title-line "Configurations:" depth)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13988 (while conf-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13989 (setq conf-entry (car conf-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13990 (speedbar-make-tag-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13991 'bracket ?+ 'vhdl-speedbar-expand-config (nth 0 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13992 (nth 1 conf-entry) 'vhdl-speedbar-find-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13993 (cons (nth 2 conf-entry) (nth 3 conf-entry)) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
13994 'vhdl-speedbar-configuration depth) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
13995 (setq conf-alist (cdr conf-alist))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13996 ;; insert packages |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13997 (when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13998 (while pack-alist |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
13999 (setq pack-entry (car pack-alist)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14000 (vhdl-speedbar-make-pack-line |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14001 (nth 0 pack-entry) (nth 1 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14002 (cons (nth 2 pack-entry) (nth 3 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14003 (cons (nth 7 pack-entry) (nth 8 pack-entry)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14004 depth) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14005 (setq pack-alist (cdr pack-alist)))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14006 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14007 (defun vhdl-speedbar-rescan-hierarchy () |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14008 "Rescan hierarchy for the directory or project under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14009 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14010 (let (key path) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14011 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14012 ;; current project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14013 (vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14014 (setq key (vhdl-speedbar-line-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14015 (vhdl-scan-project-contents key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14016 ;; top-level directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14017 ((save-excursion (beginning-of-line) (looking-at "[^0-9]")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14018 (re-search-forward "[0-9]+:" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14019 (vhdl-scan-directory-contents |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14020 (abbreviate-file-name (speedbar-line-path)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14021 ;; current directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14022 (t (setq path (speedbar-line-path)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14023 (string-match "^\\(.+[/\\]\\)" path) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14024 (vhdl-scan-directory-contents |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14025 (abbreviate-file-name (match-string 1 path))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14026 (vhdl-speedbar-refresh key))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14027 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14028 (defun vhdl-speedbar-expand-dirs (directory) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14029 "Expand subdirectories in DIRECTORY according to |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14030 `speedbar-shown-directories'." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14031 ;; (nicked from `speedbar-default-directory-list') |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14032 (let ((sf (cdr (reverse speedbar-shown-directories))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14033 (vhdl-speedbar-update-current-unit nil)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14034 (setq speedbar-shown-directories |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14035 (list (expand-file-name default-directory))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14036 (while sf |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14037 (when (speedbar-goto-this-file (car sf)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14038 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14039 (when (looking-at "[0-9]+:\\s-*<") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14040 (goto-char (match-end 0)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14041 (speedbar-do-function-pointer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14042 (setq sf (cdr sf)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14043 (vhdl-speedbar-update-current-unit nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14044 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14045 (defun vhdl-speedbar-expand-units (key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14046 "Expand design units in directory/project KEY according to |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14047 `vhdl-speedbar-shown-unit-alist'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14048 (let ((unit-alist (aget vhdl-speedbar-shown-unit-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14049 (vhdl-speedbar-update-current-unit nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14050 vhdl-updated-project-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14051 (adelete 'vhdl-speedbar-shown-unit-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14052 (vhdl-prepare-search-1 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14053 (while unit-alist ; expand units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14054 (vhdl-speedbar-goto-this-unit key (caar unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14055 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14056 (let ((arch-alist (nth 1 (car unit-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14057 position) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14058 (when (looking-at "^[0-9]+:\\s-*\\[") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14059 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14060 (setq position (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14061 (speedbar-do-function-pointer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14062 (select-frame speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14063 (while arch-alist ; expand architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14064 (goto-char position) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14065 (when (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14066 (concat "^[0-9]+:\\s-*\\(\\[\\|{.}\\s-+" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14067 (car arch-alist) "\\>\\)") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14068 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14069 (when (looking-at "^[0-9]+:\\s-*{") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14070 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14071 (speedbar-do-function-pointer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14072 (select-frame speedbar-frame))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14073 (setq arch-alist (cdr arch-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14074 (setq unit-alist (cdr unit-alist)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14075 (vhdl-speedbar-update-current-unit nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14076 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14077 (defun vhdl-speedbar-contract-level () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14078 "Contract current level in current directory/project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14079 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14080 (when (or (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14081 (beginning-of-line) (looking-at "^[0-9]:\\s-*[[{<]-")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14082 (and (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14083 (beginning-of-line) (looking-at "^\\([0-9]+\\):")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14084 (re-search-backward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14085 (format "^[0-%d]:\\s-*[[{<]-" |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
61431
diff
changeset
|
14086 (max (1- (string-to-number (match-string 1))) 0)) nil t))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14087 (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14088 (speedbar-do-function-pointer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14089 (speedbar-center-buffer-smartly))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14090 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14091 (defun vhdl-speedbar-contract-all () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14092 "Contract all expanded design units in current directory/project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14093 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14094 (if (and vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14095 (save-excursion (beginning-of-line) (looking-at "^0:"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14096 (progn (setq vhdl-speedbar-shown-project-list nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14097 (vhdl-speedbar-refresh)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14098 (let ((key (vhdl-speedbar-line-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14099 (adelete 'vhdl-speedbar-shown-unit-alist key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14100 (vhdl-speedbar-refresh (and vhdl-speedbar-show-projects key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14101 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14102 (add-to-list 'vhdl-updated-project-list key))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14103 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14104 (defun vhdl-speedbar-expand-all () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14105 "Expand all design units in current directory/project." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14106 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14107 (let* ((key (vhdl-speedbar-line-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14108 (ent-alist (aget vhdl-entity-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14109 (conf-alist (aget vhdl-config-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14110 (pack-alist (aget vhdl-package-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14111 arch-alist unit-alist subunit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14112 (add-to-list 'vhdl-speedbar-shown-project-list key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14113 (while ent-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14114 (setq arch-alist (nth 4 (car ent-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14115 (setq subunit-alist nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14116 (while arch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14117 (setq subunit-alist (cons (caar arch-alist) subunit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14118 (setq arch-alist (cdr arch-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14119 (setq unit-alist (cons (list (caar ent-alist) subunit-alist) unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14120 (setq ent-alist (cdr ent-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14121 (while conf-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14122 (setq unit-alist (cons (list (caar conf-alist)) unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14123 (setq conf-alist (cdr conf-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14124 (while pack-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14125 (setq unit-alist (cons (list (caar pack-alist)) unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14126 (setq pack-alist (cdr pack-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14127 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14128 (vhdl-speedbar-refresh) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14129 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14130 (add-to-list 'vhdl-updated-project-list key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14131 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14132 (defun vhdl-speedbar-expand-project (text token indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14133 "Expand/contract the project under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14134 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14135 ((string-match "+" text) ; expand project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14136 (speedbar-change-expand-button-char ?-) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14137 (unless (member token vhdl-speedbar-shown-project-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14138 (setq vhdl-speedbar-shown-project-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14139 (cons token vhdl-speedbar-shown-project-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14140 (speedbar-with-writable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14141 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14142 (end-of-line) (forward-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14143 (vhdl-speedbar-insert-project-hierarchy token (1+ indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14144 speedbar-power-click)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14145 ((string-match "-" text) ; contract project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14146 (speedbar-change-expand-button-char ?+) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14147 (setq vhdl-speedbar-shown-project-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14148 (delete token vhdl-speedbar-shown-project-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14149 (speedbar-delete-subblock indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14150 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14151 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14152 (speedbar-center-buffer-smartly))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14153 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14154 (defun vhdl-speedbar-expand-entity (text token indent) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14155 "Expand/contract the entity under the cursor." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14156 (cond |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14157 ((string-match "+" text) ; expand entity |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14158 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14159 (ent-alist (aget vhdl-entity-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14160 (ent-entry (aget ent-alist token t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14161 (arch-alist (nth 3 ent-entry)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14162 (inst-alist (vhdl-get-instantiations token indent)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14163 (subpack-alist (nth 4 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14164 arch-entry inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14165 (if (not (or arch-alist inst-alist subpack-alist)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14166 (speedbar-change-expand-button-char ??) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14167 (speedbar-change-expand-button-char ?-) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14168 ;; add entity to `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14169 (let* ((unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14170 (aput 'unit-alist token nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14171 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14172 (speedbar-with-writable |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14173 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14174 (end-of-line) (forward-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14175 ;; insert architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14176 (when arch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14177 (vhdl-speedbar-make-title-line "Architectures:" (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14178 (while arch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14179 (setq arch-entry (car arch-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14180 (speedbar-make-tag-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14181 'curly ?+ 'vhdl-speedbar-expand-architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14182 (cons token (nth 0 arch-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14183 (nth 1 arch-entry) 'vhdl-speedbar-find-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14184 (cons (nth 2 arch-entry) (nth 3 arch-entry)) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14185 'vhdl-speedbar-architecture (1+ indent)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14186 (setq arch-alist (cdr arch-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14187 ;; insert instantiations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14188 (when inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14189 (vhdl-speedbar-make-title-line "Instantiated as:" (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14190 (while inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14191 (setq inst-entry (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14192 (vhdl-speedbar-make-inst-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14193 (nth 0 inst-entry) (nth 1 inst-entry) (nth 2 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14194 (nth 3 inst-entry) (nth 4 inst-entry) (nth 5 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14195 nil nil nil (1+ indent) 0 " in ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14196 (setq inst-alist (cdr inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14197 ;; insert required packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14198 (vhdl-speedbar-insert-subpackages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14199 subpack-alist (1+ indent) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14200 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14201 (add-to-list 'vhdl-updated-project-list key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14202 (vhdl-speedbar-update-current-unit t t)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14203 ((string-match "-" text) ; contract entity |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14204 (speedbar-change-expand-button-char ?+) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14205 ;; remove entity from `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14206 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14207 (unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14208 (adelete 'unit-alist token) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14209 (if unit-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14210 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14211 (adelete 'vhdl-speedbar-shown-unit-alist key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14212 (speedbar-delete-subblock indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14213 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14214 (add-to-list 'vhdl-updated-project-list key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14215 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14216 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14217 (speedbar-center-buffer-smartly))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14218 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14219 (defun vhdl-speedbar-expand-architecture (text token indent) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14220 "Expand/contract the architecture under the cursor." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14221 (cond |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14222 ((string-match "+" text) ; expand architecture |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14223 (let* ((key (vhdl-speedbar-line-key (1- indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14224 (ent-alist (aget vhdl-entity-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14225 (conf-alist (aget vhdl-config-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14226 (hier-alist (vhdl-get-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14227 ent-alist conf-alist (car token) (cdr token) nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14228 0 (1- indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14229 (ent-entry (aget ent-alist (car token) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14230 (arch-entry (aget (nth 3 ent-entry) (cdr token) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14231 (subpack-alist (nth 4 arch-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14232 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14233 (if (not (or hier-alist subpack-alist)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14234 (speedbar-change-expand-button-char ??) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14235 (speedbar-change-expand-button-char ?-) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14236 ;; add architecture to `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14237 (let* ((unit-alist (aget vhdl-speedbar-shown-unit-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14238 (arch-alist (nth 0 (aget unit-alist (car token) t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14239 (aput 'unit-alist (car token) (list (cons (cdr token) arch-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14240 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14241 (speedbar-with-writable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14242 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14243 (end-of-line) (forward-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14244 ;; insert instance hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14245 (when hier-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14246 (vhdl-speedbar-make-title-line "Subcomponent hierarchy:" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14247 (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14248 (while hier-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14249 (setq entry (car hier-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14250 (when (or (= vhdl-speedbar-hierarchy-depth 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14251 (< (nth 9 entry) vhdl-speedbar-hierarchy-depth)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14252 (vhdl-speedbar-make-inst-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14253 (nth 0 entry) (nth 1 entry) (nth 2 entry) (nth 3 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14254 (nth 4 entry) (nth 5 entry) (nth 6 entry) (nth 7 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14255 (nth 8 entry) (1+ indent) (1+ (nth 9 entry)) ": ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14256 (setq hier-alist (cdr hier-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14257 ;; insert required packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14258 (vhdl-speedbar-insert-subpackages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14259 subpack-alist (1+ indent) (1- indent)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14260 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14261 (add-to-list 'vhdl-updated-project-list key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14262 (vhdl-speedbar-update-current-unit t t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14263 ((string-match "-" text) ; contract architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14264 (speedbar-change-expand-button-char ?+) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14265 ;; remove architecture from `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14266 (let* ((key (vhdl-speedbar-line-key (1- indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14267 (unit-alist (aget vhdl-speedbar-shown-unit-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14268 (arch-alist (nth 0 (aget unit-alist (car token) t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14269 (aput 'unit-alist (car token) (list (delete (cdr token) arch-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14270 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14271 (speedbar-delete-subblock indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14272 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14273 (add-to-list 'vhdl-updated-project-list key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14274 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14275 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14276 (speedbar-center-buffer-smartly))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14277 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14278 (defun vhdl-speedbar-expand-config (text token indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14279 "Expand/contract the configuration under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14280 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14281 ((string-match "+" text) ; expand configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14282 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14283 (conf-alist (aget vhdl-config-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14284 (conf-entry (aget conf-alist token)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14285 (ent-alist (aget vhdl-entity-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14286 (hier-alist (vhdl-get-hierarchy |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14287 ent-alist conf-alist (nth 3 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14288 (nth 4 conf-entry) token (nth 5 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14289 0 indent t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14290 (subpack-alist (nth 6 conf-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14291 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14292 (if (not (or hier-alist subpack-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14293 (speedbar-change-expand-button-char ??) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14294 (speedbar-change-expand-button-char ?-) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14295 ;; add configuration to `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14296 (let* ((unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14297 (aput 'unit-alist token nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14298 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14299 (speedbar-with-writable |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14300 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14301 (end-of-line) (forward-char 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14302 ;; insert instance hierarchy |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14303 (when hier-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14304 (vhdl-speedbar-make-title-line "Design hierarchy:" (1+ indent))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14305 (while hier-alist |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14306 (setq entry (car hier-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14307 (when (or (= vhdl-speedbar-hierarchy-depth 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14308 (<= (nth 9 entry) vhdl-speedbar-hierarchy-depth)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14309 (vhdl-speedbar-make-inst-line |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14310 (nth 0 entry) (nth 1 entry) (nth 2 entry) (nth 3 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14311 (nth 4 entry) (nth 5 entry) (nth 6 entry) (nth 7 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14312 (nth 8 entry) (1+ indent) (nth 9 entry) ": ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14313 (setq hier-alist (cdr hier-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14314 ;; insert required packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14315 (vhdl-speedbar-insert-subpackages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14316 subpack-alist (1+ indent) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14317 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14318 (add-to-list 'vhdl-updated-project-list key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14319 (vhdl-speedbar-update-current-unit t t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14320 ((string-match "-" text) ; contract configuration |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14321 (speedbar-change-expand-button-char ?+) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14322 ;; remove configuration from `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14323 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14324 (unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14325 (adelete 'unit-alist token) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14326 (if unit-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14327 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14328 (adelete 'vhdl-speedbar-shown-unit-alist key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14329 (speedbar-delete-subblock indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14330 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14331 (add-to-list 'vhdl-updated-project-list key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14332 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14333 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14334 (speedbar-center-buffer-smartly))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14335 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14336 (defun vhdl-speedbar-expand-package (text token indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14337 "Expand/contract the package under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14338 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14339 ((string-match "+" text) ; expand package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14340 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14341 (pack-alist (aget vhdl-package-alist key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14342 (pack-entry (aget pack-alist token t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14343 (comp-alist (nth 3 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14344 (func-alist (nth 4 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14345 (func-body-alist (nth 8 pack-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14346 (subpack-alist (append (nth 5 pack-entry) (nth 9 pack-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14347 comp-entry func-entry func-body-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14348 (if (not (or comp-alist func-alist subpack-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14349 (speedbar-change-expand-button-char ??) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14350 (speedbar-change-expand-button-char ?-) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14351 ;; add package to `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14352 (let* ((unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14353 (aput 'unit-alist token nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14354 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14355 (speedbar-with-writable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14356 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14357 (end-of-line) (forward-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14358 ;; insert components |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14359 (when comp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14360 (vhdl-speedbar-make-title-line "Components:" (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14361 (while comp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14362 (setq comp-entry (car comp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14363 (speedbar-make-tag-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14364 nil nil nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14365 (cons token (nth 0 comp-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14366 (nth 1 comp-entry) 'vhdl-speedbar-find-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14367 (cons (nth 2 comp-entry) (nth 3 comp-entry)) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14368 'vhdl-speedbar-entity (1+ indent)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14369 (setq comp-alist (cdr comp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14370 ;; insert subprograms |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14371 (when func-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14372 (vhdl-speedbar-make-title-line "Subprograms:" (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14373 (while func-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14374 (setq func-entry (car func-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14375 func-body-entry (aget func-body-alist (car func-entry) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14376 (when (nth 2 func-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14377 (vhdl-speedbar-make-subprogram-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14378 (nth 1 func-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14379 (cons (nth 2 func-entry) (nth 3 func-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14380 (cons (nth 1 func-body-entry) (nth 2 func-body-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14381 (1+ indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14382 (setq func-alist (cdr func-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14383 ;; insert required packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14384 (vhdl-speedbar-insert-subpackages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14385 subpack-alist (1+ indent) indent))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14386 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14387 (add-to-list 'vhdl-updated-project-list key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14388 (vhdl-speedbar-update-current-unit t t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14389 ((string-match "-" text) ; contract package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14390 (speedbar-change-expand-button-char ?+) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14391 ;; remove package from `vhdl-speedbar-shown-unit-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14392 (let* ((key (vhdl-speedbar-line-key indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14393 (unit-alist (aget vhdl-speedbar-shown-unit-alist key t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14394 (adelete 'unit-alist token) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14395 (if unit-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14396 (aput 'vhdl-speedbar-shown-unit-alist key unit-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14397 (adelete 'vhdl-speedbar-shown-unit-alist key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14398 (speedbar-delete-subblock indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14399 (when (memq 'display vhdl-speedbar-save-cache) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14400 (add-to-list 'vhdl-updated-project-list key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14401 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14402 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14403 (speedbar-center-buffer-smartly))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14404 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14405 (defun vhdl-speedbar-insert-subpackages (subpack-alist indent dir-indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14406 "Insert required packages." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14407 (let* ((pack-alist (aget vhdl-package-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14408 (vhdl-speedbar-line-key dir-indent) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14409 pack-key lib-name pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14410 (when subpack-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14411 (vhdl-speedbar-make-title-line "Packages Used:" indent)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14412 (while subpack-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14413 (setq pack-key (cdar subpack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14414 lib-name (caar subpack-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14415 (setq pack-entry (aget pack-alist pack-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14416 (vhdl-speedbar-make-subpack-line |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14417 (or (nth 0 pack-entry) pack-key) lib-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14418 (cons (nth 1 pack-entry) (nth 2 pack-entry)) indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14419 (setq subpack-alist (cdr subpack-alist))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14420 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14421 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14422 ;; Display help functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14423 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14424 (defvar vhdl-speedbar-update-current-unit t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14425 "Non-nil means to run `vhdl-speedbar-update-current-unit'.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14426 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14427 (defun vhdl-speedbar-update-current-project () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14428 "Highlight project that is currently active." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14429 (when (and vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14430 (not (equal vhdl-speedbar-last-selected-project vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14431 (and (boundp 'speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14432 (frame-live-p speedbar-frame))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14433 (let ((last-frame (selected-frame)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14434 (project-alist vhdl-project-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14435 pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14436 (select-frame speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14437 (speedbar-with-writable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14438 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14439 (while project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14440 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14441 (when (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14442 (concat "<.> \\(" (caar project-alist) "\\)$") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14443 (put-text-property (match-beginning 1) (match-end 1) 'face |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14444 (if (equal (caar project-alist) vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14445 'speedbar-selected-face |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14446 'speedbar-directory-face)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14447 (when (equal (caar project-alist) vhdl-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14448 (setq pos (1- (match-beginning 1))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14449 (setq project-alist (cdr project-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14450 (when pos (goto-char pos))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14451 (select-frame last-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14452 (setq vhdl-speedbar-last-selected-project vhdl-project))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14453 t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14454 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14455 (defun vhdl-speedbar-update-current-unit (&optional no-position always) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14456 "Highlight all design units that are contained in the current file. |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14457 NO-POSITION non-nil means do not re-position cursor." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14458 (let ((last-frame (selected-frame)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14459 (project-list vhdl-speedbar-shown-project-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14460 file-alist pos file-name) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14461 ;; get current file name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14462 (if (fboundp 'speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14463 (speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14464 (select-frame speedbar-attached-frame)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14465 (setq file-name (abbreviate-file-name (or (buffer-file-name) ""))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14466 (when (and vhdl-speedbar-update-current-unit |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14467 (or always (not (equal file-name speedbar-last-selected-file)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14468 (if vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14469 (while project-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14470 (setq file-alist (append file-alist (aget vhdl-file-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14471 (car project-list) t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14472 (setq project-list (cdr project-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14473 (setq file-alist (aget vhdl-file-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14474 (abbreviate-file-name default-directory) t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14475 (select-frame speedbar-frame) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14476 (set-buffer speedbar-buffer) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14477 (speedbar-with-writable |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14478 (vhdl-prepare-search-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14479 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14480 ;; unhighlight last units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14481 (let* ((file-entry (aget file-alist speedbar-last-selected-file t))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14482 (vhdl-speedbar-update-units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14483 "\\[.\\] " (nth 0 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14484 speedbar-last-selected-file 'vhdl-speedbar-entity) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14485 (vhdl-speedbar-update-units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14486 "{.} " (nth 1 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14487 speedbar-last-selected-file 'vhdl-speedbar-architecture) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14488 (vhdl-speedbar-update-units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14489 "\\[.\\] " (nth 3 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14490 speedbar-last-selected-file 'vhdl-speedbar-configuration) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14491 (vhdl-speedbar-update-units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14492 "[]>] " (nth 4 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14493 speedbar-last-selected-file 'vhdl-speedbar-package) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14494 (vhdl-speedbar-update-units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14495 "\\[.\\].+(" '("body") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14496 speedbar-last-selected-file 'vhdl-speedbar-package) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14497 (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14498 "> " (nth 6 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14499 speedbar-last-selected-file 'vhdl-speedbar-instantiation)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14500 ;; highlight current units |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14501 (let* ((file-entry (aget file-alist file-name t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14502 (setq |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14503 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14504 "\\[.\\] " (nth 0 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14505 file-name 'vhdl-speedbar-entity-selected pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14506 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14507 "{.} " (nth 1 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14508 file-name 'vhdl-speedbar-architecture-selected pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14509 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14510 "\\[.\\] " (nth 3 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14511 file-name 'vhdl-speedbar-configuration-selected pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14512 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14513 "[]>] " (nth 4 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14514 file-name 'vhdl-speedbar-package-selected pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14515 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14516 "\\[.\\].+(" '("body") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14517 file-name 'vhdl-speedbar-package-selected pos) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14518 pos (vhdl-speedbar-update-units |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14519 "> " (nth 6 file-entry) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14520 file-name 'vhdl-speedbar-instantiation-selected pos)))))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14521 ;; move speedbar so the first highlighted unit is visible |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14522 (when (and pos (not no-position)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14523 (goto-char pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14524 (speedbar-center-buffer-smartly) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14525 (speedbar-position-cursor-on-line)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14526 (setq speedbar-last-selected-file file-name)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14527 (select-frame last-frame) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14528 t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14529 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14530 (defun vhdl-speedbar-update-units (text unit-list file-name face |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14531 &optional pos) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14532 "Help function to highlight design units." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14533 (while unit-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14534 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14535 (while (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14536 (concat text "\\(" (car unit-list) "\\)\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14537 (when (equal file-name (car (get-text-property |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14538 (match-beginning 1) 'speedbar-token))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14539 (setq pos (or pos (point-marker))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14540 (put-text-property (match-beginning 1) (match-end 1) 'face face))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14541 (setq unit-list (cdr unit-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14542 pos) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14543 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14544 (defun vhdl-speedbar-make-inst-line (inst-name inst-file-marker |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14545 ent-name ent-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14546 arch-name arch-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14547 conf-name conf-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14548 lib-name depth offset delimiter) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14549 "Insert instantiation entry." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14550 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14551 visible-start) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14552 (insert (int-to-string depth) ":") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14553 (put-text-property start (point) 'invisible t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14554 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14555 (insert-char ? (* depth speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14556 (while (> offset 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14557 (insert "|") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14558 (insert-char (if (= offset 1) ?- ? ) (1- speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14559 (setq offset (1- offset))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14560 (put-text-property visible-start (point) 'invisible nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14561 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14562 (insert ">") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14563 (speedbar-make-button start (point) nil nil nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14564 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14565 (insert " ") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14566 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14567 (if (not inst-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14568 (insert "(top)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14569 (insert inst-name) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14570 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14571 start (point) 'vhdl-speedbar-instantiation 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14572 'vhdl-speedbar-find-file inst-file-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14573 (insert delimiter) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14574 (when ent-name |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14575 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14576 (insert ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14577 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14578 start (point) 'vhdl-speedbar-entity 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14579 'vhdl-speedbar-find-file ent-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14580 (when arch-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14581 (insert " (") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14582 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14583 (insert arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14584 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14585 start (point) 'vhdl-speedbar-architecture 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14586 'vhdl-speedbar-find-file arch-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14587 (insert ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14588 (when conf-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14589 (insert " (") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14590 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14591 (insert conf-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14592 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14593 start (point) 'vhdl-speedbar-configuration 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14594 'vhdl-speedbar-find-file conf-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14595 (insert ")"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14596 (when (and lib-name (not (equal lib-name (downcase (vhdl-work-library))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14597 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14598 (insert " (" lib-name ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14599 (put-text-property (+ 2 start) (1- (point)) 'face |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14600 'vhdl-speedbar-library)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14601 (insert-char ?\n 1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14602 (put-text-property visible-start (point) 'invisible nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14603 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14604 (defun vhdl-speedbar-make-pack-line (pack-key pack-name pack-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14605 body-file-marker depth) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14606 "Insert package entry." |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14607 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14608 visible-start) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14609 (insert (int-to-string depth) ":") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14610 (put-text-property start (point) 'invisible t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14611 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14612 (insert-char ? (* depth speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14613 (put-text-property visible-start (point) 'invisible nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14614 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14615 (insert "[+]") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14616 (speedbar-make-button |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14617 start (point) 'speedbar-button-face 'speedbar-highlight-face |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14618 'vhdl-speedbar-expand-package pack-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14619 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14620 (insert-char ? 1 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14621 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14622 (insert pack-name) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14623 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14624 start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14625 'vhdl-speedbar-find-file pack-file-marker) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14626 (unless (car pack-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14627 (insert "!")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14628 (when (car body-file-marker) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14629 (insert " (") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14630 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14631 (insert "body") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14632 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14633 start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14634 'vhdl-speedbar-find-file body-file-marker) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14635 (insert ")")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14636 (insert-char ?\n 1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14637 (put-text-property visible-start (point) 'invisible nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14638 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14639 (defun vhdl-speedbar-make-subpack-line (pack-name lib-name pack-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14640 depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14641 "Insert used package entry." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14642 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14643 visible-start) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14644 (insert (int-to-string depth) ":") |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14645 (put-text-property start (point) 'invisible t) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14646 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14647 (insert-char ? (* depth speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14648 (put-text-property visible-start (point) 'invisible nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14649 (setq start (point)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14650 (insert ">") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14651 (speedbar-make-button start (point) nil nil nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14652 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14653 (insert " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14654 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14655 (insert pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14656 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14657 start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14658 'vhdl-speedbar-find-file pack-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14659 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14660 (insert " (" lib-name ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14661 (put-text-property (+ 2 start) (1- (point)) 'face |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14662 'vhdl-speedbar-library) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14663 (insert-char ?\n 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14664 (put-text-property visible-start (point) 'invisible nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14665 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14666 (defun vhdl-speedbar-make-subprogram-line (func-name func-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14667 func-body-file-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14668 depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14669 "Insert subprogram entry." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14670 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14671 visible-start) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14672 (insert (int-to-string depth) ":") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14673 (put-text-property start (point) 'invisible t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14674 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14675 (insert-char ? (* depth speedbar-indentation-width)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14676 (put-text-property visible-start (point) 'invisible nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14677 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14678 (insert ">") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14679 (speedbar-make-button start (point) nil nil nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14680 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14681 (insert " ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14682 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14683 (insert func-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14684 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14685 start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14686 'vhdl-speedbar-find-file func-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14687 (when (car func-body-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14688 (insert " (") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14689 (setq start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14690 (insert "body") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14691 (speedbar-make-button |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14692 start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14693 'vhdl-speedbar-find-file func-body-file-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14694 (insert ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14695 (insert-char ?\n 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14696 (put-text-property visible-start (point) 'invisible nil))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14697 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14698 (defun vhdl-speedbar-make-title-line (text &optional depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14699 "Insert design unit title entry." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14700 (let ((start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14701 visible-start) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14702 (when depth |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14703 (insert (int-to-string depth) ":") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14704 (put-text-property start (point) 'invisible t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14705 (setq visible-start (point)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14706 (insert-char ? (* (or depth 0) speedbar-indentation-width)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14707 (setq start (point)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14708 (insert text) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14709 (speedbar-make-button start (point) nil nil nil nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14710 (insert-char ?\n 1) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14711 (put-text-property visible-start (point) 'invisible nil))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14712 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14713 (defun vhdl-speedbar-insert-dirs (files level) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14714 "Insert subdirectories." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14715 (let ((dirs (car files))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14716 (while dirs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14717 (speedbar-make-tag-line 'angle ?+ 'vhdl-speedbar-dired (car dirs) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14718 (car dirs) 'speedbar-dir-follow nil |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14719 'speedbar-directory-face level) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14720 (setq dirs (cdr dirs))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14721 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14722 (defun vhdl-speedbar-dired (text token indent) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14723 "Speedbar click handler for directory expand button in hierarchy mode." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14724 (cond ((string-match "+" text) ; we have to expand this dir |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14725 (setq speedbar-shown-directories |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14726 (cons (expand-file-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14727 (concat (speedbar-line-path indent) token "/")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14728 speedbar-shown-directories)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14729 (speedbar-change-expand-button-char ?-) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14730 (speedbar-reset-scanners) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14731 (speedbar-with-writable |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14732 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14733 (end-of-line) (forward-char 1) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14734 (vhdl-speedbar-insert-dirs |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14735 (speedbar-file-lists |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14736 (concat (speedbar-line-path indent) token "/")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14737 (1+ indent)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14738 (speedbar-reset-scanners) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14739 (vhdl-speedbar-insert-dir-hierarchy |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14740 (abbreviate-file-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14741 (concat (speedbar-line-path indent) token "/")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14742 (1+ indent) speedbar-power-click))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14743 (vhdl-speedbar-update-current-unit t t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14744 ((string-match "-" text) ; we have to contract this node |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14745 (speedbar-reset-scanners) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14746 (let ((oldl speedbar-shown-directories) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14747 (newl nil) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14748 (td (expand-file-name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14749 (concat (speedbar-line-path indent) token)))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14750 (while oldl |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14751 (if (not (string-match (concat "^" (regexp-quote td)) (car oldl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14752 (setq newl (cons (car oldl) newl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14753 (setq oldl (cdr oldl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14754 (setq speedbar-shown-directories (nreverse newl))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14755 (speedbar-change-expand-button-char ?+) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14756 (speedbar-delete-subblock indent)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14757 (t (error "Nothing to display"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14758 (when (equal (selected-frame) speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14759 (speedbar-center-buffer-smartly))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14760 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14761 (defun vhdl-speedbar-item-info () |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14762 "Derive and display information about this line item." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14763 (save-excursion |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14764 (beginning-of-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14765 ;; skip invisible number info |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14766 (when (looking-at "^[0-9]+:") (goto-char (match-end 0))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14767 (cond |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14768 ;; project/directory entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14769 ((looking-at "\\s-*<[-+?]>\\s-+\\([^\n]+\\)$") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14770 (if vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14771 (message "Project \"%s\"" (match-string-no-properties 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14772 (speedbar-files-item-info))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14773 ;; design unit entry |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14774 ((looking-at "\\(\\s-*\\([[{][-+?][]}]\\|[| -]*>\\) \\)\"?\\w") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14775 (goto-char (match-end 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14776 (let ((face (get-text-property (point) 'face))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14777 (message |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14778 "%s \"%s\" in \"%s\"" |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14779 ;; design unit kind |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14780 (cond ((or (eq face 'vhdl-speedbar-entity) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14781 (eq face 'vhdl-speedbar-entity-selected)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14782 (if (equal (match-string 2) ">") "Component" "Entity")) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14783 ((or (eq face 'vhdl-speedbar-architecture) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14784 (eq face 'vhdl-speedbar-architecture-selected)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14785 "Architecture") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14786 ((or (eq face 'vhdl-speedbar-configuration) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14787 (eq face 'vhdl-speedbar-configuration-selected)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14788 "Configuration") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14789 ((or (eq face 'vhdl-speedbar-package) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14790 (eq face 'vhdl-speedbar-package-selected)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14791 "Package") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14792 ((or (eq face 'vhdl-speedbar-instantiation) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14793 (eq face 'vhdl-speedbar-instantiation-selected)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14794 "Instantiation") |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14795 ((eq face 'vhdl-speedbar-subprogram) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14796 "Subprogram") |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14797 (t "")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14798 ;; design unit name |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14799 (buffer-substring-no-properties |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14800 (progn (looking-at "\"?\\(\\(\\w\\|_\\)+\\)\"?") (match-beginning 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14801 (match-end 1)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14802 ;; file name |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14803 (file-relative-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14804 (or (car (get-text-property (point) 'speedbar-token)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14805 "?") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14806 (vhdl-default-directory))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14807 (t (message ""))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14808 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14809 (defun vhdl-speedbar-line-text () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14810 "Calls `speedbar-line-text' and removes text properties." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14811 (let ((string (speedbar-line-text))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14812 (set-text-properties 0 (length string) nil string) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14813 string)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14814 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14815 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14816 ;; Help functions |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14817 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14818 (defun vhdl-speedbar-line-key (&optional indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14819 "Get currently displayed directory of project name." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14820 (if vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14821 (vhdl-speedbar-line-project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14822 (abbreviate-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14823 (file-name-as-directory (speedbar-line-path indent))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14824 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14825 (defun vhdl-speedbar-line-project (&optional indent) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14826 "Get currently displayed project name." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14827 (and vhdl-speedbar-show-projects |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14828 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14829 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14830 (re-search-backward "^[0-9]+:\\s-*<[-+?]>\\s-+\\([^\n]+\\)$" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14831 (match-string-no-properties 1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14832 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14833 (defun vhdl-add-modified-file () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14834 "Add file to `vhdl-modified-file-list'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14835 (when vhdl-file-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14836 (add-to-list 'vhdl-modified-file-list (buffer-file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14837 nil) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14838 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14839 (defun vhdl-resolve-paths (path-list) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14840 "Resolve path wildcards in PATH-LIST." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14841 (let (path-list-1 path-list-2 path-beg path-end dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14842 ;; eliminate non-existent directories |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14843 (while path-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14844 (setq dir (car path-list)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14845 (string-match "\\(-r \\)?\\(\\([^?*]*[/\\]\\)*\\)" dir) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14846 (if (file-directory-p (match-string 2 dir)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14847 (setq path-list-1 (cons dir path-list-1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14848 (vhdl-warning-when-idle "No such directory: \"%s\"" (match-string 2 dir))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14849 (setq path-list (cdr path-list))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14850 ;; resolve path wildcards |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14851 (while path-list-1 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14852 (setq dir (car path-list-1)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14853 (if (string-match "\\(-r \\)?\\(\\([^?*]*[/\\]\\)*\\)\\([^/\\]*[?*][^/\\]*\\)\\([/\\].*\\)" dir) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14854 (progn |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14855 (setq path-beg (match-string 1 dir) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14856 path-end (match-string 5 dir)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14857 (setq path-list-1 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14858 (append |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14859 (mapcar |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14860 (function |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14861 (lambda (var) (concat path-beg var path-end))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14862 (let ((all-list (vhdl-directory-files |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14863 (match-string 2 dir) t |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14864 (concat "\\<" (wildcard-to-regexp |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14865 (match-string 4 dir))))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14866 dir-list) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14867 (while all-list |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14868 (when (file-directory-p (car all-list)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14869 (setq dir-list (cons (car all-list) dir-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14870 (setq all-list (cdr all-list))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14871 dir-list)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14872 (cdr path-list-1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14873 (string-match "\\(-r \\)?\\(.*\\)[/\\].*" dir) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14874 (when (file-directory-p (match-string 2 dir)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14875 (setq path-list-2 (cons dir path-list-2))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14876 (setq path-list-1 (cdr path-list-1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14877 (nreverse path-list-2))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14878 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14879 (defun vhdl-speedbar-goto-this-unit (directory unit) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14880 "If UNIT is displayed in DIRECTORY, goto this line and return t, else nil." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14881 (let ((dest (point))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14882 (if (and (if vhdl-speedbar-show-projects |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14883 (progn (goto-char (point-min)) t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14884 (speedbar-goto-this-file directory)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14885 (re-search-forward (concat "[]}] " unit "\\>") nil t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14886 (progn (speedbar-position-cursor-on-line) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14887 t) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14888 (goto-char dest) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14889 nil))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14890 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14891 (defun vhdl-speedbar-find-file (text token indent) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14892 "When user clicks on TEXT, load file with name and position in TOKEN. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14893 Jump to the design unit if `vhdl-speedbar-jump-to-unit' is t or if the file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14894 is already shown in a buffer." |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14895 (if (not (car token)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14896 (error "ERROR: File cannot be found") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14897 (let ((buffer (get-file-buffer (car token)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14898 (speedbar-find-file-in-frame (car token)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14899 (when (or vhdl-speedbar-jump-to-unit buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14900 (goto-line (cdr token)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14901 (recenter)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14902 (vhdl-speedbar-update-current-unit t t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14903 (speedbar-set-timer speedbar-update-speed) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14904 (speedbar-maybee-jump-to-attached-frame)))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14905 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14906 (defun vhdl-speedbar-port-copy () |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14907 "Copy the port of the entity/component or subprogram under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14908 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14909 (let ((is-entity (vhdl-speedbar-check-unit 'entity))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14910 (if (not (or is-entity (vhdl-speedbar-check-unit 'subprogram))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14911 (error "ERROR: No entity/component or subprogram under cursor") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14912 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14913 (if (looking-at "\\([0-9]\\)+:\\s-*\\(\\[[-+?]\\]\\|>\\) \\(\\(\\w\\|\\s_\\)+\\)") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14914 (condition-case info |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14915 (let ((token (get-text-property |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14916 (match-beginning 3) 'speedbar-token))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14917 (vhdl-visit-file (car token) t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14918 (progn (goto-line (cdr token)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14919 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14920 (if is-entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14921 (vhdl-port-copy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14922 (vhdl-subprog-copy))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14923 (error (error "ERROR: %s not scanned successfully\n (%s)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14924 (if is-entity "Port" "Interface") (cadr info)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14925 (error "ERROR: No entity/component or subprogram on current line"))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14926 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14927 (defun vhdl-speedbar-place-component () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14928 "Place the entity/component under the cursor as component." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14929 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14930 (if (not (vhdl-speedbar-check-unit 'entity)) |
63428
252224857a7b
(vhdl-speedbar-place-component): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents:
62917
diff
changeset
|
14931 (error "ERROR: No entity/component under cursor") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14932 (vhdl-speedbar-port-copy) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14933 (if (fboundp 'speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14934 (speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14935 (select-frame speedbar-attached-frame)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14936 (vhdl-compose-place-component) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14937 (select-frame speedbar-frame))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14938 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14939 (defun vhdl-speedbar-make-design () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14940 "Make (compile) design unit or directory/project under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14941 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14942 (if (not (save-excursion (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14943 (looking-at "[0-9]+: *\\(\\(\\[\\)\\|<\\)"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14944 (error "ERROR: No primary design unit or directory/project under cursor") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14945 (let ((is-unit (match-string 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14946 (unit-name (vhdl-speedbar-line-text)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14947 (vhdl-project (vhdl-speedbar-line-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14948 (directory (file-name-as-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14949 (or (speedbar-line-file) (speedbar-line-path))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14950 (if (fboundp 'speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14951 (speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14952 (select-frame speedbar-attached-frame)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14953 (let ((default-directory directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14954 (vhdl-make (and is-unit unit-name)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14955 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14956 (defun vhdl-speedbar-generate-makefile () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14957 "Generate Makefile for directory/project under the cursor." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14958 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14959 (let ((vhdl-project (vhdl-speedbar-line-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14960 (default-directory (file-name-as-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14961 (or (speedbar-line-file) (speedbar-line-path))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14962 (vhdl-generate-makefile))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14963 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14964 (defun vhdl-speedbar-check-unit (design-unit) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14965 "Check whether design unit under cursor corresponds to DESIGN-UNIT (or its |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14966 expansion function)." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14967 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14968 (speedbar-position-cursor-on-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14969 (cond ((eq design-unit 'entity) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14970 (memq (get-text-property (match-end 0) 'face) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14971 '(vhdl-speedbar-entity |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14972 vhdl-speedbar-entity-selected))) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14973 ((eq design-unit 'subprogram) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14974 (eq (get-text-property (match-end 0) 'face) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14975 'vhdl-speedbar-subprogram)) |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14976 (t nil)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14977 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14978 (defun vhdl-speedbar-set-depth (depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14979 "Set hierarchy display depth to DEPTH and refresh speedbar." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14980 (setq vhdl-speedbar-hierarchy-depth depth) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
14981 (speedbar-refresh)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14982 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14983 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14984 ;; Fontification |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14985 |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14986 (defface vhdl-speedbar-entity |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14987 '((((class color) (background light)) (:foreground "ForestGreen")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14988 (((class color) (background dark)) (:foreground "PaleGreen"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14989 "Face used for displaying entity names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14990 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14991 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14992 (put 'vhdl-speedbar-entity-face 'face-alias 'vhdl-speedbar-entity) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14993 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
14994 (defface vhdl-speedbar-architecture |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
14995 '((((min-colors 88) (class color) (background light)) (:foreground "Blue1")) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
14996 (((class color) (background light)) (:foreground "Blue")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14997 (((class color) (background dark)) (:foreground "LightSkyBlue"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14998 "Face used for displaying architecture names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
14999 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15000 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15001 (put 'vhdl-speedbar-architecture-face 'face-alias 'vhdl-speedbar-architecture) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15002 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15003 (defface vhdl-speedbar-configuration |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15004 '((((class color) (background light)) (:foreground "DarkGoldenrod")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15005 (((class color) (background dark)) (:foreground "Salmon"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15006 "Face used for displaying configuration names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15007 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15008 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15009 (put 'vhdl-speedbar-configuration-face 'face-alias 'vhdl-speedbar-configuration) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15010 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15011 (defface vhdl-speedbar-package |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15012 '((((class color) (background light)) (:foreground "Grey50")) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15013 (((class color) (background dark)) (:foreground "Grey80"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15014 "Face used for displaying package names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15015 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15016 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15017 (put 'vhdl-speedbar-package-face 'face-alias 'vhdl-speedbar-package) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15018 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15019 (defface vhdl-speedbar-library |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15020 '((((class color) (background light)) (:foreground "Purple")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15021 (((class color) (background dark)) (:foreground "Orchid1"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15022 "Face used for displaying library names." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15023 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15024 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15025 (put 'vhdl-speedbar-library-face 'face-alias 'vhdl-speedbar-library) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15026 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15027 (defface vhdl-speedbar-instantiation |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15028 '((((class color) (background light)) (:foreground "Brown")) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
15029 (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1")) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15030 (((class color) (background dark)) (:foreground "Yellow"))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15031 "Face used for displaying instantiation names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15032 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15033 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15034 (put 'vhdl-speedbar-instantiation-face 'face-alias 'vhdl-speedbar-instantiation) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15035 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15036 (defface vhdl-speedbar-subprogram |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15037 '((((class color) (background light)) (:foreground "Orchid4")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15038 (((class color) (background dark)) (:foreground "BurlyWood2"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15039 "Face used for displaying subprogram names." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15040 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15041 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15042 (put 'vhdl-speedbar-subprogram-face 'face-alias 'vhdl-speedbar-subprogram) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15043 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15044 (defface vhdl-speedbar-entity-selected |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15045 '((((class color) (background light)) (:foreground "ForestGreen" :underline t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15046 (((class color) (background dark)) (:foreground "PaleGreen" :underline t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15047 "Face used for displaying entity names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15048 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15049 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15050 (put 'vhdl-speedbar-entity-selected-face 'face-alias 'vhdl-speedbar-entity-selected) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15051 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15052 (defface vhdl-speedbar-architecture-selected |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
15053 '((((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
15054 (((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
15055 (((class color) (background light)) (:foreground "Blue" :underline t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15056 (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15057 "Face used for displaying architecture names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15058 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15059 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15060 (put 'vhdl-speedbar-architecture-selected-face 'face-alias 'vhdl-speedbar-architecture-selected) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15061 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15062 (defface vhdl-speedbar-configuration-selected |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15063 '((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15064 (((class color) (background dark)) (:foreground "Salmon" :underline t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15065 "Face used for displaying configuration names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15066 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15067 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15068 (put 'vhdl-speedbar-configuration-selected-face 'face-alias 'vhdl-speedbar-configuration-selected) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15069 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15070 (defface vhdl-speedbar-package-selected |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15071 '((((class color) (background light)) (:foreground "Grey50" :underline t)) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15072 (((class color) (background dark)) (:foreground "Grey80" :underline t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15073 "Face used for displaying package names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15074 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15075 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15076 (put 'vhdl-speedbar-package-selected-face 'face-alias 'vhdl-speedbar-package-selected) |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15077 |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15078 (defface vhdl-speedbar-instantiation-selected |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15079 '((((class color) (background light)) (:foreground "Brown" :underline t)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
60925
diff
changeset
|
15080 (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :underline t)) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15081 (((class color) (background dark)) (:foreground "Yellow" :underline t))) |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15082 "Face used for displaying instantiation names." |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15083 :group 'speedbar-faces) |
63456
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15084 ;; backward-compatibility alias |
68bd40c50926
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Miles Bader <miles@gnu.org>
parents:
63428
diff
changeset
|
15085 (put 'vhdl-speedbar-instantiation-selected-face 'face-alias 'vhdl-speedbar-instantiation-selected) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
15086 |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15087 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15088 ;; Initialization |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15089 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15090 ;; add speedbar |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15091 (when (fboundp 'speedbar) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15092 (condition-case () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15093 (when (and vhdl-speedbar-auto-open |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15094 (not (and (boundp 'speedbar-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15095 (frame-live-p speedbar-frame)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15096 (speedbar-frame-mode 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15097 (if (fboundp 'speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15098 (speedbar-select-attached-frame) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15099 (select-frame speedbar-attached-frame))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15100 (error (vhdl-warning-when-idle "ERROR: An error occurred while opening speedbar")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15101 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15102 ;; initialize speedbar |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15103 (if (not (boundp 'speedbar-frame)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15104 (add-hook 'speedbar-load-hook 'vhdl-speedbar-initialize) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15105 (vhdl-speedbar-initialize) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15106 (when speedbar-frame (vhdl-speedbar-refresh))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15107 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15108 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15109 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15110 ;;; Structural composition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15111 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15112 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15113 (defun vhdl-get-components-package-name () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15114 "Return the name of the components package." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15115 (let ((project (vhdl-project-p))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15116 (if project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15117 (vhdl-replace-string (car vhdl-components-package-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15118 (subst-char-in-string ? ?_ project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15119 (cdr vhdl-components-package-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15120 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15121 (defun vhdl-compose-new-component () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15122 "Create entity and architecture for new component." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15123 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15124 (let* ((case-fold-search t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15125 (ent-name (read-from-minibuffer "entity name: " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15126 nil vhdl-minibuffer-local-map)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15127 (arch-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15128 (if (equal (cdr vhdl-compose-architecture-name) "") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15129 (read-from-minibuffer "architecture name: " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15130 nil vhdl-minibuffer-local-map) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15131 (vhdl-replace-string vhdl-compose-architecture-name ent-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15132 ent-file-name arch-file-name ent-buffer arch-buffer project) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15133 (message "Creating component \"%s(%s)\"..." ent-name arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15134 ;; open entity file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15135 (unless (eq vhdl-compose-create-files 'none) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15136 (setq ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15137 (concat (vhdl-replace-string vhdl-entity-file-name ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15138 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15139 (when (and (file-exists-p ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15140 (not (y-or-n-p (concat "File \"" ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15141 "\" exists; overwrite? ")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15142 (error "ERROR: Creating component...aborted")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15143 (find-file ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15144 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15145 (set-buffer-modified-p nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15146 ;; insert header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15147 (if vhdl-compose-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15148 (progn (vhdl-template-header) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15149 (goto-char (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15150 (vhdl-comment-display-line) (insert "\n\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15151 ;; insert library clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15152 (vhdl-template-package-std-logic-1164) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15153 (when vhdl-use-components-package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15154 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15155 (vhdl-template-standard-package (vhdl-work-library) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15156 (vhdl-get-components-package-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15157 (insert "\n\n") (vhdl-comment-display-line) (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15158 ;; insert entity declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15159 (vhdl-insert-keyword "ENTITY ") (insert ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15160 (vhdl-insert-keyword " IS\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15161 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15162 (indent-to vhdl-basic-offset) (vhdl-insert-keyword "GENERIC (\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15163 (indent-to (* 2 vhdl-basic-offset)) (insert ");\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15164 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15165 (indent-to vhdl-basic-offset) (vhdl-insert-keyword "PORT (\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15166 (indent-to (* 2 vhdl-basic-offset)) (insert ");\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15167 (when (memq vhdl-insert-empty-lines '(unit all)) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15168 (vhdl-insert-keyword "END ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15169 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "ENTITY ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15170 (insert ent-name ";\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15171 (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15172 ;; open architecture file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15173 (if (not (eq vhdl-compose-create-files 'separate)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15174 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15175 (setq ent-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15176 (setq arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15177 (concat (vhdl-replace-string vhdl-architecture-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15178 (concat ent-name " " arch-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15179 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15180 (when (and (file-exists-p arch-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15181 (not (y-or-n-p (concat "File \"" arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15182 "\" exists; overwrite? ")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15183 (error "ERROR: Creating component...aborted")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15184 (find-file arch-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15185 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15186 (set-buffer-modified-p nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15187 ;; insert header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15188 (if vhdl-compose-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15189 (progn (vhdl-template-header) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15190 (goto-char (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15191 (vhdl-comment-display-line) (insert "\n\n"))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15192 ;; insert architecture body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15193 (vhdl-insert-keyword "ARCHITECTURE ") (insert arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15194 (vhdl-insert-keyword " OF ") (insert ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15195 (vhdl-insert-keyword " IS\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15196 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15197 (indent-to vhdl-basic-offset) (insert "-- Internal signal declarations\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15198 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15199 (unless (or vhdl-use-components-package (vhdl-use-direct-instantiation)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15200 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15201 (indent-to vhdl-basic-offset) (insert "-- Component declarations\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15202 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15203 (vhdl-insert-keyword "BEGIN") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15204 (when vhdl-self-insert-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15205 (insert " -- ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15206 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "ARCHITECTURE ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15207 (insert arch-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15208 (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15209 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15210 (indent-to vhdl-basic-offset) (insert "-- Component instantiations\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15211 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15212 (vhdl-insert-keyword "END ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15213 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "ARCHITECTURE ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15214 (insert arch-name ";\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15215 ;; insert footer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15216 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer ""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15217 (vhdl-template-footer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15218 (vhdl-comment-display-line) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15219 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15220 (setq arch-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15221 (when ent-buffer (set-buffer ent-buffer) (save-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15222 (set-buffer arch-buffer) (save-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15223 (message |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15224 (concat (format "Creating component \"%s(%s)\"...done" ent-name arch-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15225 (and ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15226 (format "\n File created: \"%s\"" ent-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15227 (and arch-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15228 (format "\n File created: \"%s\"" arch-file-name)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15229 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15230 (defun vhdl-compose-place-component () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15231 "Place new component by pasting current port as component declaration and |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15232 component instantiation." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15233 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15234 (if (not vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15235 (error "ERROR: No port has been read") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15236 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15237 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15238 (unless (or (re-search-backward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15239 (re-search-forward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15240 (error "ERROR: No architecture found")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15241 (let* ((ent-name (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15242 (ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15243 (concat (vhdl-replace-string vhdl-entity-file-name ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15244 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15245 (orig-buffer (current-buffer))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15246 (message "Placing component \"%s\"..." (nth 0 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15247 ;; place component declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15248 (unless (or vhdl-use-components-package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15249 (vhdl-use-direct-instantiation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15250 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15251 (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15252 (concat "^\\s-*component\\s-+" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15253 (car vhdl-port-list) "\\>") nil t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15254 (re-search-forward "^begin\\>" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15255 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15256 (skip-chars-backward " \t\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15257 (insert "\n\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15258 (vhdl-port-paste-component t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15259 ;; place component instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15260 (re-search-forward "^end\\>" nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15261 (beginning-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15262 (skip-chars-backward " \t\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15263 (insert "\n\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15264 (vhdl-port-paste-instance nil t t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15265 ;; place use clause for used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15266 (when (nth 3 vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15267 ;; open entity file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15268 (when (file-exists-p ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15269 (find-file ent-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15270 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15271 (unless (re-search-forward (concat "^entity[ \t\n]+" ent-name "[ \t\n]+is\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15272 (error "ERROR: Entity not found: \"%s\"" ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15273 (goto-char (match-beginning 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15274 (if (and (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15275 (re-search-backward "^\\(library\\|use\\)\\|end\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15276 (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15277 (progn (goto-char (match-end 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15278 (beginning-of-line 2)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15279 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15280 (backward-char)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15281 (vhdl-port-paste-context-clause) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15282 (switch-to-buffer orig-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15283 (message "Placing component \"%s\"...done" (nth 0 vhdl-port-list))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15284 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15285 (defun vhdl-compose-wire-components () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15286 "Connect components." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15287 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15288 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15289 (vhdl-prepare-search-2 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15290 (unless (or (re-search-backward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15291 (re-search-forward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15292 (error "ERROR: No architecture found")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15293 (let* ((ent-name (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15294 (ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15295 (concat (vhdl-replace-string vhdl-entity-file-name ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15296 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15297 (arch-decl-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15298 (arch-stat-pos (re-search-forward "^begin\\>" nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15299 (arch-end-pos (re-search-forward "^end\\>" nil)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15300 (pack-name (vhdl-get-components-package-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15301 (pack-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15302 (concat (vhdl-replace-string vhdl-package-file-name pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15303 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15304 inst-name comp-name comp-ent-name comp-ent-file-name has-generic |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15305 port-alist generic-alist inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15306 signal-name signal-entry signal-alist local-list written-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15307 single-in-list multi-in-list single-out-list multi-out-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15308 constant-name constant-entry constant-alist single-list multi-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15309 port-beg-pos port-in-pos port-out-pos port-inst-pos port-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15310 generic-beg-pos generic-pos generic-inst-pos generic-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15311 signal-beg-pos signal-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15312 constant-temp-pos port-temp-pos signal-temp-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15313 (message "Wiring components...") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15314 ;; process all instances |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15315 (goto-char arch-stat-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15316 (while (re-search-forward |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15317 (concat "^[ \t]*\\(\\w+\\)[ \t\n]*:[ \t\n]*\\(" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15318 "\\(component[ \t\n]+\\)?\\(\\w+\\)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15319 "[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(\\(generic\\)\\|port\\)[ \t\n]+map\\|" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15320 "\\(\\(entity\\)\\|configuration\\)[ \t\n]+\\(\\(\\w+\\)\\.\\)?\\(\\w+\\)\\([ \t\n]*(\\(\\w+\\))\\)?" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15321 "[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(\\(generic\\)\\|port\\)[ \t\n]+map\\)[ \t\n]*(") arch-end-pos t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15322 (setq inst-name (match-string-no-properties 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15323 comp-name (match-string-no-properties 4) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15324 comp-ent-name (match-string-no-properties 12) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15325 has-generic (or (match-string 7) (match-string 17))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15326 ;; get port ... |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15327 (if comp-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15328 ;; ... from component declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15329 (vhdl-visit-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15330 (when vhdl-use-components-package pack-file-name) t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15331 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15332 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15333 (unless (re-search-forward (concat "^\\s-*component[ \t\n]+" comp-name "\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15334 (error "ERROR: Component declaration not found: \"%s\"" comp-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15335 (vhdl-port-copy))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15336 ;; ... from entity declaration (direct instantiation) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15337 (setq comp-ent-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15338 (concat (vhdl-replace-string vhdl-entity-file-name comp-ent-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15339 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15340 (vhdl-visit-file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15341 comp-ent-file-name t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15342 (save-excursion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15343 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15344 (unless (re-search-forward (concat "^\\s-*entity[ \t\n]+" comp-ent-name "\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15345 (error "ERROR: Entity declaration not found: \"%s\"" comp-ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15346 (vhdl-port-copy)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15347 (vhdl-port-flatten t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15348 (setq generic-alist (nth 1 vhdl-port-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15349 port-alist (nth 2 vhdl-port-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15350 (setq constant-alist nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15351 signal-alist nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15352 (when has-generic |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15353 ;; process all constants in generic map |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15354 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15355 (while (vhdl-parse-string "\\(\\(\\w+\\)[ \t\n]*=>[ \t\n]*\\)?\\(\\w+\\),?" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15356 (setq constant-name (match-string-no-properties 3)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15357 (setq constant-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15358 (cons constant-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15359 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15360 (or (aget generic-alist (match-string 2) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15361 (error (format "ERROR: Formal generic \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15362 (cdar generic-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15363 (setq constant-alist (cons constant-entry constant-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15364 (setq constant-name (downcase constant-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15365 (if (or (member constant-name single-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15366 (member constant-name multi-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15367 (progn (setq single-list (delete constant-name single-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15368 (add-to-list 'multi-list constant-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15369 (add-to-list 'single-list constant-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15370 (unless (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15371 (setq generic-alist (cdr generic-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15372 (vhdl-forward-syntactic-ws)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15373 (vhdl-re-search-forward "\\<port\\s-+map[ \t\n]*(" nil t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15374 ;; process all signals in port map |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15375 (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15376 (while (vhdl-parse-string "\\(\\(\\w+\\)[ \t\n]*=>[ \t\n]*\\)?\\(\\w+\\),?" t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15377 (setq signal-name (match-string-no-properties 3)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15378 (setq signal-entry (cons signal-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15379 (if (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15380 (or (aget port-alist (match-string 2) t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15381 (error (format "ERROR: Formal port \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15382 (cdar port-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15383 (setq signal-alist (cons signal-entry signal-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15384 (setq signal-name (downcase signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15385 (if (equal (upcase (nth 2 signal-entry)) "IN") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15386 ;; input signal |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15387 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15388 ((member signal-name local-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15389 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15390 ((or (member signal-name single-out-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15391 (member signal-name multi-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15392 (setq single-out-list (delete signal-name single-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15393 (setq multi-out-list (delete signal-name multi-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15394 (add-to-list 'local-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15395 ((member signal-name single-in-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15396 (setq single-in-list (delete signal-name single-in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15397 (add-to-list 'multi-in-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15398 ((not (member signal-name multi-in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15399 (add-to-list 'single-in-list signal-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15400 ;; output signal |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15401 (cond |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15402 ((member signal-name local-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15403 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15404 ((or (member signal-name single-in-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15405 (member signal-name multi-in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15406 (setq single-in-list (delete signal-name single-in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15407 (setq multi-in-list (delete signal-name multi-in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15408 (add-to-list 'local-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15409 ((member signal-name single-out-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15410 (setq single-out-list (delete signal-name single-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15411 (add-to-list 'multi-out-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15412 ((not (member signal-name multi-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15413 (add-to-list 'single-out-list signal-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15414 (unless (match-string 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15415 (setq port-alist (cdr port-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15416 (vhdl-forward-syntactic-ws)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15417 (setq inst-alist (cons (list inst-name (nreverse constant-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15418 (nreverse signal-alist)) inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15419 ;; prepare signal insertion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15420 (vhdl-goto-marker arch-decl-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15421 (forward-line 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15422 (re-search-forward "^\\s-*-- Internal signal declarations[ \t\n]*-*\n" arch-stat-pos t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15423 (setq signal-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15424 (while (progn (vhdl-forward-syntactic-ws) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15425 (looking-at "signal\\>")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15426 (beginning-of-line 2) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15427 (delete-region signal-pos (point))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15428 (setq signal-beg-pos signal-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15429 ;; open entity file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15430 (when (file-exists-p ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15431 (find-file ent-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15432 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15433 (unless (re-search-forward (concat "^entity[ \t\n]+" ent-name "[ \t\n]+is\\>") nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15434 (error "ERROR: Entity not found: \"%s\"" ent-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15435 ;; prepare generic clause insertion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15436 (unless (and (re-search-forward "\\(^\\s-*generic[ \t\n]*(\\)\\|^end\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15437 (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15438 (goto-char (match-beginning 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15439 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15440 (insert "generic ();\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15441 (backward-char 4)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15442 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15443 (setq generic-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15444 (forward-sexp) (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15445 (delete-region generic-pos (point)) (delete-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15446 (insert "(\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15447 (when multi-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15448 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15449 (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15450 (insert "-- global generics\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15451 (setq generic-beg-pos (point-marker) generic-pos (point-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15452 generic-inst-pos (point-marker) generic-end-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15453 ;; prepare port clause insertion |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15454 (unless (and (re-search-forward "\\(^\\s-*port[ \t\n]*(\\)\\|^end\\>" nil t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15455 (match-string 1)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15456 (goto-char (match-beginning 0)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15457 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15458 (insert "port ();\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15459 (backward-char 4)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15460 (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15461 (setq port-in-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15462 (forward-sexp) (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15463 (delete-region port-in-pos (point)) (delete-char 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15464 (insert "(\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15465 (when (or multi-in-list multi-out-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15466 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15467 (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15468 (insert "-- global ports\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15469 (setq port-beg-pos (point-marker) port-in-pos (point-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15470 port-out-pos (point-marker) port-inst-pos (point-marker) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15471 port-end-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15472 ;; insert generics, ports and signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15473 (setq inst-alist (nreverse inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15474 (while inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15475 (setq inst-name (nth 0 (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15476 constant-alist (nth 1 (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15477 signal-alist (nth 2 (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15478 constant-temp-pos generic-inst-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15479 port-temp-pos port-inst-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15480 signal-temp-pos signal-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15481 ;; generics |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15482 (while constant-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15483 (setq constant-name (downcase (caar constant-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15484 constant-entry (car constant-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15485 (cond ((member constant-name written-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15486 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15487 ((member constant-name multi-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15488 (vhdl-goto-marker generic-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15489 (setq generic-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15490 (vhdl-max-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15491 generic-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15492 (vhdl-compose-insert-generic constant-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15493 (setq generic-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15494 (add-to-list 'written-list constant-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15495 (t |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15496 (vhdl-goto-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15497 (vhdl-max-marker generic-inst-pos generic-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15498 (setq generic-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15499 (vhdl-compose-insert-generic constant-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15500 (setq generic-inst-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15501 (add-to-list 'written-list constant-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15502 (setq constant-alist (cdr constant-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15503 (when (/= constant-temp-pos generic-inst-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15504 (vhdl-goto-marker (vhdl-max-marker constant-temp-pos generic-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15505 (insert "\n") (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15506 (insert "-- generics for \"" inst-name "\"\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15507 (vhdl-goto-marker generic-inst-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15508 ;; ports and signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15509 (while signal-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15510 (setq signal-name (downcase (caar signal-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15511 signal-entry (car signal-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15512 (cond ((member signal-name written-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15513 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15514 ((member signal-name multi-in-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15515 (vhdl-goto-marker port-in-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15516 (setq port-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15517 (vhdl-max-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15518 port-end-pos (vhdl-compose-insert-port signal-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15519 (setq port-in-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15520 (add-to-list 'written-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15521 ((member signal-name multi-out-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15522 (vhdl-goto-marker (vhdl-max-marker port-out-pos port-in-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15523 (setq port-end-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15524 (vhdl-max-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15525 port-end-pos (vhdl-compose-insert-port signal-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15526 (setq port-out-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15527 (add-to-list 'written-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15528 ((or (member signal-name single-in-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15529 (member signal-name single-out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15530 (vhdl-goto-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15531 (vhdl-max-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15532 port-inst-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15533 (vhdl-max-marker port-out-pos port-in-pos))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15534 (setq port-end-pos (vhdl-compose-insert-port signal-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15535 (setq port-inst-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15536 (add-to-list 'written-list signal-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15537 ((equal (upcase (nth 2 signal-entry)) "OUT") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15538 (vhdl-goto-marker signal-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15539 (vhdl-compose-insert-signal signal-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15540 (setq signal-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15541 (add-to-list 'written-list signal-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15542 (setq signal-alist (cdr signal-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15543 (when (/= port-temp-pos port-inst-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15544 (vhdl-goto-marker |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15545 (vhdl-max-marker port-temp-pos |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15546 (vhdl-max-marker port-in-pos port-out-pos))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15547 (insert "\n") (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15548 (insert "-- ports to \"" inst-name "\"\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15549 (vhdl-goto-marker port-inst-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15550 (when (/= signal-temp-pos signal-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15551 (vhdl-goto-marker signal-temp-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15552 (insert "\n") (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15553 (insert "-- outputs of \"" inst-name "\"\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15554 (vhdl-goto-marker signal-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15555 (setq inst-alist (cdr inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15556 ;; finalize generic/port clause |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15557 (vhdl-goto-marker generic-end-pos) (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15558 (when (= generic-beg-pos generic-end-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15559 (insert "\n") (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15560 (insert ";") (backward-char)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15561 (insert ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15562 (vhdl-goto-marker port-end-pos) (backward-char) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15563 (when (= port-beg-pos port-end-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15564 (insert "\n") (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15565 (insert ";") (backward-char)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15566 (insert ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15567 ;; align everything |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15568 (when vhdl-auto-align |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15569 (vhdl-goto-marker generic-beg-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15570 (vhdl-align-region-groups generic-beg-pos generic-end-pos 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15571 (vhdl-align-region-groups port-beg-pos port-end-pos 1) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15572 (vhdl-goto-marker signal-beg-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15573 (vhdl-align-region-groups signal-beg-pos signal-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15574 (switch-to-buffer (marker-buffer signal-beg-pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15575 (message "Wiring components...done"))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15576 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15577 (defun vhdl-compose-insert-generic (entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15578 "Insert ENTRY as generic declaration." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15579 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15580 (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15581 (insert (nth 0 entry) " : " (nth 1 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15582 (when (nth 2 entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15583 (insert " := " (nth 2 entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15584 (insert ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15585 (setq pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15586 (when (and vhdl-include-port-comments (nth 3 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15587 (vhdl-comment-insert-inline (nth 3 entry) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15588 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15589 pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15590 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15591 (defun vhdl-compose-insert-port (entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15592 "Insert ENTRY as port declaration." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15593 (let (pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15594 (indent-to (* 2 vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15595 (insert (nth 0 entry) " : " (nth 2 entry) " " (nth 3 entry) ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15596 (setq pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15597 (when (and vhdl-include-port-comments (nth 4 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15598 (vhdl-comment-insert-inline (nth 4 entry) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15599 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15600 pos)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15601 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15602 (defun vhdl-compose-insert-signal (entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15603 "Insert ENTRY as signal declaration." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15604 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15605 (insert "signal " (nth 0 entry) " : " (nth 3 entry) ";") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15606 (when (and vhdl-include-port-comments (nth 4 entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15607 (vhdl-comment-insert-inline (nth 4 entry) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15608 (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15609 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15610 (defun vhdl-compose-components-package () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15611 "Generate a package containing component declarations for all entities in the |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15612 current project/directory." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15613 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15614 (vhdl-require-hierarchy-info) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15615 (let* ((project (vhdl-project-p)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15616 (pack-name (vhdl-get-components-package-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15617 (pack-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15618 (concat (vhdl-replace-string vhdl-package-file-name pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15619 "." (file-name-extension (buffer-file-name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15620 (ent-alist (aget vhdl-entity-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15621 (or project default-directory) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15622 (lazy-lock-minimum-size 0) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15623 clause-pos component-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15624 (message "Generating components package \"%s\"..." pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15625 ;; open package file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15626 (when (and (file-exists-p pack-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15627 (not (y-or-n-p (concat "File \"" pack-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15628 "\" exists; overwrite? ")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15629 (error "ERROR: Generating components package...aborted")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15630 (find-file pack-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15631 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15632 ;; insert header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15633 (if vhdl-compose-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15634 (progn (vhdl-template-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15635 (concat "Components package (generated by Emacs VHDL Mode " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15636 vhdl-version ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15637 (goto-char (point-max))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15638 (vhdl-comment-display-line) (insert "\n\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15639 ;; insert std_logic_1164 package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15640 (vhdl-template-package-std-logic-1164) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15641 (insert "\n") (setq clause-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15642 (insert "\n") (vhdl-comment-display-line) (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15643 ;; insert package declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15644 (vhdl-insert-keyword "PACKAGE ") (insert pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15645 (vhdl-insert-keyword " IS\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15646 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15647 (indent-to vhdl-basic-offset) (insert "-- Component declarations\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15648 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15649 (indent-to vhdl-basic-offset) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15650 (setq component-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15651 (insert "\n\n") (vhdl-insert-keyword "END ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15652 (unless (vhdl-standard-p '87) (vhdl-insert-keyword "PACKAGE ")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15653 (insert pack-name ";\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15654 ;; insert footer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15655 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer ""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15656 (vhdl-template-footer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15657 (vhdl-comment-display-line) (insert "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15658 ;; insert component declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15659 (while ent-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15660 (vhdl-visit-file (nth 2 (car ent-alist)) nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15661 (progn (goto-line (nth 3 (car ent-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15662 (end-of-line) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15663 (vhdl-port-copy))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15664 (goto-char component-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15665 (vhdl-port-paste-component t) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15666 (when (cdr ent-alist) (insert "\n\n") (indent-to vhdl-basic-offset)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15667 (setq component-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15668 (goto-char clause-pos) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15669 (vhdl-port-paste-context-clause pack-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15670 (setq clause-pos (point-marker)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15671 (setq ent-alist (cdr ent-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15672 (goto-char (point-min)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15673 (save-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15674 (message "Generating components package \"%s\"...done\n File created: \"%s\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15675 pack-name pack-file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15676 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15677 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15678 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15679 ;;; Compilation / Makefile generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15680 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15681 ;; (using `compile.el') |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15682 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15683 (defun vhdl-makefile-name () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15684 "Return the Makefile name of the current project or the current compiler if |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15685 no project is defined." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15686 (let ((project-alist (aget vhdl-project-alist vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15687 (compiler-alist (aget vhdl-compiler-alist vhdl-compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15688 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15689 (cons "\\(.*\\)\n\\(.*\\)" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15690 (or (nth 8 project-alist) (nth 8 compiler-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15691 (concat (nth 9 compiler-alist) "\n" (nth 6 project-alist))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15692 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15693 (defun vhdl-compile-directory () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15694 "Return the directory where compilation/make should be run." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15695 (let* ((project (aget vhdl-project-alist (vhdl-project-p t))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15696 (compiler (aget vhdl-compiler-alist vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15697 (directory (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15698 (if project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15699 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15700 (cons "\\(.*\\)" (nth 5 project)) (nth 9 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15701 (nth 6 compiler))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15702 (file-name-as-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15703 (if (file-name-absolute-p directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15704 directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15705 (expand-file-name directory (vhdl-default-directory)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15706 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15707 (defun vhdl-uniquify (in-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15708 "Remove duplicate elements from IN-LIST." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15709 (let (out-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15710 (while in-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15711 (add-to-list 'out-list (car in-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15712 (setq in-list (cdr in-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15713 out-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15714 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15715 (defun vhdl-set-compiler (name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15716 "Set current compiler to NAME." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15717 (interactive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15718 (list (let ((completion-ignore-case t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15719 (completing-read "Compiler name: " vhdl-compiler-alist nil t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15720 (if (assoc name vhdl-compiler-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15721 (progn (setq vhdl-compiler name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15722 (message "Current compiler: \"%s\"" vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15723 (vhdl-warning (format "Unknown compiler: \"%s\"" name)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15724 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15725 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15726 ;; Compilation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15727 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15728 (defun vhdl-compile-init () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15729 "Initialize for compilation." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15730 (when (or (null compilation-error-regexp-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15731 (not (assoc (car (nth 11 (car vhdl-compiler-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15732 compilation-error-regexp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15733 ;; `compilation-error-regexp-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15734 (let ((commands-alist vhdl-compiler-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15735 regexp-alist sublist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15736 (while commands-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15737 (setq sublist (nth 11 (car commands-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15738 (unless (or (equal "" (car sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15739 (assoc (car sublist) regexp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15740 (setq regexp-alist (cons (list (nth 0 sublist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15741 (if (= 0 (nth 1 sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15742 (if vhdl-xemacs 9 nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15743 (nth 1 sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15744 (nth 2 sublist) (nth 3 sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15745 regexp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15746 (setq commands-alist (cdr commands-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15747 (setq compilation-error-regexp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15748 (append compilation-error-regexp-alist (nreverse regexp-alist)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15749 ;; `compilation-file-regexp-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15750 (let ((commands-alist vhdl-compiler-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15751 regexp-alist sublist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15752 ;; matches vhdl-mode file name output |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15753 (setq regexp-alist '(("^Compiling \"\\(.+\\)\"" 1))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15754 (while commands-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15755 (setq sublist (nth 12 (car commands-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15756 (unless (or (equal "" (car sublist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15757 (assoc (car sublist) regexp-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15758 (setq regexp-alist (cons sublist regexp-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15759 (setq commands-alist (cdr commands-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15760 (setq compilation-file-regexp-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15761 (append compilation-file-regexp-alist (nreverse regexp-alist)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15762 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15763 (defvar vhdl-compile-file-name nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15764 "Name of file to be compiled.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15765 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15766 (defun vhdl-compile-print-file-name () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15767 "Function called within `compile' to print out file name for compilers that |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15768 do not print any file names." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15769 (insert "Compiling \"" vhdl-compile-file-name "\"\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15770 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15771 (defun vhdl-get-compile-options (project compiler file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15772 &optional file-options-only) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15773 "Get compiler options. Returning nil means do not compile this file." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15774 (let* ((compiler-options (nth 1 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15775 (project-entry (aget (nth 4 project) vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15776 (project-options (nth 0 project-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15777 (exception-list (and file-name (nth 2 project-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15778 (work-library (vhdl-work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15779 (case-fold-search nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15780 file-options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15781 (while (and exception-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15782 (not (string-match (caar exception-list) file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15783 (setq exception-list (cdr exception-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15784 (if (and exception-list (not (cdar exception-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15785 nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15786 (if (and file-options-only (not exception-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15787 'default |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15788 (setq file-options (cdar exception-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15789 ;; insert library name in compiler-specific options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15790 (setq compiler-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15791 (vhdl-replace-string (cons "\\(.*\\)" compiler-options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15792 work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15793 ;; insert compiler-specific options in project-specific options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15794 (when project-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15795 (setq project-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15796 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15797 (cons "\\(.*\\)\n\\(.*\\)" project-options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15798 (concat work-library "\n" compiler-options)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15799 ;; insert project-specific options in file-specific options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15800 (when file-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15801 (setq file-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15802 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15803 (cons "\\(.*\\)\n\\(.*\\)\n\\(.*\\)" file-options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15804 (concat work-library "\n" compiler-options "\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15805 project-options)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15806 ;; return options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15807 (or file-options project-options compiler-options))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15808 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15809 (defun vhdl-get-make-options (project compiler) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15810 "Get make options." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15811 (let* ((compiler-options (nth 3 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15812 (project-entry (aget (nth 4 project) vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15813 (project-options (nth 1 project-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15814 (makefile-name (vhdl-makefile-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15815 ;; insert Makefile name in compiler-specific options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15816 (setq compiler-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15817 (vhdl-replace-string (cons "\\(.*\\)" (nth 3 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15818 makefile-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15819 ;; insert compiler-specific options in project-specific options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15820 (when project-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15821 (setq project-options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15822 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15823 (cons "\\(.*\\)\n\\(.*\\)" project-options) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15824 (concat makefile-name "\n" compiler-options)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15825 ;; return options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15826 (or project-options compiler-options))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15827 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15828 (defun vhdl-compile () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15829 "Compile current buffer using the VHDL compiler specified in |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15830 `vhdl-compiler'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15831 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15832 (vhdl-compile-init) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15833 (let* ((project (aget vhdl-project-alist vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15834 (compiler (or (aget vhdl-compiler-alist vhdl-compiler nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15835 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15836 (command (nth 0 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15837 (file-name (buffer-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15838 (options (vhdl-get-compile-options project compiler file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15839 (default-directory (vhdl-compile-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15840 compilation-process-setup-function) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15841 (unless (file-directory-p default-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15842 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15843 ;; put file name into quotes if it contains spaces |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15844 (when (string-match " " file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15845 (setq file-name (concat "\"" file-name "\""))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15846 ;; print out file name if compiler does not |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15847 (setq vhdl-compile-file-name (buffer-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15848 (when (and (= 0 (nth 1 (nth 10 compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15849 (= 0 (nth 1 (nth 11 compiler)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15850 (setq compilation-process-setup-function 'vhdl-compile-print-file-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15851 ;; run compilation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15852 (if options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15853 (when command |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15854 (compile (concat command " " options " " file-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15855 (vhdl-warning "Your project settings tell me not to compile this file")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15856 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15857 (defun vhdl-make (&optional target) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15858 "Call make command for compilation of all updated source files (requires |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15859 `Makefile'). Optional argument TARGET allows to compile the design |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15860 specified by a target." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15861 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15862 (vhdl-compile-init) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15863 (let* ((project (aget vhdl-project-alist vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15864 (compiler (or (aget vhdl-compiler-alist vhdl-compiler) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15865 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15866 (command (nth 2 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15867 (options (vhdl-get-make-options project compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15868 (default-directory (vhdl-compile-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15869 (unless (file-directory-p default-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15870 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15871 ;; run make |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15872 (compile (concat (if (equal command "") "make" command) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15873 " " options " " target)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15874 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15875 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15876 ;; Makefile generation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15877 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15878 (defun vhdl-generate-makefile () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15879 "Generate `Makefile'." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15880 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15881 (let* ((compiler (or (aget vhdl-compiler-alist vhdl-compiler) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15882 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15883 (command (nth 4 compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15884 ;; generate makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15885 (if command |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15886 (let ((default-directory (vhdl-compile-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15887 (compile (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15888 (cons "\\(.*\\) \\(.*\\)" command) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15889 (concat (vhdl-makefile-name) " " (vhdl-work-library))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15890 (vhdl-generate-makefile-1)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15891 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15892 (defun vhdl-get-packages (lib-alist work-library) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15893 "Get packages from LIB-ALIST that belong to WORK-LIBRARY." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15894 (let (pack-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15895 (while lib-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15896 (when (equal (downcase (caar lib-alist)) (downcase work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15897 (setq pack-list (cons (cdar lib-alist) pack-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15898 (setq lib-alist (cdr lib-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15899 pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15900 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15901 (defun vhdl-generate-makefile-1 () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15902 "Generate Makefile for current project or directory." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15903 ;; scan hierarchy if required |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15904 (if (vhdl-project-p) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15905 (unless (or (assoc vhdl-project vhdl-file-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15906 (vhdl-load-cache vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15907 (vhdl-scan-project-contents vhdl-project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15908 (let ((directory (abbreviate-file-name default-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15909 (unless (or (assoc directory vhdl-file-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15910 (vhdl-load-cache directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15911 (vhdl-scan-directory-contents directory)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15912 (let* ((directory (abbreviate-file-name (vhdl-default-directory))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15913 (project (vhdl-project-p)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15914 (ent-alist (aget vhdl-entity-alist (or project directory) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15915 (conf-alist (aget vhdl-config-alist (or project directory) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15916 (pack-alist (aget vhdl-package-alist (or project directory) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15917 (regexp-list (nth 12 (aget vhdl-compiler-alist vhdl-compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15918 (ent-regexp (cons "\\(.*\\)" (nth 0 regexp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15919 (arch-regexp (cons "\\(.*\\) \\(.*\\)" (nth 1 regexp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15920 (conf-regexp (cons "\\(.*\\)" (nth 2 regexp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15921 (pack-regexp (cons "\\(.*\\)" (nth 3 regexp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15922 (pack-body-regexp (cons "\\(.*\\)" (nth 4 regexp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15923 (adjust-case (nth 5 regexp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15924 (work-library (downcase (vhdl-work-library))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15925 (compile-directory (expand-file-name (vhdl-compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15926 default-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15927 (makefile-name (vhdl-makefile-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15928 rule-alist arch-alist inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15929 target-list depend-list unit-list prim-list second-list subcomp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15930 lib-alist lib-body-alist pack-list all-pack-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15931 ent-key ent-file-name arch-key arch-file-name ent-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15932 conf-key conf-file-name pack-key pack-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15933 ent-entry arch-entry conf-entry pack-entry inst-entry |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15934 pack-body-key pack-body-file-name inst-ent-key inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15935 tmp-key tmp-list rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15936 ;; check prerequisites |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15937 (unless (file-exists-p compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15938 (make-directory compile-directory t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15939 (unless regexp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15940 (error "Please contact the VHDL Mode maintainer for support of \"%s\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15941 vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15942 (message "Generating makefile \"%s\"..." makefile-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15943 ;; rules for all entities |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15944 (setq tmp-list ent-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15945 (while ent-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15946 (setq ent-entry (car ent-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15947 ent-key (nth 0 ent-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15948 (when (nth 2 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15949 (setq ent-file-name (file-relative-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15950 (nth 2 ent-entry) compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15951 arch-alist (nth 4 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15952 lib-alist (nth 5 ent-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15953 rule (aget rule-alist ent-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15954 target-list (nth 0 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15955 depend-list (nth 1 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15956 second-list nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15957 subcomp-list nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15958 (setq tmp-key (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15959 ent-regexp (funcall adjust-case ent-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15960 (setq unit-list (cons (cons ent-key tmp-key) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15961 ;; rule target for this entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15962 (setq target-list (cons ent-key target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15963 ;; rule dependencies for all used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15964 (setq pack-list (vhdl-get-packages lib-alist work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15965 (setq depend-list (append depend-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15966 (setq all-pack-list pack-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15967 ;; add rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15968 (aput 'rule-alist ent-file-name (list target-list depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15969 ;; rules for all corresponding architectures |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15970 (while arch-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15971 (setq arch-entry (car arch-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15972 arch-key (nth 0 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15973 ent-arch-key (concat ent-key "-" arch-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15974 arch-file-name (file-relative-name (nth 2 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15975 compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15976 inst-alist (nth 4 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15977 lib-alist (nth 5 arch-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15978 rule (aget rule-alist arch-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15979 target-list (nth 0 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15980 depend-list (nth 1 rule)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15981 (setq tmp-key (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15982 arch-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15983 (funcall adjust-case (concat arch-key " " ent-key)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15984 (setq unit-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15985 (cons (cons ent-arch-key tmp-key) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15986 (setq second-list (cons ent-arch-key second-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15987 ;; rule target for this architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15988 (setq target-list (cons ent-arch-key target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15989 ;; rule dependency for corresponding entity |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15990 (setq depend-list (cons ent-key depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15991 ;; rule dependencies for contained component instantiations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15992 (while inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15993 (setq inst-entry (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15994 (when (or (null (nth 8 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15995 (equal (downcase (nth 8 inst-entry)) work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15996 (setq inst-ent-key (or (nth 7 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15997 (nth 5 inst-entry))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15998 (setq depend-list (cons inst-ent-key depend-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
15999 subcomp-list (cons inst-ent-key subcomp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16000 (setq inst-alist (cdr inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16001 ;; rule dependencies for all used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16002 (setq pack-list (vhdl-get-packages lib-alist work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16003 (setq depend-list (append depend-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16004 (setq all-pack-list (append all-pack-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16005 ;; add rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16006 (aput 'rule-alist arch-file-name (list target-list depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16007 (setq arch-alist (cdr arch-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16008 (setq prim-list (cons (list ent-key second-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16009 (append subcomp-list all-pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16010 prim-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16011 (setq ent-alist (cdr ent-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16012 (setq ent-alist tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16013 ;; rules for all configurations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16014 (setq tmp-list conf-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16015 (while conf-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16016 (setq conf-entry (car conf-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16017 conf-key (nth 0 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16018 conf-file-name (file-relative-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16019 (nth 2 conf-entry) compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16020 ent-key (nth 4 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16021 arch-key (nth 5 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16022 inst-alist (nth 6 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16023 lib-alist (nth 7 conf-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16024 rule (aget rule-alist conf-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16025 target-list (nth 0 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16026 depend-list (nth 1 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16027 subcomp-list (list ent-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16028 (setq tmp-key (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16029 conf-regexp (funcall adjust-case conf-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16030 (setq unit-list (cons (cons conf-key tmp-key) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16031 ;; rule target for this configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16032 (setq target-list (cons conf-key target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16033 ;; rule dependency for corresponding entity and architecture |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16034 (setq depend-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16035 (cons ent-key (cons (concat ent-key "-" arch-key) depend-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16036 ;; rule dependencies for used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16037 (setq pack-list (vhdl-get-packages lib-alist work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16038 (setq depend-list (append depend-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16039 ;; rule dependencies for contained component configurations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16040 (while inst-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16041 (setq inst-entry (car inst-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16042 (setq inst-ent-key (nth 2 inst-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16043 ; comp-arch-key (nth 2 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16044 inst-conf-key (nth 4 inst-entry)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16045 (when (equal (downcase (nth 5 inst-entry)) work-library) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16046 (when inst-ent-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16047 (setq depend-list (cons inst-ent-key depend-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16048 subcomp-list (cons inst-ent-key subcomp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16049 ; (when comp-arch-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16050 ; (setq depend-list (cons (concat comp-ent-key "-" comp-arch-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16051 ; depend-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16052 (when inst-conf-key |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16053 (setq depend-list (cons inst-conf-key depend-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16054 subcomp-list (cons inst-conf-key subcomp-list)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16055 (setq inst-alist (cdr inst-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16056 ;; add rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16057 (aput 'rule-alist conf-file-name (list target-list depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16058 (setq prim-list (cons (list conf-key nil (append subcomp-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16059 prim-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16060 (setq conf-alist (cdr conf-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16061 (setq conf-alist tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16062 ;; rules for all packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16063 (setq tmp-list pack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16064 (while pack-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16065 (setq pack-entry (car pack-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16066 pack-key (nth 0 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16067 pack-body-key nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16068 (when (nth 2 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16069 (setq pack-file-name (file-relative-name (nth 2 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16070 compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16071 lib-alist (nth 6 pack-entry) lib-body-alist (nth 10 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16072 rule (aget rule-alist pack-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16073 target-list (nth 0 rule) depend-list (nth 1 rule)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16074 (setq tmp-key (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16075 pack-regexp (funcall adjust-case pack-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16076 (setq unit-list (cons (cons pack-key tmp-key) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16077 ;; rule target for this package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16078 (setq target-list (cons pack-key target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16079 ;; rule dependencies for all used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16080 (setq pack-list (vhdl-get-packages lib-alist work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16081 (setq depend-list (append depend-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16082 (setq all-pack-list pack-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16083 ;; add rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16084 (aput 'rule-alist pack-file-name (list target-list depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16085 ;; rules for this package's body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16086 (when (nth 7 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16087 (setq pack-body-key (concat pack-key "-body") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16088 pack-body-file-name (file-relative-name (nth 7 pack-entry) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16089 compile-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16090 rule (aget rule-alist pack-body-file-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16091 target-list (nth 0 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16092 depend-list (nth 1 rule)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16093 (setq tmp-key (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16094 pack-body-regexp (funcall adjust-case pack-key))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16095 (setq unit-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16096 (cons (cons pack-body-key tmp-key) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16097 ;; rule target for this package's body |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16098 (setq target-list (cons pack-body-key target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16099 ;; rule dependency for corresponding package declaration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16100 (setq depend-list (cons pack-key depend-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16101 ;; rule dependencies for all used packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16102 (setq pack-list (vhdl-get-packages lib-body-alist work-library)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16103 (setq depend-list (append depend-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16104 (setq all-pack-list (append all-pack-list pack-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16105 ;; add rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16106 (aput 'rule-alist pack-body-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16107 (list target-list depend-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16108 (setq prim-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16109 (cons (list pack-key (when pack-body-key (list pack-body-key)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16110 all-pack-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16111 prim-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16112 (setq pack-alist (cdr pack-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16113 (setq pack-alist tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16114 ;; generate Makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16115 (let* ((project (aget vhdl-project-alist project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16116 (compiler (aget vhdl-compiler-alist vhdl-compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16117 (compiler-id (nth 9 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16118 (library-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16119 (vhdl-resolve-env-variable |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16120 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16121 (cons "\\(.*\\)" (or (nth 7 project) (nth 7 compiler))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16122 compiler-id))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16123 (makefile-path-name (expand-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16124 makefile-name compile-directory)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16125 (orig-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16126 cell second-list subcomp-list options unit-key unit-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16127 ;; sort lists |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16128 (setq unit-list (vhdl-sort-alist unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16129 (setq prim-list (vhdl-sort-alist prim-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16130 (setq tmp-list rule-alist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16131 (while tmp-list ; pre-sort rule targets |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16132 (setq cell (cdar tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16133 (setcar cell (sort (car cell) 'string<)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16134 (setq tmp-list (cdr tmp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16135 (setq rule-alist ; sort by first rule target |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16136 (sort rule-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16137 (function (lambda (a b) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16138 (string< (car (cadr a)) (car (cadr b))))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16139 ;; open and clear Makefile |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16140 (set-buffer (find-file-noselect makefile-path-name t t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16141 (erase-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16142 (insert "# -*- Makefile -*-\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16143 "### " (file-name-nondirectory makefile-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16144 " - VHDL Makefile generated by Emacs VHDL Mode " vhdl-version |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16145 "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16146 (if project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16147 (insert "\n# Project : " (nth 0 project)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16148 (insert "\n# Directory : \"" directory "\"")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16149 (insert "\n# Platform : " vhdl-compiler |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16150 "\n# Generated : " (format-time-string "%Y-%m-%d %T ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16151 (user-login-name) "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16152 ;; insert compile and option variable settings |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16153 (insert "\n\n# Define compilation command and options\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16154 "\nCOMPILE = " (nth 0 compiler) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16155 "\nOPTIONS = " (vhdl-get-compile-options project compiler nil) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16156 "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16157 ;; insert library paths |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16158 (setq library-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16159 (directory-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16160 (if (file-name-absolute-p library-directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16161 library-directory |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16162 (file-relative-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16163 (expand-file-name library-directory directory) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16164 compile-directory)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16165 (insert "\n\n# Define library paths\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16166 "\nLIBRARY-" work-library " = " library-directory "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16167 ;; insert variable definitions for all library unit files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16168 (insert "\n\n# Define library unit files\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16169 (setq tmp-list unit-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16170 (while unit-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16171 (insert "\nUNIT-" work-library "-" (caar unit-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16172 " = \\\n\t$(LIBRARY-" work-library ")/" (cdar unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16173 (setq unit-list (cdr unit-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16174 ;; insert variable definition for list of all library unit files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16175 (insert "\n\n\n# Define list of all library unit files\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16176 "\nALL_UNITS =") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16177 (setq unit-list tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16178 (while unit-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16179 (insert " \\\n\t" "$(UNIT-" work-library "-" (caar unit-list) ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16180 (setq unit-list (cdr unit-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16181 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16182 (setq unit-list tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16183 ;; insert `make all' rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16184 (insert "\n\n\n# Rule for compiling entire design\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16185 "\nall :" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16186 " \\\n\t\tlibrary" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16187 " \\\n\t\t$(ALL_UNITS)\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16188 ;; insert `make clean' rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16189 (insert "\n\n# Rule for cleaning entire design\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16190 "\nclean : " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16191 "\n\t-rm -f $(ALL_UNITS)\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16192 ;; insert `make library' rule |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16193 (insert "\n\n# Rule for creating library directory\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16194 "\nlibrary :" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16195 " \\\n\t\t$(LIBRARY-" work-library ")\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16196 "\n$(LIBRARY-" work-library ") :" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16197 "\n\t" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16198 (vhdl-replace-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16199 (cons "\\(.*\\)\n\\(.*\\)" (nth 5 compiler)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16200 (concat "$(LIBRARY-" work-library ")\n" (vhdl-work-library))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16201 "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16202 ;; insert rule for each library unit |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16203 (insert "\n\n# Rules for compiling single library units and their subhierarchy\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16204 (while prim-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16205 (setq second-list (sort (nth 1 (car prim-list)) 'string<)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16206 (setq subcomp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16207 (sort (vhdl-uniquify (nth 2 (car prim-list))) 'string<)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16208 (setq unit-key (caar prim-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16209 unit-name (or (nth 0 (aget ent-alist unit-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16210 (nth 0 (aget conf-alist unit-key t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16211 (nth 0 (aget pack-alist unit-key t)))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16212 (insert "\n" unit-key) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16213 (unless (equal unit-key unit-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16214 (insert " \\\n" unit-name)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16215 (insert " :" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16216 " \\\n\t\tlibrary" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16217 " \\\n\t\t$(UNIT-" work-library "-" unit-key ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16218 (while second-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16219 (insert " \\\n\t\t$(UNIT-" work-library "-" (car second-list) ")") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16220 (setq second-list (cdr second-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16221 (while subcomp-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16222 (when (assoc (car subcomp-list) unit-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16223 (insert " \\\n\t\t" (car subcomp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16224 (setq subcomp-list (cdr subcomp-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16225 (insert "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16226 (setq prim-list (cdr prim-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16227 ;; insert rule for each library unit file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16228 (insert "\n\n# Rules for compiling single library unit files\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16229 (while rule-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16230 (setq rule (car rule-alist)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16231 ;; get compiler options for this file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16232 (setq options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16233 (vhdl-get-compile-options project compiler (nth 0 rule) t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16234 ;; insert rule if file is supposed to be compiled |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16235 (setq target-list (nth 1 rule) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16236 depend-list (sort (vhdl-uniquify (nth 2 rule)) 'string<)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16237 ;; insert targets |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16238 (setq tmp-list target-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16239 (while target-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16240 (insert "\n$(UNIT-" work-library "-" (car target-list) ")" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16241 (if (cdr target-list) " \\" " :")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16242 (setq target-list (cdr target-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16243 (setq target-list tmp-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16244 ;; insert file name as first dependency |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16245 (insert " \\\n\t\t" (nth 0 rule)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16246 ;; insert dependencies (except if also target or unit does not exist) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16247 (while depend-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16248 (when (and (not (member (car depend-list) target-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16249 (assoc (car depend-list) unit-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16250 (insert " \\\n\t\t" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16251 "$(UNIT-" work-library "-" (car depend-list) ")")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16252 (setq depend-list (cdr depend-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16253 ;; insert compile command |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16254 (if options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16255 (insert "\n\t$(COMPILE) " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16256 (if (eq options 'default) "$(OPTIONS)" options) " " |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16257 (nth 0 rule) "\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16258 (setq tmp-list target-list) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16259 (while target-list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16260 (insert "\n\t@touch $(UNIT-" work-library "-" (car target-list) ")" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16261 (if (cdr target-list) " \\" "\n")) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16262 (setq target-list (cdr target-list))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16263 (setq target-list tmp-list)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16264 (setq rule-alist (cdr rule-alist))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16265 (insert "\n\n### " makefile-name " ends here\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16266 ;; run Makefile generation hook |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16267 (run-hooks 'vhdl-makefile-generation-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16268 (message "Generating makefile \"%s\"...done" makefile-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16269 ;; save and close file |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16270 (if (file-writable-p makefile-path-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16271 (progn (save-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16272 (kill-buffer (current-buffer)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16273 (set-buffer orig-buffer) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16274 (setq file-name-history |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16275 (cons makefile-path-name file-name-history))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16276 (vhdl-warning-when-idle |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16277 (format "File not writable: \"%s\"" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16278 (abbreviate-file-name makefile-path-name))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16279 (switch-to-buffer (current-buffer)))))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16280 |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16281 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16282 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16283 ;;; Bug reports |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16284 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 16285 ;; (using `reporter.el') |
16286 | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16287 (defconst vhdl-mode-help-address |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16288 "Reto Zimmermann <reto@gnu.org>" |
20665 | 16289 "Address for VHDL Mode bug reports.") |
16290 | |
16291 (defun vhdl-submit-bug-report () | |
16292 "Submit via mail a bug report on VHDL Mode." | |
16293 (interactive) | |
16294 ;; load in reporter | |
16295 (and | |
16296 (y-or-n-p "Do you want to submit a report on VHDL Mode? ") | |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16297 (let ((reporter-prompt-for-summary-p t)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16298 (reporter-submit-bug-report |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16299 vhdl-mode-help-address |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16300 (concat "VHDL Mode " vhdl-version) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16301 (list |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16302 ;; report all important user options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16303 'vhdl-offsets-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16304 'vhdl-comment-only-line-offset |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16305 'tab-width |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16306 'vhdl-electric-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16307 'vhdl-stutter-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16308 'vhdl-indent-tabs-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16309 'vhdl-project-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16310 'vhdl-project |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16311 'vhdl-project-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16312 'vhdl-project-auto-load |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16313 'vhdl-project-sort |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16314 'vhdl-compiler-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16315 'vhdl-compiler |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16316 'vhdl-compile-use-local-error-regexp |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16317 'vhdl-makefile-generation-hook |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16318 'vhdl-default-library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16319 'vhdl-standard |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16320 'vhdl-basic-offset |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16321 'vhdl-upper-case-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16322 'vhdl-upper-case-types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16323 'vhdl-upper-case-attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16324 'vhdl-upper-case-enum-values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16325 'vhdl-upper-case-constants |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16326 'vhdl-use-direct-instantiation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16327 'vhdl-entity-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16328 'vhdl-architecture-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16329 'vhdl-package-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16330 'vhdl-file-name-case |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16331 'vhdl-electric-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16332 'vhdl-optional-labels |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16333 'vhdl-insert-empty-lines |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16334 'vhdl-argument-list-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16335 'vhdl-association-list-with-formals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16336 'vhdl-conditions-in-parenthesis |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16337 'vhdl-zero-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16338 'vhdl-one-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16339 'vhdl-file-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16340 'vhdl-file-footer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16341 'vhdl-company-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16342 'vhdl-copyright-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16343 'vhdl-platform-spec |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16344 'vhdl-date-format |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16345 'vhdl-modify-date-prefix-string |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16346 'vhdl-modify-date-on-saving |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16347 'vhdl-reset-kind |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16348 'vhdl-reset-active-high |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16349 'vhdl-clock-rising-edge |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16350 'vhdl-clock-edge-condition |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16351 'vhdl-clock-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16352 'vhdl-reset-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16353 'vhdl-model-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16354 'vhdl-include-port-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16355 'vhdl-include-direction-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16356 'vhdl-include-type-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16357 'vhdl-include-group-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16358 'vhdl-actual-port-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16359 'vhdl-instance-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16360 'vhdl-testbench-entity-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16361 'vhdl-testbench-architecture-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16362 'vhdl-testbench-configuration-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16363 'vhdl-testbench-dut-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16364 'vhdl-testbench-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16365 'vhdl-testbench-declarations |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16366 'vhdl-testbench-statements |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16367 'vhdl-testbench-initialize-signals |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16368 'vhdl-testbench-include-library |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16369 'vhdl-testbench-include-configuration |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16370 'vhdl-testbench-create-files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16371 'vhdl-compose-create-files |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16372 'vhdl-compose-include-header |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16373 'vhdl-compose-architecture-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16374 'vhdl-components-package-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16375 'vhdl-use-components-package |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16376 'vhdl-self-insert-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16377 'vhdl-prompt-for-comments |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16378 'vhdl-inline-comment-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16379 'vhdl-end-comment-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16380 'vhdl-auto-align |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16381 'vhdl-align-groups |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16382 'vhdl-align-group-separate |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16383 'vhdl-align-same-indent |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16384 'vhdl-highlight-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16385 'vhdl-highlight-names |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16386 'vhdl-highlight-special-words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16387 'vhdl-highlight-forbidden-words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16388 'vhdl-highlight-verilog-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16389 'vhdl-highlight-translate-off |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16390 'vhdl-highlight-case-sensitive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16391 'vhdl-special-syntax-alist |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16392 'vhdl-forbidden-words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16393 'vhdl-forbidden-syntax |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16394 'vhdl-directive-keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16395 'vhdl-speedbar-auto-open |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16396 'vhdl-speedbar-display-mode |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16397 'vhdl-speedbar-scan-limit |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16398 'vhdl-speedbar-jump-to-unit |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16399 'vhdl-speedbar-update-on-saving |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16400 'vhdl-speedbar-save-cache |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16401 'vhdl-speedbar-cache-file-name |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16402 'vhdl-index-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16403 'vhdl-source-file-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16404 'vhdl-hideshow-menu |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16405 'vhdl-hide-all-init |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16406 'vhdl-print-two-column |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16407 'vhdl-print-customize-faces |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16408 'vhdl-intelligent-tab |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16409 'vhdl-indent-syntax-based |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16410 'vhdl-word-completion-case-sensitive |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16411 'vhdl-word-completion-in-minibuffer |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16412 'vhdl-underscore-is-part-of-word |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16413 'vhdl-mode-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16414 (function |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16415 (lambda () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16416 (insert |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16417 (if vhdl-special-indent-hook |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16418 (concat "\n@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16419 "vhdl-special-indent-hook is set to '" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16420 (format "%s" vhdl-special-indent-hook) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16421 ".\nPerhaps this is your problem?\n" |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16422 "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16423 "\n")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16424 nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16425 "Hi Reto,")))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16426 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16427 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16428 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16429 ;;; Documentation |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16430 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16431 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16432 (defconst vhdl-doc-release-notes nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16433 "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16434 Release Notes for VHDL Mode 3.32 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16435 ================================ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16436 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16437 - New Features |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16438 - Enhanced Features |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16439 - User Options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16440 - Remarks |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16441 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16442 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16443 New Features |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16444 ------------ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16445 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16446 STRUCTURAL COMPOSITION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16447 - Enables simple structural composition similar to graphical editors. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16448 Simplifies the creation of higher design levels where subcomponents |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16449 are simply sticked together: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16450 1. Create a skeleton for a new component |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16451 2. Place subcomponents in it directly from the hierarchy browser |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16452 3. Automatically connect all subcomponents and create the ports |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16453 for the new component (based on names of actual ports) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16454 - Automatic generation of a components package (package containing |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16455 component declarations for all entities). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16456 - Find more information in the online documentation (`C-c C-h'). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16457 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16458 PORT TRANSLATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16459 - Reverse direction of ports (useful for testbenches). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16460 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16461 SUBPROGRAM TRANSLATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16462 - Copy/paste of subprogram interfaces (similar to port translation). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16463 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16464 CODE FILLING: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16465 - Condense code using code-sensitive block filling. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16466 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16467 CODE STATISTICS: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16468 - Calculate number of code lines and statements in a buffer. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16469 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16470 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16471 Enhanced Features |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16472 ----------------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16473 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16474 TESTBENCH GENERATION: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16475 - Enhanced templates and user option default values. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16476 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16477 Emacs 21 compatibility/enhancements: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16478 - `lazy-lock-mode' is not used anymore (built-in `jit-lock-mode' is faster). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16479 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16480 And many other minor fixes and enhancements. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16481 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16482 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16483 User Options |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16484 ------------ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16485 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16486 `vhdl-project-file-name': (enhanced) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16487 Include user name in project setup file name. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16488 `vhdl-speedbar-cache-file-name': (enhanced, changed default) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16489 Include user name in cache file name. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16490 `vhdl-default-library': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16491 Default working library if no project is active. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16492 `vhdl-architecture-file-name': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16493 Specify how the architecture file name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16494 `vhdl-package-file-name': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16495 Specify how the package file name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16496 `vhdl-file-name-case': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16497 Allows to change case when deriving file names. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16498 `vhdl-compose-create-files': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16499 Specify whether new files should be created for a new component. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16500 `vhdl-compose-include-header': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16501 Specify whether a header is included in a new component's file. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16502 `vhdl-compose-architecture-name': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16503 Specify how a new component's architecture name is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16504 `vhdl-components-package-name': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16505 Specify how the name for the components package is obtained. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16506 `vhdl-use-components-package': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16507 Specify whether component declarations go in a components package. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16508 `vhdl-use-direct-instantiation': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16509 Specify whether to use VHDL'93 direct component instantiation. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16510 `vhdl-instance-name': (changed default) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16511 Allows insertion of a running number to generate unique instance names. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16512 `vhdl-testbench-entity-header', `vhdl-testbench-architecture-header':(obsolete) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16513 Headers are now automatically derived from the standard header. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16514 `vhdl-testbench-include-header': (new) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16515 Specify whether a header is included in testbench files. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16516 `vhdl-testbench-declaration', `vhdl-testbench-statements': (changed default) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16517 Non-empty default values for more complete testbench templates. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16518 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16519 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16520 Remarks |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16521 ------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16522 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16523 - Changed key binding for `vhdl-comment-uncomment-region': `C-c c' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16524 (`C-c C-c ...' is now used for structural composition). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16525 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16526 - Automatic buffer highlighting (font-lock) is now controlled by option |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16527 `global-font-lock-mode' in GNU Emacs (`font-lock-auto-fontify' in XEmacs). |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16528 \(Important: You MUST customize this option in order to turn automatic |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16529 buffer highlighting on.) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16530 ") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16531 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16532 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16533 (defconst vhdl-doc-keywords nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16534 "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16535 Reserved words in VHDL |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16536 ---------------------- |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16537 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16538 VHDL'93 (IEEE Std 1076-1993): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16539 `vhdl-93-keywords' : keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16540 `vhdl-93-types' : standardized types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16541 `vhdl-93-attributes' : standardized attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16542 `vhdl-93-enum-values' : standardized enumeration values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16543 `vhdl-93-functions' : standardized functions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16544 `vhdl-93-packages' : standardized packages and libraries |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16545 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16546 VHDL-AMS (IEEE Std 1076.1): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16547 `vhdl-ams-keywords' : keywords |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16548 `vhdl-ams-types' : standardized types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16549 `vhdl-ams-attributes' : standardized attributes |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16550 `vhdl-ams-enum-values' : standardized enumeration values |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16551 `vhdl-ams-functions' : standardized functions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16552 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16553 Math Packages (IEEE Std 1076.2): |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16554 `vhdl-math-types' : standardized types |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16555 `vhdl-math-constants' : standardized constants |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16556 `vhdl-math-functions' : standardized functions |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16557 `vhdl-math-packages' : standardized packages |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16558 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16559 Forbidden words: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16560 `vhdl-verilog-keywords' : Verilog reserved words |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16561 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16562 NOTE: click `mouse-2' on variable names above (not in XEmacs).") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16563 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16564 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16565 (defconst vhdl-doc-coding-style nil |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16566 "\ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16567 For VHDL coding style and naming convention guidelines, see the following |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16568 references: |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16569 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16570 \[1] Ben Cohen. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16571 \"VHDL Coding Styles and Methodologies\". |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16572 Kluwer Academic Publishers, 1999. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16573 http://members.aol.com/vhdlcohen/vhdl/ |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16574 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16575 \[2] Michael Keating and Pierre Bricaud. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16576 \"Reuse Methodology Manual, Second Edition\". |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16577 Kluwer Academic Publishers, 1999. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16578 http://www.openmore.com/openmore/rmm2.html |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16579 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16580 \[3] European Space Agency. |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16581 \"VHDL Modelling Guidelines\". |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16582 ftp://ftp.estec.esa.nl/pub/vhdl/doc/ModelGuide.{pdf,ps} |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16583 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16584 Use user options `vhdl-highlight-special-words' and `vhdl-special-syntax-alist' |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16585 to visually support naming conventions.") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16586 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16587 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16588 (defun vhdl-version () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16589 "Echo the current version of VHDL Mode in the minibuffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16590 (interactive) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16591 (message "VHDL Mode %s (%s)" vhdl-version vhdl-time-stamp) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16592 (vhdl-keep-region-active)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16593 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16594 (defun vhdl-doc-variable (variable) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16595 "Display VARIABLE's documentation in *Help* buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16596 (interactive) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16597 (unless vhdl-xemacs |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16598 (help-setup-xref (list #'vhdl-doc-variable variable) (interactive-p))) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16599 (with-output-to-temp-buffer (if (fboundp 'help-buffer) (help-buffer) "*Help*") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16600 (princ (documentation-property variable 'variable-documentation)) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16601 (with-current-buffer standard-output |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16602 (help-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16603 (print-help-return-message))) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16604 |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16605 (defun vhdl-doc-mode () |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16606 "Display VHDL Mode documentation in *Help* buffer." |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16607 (interactive) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16608 (unless vhdl-xemacs |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16609 (help-setup-xref (list #'vhdl-doc-mode) (interactive-p))) |
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16610 (with-output-to-temp-buffer (if (fboundp 'help-buffer) (help-buffer) "*Help*") |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16611 (princ mode-name) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16612 (princ " mode:\n") |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16613 (princ (documentation 'vhdl-mode)) |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16614 (with-current-buffer standard-output |
50023
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16615 (help-mode)) |
3f28dcd281b6
Version 3.32.12 released. Major revision.
Juanma Barranquero <lekktu@gmail.com>
parents:
50020
diff
changeset
|
16616 (print-help-return-message))) |
24732
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16617 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16618 |
b2451ff2b19e
Completely revised and massively extended.
Karl Heuer <kwzh@gnu.org>
parents:
23465
diff
changeset
|
16619 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
20665 | 16620 |
16621 (provide 'vhdl-mode) | |
16622 | |
61431
bf74e258742e
(vhdl-mode-map-init): Don't override default
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61394
diff
changeset
|
16623 ;; arch-tag: 780d7073-9b5d-4c6c-b0d8-26b28783aba3 |
20665 | 16624 ;;; vhdl-mode.el ends here |