Lines Matching +defs:forward +defs:visible +defs:line
83 ;; following line in your Emacs start-up file `.emacs':
285 ;; Error: CSVHDL0002: test.vhd: (line 97): Invalid prefix
288 ("\\(Error\\|Warning\\): \\w+: \\(.+\\): (line \\([0-9]+\\)): " 2 3 0) ("" 0)
316 ;; Compiling "test.vhd" line 1...
333 ;; Compiling "test.vhd" line 1...
360 Line subexp index: index of subexpression that matches the line number
372 beginning of the line (but not necessarily to the end of the line).
504 -- This is a multi-line project description
509 Title : title of project (single-line string)
533 Description : description of project (multi-line string)
865 That is, argument, association, and port lists start on the same line as the
867 Otherwise, lists start on a new line and are indented as normal code."
949 The (multi-line) project description <projectdesc> can be used as a project
975 Can be multi-line string (type `C-j' for newline) and contain other file
1000 of the line replaced by the current date."
1458 "*Regexp for matching a line that separates groups of lines for alignment.
1460 \"^\\s-*$\": matches an empty line
1461 \"^\\s-*\\(--.*\\)?$\": matches an empty line or a comment-only line"
1795 else if not at beginning of line then insert tab,
1797 else indent current line (i.e. `TAB' is bound to `vhdl-electric-tab').
1798 If nil, TAB always indents current line (i.e. `TAB' is bound to
1808 Otherwise, a line is indented like the previous nonblank line. This can be
1852 (custom-add-to-group 'vhdl-related 'line-number-mode 'custom-variable)
1875 If the syntactic symbol for a particular line does not match a symbol
1880 "*If non-nil, syntactic info is echoed when the line is indented.")
1913 When a line is indented, `vhdl-mode' first determines the syntactic
1914 context of the line by generating a list of symbols called syntactic
1917 for the line being indented. Each element in this list is actually a
1919 position is call the relative indent point for the line. Some
1923 After the syntactic context list for a line is generated, `vhdl-mode'
1924 calculates the absolute indentation for the line by looking at each
1929 list is the absolute offset for line being indented.
1945 string -- inside multi-line string
1950 statement-block-intro -- the first line in a new statement block
1951 statement-case-intro -- the first line in a case alternative block
1953 comment -- a line containing only a comment
1954 arglist-intro -- the first line in an argument list
1956 arguments follow on the same line as the
1960 line as the arglist opening paren
1968 (defvar vhdl-comment-only-line-offset 0
1969 "*Extra offset for line which contains only the start of a comment.
1981 This hook gets called after a line is indented by the mode.")
2012 vhdl-comment-only-line-offset))
2478 (re-search-forward (concat "^\\([0-9]+:\\s-*<\\)->\\s-+" key "$") nil t))
2684 (define-key vhdl-mode-map "\M-\C-f" 'vhdl-forward-sexp)
2688 (define-key vhdl-mode-map "\M-\C-e" 'vhdl-forward-same-indent)
2695 (unless (boundp 'delete-key-deletes-forward) ; XEmacs variable
2736 (define-key vhdl-mode-map "\C-c\M--" 'vhdl-comment-display-line)
2755 (define-key vhdl-mode-map "\C-c\C-l\C-w" 'vhdl-line-kill)
2756 (define-key vhdl-mode-map "\C-c\C-l\M-w" 'vhdl-line-copy)
2757 (define-key vhdl-mode-map "\C-c\C-l\C-y" 'vhdl-line-yank)
2758 (define-key vhdl-mode-map "\C-c\C-l\t" 'vhdl-line-expand)
2759 (define-key vhdl-mode-map "\C-c\C-l\C-n" 'vhdl-line-transpose-next)
2760 (define-key vhdl-mode-map "\C-c\C-l\C-p" 'vhdl-line-transpose-previous)
2761 (define-key vhdl-mode-map "\C-c\C-l\C-o" 'vhdl-line-open)
2762 (define-key vhdl-mode-map "\C-c\C-l\C-g" 'goto-line)
2763 (define-key vhdl-mode-map "\C-c\C-l\C-c" 'vhdl-comment-uncomment-line)
3401 ["Insert Horizontal Line" vhdl-comment-display-line t]
3409 ["Kill" vhdl-line-kill t]
3410 ["Copy" vhdl-line-copy t]
3411 ["Yank" vhdl-line-yank t]
3412 ["Expand" vhdl-line-expand t]
3414 ["Transpose Next" vhdl-line-transpose-next t]
3415 ["Transpose Prev" vhdl-line-transpose-previous t]
3416 ["Open" vhdl-line-open t]
3419 ["Goto" goto-line t]
3420 ["(Un)Comment Out" vhdl-comment-uncomment-line t])
3424 ["Forward Expression" vhdl-forward-sexp t]
3426 ["Forward Same Indent" vhdl-forward-same-indent t]
3491 (vhdl-mode-line-update))
3496 (vhdl-mode-line-update))
4203 .. --> \" => \" ] --> ) --- --> horizontal line
4220 Typing `TAB' after a non-word character indents the line if at the
4221 beginning of a line (i.e. no preceding non-blank characters), and
4228 `---' draws a horizontal line for separating code segments.
4231 `--CR' comments out code on that line. Re-hitting CR comments
4243 Inline comments (i.e. comments after a piece of code on the same line)
4246 will open a new comment line. Typing beyond `vhdl-end-comment-column'
4247 in a comment automatically opens a new comment line. `M-q' re-fills
4248 multi-line comments.
4252 `TAB' indents a line if at the beginning of the line. The amount of
4254 always indents the current line (is bound to `TAB' if option
4324 A clause with several generic/port names on the same line can be
4325 flattened (`C-c C-p C-f') so that only one name per line exists. The
4603 \(e.g. if the closing parenthesis is on the wrong line or is missing).
4638 \".xxx\", add the following line to your Emacs start-up file (`.emacs'):
4709 (set (make-local-variable 'indent-line-function) 'vhdl-indent-line)
4717 (set (make-local-variable 'comment-multi-line) nil)
4731 (not vhdl-highlight-case-sensitive) '((?\_ . "w")) 'beginning-of-line
4761 (vhdl-mode-line-update)
4782 (vhdl-mode-line-update))
4792 (defun vhdl-process-command-line-option (option)
4793 "Process command line options for VHDL Mode."
4797 (vhdl-set-compiler (car command-line-args-left))
4798 (setq command-line-args-left (cdr command-line-args-left)))
4801 (vhdl-set-project (car command-line-args-left))
4802 (setq command-line-args-left (cdr command-line-args-left)))))
4807 '(("-compiler" . vhdl-process-command-line-option)
4808 ("-project" . vhdl-process-command-line-option))))
4876 "real" "time" "natural" "positive" "string" "line" "text" "side"
5138 class. Putting underscore in word class breaks forward word movement
5154 bol -- beginning of line
5155 eol -- end of line
5158 eoi -- last whitespace on line
5159 ionl -- indentation of next line
5160 iopl -- indentation of previous line
5161 bonl -- beginning of next line
5162 bopl -- beginning of previous line
5171 ((eq position 'bol) '((beginning-of-line)))
5172 ((eq position 'eol) '((end-of-line)))
5176 ((eq position 'eoi) '((end-of-line) (skip-chars-backward " \t")))
5177 ((eq position 'bonl) '((forward-line 1)))
5178 ((eq position 'bopl) '((forward-line -1)))
5180 '((forward-line -1)
5183 '((forward-line 1)
5258 ;; line
5380 (defun vhdl-forward-comment (&optional direction)
5382 negative, skip forward otherwise."
5392 (skip-chars-forward " \t\n")
5395 (skip-chars-forward " \t\n"))))
5397 ;; XEmacs hack: work around buggy `forward-comment' in XEmacs 21.4+
5399 (defalias 'vhdl-forward-comment 'forward-comment))
5412 (and (re-search-forward "--\\|[\"']"
5421 (if (<= here (progn (end-of-line) (point))) 'comment))
5426 ;; re-search-forward will not work without it
5428 (re-search-forward
5439 (re-search-forward
5454 ;; or forward than optional LIM. If LIM is omitted, (point-min) is
5455 ;; used for backward skipping, (point-max) is used for forward
5458 (defun vhdl-forward-syntactic-ws (&optional lim)
5464 (vhdl-forward-comment hugenum)
5469 (= (forward-line 1) 0)))
5470 (end-of-line)))
5480 (skip-chars-forward " \t\n\r\f" lim)
5483 ((looking-at "--") (end-of-line))
5488 (fset 'vhdl-forward-syntactic-ws 'vhdl-win-fsws))
5493 (beginning-of-line)
5495 (forward-line -1))
5509 (vhdl-forward-comment hugenum)
5551 (save-excursion (or (eq (progn (forward-sexp) (point))
5564 (forward-sexp)
5565 (skip-chars-forward " \t\n")
5571 (forward-sexp)
5572 (vhdl-forward-syntactic-ws)
5606 "A regular expression for searching forward that matches all known
5694 search forward for is aref 0. The column in which the keyword must
5770 keyword to search forward for is aref 2 or nil if this is not
5785 (forward-sexp)
5786 (skip-chars-forward " \t\n")
5856 (forward-sexp)
5857 (skip-chars-forward " \t\n")
5859 (forward-sexp 2)
5860 (forward-sexp))
5865 (forward-sexp 2)
5870 (forward-sexp 2)
5871 (skip-chars-forward " \t\n")
5873 (forward-sexp)
5874 (skip-chars-forward " \t\n"))
5884 "A regular expression for searching forward that matches all known
5903 (forward-sexp 2)
5904 (skip-chars-forward " \t\n")
5973 (defun vhdl-forward-sexp (&optional count lim)
5974 "Move forward across one balanced expression (sexp).
5983 (skip-chars-forward " \t\n")
5991 "ERROR: Containing expression ends prematurely in vhdl-forward-sexp"))
6006 (re-search-forward end-re nil t)
6010 ;; column and not on the same line as the begin, then
6018 (end-of-line)
6019 (forward-char))
6028 (error "ERROR: Unbalanced keywords in vhdl-forward-sexp"))
6031 ;; perform the normal forward-sexp.
6032 (forward-sexp)
6077 (last-backward (point)) last-forward
6097 ;; search forward for it.
6112 (setq last-forward (point))
6117 (re-search-forward begin-re
6127 (forward-char))
6165 "Move forward to the end of a VHDL defun."
6170 (re-search-forward "\\bis\\b"))
6171 (vhdl-forward-sexp)))
6181 (re-search-forward "\\bis\\b"))
6182 (vhdl-forward-sexp)
6194 (let ((last-forward (point))
6198 ;; as this will be used when looking forward for the
6200 (save-excursion (forward-word 1) (1+ (point))))
6211 (setq last-forward (point))
6213 (re-search-forward "\\bis\\b[^_]" last-backward t)
6221 (forward-char))
6225 (goto-char last-forward)))
6241 (last-forward (point))
6245 (goto-char last-forward)
6249 ;; as this will be used when looking forward for the
6251 (save-excursion (forward-word 1) (1+ (point))))
6265 (setq last-forward (point))
6267 (search-forward begin-string last-backward t))
6275 (forward-char))
6280 (goto-char last-forward)) ; end search for begin keyword
6312 (forward-sentence (- count))
6327 (re-search-forward vhdl-e-o-s-re))
6345 (forward-char)
6346 (vhdl-forward-syntactic-ws here)
6358 (forward-char)
6359 (vhdl-forward-syntactic-ws here)
6363 (forward-char)
6368 (vhdl-forward-syntactic-ws here)
6373 (forward-char)
6374 (vhdl-forward-syntactic-ws here)
6388 (vhdl-forward-syntactic-ws here)
6393 (forward-word 1)
6394 (vhdl-forward-syntactic-ws here)
6412 (vhdl-forward-syntactic-ws here)
6432 (vhdl-safe (vhdl-forward-sexp 1 bod))
6443 (forward-sexp)
6444 (vhdl-forward-syntactic-ws here)
6476 (vhdl-forward-sexp 1 lim) (point))))
6489 (forward-sexp)
6516 "Skip forward over case/when bodies, with optional maximal
6524 (if (and (re-search-forward vhdl-s-c-a-re lim 'move)
6532 (re-search-forward "\\bis[^_]" lim t))
6534 (vhdl-forward-sexp))
6558 (defun vhdl-forward-skip-label (&optional lim)
6559 "Skip forward over a label, with optional maximal
6566 (vhdl-forward-syntactic-ws lim)))
6570 "Guess the syntactic description of the current line of VHDL code."
6573 (beginning-of-line)
6622 (skip-chars-forward " \t")
6636 (skip-chars-forward " \t")
6638 ;; now figure out syntactic qualities of the current line
6663 (vhdl-forward-syntactic-ws indent-point))
6684 (vhdl-forward-syntactic-ws indent-point))
6687 ;; CASE 3: line is inside parentheses. Most likely we are
6702 ;; CASE 3C: we are looking at an arglist continuation line,
6703 ;; but the preceding argument is on the same line as the
6704 ;; opening paren. This case includes multi-line
6708 (skip-chars-forward " \t")
6718 ;; continuation line
6720 (vhdl-forward-syntactic-ws indent-point)
6730 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6739 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6758 ;; move us forward to the start of the first
6762 (vhdl-forward-syntactic-ws indent-point)
6772 ;; before the indent point at the start of a line.
6777 (vhdl-forward-skip-label indent-point)
6791 ;; non-whitespace char on the line containing the "case"
6796 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6807 (forward-sexp))
6809 (vhdl-forward-syntactic-ws indent-point)
6811 ;; we want to ignore case alternatives keys when skipping forward
6823 (vhdl-forward-syntactic-ws indent-point)
6844 (progn (forward-sexp) (vhdl-beginning-of-statement-1 nil)))
6854 (skip-chars-forward " \t")
6862 ;; Standard indentation line-ups:
6865 "Lineup the current arglist line with the arglist appearing just
6877 (beginning-of-line)
6879 (skip-chars-forward " \t" (vhdl-point 'eol)))
6886 (beginning-of-line)
6890 (forward-char)
6891 (vhdl-forward-syntactic-ws)
6897 (forward-char)
6898 (skip-chars-forward " \t")
6900 (vhdl-forward-syntactic-ws)
6907 "Lineup an arglist-intro line to just after the open paren."
6913 (beginning-of-line)
6915 (skip-chars-forward " \t" (vhdl-point 'eol))
6921 vhdl-comment-only-line-offset to decide how to indent comment
6928 ;; otherwise, indent as specified by vhdl-comment-only-line-offset
6930 (or (car-safe vhdl-comment-only-line-offset)
6931 vhdl-comment-only-line-offset)
6932 (or (cdr-safe vhdl-comment-only-line-offset)
6933 (car-safe vhdl-comment-only-line-offset)
6943 (and (re-search-forward "\\(<\\|:\\)="
6952 (re-search-forward "\\(<\\|:\\)=\\|(" (vhdl-point 'eol) 'move)
6954 (forward-char)
6962 ;; there's no assignment operator on the line
6965 ;; our line contains an assignment operator
6968 (forward-char)
6969 (skip-chars-forward " \t")
6996 else if right of non whitespace on line then insert tab,
7031 (delete-region (line-beginning-position) (point)))))
7037 ;; indent line
7042 "newline-and-indent or indent-new-comment-line if in comment and preceding
7046 (indent-new-comment-line)
7051 (defun vhdl-indent-line ()
7052 "Indent the current line as VHDL code. Returns the amount of
7065 ;; indent like previous nonblank line
7066 (save-excursion (beginning-of-line)
7074 (beginning-of-line)
7078 ;; If initial point was within line's indentation, position after
7083 (vhdl-update-progress-info "Indenting" (vhdl-current-line))
7111 (if (re-search-forward vhdl-align-group-separate nil t)
7117 "Indent each line of the list starting just after point.
7118 If optional arg ENDPOS is given, indent each line, stopping when
7123 (end (progn (vhdl-forward-sexp nil endpos) (point))))
7130 "Show syntactic information for current line."
7137 (defun vhdl-regress-line (&optional arg)
7138 "Check syntactic information for current line."
7141 (end-of-line)
7143 (forward-char 4)
7160 (beginning-of-line)
7162 (end-of-line)
7164 (delete-region (point) (line-end-position)))
7197 line of a region to be aligned, ALIGN-PATTERN will be used for that
7207 "If REGEXP is not found on the first line of the region that clause
7216 (progn (beginning-of-line 2) (back-to-indentation) (point))
7220 (if (re-search-forward vhdl-align-group-separate nil t)
7221 (progn (beginning-of-line) (point))
7234 (forward-char) (backward-sexp)
7238 (forward-list)
7241 (skip-chars-forward " \t\n")
7252 ;; search for first line with same indent
7259 (beginning-of-line -0)))
7260 ;; search for last line with same indent
7266 (beginning-of-line 2)
7267 (beginning-of-line 2)
7286 (setq bol (setq begin (progn (beginning-of-line) (point))))
7296 (eol (save-excursion (progn (end-of-line) (point)))))
7302 (re-search-forward (car (cdr element)) eol t)))
7322 (setq eol (progn (end-of-line) (point))
7323 bol (setq begin (progn (beginning-of-line) (point))))
7326 (when (and (re-search-forward match eol t)
7331 (forward-line)
7333 eol (save-excursion (end-of-line) (point)))
7339 (setq eol (save-excursion (end-of-line) (point)))
7341 (when (and (re-search-forward match eol t)
7348 (beginning-of-line)
7349 (forward-line)
7351 eol (save-excursion (end-of-line) (point)))
7361 (beginning-of-line)
7380 (re-search-forward vhdl-align-group-separate end t))
7384 (vhdl-update-progress-info "Aligning" (vhdl-current-line))
7391 (vhdl-update-progress-info "Aligning" (vhdl-current-line))))
7420 (forward-sexp)
7422 (beginning-of-line 2))
7427 (beginning-of-line 2)
7436 (beginning-of-line 2)))
7468 (re-search-forward "^\\(begin\\|end\\)\\>" nil t)
7503 (beginning-of-line 2))
7538 ;; align comment-only line to inline comment of previous line
7556 (beginning-of-line 2))))))
7565 (beginning-of-line)
7578 (re-search-forward vhdl-align-group-separate end t))
7596 (setq end (if (re-search-forward vhdl-align-group-separate nil t)
7619 eliminate multiple spaces (except at beginning of line), eliminate spaces at
7620 end of line, do nothing in comments and strings."
7628 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\\)\\|\\(\\s-*\\([,;]\\)\\)" end t)
7634 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\\)\\|\\((\\)\\s-+" end t)
7640 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\\|^\\s-+\\)\\|\\s-+\\()\\)" end t)
7646 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\\)\\|\\(\\([^/:<>=]\\)\\(:\\|=\\|<\\|>\\|:=\\|<=\\|>=\\|=>\\|/=\\)\\([^=>]\\|$\\)\\)" end t)
7651 ;; eliminate multiple spaces and spaces at end of line
7653 (while (or (and (looking-at "--.*\n") (re-search-forward "--.*\n" end t))
7654 (and (looking-at "\"") (re-search-forward "\"[^\"\n]*[\"\n]" end t))
7655 (and (looking-at "\\s-+$") (re-search-forward "\\s-+$" end t)
7657 (and (looking-at "\\s-+;") (re-search-forward "\\s-+;" end t)
7659 (and (looking-at "^\\s-+") (re-search-forward "^\\s-+" end t))
7660 (and (looking-at "\\s-+--") (re-search-forward "\\s-+" end t)
7662 (and (looking-at "\\s-+") (re-search-forward "\\s-+" end t)
7664 ; (re-search-forward "[^ \t-]+" end t))))
7665 (re-search-forward "[^ \t\"-]+" end t))))
7670 eliminate multiple spaces (except at beginning of line), eliminate spaces at
7671 end of line, do nothing in comments."
7716 (while (re-search-forward "\\s-" end t)
7752 ;; 3. signals from 1. and 2. form the list of visible signals
7755 ;; read but not within sequential code, and that correspond to visible
7764 (end-of-line)
7768 (save-excursion (re-search-forward "^\\s-*end\\s-+process\\>" nil t))))
7781 (while (re-search-forward "^\\s-*\\(\\w+[ \t\n]*:[ \t\n]*\\)?process\\>" nil t)
7789 (proc-end (re-search-forward "^\\s-*end\\s-+process\\>" nil t))
7795 (vhdl-re-search-forward "\\<wait\\>" proc-end t))
7800 ;; scan for visible signals
7801 ((visible-list (vhdl-get-visible-signals))
7806 ((re-search-forward "[<:]=" proc-end t)
7807 (re-search-forward ";\\|\\<\\(then\\|loop\\|report\\|severity\\|is\\)\\>" proc-end t))
7809 ((re-search-forward "^\\s-*if\\>" proc-end t)
7810 (re-search-forward "\\<then\\>" proc-end t))
7812 ((re-search-forward "\\<elsif\\>" proc-end t)
7813 (re-search-forward "\\<then\\>" proc-end t))
7815 ((re-search-forward "^\\s-*while\\>" proc-end t)
7816 (re-search-forward "\\<loop\\>" proc-end t))
7818 ((re-search-forward "\\<\\(exit\\|next\\)\\s-+\\w+\\s-+when\\>" proc-end t)
7819 (re-search-forward ";" proc-end t))
7821 ((re-search-forward "\\<assert\\>" proc-end t)
7822 (re-search-forward "\\(\\<report\\>\\|\\<severity\\>\\|;\\)" proc-end t))
7824 ((re-search-forward "^\\s-*case\\>" proc-end t)
7825 (re-search-forward "\\<is\\>" proc-end t))
7827 ((and (re-search-forward "^\\s-*\\w+[ \t\n]*(" proc-end t)
7829 (progn (backward-char) (forward-sexp)
7830 (while (looking-at "(") (forward-sexp)) (point)))))
7835 (re-search-forward "\\<process\\>" proc-mid t)
7838 (setq sens-beg (re-search-forward "\\([ \t\n]*\\)([ \t\n]*" nil t))
7840 (forward-sexp)
7843 (while (and (re-search-forward "\\(\\w+\\)" sens-end t)
7846 (re-search-forward "\\s-*,\\s-*" sens-end t))))
7847 (setq signal-list (append visible-list sens-list))
7850 (while (setq beg (re-search-forward "^\\s-*\\(els\\)?if\\>" proc-end t))
7851 (setq end (re-search-forward "\\<then\\>" proc-end t))
7855 (vhdl-forward-sexp)
7857 (beginning-of-line)))
7871 (while (vhdl-re-search-forward "[^'\"]\\<\\([a-zA-Z]\\w*\\)\\>[ \t\n]*\\('\\(\\w+\\)\\|\\(=>\\)\\)?" end t)
7902 (defun vhdl-get-visible-signals ()
7903 "Get all signals visible in the current block."
7915 (unless (re-search-forward (concat "^entity\\s-+" entity-name "\\>") nil t)
7923 (if (not (re-search-forward (concat "^entity\\s-+" entity-name "\\>") nil t))
7925 (when (setq beg (re-search-forward
7928 (re-search-forward "^end\\>" nil t)) t))
7930 (backward-char) (forward-sexp) (point)))
7931 (vhdl-forward-syntactic-ws)
7939 (vhdl-forward-syntactic-ws))
7940 (re-search-forward ";" end 1)
7941 (vhdl-forward-syntactic-ws)))))))
7946 (setq end (re-search-forward "^begin\\>" nil t))))
7950 (while (re-search-forward "^\\s-*\\(\\(signal\\)\\|alias\\)\\>" end t)
7973 (setq end (re-search-forward "^\\s-*begin\\>" nil t)))
7976 (while (re-search-forward "^\\s-*\\(\\(signal\\)\\|alias\\)\\>" end t)
8008 (vhdl-forward-syntactic-ws)
8012 (forward-char)
8013 (vhdl-forward-syntactic-ws))
8015 (when (> pos (save-excursion (end-of-line) (point)))
8017 ;; delete closing parenthesis on separate line (not supported style)
8018 (when (save-excursion (beginning-of-line) (looking-at "^\\s-*);"))
8019 (vhdl-line-kill)
8025 (condition-case () (forward-sexp)
8043 (while (re-search-forward "[ \t]+$" (point-max) t)
8073 (defun vhdl-mode-line-update ()
8079 (force-mode-line-update t))
8088 (vhdl-mode-line-update))
8097 (vhdl-mode-line-update))
8103 "-- starts a comment, --- draws a horizontal line,
8111 (beginning-of-line nil)
8116 (message "Enter '-' for horiz. line, 'CR' for commenting-out code, else enter comment")
8120 (vhdl-comment-display-line)
8314 (forward-word 1)
8315 (forward-char 1)
8335 (end-of-line 0)
8350 (progn (forward-word -1) (point)))
8382 (forward-word 1)
8383 (forward-char 1))
8390 (forward-line -1)
8425 (end-of-line -0)))))
8442 (end-of-line -0)
8448 (beginning-of-line 2)
8449 (forward-char end-column))))
8487 (delete-region (line-beginning-position) (point))
8578 (delete-region (line-beginning-position) (point))
8646 (forward-char 1))
8655 (forward-char 1)
8713 (end-of-line -0)
8723 (beginning-of-line 2)
8724 (forward-char end-column))))
8814 (forward-word 1)
8815 (forward-char 1))
8827 (forward-line -1)
8840 (end-of-line)
8881 (or (beginning-of-line)
8955 (forward-word 1)
8956 (forward-char 1))
8966 (forward-line -1)
9002 (forward-char 5)
9038 (forward-word 1)
9044 (forward-line -1)
9094 (if (re-search-forward vhdl-modify-date-prefix-string nil t)
9095 (progn (delete-region (point) (progn (end-of-line) (point)))
9121 (delete-region (point) (progn (forward-word -1) (point)))
9125 (delete-region (point) (progn (forward-word -1) (point)))
9136 (end-of-line))
9217 (or (beginning-of-line)
9238 (forward-word 1)
9239 (forward-char 1))
9259 (end-of-line) (insert "\n")
9266 (end-of-line)))))
9294 (forward-word 1)
9295 (forward-char 1))
9320 (end-of-line -0)
9322 (progn (insert "\n") (forward-line -1))
9327 (vhdl-line-kill-entire)
9440 (delete-region (line-beginning-position) (point))
9482 (forward-word 1)
9605 (delete-region (point) (progn (forward-word -1) (point)))
9609 (delete-region (point) (progn (forward-word -1) (point)))
9621 (end-of-line))
9631 (when (save-excursion (beginning-of-line) (looking-at "^\\s-*use\\>"))
9635 (forward-char 1)
9637 (forward-char 5))))))
9684 (vhdl-re-search-forward "\\<end\\>" nil t)
9706 (forward-word 1)
9707 (forward-char 1))
9715 (forward-line -1)
9943 (while (search-forward "<projectdesc>" end t)
9946 (while (search-forward "<filename>" end t)
9949 (while (search-forward "<copyright>" end t)
9952 (while (search-forward "<author>" end t)
9957 (while (search-forward "<login>" end t)
9960 (while (search-forward "<project>" end t)
9963 (while (search-forward "<company>" end t)
9966 (while (search-forward "<platform>" end t)
9969 (while (search-forward "<standard>" end t)
9978 (while (search-forward "<RCS>" end t)
9981 (while (search-forward "<date>" end t)
9985 (while (search-forward "<year>" end t)
9989 (while (search-forward "<title string>" end t)
9994 (re-search-forward "<\\(\\(\\w\\|\\s_\\)*\\) string>" end t)
9998 (when (and (not is-model) (search-forward "<cursor>" end t))
10020 (forward-line -1)
10021 (if (re-search-forward "--" position t)
10031 "Start a comment at the end of the line.
10032 If on line with code, indent at least `comment-column'.
10033 If starting after end-comment-column, start a new line."
10036 (if (or (looking-at "\\s-*$") ; end of line
10038 (not (end-of-line))))
10054 (forward-char -2)
10055 (forward-line 1)
10056 (message "Enter CR if commenting out a line of code.")
10063 (defun vhdl-comment-display (&optional line-exists)
10067 (unless line-exists (vhdl-comment-display-line))
10070 (vhdl-comment-display-line)
10071 (end-of-line -0)
10074 (defun vhdl-comment-display-line ()
10075 "Displays one line of dashes."
10083 "Append empty inline comment to current line."
10085 (end-of-line)
10121 (end-of-line -0)
10123 (progn (insert "\n") (forward-line -1))
10128 (vhdl-line-kill-entire)))))
10136 (end-of-line)
10139 (beginning-of-line)
10145 (defun vhdl-comment-uncomment-line (&optional arg)
10146 "Comment out line if not commented out, uncomment otherwise."
10149 (beginning-of-line)
10151 (forward-line (or arg 1))
10161 (beginning-of-line)
10165 (beginning-of-line 2)))))
10174 (beginning-of-line)
10178 (beginning-of-line 2))))
10262 (progn (vhdl-line-kill-entire) (end-of-line -0)
10264 (vhdl-line-kill-entire) (end-of-line -0)))
10289 (end-of-line)
10314 (progn (vhdl-line-kill-entire) (end-of-line -0)
10316 (vhdl-line-kill-entire) (end-of-line -0)))
10342 (end-of-line)
10355 (end-of-line 0)
10373 "Expand abbreviations and self-insert space(s), do indent-new-comment-line
10381 (indent-new-comment-line)
10382 (skip-chars-forward "^ \t\n")
10383 (forward-char 1))
10385 (indent-new-comment-line))
10482 (when (or (re-search-forward
10506 (forward-char (cadr (insert-file-contents file-name)))
10513 (beginning-of-line)
10521 (forward-word 1)
10522 (vhdl-forward-syntactic-ws)
10524 (forward-sexp))
10525 (re-search-forward "\\<is\\>\\|\\(;\\)" nil t))
10532 (beginning-of-line)
10543 (end-of-line)
10544 ;; search forward for block beginning or end
10545 (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))
10549 (save-excursion (re-search-forward "\\<is\\>\\|\\(;\\)" nil t))
10556 (beginning-of-line)
10583 (progn (beginning-of-line)
10594 (forward-word -1)
10794 (beginning-of-line)
10801 (beginning-of-line)
10805 (beginning-of-line 2))
10809 (while (re-search-forward "<clock>" end t)
10814 (while (re-search-forward "<reset>" end t)
10820 (while (re-search-forward
10828 (while (re-search-forward (concat "<\\(" prompt "\\)>") end t)
10833 (if (re-search-forward "<cursor>" end t)
10880 (throw 'parse (format "ERROR: Syntax error near line %s, expecting \"%s\""
10881 (vhdl-current-line) string)))
10898 (vhdl-forward-comment (point-max))
10900 (vhdl-forward-syntactic-ws)
10918 (beginning-of-line)
10926 "Flatten port list so that only one generic/port exists per line.
10994 (end-of-line)
11000 (forward-word 1)
11004 (vhdl-forward-syntactic-ws)
11025 (point) (progn (forward-sexp) (point)))
11028 ;; special case: closing parenthesis is on separate line
11044 (point) (progn (forward-sexp) (point)))
11047 ;; special case: closing parenthesis is on separate line
11051 (vhdl-forward-syntactic-ws))
11052 (skip-chars-forward " \t")
11057 (vhdl-forward-syntactic-ws)
11097 (point) (progn (forward-sexp) (point)))
11100 ;; special case: closing parenthesis is on separate line
11107 (vhdl-forward-syntactic-ws)
11412 (vhdl-re-search-forward name nil t))
11421 (beginning-of-line)
11598 (vhdl-comment-display-line) (insert "\n\n"))
11602 (insert "\n\n") (vhdl-comment-display-line) (insert "\n\n"))
11613 (vhdl-comment-display-line) (insert "\n"))
11642 (vhdl-comment-display-line) (insert "\n\n")))
11669 (vhdl-comment-display-line) (insert "\n")
11683 (vhdl-comment-display-line) (insert "\n"))
11726 "Flatten interface list so that only one parameter exists per line."
11763 (end-of-line)
11768 (forward-sexp)
11802 (point) (progn (forward-sexp) (point)))
11805 ;; special case: closing parenthesis is on separate line
11821 (point) (progn (forward-sexp) (point)))
11824 ;; special case: closing parenthesis is on separate line
11828 (vhdl-forward-syntactic-ws))
11829 (skip-chars-forward " \t")
11834 (vhdl-forward-syntactic-ws)
11915 ;; terminate line
12097 (while (re-search-forward word-regexp end t)
12153 (defun vhdl-current-line ()
12154 "Return the line number of the line containing point."
12158 (beginning-of-line)
12161 (defun vhdl-line-kill-entire (&optional arg)
12162 "Delete entire line."
12164 (beginning-of-line)
12165 (kill-line (or arg 1)))
12167 (defun vhdl-line-kill (&optional arg)
12168 "Kill current line."
12170 (vhdl-line-kill-entire arg))
12172 (defun vhdl-line-copy (&optional arg)
12173 "Copy current line."
12176 (beginning-of-line)
12178 (forward-line (or arg 1))
12181 (defun vhdl-line-yank ()
12182 "Yank entire line."
12184 (beginning-of-line)
12187 (defun vhdl-line-expand (&optional prefix-arg)
12188 "Hippie-expand current line."
12192 '(try-expand-line try-expand-line-all-buffers)))
12195 (defun vhdl-line-transpose-next (&optional arg)
12196 "Interchange this line with next line."
12198 (forward-line 1)
12200 (forward-line -1))
12202 (defun vhdl-line-transpose-previous (&optional arg)
12203 "Interchange this line with previous line."
12205 (forward-line 1)
12207 (forward-line -1))
12209 (defun vhdl-line-open ()
12210 "Open a new line and indent."
12212 (end-of-line -0)
12225 (defun vhdl-forward-same-indent ()
12226 "Move forward to next line with same indent."
12230 (beginning-of-line 2)
12234 (beginning-of-line 2))
12237 (message "No following line with same indent found in this block")
12242 "Move backward to previous line with same indent."
12246 (beginning-of-line -0)
12250 (beginning-of-line -0))
12253 (message "No preceding line with same indent found in this block")
12269 (while (re-search-forward "\\(--.*\n\\|\"[^\"\n]*[\"\n]\\)\\|;" nil t)
12278 (beginning-of-line 2)))
12292 (defun vhdl-re-search-forward (regexp &optional bound noerror count)
12293 "Like `re-search-forward', but does not match within literals."
12296 (while (and (setq pos (re-search-forward regexp bound noerror count))
12467 (defun vhdl-hs-forward-sexp-func (count)
12468 "Find end of construct to hide (for hideshow). Only searches forward."
12471 (beginning-of-line)
12477 (forward-sexp))
12480 (re-search-forward "^\\s-*end\\s-+component\\>" nil t))
12490 (forward-sexp)
12492 (vhdl-forward-syntactic-ws)
12496 (forward-sexp)
12502 (vhdl-forward-syntactic-ws)
12504 (forward-sexp))
12505 (while (and (re-search-forward "\\(;\\)\\|\\(\\<is\\>\\)" nil t)
12509 (re-search-forward "^\\s-*\\<begin\\>" nil t)
12511 (vhdl-forward-sexp)))
12515 (while (and (re-search-forward "^\\s-*\\(\\(\\w+\\s-*:\\s-*block\\>\\)\\|\\(end\\s-+block\\>\\)\\)" nil t)
12517 (vhdl-hs-forward-sexp-func count)))
12520 (re-search-forward "^\\s-*end\\s-+process\\>" nil t))
12523 (forward-word 4)
12524 (vhdl-forward-sexp))
12543 'vhdl-hs-forward-sexp-func nil)
12550 (vhdl-mode-line-update))) ; hack to update menu bar
12571 (when (re-search-forward
12577 (re-search-forward "^\\s-*--\\s-*pragma\\s-*translate_on\\s-*\n" limit t))
12603 (end-of-line) t))))
12965 (not vhdl-highlight-case-sensitive) '((?\_ . "w")) 'beginning-of-line
12997 ;; define page settings, so that a line containing 79 characters (default)
13034 ;; (ent-key ent-name ent-file ent-line
13035 ;; (arch-key arch-name arch-file arch-line
13036 ;; (inst-key inst-name inst-file inst-line inst-comp-name inst-ent-key
13045 ;; (conf-key conf-name conf-file conf-line ent-key arch-key
13054 ;; (pack-key pack-name pack-file pack-line
13055 ;; (comp-key comp-name comp-file comp-line)
13056 ;; (func-key func-name func-file func-line)
13058 ;; pack-body-file pack-body-line
13059 ;; (func-key func-name func-body-file func-body-line)
13103 (while (and (re-search-forward "^[ \t]*\\(architecture\\|configuration\\|entity\\|package\\)\\>" nil 1)
13201 (while (re-search-forward "^[ \t]*entity[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
13208 "Entity declared twice (used 1.): \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)"
13210 file-name (vhdl-current-line))
13213 (list ent-name file-name (vhdl-current-line)
13218 (while (re-search-forward "^[ \t]*architecture[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
13229 "Architecture declared twice (used 1.): \"%s\" of \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)"
13231 (nth 2 arch-entry) file-name (vhdl-current-line))
13235 (list arch-name file-name (vhdl-current-line) nil
13244 (while (re-search-forward "^[ \t]*configuration[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
13251 (conf-line (vhdl-current-line))
13256 (when (vhdl-re-search-forward "\\<for[ \t\n]+\\(\\w+\\)")
13260 "Configuration declared twice (used 1.): \"%s\" of \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)"
13262 (nth 2 conf-entry) file-name conf-line)
13265 (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)
13270 (vhdl-forward-syntactic-ws)
13289 (list conf-name file-name conf-line ent-key
13293 (while (re-search-forward "^[ \t]*package[ \t\n]+\\(body[ \t\n]+\\)?\\(\\w+\\)[ \t\n]+is\\>" nil t)
13298 (pack-line (vhdl-current-line))
13303 "Package%s declared twice (used 1.): \"%s\"\n 1. in \"%s\" (line %d)\n 2. in \"%s\" (line %d)"
13307 file-name (vhdl-current-line))
13311 (while (re-search-forward "^[ \t]*\\(component\\|function\\|procedure\\)[ \t\n]+\\(\\w+\\|\".*\"\\)" end-of-unit t)
13316 file-name (vhdl-current-line))
13321 file-name (vhdl-current-line))
13335 file-name pack-line func-alist lib-alist)
13336 (list pack-name file-name pack-line
13347 (while (re-search-forward "^[ \t]*architecture[ \t\n]+\\(\\w+\\)[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t)
13360 (while (and (re-search-forward
13403 (vhdl-current-line) inst-comp-name
13409 (while (re-search-forward
13477 "Architecture of non-existing entity: \"%s\" of \"%s\"\n in \"%s\" (line %d)"
13488 "Configuration of non-existing architecture: \"%s\" of \"%s(%s)\"\n in \"%s\" (line %d)"
13493 "Configuration of non-existing entity: \"%s\" of \"%s\"\n in \"%s\" (line %d)"
13503 "Package body of non-existing package: \"%s\"\n in \"%s\" (line %d)"
13814 (let ((ent-alist (aget vhdl-entity-alist (vhdl-speedbar-line-key indent) t))
13995 (speedbar-line-directory . speedbar-files-line-path)))
13999 (speedbar-line-directory . vhdl-speedbar-line-project)))
14003 (define-key vhdl-speedbar-key-map "e" 'speedbar-edit-line)
14004 (define-key vhdl-speedbar-key-map "\C-m" 'speedbar-edit-line)
14005 (define-key vhdl-speedbar-key-map "+" 'speedbar-expand-line)
14006 (define-key vhdl-speedbar-key-map "=" 'speedbar-expand-line)
14031 `(["Edit" speedbar-edit-line t]
14032 ["Expand" speedbar-expand-line
14033 (save-excursion (beginning-of-line) (looking-at "[0-9]+: *.\\+. "))]
14059 (save-excursion (beginning-of-line) (looking-at "[0-9]+: *[[<]"))]
14061 (save-excursion (beginning-of-line) (looking-at "[0-9]+:"))]
14063 :active (save-excursion (beginning-of-line) (looking-at "[0-9]+:"))
14064 ,(if vhdl-xemacs :active :visible) (not vhdl-speedbar-show-projects)]
14066 :active (save-excursion (beginning-of-line) (looking-at "[0-9]+:"))
14067 ,(if vhdl-xemacs :active :visible) vhdl-speedbar-show-projects]
14150 (vhdl-speedbar-make-title-line "Projects:")
14157 (speedbar-make-tag-line
14167 (when (re-search-forward
14214 (vhdl-speedbar-make-title-line "No VHDL design units!" depth)
14217 (when ent-alist (vhdl-speedbar-make-title-line "Entities:" depth))
14220 (speedbar-make-tag-line
14226 (end-of-line 0) (insert "!") (forward-char 1))
14228 (end-of-line 0) (insert " (top)") (forward-char 1))
14231 (when conf-alist (vhdl-speedbar-make-title-line "Configurations:" depth))
14234 (speedbar-make-tag-line
14241 (when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth))
14244 (vhdl-speedbar-make-pack-line
14258 (setq key (vhdl-speedbar-line-project))
14261 ((save-excursion (beginning-of-line) (looking-at "[^0-9]"))
14262 (re-search-forward "[0-9]+:" nil t)
14264 (abbreviate-file-name (speedbar-line-directory))))
14266 (t (setq path (speedbar-line-directory))
14282 (beginning-of-line)
14299 (beginning-of-line)
14309 (when (re-search-forward
14312 (beginning-of-line)
14325 (beginning-of-line) (looking-at "^[0-9]:\\s-*[[{<]-"))
14327 (beginning-of-line) (looking-at "^\\([0-9]+\\):"))
14339 (save-excursion (beginning-of-line) (looking-at "^0:")))
14342 (let ((key (vhdl-speedbar-line-key)))
14351 (let* ((key (vhdl-speedbar-line-key))
14386 (end-of-line) (forward-char 1)
14402 (let* ((key (vhdl-speedbar-line-key indent))
14419 (end-of-line) (forward-char 1)
14422 (vhdl-speedbar-make-title-line "Architectures:" (1+ indent)))
14425 (speedbar-make-tag-line
14433 (end-of-line 0) (insert " (mra)") (forward-char 1))
14437 (vhdl-speedbar-make-title-line "Instantiated as:" (1+ indent)))
14440 (vhdl-speedbar-make-inst-line
14454 (let* ((key (vhdl-speedbar-line-key indent))
14471 (let* ((key (vhdl-speedbar-line-key (1- indent)))
14491 (end-of-line) (forward-char 1)
14494 (vhdl-speedbar-make-title-line "Subcomponent hierarchy:"
14500 (vhdl-speedbar-make-inst-line
14514 (let* ((key (vhdl-speedbar-line-key (1- indent)))
14530 (let* ((key (vhdl-speedbar-line-key indent))
14549 (end-of-line) (forward-char 1)
14552 (vhdl-speedbar-make-title-line "Design hierarchy:" (1+ indent)))
14557 (vhdl-speedbar-make-inst-line
14571 (let* ((key (vhdl-speedbar-line-key indent))
14588 (let* ((key (vhdl-speedbar-line-key indent))
14605 (end-of-line) (forward-char 1)
14608 (vhdl-speedbar-make-title-line "Components:" (1+ indent)))
14611 (speedbar-make-tag-line
14620 (vhdl-speedbar-make-title-line "Subprograms:" (1+ indent)))
14625 (vhdl-speedbar-make-subprogram-line
14640 (let* ((key (vhdl-speedbar-line-key indent))
14656 (vhdl-speedbar-line-key dir-indent) t))
14659 (vhdl-speedbar-make-title-line "Packages Used:" indent))
14664 (vhdl-speedbar-make-subpack-line
14690 (when (re-search-forward
14770 ;; move speedbar so the first highlighted unit is visible
14774 (speedbar-position-cursor-on-line))
14784 (while (re-search-forward
14793 (defun vhdl-speedbar-make-inst-line (inst-name inst-file-marker
14800 visible-start)
14803 (setq visible-start (point))
14809 (put-text-property visible-start (point) 'invisible nil)
14813 (setq visible-start (point))
14851 (put-text-property visible-start (point) 'invisible nil)))
14853 (defun vhdl-speedbar-make-pack-line (pack-key pack-name pack-file-marker
14857 visible-start)
14860 (setq visible-start (point))
14862 (put-text-property visible-start (point) 'invisible nil)
14868 (setq visible-start (point))
14886 (put-text-property visible-start (point) 'invisible nil)))
14888 (defun vhdl-speedbar-make-subpack-line (pack-name lib-name pack-file-marker
14892 visible-start)
14895 (setq visible-start (point))
14897 (put-text-property visible-start (point) 'invisible nil)
14901 (setq visible-start (point))
14921 (put-text-property visible-start (point) 'invisible nil)))
14923 (defun vhdl-speedbar-make-subprogram-line (func-name func-file-marker
14928 visible-start)
14931 (setq visible-start (point))
14933 (put-text-property visible-start (point) 'invisible nil)
14937 (setq visible-start (point))
14953 (put-text-property visible-start (point) 'invisible nil)))
14955 (defun vhdl-speedbar-make-title-line (text &optional depth)
14958 visible-start)
14962 (setq visible-start (point))
14968 (put-text-property visible-start (point) 'invisible nil)))
14974 (speedbar-make-tag-line 'angle ?+ 'vhdl-speedbar-dired (car dirs)
14984 (concat (speedbar-line-directory indent) token "/"))
14990 (end-of-line) (forward-char 1)
14993 (concat (speedbar-line-directory indent) token "/"))
14998 (concat (speedbar-line-directory indent) token "/"))
15006 (concat (speedbar-line-directory indent) token))))
15019 "Derive and display information about this line item."
15021 (beginning-of-line)
15066 (defun vhdl-speedbar-line-text ()
15067 "Calls `speedbar-line-text' and removes text properties."
15068 (let ((string (speedbar-line-text)))
15073 "Get speedbar-line-text of higher level."
15076 (beginning-of-line)
15087 (defun vhdl-speedbar-line-key (&optional indent)
15090 (vhdl-speedbar-line-project)
15092 (file-name-as-directory (speedbar-line-directory indent)))))
15094 (defun vhdl-speedbar-line-project (&optional indent)
15098 (end-of-line)
15149 "If UNIT is displayed in DIRECTORY, goto this line and return t, else nil."
15154 (re-search-forward (concat "[]}] " unit "\\>") nil t))
15155 (progn (speedbar-position-cursor-on-line)
15169 (goto-line (cdr token))
15181 (beginning-of-line)
15187 (progn (goto-line (cdr token))
15188 (end-of-line)
15194 (error "ERROR: No entity/component or subprogram on current line")))))
15213 (let ((arch-name (vhdl-speedbar-line-text))
15225 (let* ((arch-key (downcase (vhdl-speedbar-line-text)))
15236 (if (not (save-excursion (beginning-of-line)
15240 (unit-name (vhdl-speedbar-line-text))
15241 (vhdl-project (vhdl-speedbar-line-project))
15243 (or (speedbar-line-file) (speedbar-line-directory)))))
15253 (let ((vhdl-project (vhdl-speedbar-line-project))
15255 (or (speedbar-line-file) (speedbar-line-directory)))))
15262 (speedbar-position-cursor-on-line)
15424 (vhdl-comment-display-line) (insert "\n\n"))
15431 (insert "\n\n") (vhdl-comment-display-line) (insert "\n\n")
15445 (vhdl-comment-display-line) (insert "\n")
15465 (vhdl-comment-display-line) (insert "\n\n")))
15470 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n")
15472 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")
15474 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n")
15476 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n"))
15483 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n")
15485 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")
15492 (vhdl-comment-display-line) (insert "\n"))
15513 (re-search-forward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t))
15525 (re-search-forward
15528 (re-search-forward "^begin\\>" nil)
15529 (beginning-of-line)
15534 (re-search-forward "^end\\>" nil)
15535 (beginning-of-line)
15545 (unless (re-search-forward (concat "^entity[ \t\n]+" ent-name "[ \t\n]+is\\>") nil t)
15552 (beginning-of-line 2))
15565 (re-search-forward "^architecture[ \t\n]+\\w+[ \t\n]+of[ \t\n]+\\(\\w+\\)[ \t\n]+is\\>" nil t))
15572 (arch-stat-pos (re-search-forward "^begin\\>" nil))
15573 (arch-end-pos (re-search-forward "^end\\>" nil))
15590 (while (re-search-forward
15607 (unless (re-search-forward (concat "^\\s-*component[ \t\n]+" comp-name "\\>") nil t)
15618 (unless (re-search-forward (concat "^\\s-*entity[ \t\n]+" comp-ent-name "\\>") nil t)
15629 (vhdl-forward-syntactic-ws)
15647 (vhdl-forward-syntactic-ws))
15648 (vhdl-re-search-forward "\\<port\\s-+map[ \t\n]*(" nil t))
15650 (vhdl-forward-syntactic-ws)
15691 (vhdl-forward-syntactic-ws))
15696 (forward-line 1)
15697 (re-search-forward "^\\s-*-- Internal signal declarations[ \t\n]*-*\n" arch-stat-pos t)
15699 (while (progn (vhdl-forward-syntactic-ws)
15701 (beginning-of-line 2)
15708 (unless (re-search-forward (concat "^entity[ \t\n]+" ent-name "[ \t\n]+is\\>") nil t)
15711 (unless (and (re-search-forward "\\(^\\s-*generic[ \t\n]*(\\)\\|^end\\>" nil t)
15719 (forward-sexp) (end-of-line)
15729 (unless (and (re-search-forward "\\(^\\s-*port[ \t\n]*(\\)\\|^end\\>" nil t)
15737 (forward-sexp) (end-of-line)
15913 (vhdl-comment-display-line) (insert "\n\n"))
15917 (insert "\n") (vhdl-comment-display-line) (insert "\n\n")
15921 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n")
15923 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")
15932 (vhdl-comment-display-line) (insert "\n"))
15936 (progn (goto-line (nth 3 (car ent-alist)))
15937 (end-of-line)
15956 (beg (save-excursion (beginning-of-line) (point)))
16093 (vhdl-comment-display-line) (insert "\n\n")))
16096 (re-search-forward "^end\\>" nil)
16097 (end-of-line) (insert "\n\n")
16098 (vhdl-comment-display-line) (insert "\n\n")))
16117 (vhdl-comment-display-line) (insert "\n"))
16757 'vhdl-comment-only-line-offset