Lines Matching +defs:comment +defs:indent +defs:function
68 ;; See comment string of function `vhdl-mode' or type `C-c C-h' in Emacs.
153 ;; help function for user options
194 ; :version "21.2" ; comment out for XEmacs
216 (defcustom vhdl-indent-tabs-mode nil
218 Overrides local variable `indent-tabs-mode'."
349 Generate Makefile: use built-in function or command to generate a Makefile
377 For Makefile generation, the built-in function can be used (requires
406 (list :tag "Compiler" :indent 2
413 (const :tag "Built-in function" nil)
422 (list :tag "Error message" :indent 4
427 (list :tag "File message" :indent 4
433 (list :tag "To string" :indent 4
571 (list :tag "Project" :indent 2
577 (repeat :tag "Sources " :indent 4
581 :tag "Compile options " :indent 4
582 (list :tag "Compiler" :indent 6
592 :tag "Exceptions " :indent 8
680 (set :tag "Additional standards" :indent 2
863 (defcustom vhdl-argument-list-indent nil
864 "*Non-nil means indent argument lists relative to opening parenthesis.
1006 Calls function `\\[vhdl-template-modify]').
1042 (const :tag "Function" function))
1101 :type '(repeat (list :tag "Model" :indent 2
1154 :type '(cons (cons :tag "Project" :indent 2
1406 (defgroup vhdl-comment nil
1413 :group 'vhdl-comment)
1418 :group 'vhdl-comment)
1420 (defcustom vhdl-inline-comment-column 40
1421 "*Column to indent and align inline comments to.
1422 Overrides local option `comment-column'.
1427 :group 'vhdl-comment)
1429 (defcustom vhdl-end-comment-column 79
1430 "*End of comment column.
1436 :group 'vhdl-comment)
1438 (defvar end-comment-column)
1461 \"^\\s-*\\(--.*\\)?$\": matches an empty line or a comment-only line"
1465 (defcustom vhdl-align-same-indent t
1466 "*Non-nil means align blocks with same indent separately.
1468 blocks of same indent which are aligned separately (except for argument/port
1486 `vhdl-font-lock-function-face' : standardized function and package names
1498 `font-lock-function-name-face' : names in declarations of units,
1608 :type '(repeat (list :tag "Face" :indent 2
1693 (list :tag "Hierarchy" :indent 2
1797 else indent current line (i.e. `TAB' is bound to `vhdl-electric-tab').
1799 `indent-according-to-mode').
1806 (defcustom vhdl-indent-syntax-based t
1807 "*Non-nil means indent lines of code based on their syntactic context.
1892 (comment . vhdl-lineup-comment)
1919 position is call the relative indent point for the line. Some
1920 syntactic symbols may not have a relative indent point associated with
1927 finds a match, it adds the OFFSET to the column of the relative indent
1935 Actually, OFFSET can be an integer, a function, a variable, or one of
1938 respectively: *1, *-1, *2, and *-2. If OFFSET is a function, it is
1940 element symbol and the relative indent point. The function should
1953 comment -- a line containing only a comment
1968 (defvar vhdl-comment-only-line-offset 0
1969 "*Extra offset for line which contains only the start of a comment.
1975 non-column-zero anchored comment-only lines, and ANCHORED-OFFSET is
1976 the amount of offset to give column-zero anchored comment-only lines.
1979 (defvar vhdl-special-indent-hook nil
2012 vhdl-comment-only-line-offset))
2015 (function
2128 (mapcar (function (lambda (name) (concat (car dirs) name)))
2145 (defun vhdl-run-when-idle (secs repeat function)
2148 (start-itimer "vhdl-mode" function secs repeat t)
2149 ; (run-with-idle-timer secs repeat function)))
2151 (aset (run-with-idle-timer secs repeat function) 0 nil)))
2438 (sort alist (function (lambda (a b) (string< (car a) (car b))))))
2480 (speedbar-do-function-pointer)
2482 (speedbar-do-function-pointer)
2572 (define-key vhdl-template-map "fb" 'vhdl-template-function-body)
2573 (define-key vhdl-template-map "fd" 'vhdl-template-function-decl)
2642 (defun vhdl-function-name (prefix string &optional postfix)
2643 "Generate a Lisp function name.
2665 (vhdl-function-name "vhdl-model" (nth 0 model)))
2687 (define-key vhdl-mode-map "\M-\C-a" 'vhdl-backward-same-indent)
2688 (define-key vhdl-mode-map "\M-\C-e" 'vhdl-forward-same-indent)
2691 (define-key vhdl-mode-map "\M-\C-q" 'vhdl-indent-sexp)
2734 (define-key vhdl-mode-map "\C-cc" 'vhdl-comment-uncomment-region)
2735 (define-key vhdl-mode-map "\C-c-" 'vhdl-comment-append-inline)
2736 (define-key vhdl-mode-map "\C-c\M--" 'vhdl-comment-display-line)
2737 (define-key vhdl-mode-map "\C-c\C-i\C-l" 'indent-according-to-mode)
2738 (define-key vhdl-mode-map "\C-c\C-i\C-g" 'vhdl-indent-group)
2739 (define-key vhdl-mode-map "\M-\C-\\" 'vhdl-indent-region)
2740 (define-key vhdl-mode-map "\C-c\C-i\C-b" 'vhdl-indent-buffer)
2743 (define-key vhdl-mode-map "\C-c\C-a\C-i" 'vhdl-align-same-indent)
2748 (define-key vhdl-mode-map "\C-c\C-a\C-c" 'vhdl-align-inline-comment-group)
2749 (define-key vhdl-mode-map "\C-c\C-a\M-c" 'vhdl-align-inline-comment-region)
2753 (define-key vhdl-mode-map "\C-c\C-f\C-i" 'vhdl-fill-same-indent)
2763 (define-key vhdl-mode-map "\C-c\C-l\C-c" 'vhdl-comment-uncomment-line)
2815 (function
2865 ;; a single hyphen is punctuation, but a double hyphen starts a comment
2867 ;; and \n and \^M end a comment
2901 ("--" "" vhdl-template-display-comment-hook 0)
2914 ("begin" "" vhdl-template-default-indent-hook 0)
2933 ("end" "" vhdl-template-default-indent-hook 0)
2938 ("func" "" vhdl-template-function-hook 0)
2939 ("function" "" vhdl-template-function-hook 0)
3039 (vhdl-function-name
3165 "Call the customize function with `vhdl' as argument."
3189 (function (lambda (a b) (string< (elt a 0) (elt b 0)))))
3259 ["Function (Body)" vhdl-template-function-body t]
3260 ["Function (Decl)" vhdl-template-function-decl t]
3352 (vhdl-function-name "vhdl-model" (nth 0 model))
3398 ["(Un)Comment Out Region" vhdl-comment-uncomment-region (mark)]
3400 ["Insert Inline Comment" vhdl-comment-append-inline t]
3401 ["Insert Horizontal Line" vhdl-comment-display-line t]
3402 ["Insert Display Comment" vhdl-comment-display t]
3406 ["Kill Comment Region" vhdl-comment-kill-region (mark)]
3407 ["Kill Inline Comment Region" vhdl-comment-kill-inline-region (mark)])
3420 ["(Un)Comment Out" vhdl-comment-uncomment-line t])
3426 ["Forward Same Indent" vhdl-forward-same-indent t]
3427 ["Backward Same Indent" vhdl-backward-same-indent t]
3433 ["Line" indent-according-to-mode :keys "C-c C-i C-l"]
3434 ["Group" vhdl-indent-group :keys "C-c C-i C-g"]
3435 ["Region" vhdl-indent-region (mark)]
3436 ["Buffer" vhdl-indent-buffer :keys "C-c C-i C-b"])
3439 ["Same Indent" vhdl-align-same-indent :keys "C-c C-a C-i"]
3445 ["Inline Comment Group" vhdl-align-inline-comment-group t]
3446 ["Inline Comment Region" vhdl-align-inline-comment-region (mark)]
3447 ["Inline Comment Buffer" vhdl-align-inline-comment-buffer t])
3451 ["Same Indent" vhdl-fill-same-indent :keys "C-c C-f C-i"]
3499 (progn (customize-set-variable 'vhdl-indent-tabs-mode
3500 (not vhdl-indent-tabs-mode))
3501 (setq indent-tabs-mode vhdl-indent-tabs-mode))
3502 :style toggle :selected vhdl-indent-tabs-mode]
3682 (customize-set-variable 'vhdl-argument-list-indent
3683 (not vhdl-argument-list-indent))
3684 :style toggle :selected vhdl-argument-list-indent]
3733 (customize-set-variable 'vhdl-clock-edge-condition 'function)
3734 :style radio :selected (eq 'function vhdl-clock-edge-condition)])
3856 (customize-option 'vhdl-inline-comment-column) t]
3857 ["End Comment Column..." (customize-option 'vhdl-end-comment-column) t]
3859 ["Customize Group..." (customize-group 'vhdl-comment) t])
3870 (customize-set-variable 'vhdl-align-same-indent
3871 (not vhdl-align-same-indent))
3872 :style toggle :selected vhdl-align-same-indent]
4006 (customize-set-variable 'vhdl-indent-syntax-based
4007 (not vhdl-indent-syntax-based))
4008 :style toggle :selected vhdl-indent-syntax-based]
4049 "^\\s-*\\(\\(\\(impure\\|pure\\)\\s-+\\|\\)function\\|procedure\\)\\s-+\\(\"?\\(\\w\\|\\s_\\)+\"?\\)"
4201 ;; --> \" : \" [ --> ( -- --> comment
4202 ;;; --> \" := \" [[ --> [ --CR --> comment-out code
4204 ,, --> \" <= \" ]] --> ] ---- --> display comment
4227 `--' puts a single comment.
4229 `----' inserts a display comment, i.e. two horizontal lines
4230 with a comment in between.
4244 are indented at least to `vhdl-inline-comment-column'. Comments go at
4245 maximum to `vhdl-end-comment-column'. `RET' after a space in a comment
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
4260 according to option `vhdl-argument-list-indent'.
4262 If option `vhdl-indent-tabs-mode' is nil, spaces are used instead of
4267 `vhdl-indent-syntax-based' allows to use faster but simpler indentation.
4274 indent. `C-c C-a C-l' aligns all lines belonging to a list enclosed by
4282 aligned individually. If option `vhdl-align-same-indent' is non-nil,
4283 blocks of lines with same indent are aligned separately. Some templates
4288 `vhdl-inline-comment-column' and tries inline comment not to exceed
4289 `vhdl-end-comment-column'.
4300 blank lines, `C-c C-f C-i' a block of lines with same indent, and
4338 subprograms (function/procedure). A subprogram interface can be copied
4539 function names (controlled by option `vhdl-highlight-keywords'), as well
4709 (set (make-local-variable 'indent-line-function) 'vhdl-indent-line)
4710 (set (make-local-variable 'comment-start) "--")
4711 (set (make-local-variable 'comment-end) "")
4713 (set (make-local-variable 'comment-padding) ""))
4714 (set (make-local-variable 'comment-column) vhdl-inline-comment-column)
4715 (set (make-local-variable 'end-comment-column) vhdl-end-comment-column)
4716 (set (make-local-variable 'comment-start-skip) "--+\\s-*")
4717 (set (make-local-variable 'comment-multi-line) nil)
4718 (set (make-local-variable 'indent-tabs-mode) vhdl-indent-tabs-mode)
4721 ;; setup the comment indent variable in a Emacs version portable way
4723 (when (boundp 'comment-indent-function)
4724 (make-local-variable 'comment-indent-function)
4725 (setq comment-indent-function 'vhdl-comment-indent))
4776 (setq comment-column vhdl-inline-comment-column)
4777 (setq end-comment-column vhdl-end-comment-column)
4823 "file" "for" "function"
4857 "for" "force" "forever" "fork" "function"
5164 This function does not modify point or mark."
5251 (function
5300 (function
5313 (function
5334 ;; offset can be a number, a function, a variable, or one of the
5339 (error "ERROR: Don't know how to indent a %s" symbol)
5362 (defun vhdl-in-comment-p ()
5363 "Check if point is in a comment."
5364 (eq (vhdl-in-literal) 'comment))
5376 ((nth 4 state) 'comment)
5380 (defun vhdl-forward-comment (&optional direction)
5397 ;; XEmacs hack: work around buggy `forward-comment' in XEmacs 21.4+
5399 (defalias 'vhdl-forward-comment 'forward-comment))
5419 ;; looking at the opening of a VHDL style comment
5421 (if (<= here (progn (end-of-line) (point))) 'comment))
5464 (vhdl-forward-comment hugenum)
5482 ;; vhdl comment
5509 (vhdl-forward-comment hugenum)
5521 ;; vhdl comment
5522 ((eq (vhdl-in-literal) 'comment)
5577 "\\b\\(architecture\\|block\\|configuration\\|entity\\|package\\|process\\|procedural\\|procedure\\|function\\)\\b[^_]")
5587 ;; "package", "procedure", "function":
5601 ;; "procedure", "function":
5622 ;; procedure|function] ... is":
5629 ;; semicolons in the function interface list.
5826 (vector "begin\\|architecture\\|configuration\\|entity\\|package\\|procedure\\|function"
5842 ;; "function ... is ... begin ... end [id]":
5843 ("function" . "is")
6017 (if (eq literal 'comment)
6124 (if (eq literal 'comment)
6218 (if (eq literal 'comment)
6272 (if (eq literal 'comment)
6293 one. If within a string or comment, or next to a comment (only
6296 When called from a program, this function takes 3 optional args: the
6311 (looking-at (concat "[ \t]*" comment-start-skip))))
6574 (let* ((indent-point (point))
6619 ;; cache char before and after indent point, and move point to
6621 (goto-char indent-point)
6635 (goto-char indent-point)
6640 ;; CASE 1: in a string or comment.
6641 ((memq literal '(string comment))
6652 ;; if there is a preceding-sexp then indent relative to it
6663 (vhdl-forward-syntactic-ws indent-point))
6684 (vhdl-forward-syntactic-ws indent-point))
6720 (vhdl-forward-syntactic-ws indent-point)
6753 ;; see if the b-o-s is before the indent point
6754 (> indent-point
6762 (vhdl-forward-syntactic-ws indent-point)
6770 (> (match-end 0) indent-point))))
6772 ;; before the indent point at the start of a line.
6774 (if (and (> indent-point
6777 (vhdl-forward-skip-label indent-point)
6809 (vhdl-forward-syntactic-ws indent-point)
6817 ;; after the indent-point
6818 (while (vhdl-skip-case-alternative indent-point))
6823 (vhdl-forward-syntactic-ws indent-point)
6830 (= (point) indent-point))
6834 ((< (point) indent-point)
6853 (goto-char indent-point)
6856 (vhdl-add-syntax 'comment))
6919 (defun vhdl-lineup-comment (langelem)
6920 "Support old behavior for comment indentation. We look at
6921 vhdl-comment-only-line-offset to decide how to indent comment
6925 ;; at or to the right of comment-column
6926 (if (>= (current-column) comment-column)
6927 (vhdl-comment-indent)
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)
6997 else if last command was a tab or return then dedent one step or if a comment
6998 toggle between normal indent and inline comment indent,
6999 else indent `correctly'."
7020 ;; toggle comment indent
7024 (cond ((= (current-indentation) 0) ; no indent
7025 (indent-to 1)
7026 (indent-according-to-mode))
7027 ((< (current-indentation) comment-column) ; normal indent
7028 (indent-to comment-column)
7029 (indent-according-to-mode))
7030 (t ; inline comment indent
7037 ;; indent line
7038 (t (indent-according-to-mode)))
7042 "newline-and-indent or indent-new-comment-line if in comment and preceding
7045 (if (and (= (preceding-char) ? ) (vhdl-in-comment-p))
7046 (indent-new-comment-line)
7049 (newline-and-indent)))
7051 (defun vhdl-indent-line ()
7055 (let* ((syntax (and vhdl-indent-syntax-based (vhdl-get-syntactic-context)))
7057 (indent
7059 ;; indent syntax-based
7060 (if (and (eq (caar syntax) 'comment)
7061 (>= (vhdl-get-offset (car syntax)) comment-column))
7062 ;; special case: comments at or right of comment-column
7065 ;; indent like previous nonblank line
7069 (shift-amt (- indent (current-indentation))))
7071 (message "syntax: %s, indent= %d" syntax indent))
7075 (indent-to indent))
7082 (run-hooks 'vhdl-special-indent-hook)
7086 (defun vhdl-indent-region (beg end column)
7088 Adds progress reporting to `indent-region'."
7093 (indent-region beg end column)
7097 (defun vhdl-indent-buffer ()
7099 Calls `indent-region' for whole buffer and adds progress reporting."
7101 (vhdl-indent-region (point-min) (point-max) nil))
7103 (defun vhdl-indent-group ()
7114 (vhdl-indent-region beg end nil)))
7116 (defun vhdl-indent-sexp (&optional endpos)
7118 If optional arg ENDPOS is given, indent each line, stopping when
7124 (indent-region beg end nil))))
7149 (function
7210 (defun vhdl-do-group (function &optional spacing)
7224 (funcall function beg end spacing)))
7226 (defun vhdl-do-list (function &optional spacing)
7245 (funcall function beg end spacing)
7248 (defun vhdl-do-same-indent (function &optional spacing)
7249 "Apply FUNCTION to block of lines with same indent."
7250 (let ((indent (current-indentation))
7252 ;; search for first line with same indent
7256 (= (current-indentation) indent)))
7260 ;; search for last line with same indent
7264 (= (current-indentation) indent)))
7270 (funcall function beg end spacing)))
7272 (defun vhdl-align-region-1 (begin end &optional spacing alignment-list indent)
7282 (let (bol indent)
7288 (when indent
7289 (indent-region bol end nil))))
7377 (vhdl-align-inline-comment-region-1 beg end)))
7383 (unless no-comments (vhdl-align-inline-comment-region-1 beg pos))
7390 (unless no-comments (vhdl-align-inline-comment-region-1 beg end))
7392 (when vhdl-indent-tabs-mode
7399 "Align region, treat blocks with same indent and argument lists separately."
7401 (if (not vhdl-align-same-indent)
7404 ;; align blocks with same indent and argument lists
7407 indent cur-end)
7423 ;; determine region with same indent
7424 (setq indent (current-indentation))
7430 (= (current-indentation) indent))
7439 (vhdl-align-inline-comment-region beg end spacing noninteractive)
7453 (defun vhdl-align-same-indent (&optional spacing)
7454 "Align block of lines with same indent."
7456 (vhdl-do-same-indent 'vhdl-align-region-groups spacing))
7482 (defun vhdl-align-inline-comment-region-1 (beg end &optional spacing)
7485 (let ((start-max comment-column)
7487 comment-list start-list tmp-list start length
7492 ;; search for comment start positions and lengths
7502 (setq comment-list (cons (cons start length) comment-list)))
7504 (setq comment-list
7505 (sort comment-list (function (lambda (a b) (> (car a) (car b))))))
7507 (setq start-list (list (caar comment-list)))
7508 (setq comment-list (cdr comment-list))
7509 (while comment-list
7510 (unless (or (= (caar comment-list) (car start-list))
7511 (<= (+ (car start-list) (cdar comment-list))
7512 end-comment-column))
7513 (setq start-list (cons (caar comment-list) start-list)))
7514 (setq comment-list (cdr comment-list)))
7526 comment-column))))
7538 ;; align comment-only line to inline comment of previous line
7540 (<= length (- end-comment-column prev-start)))
7543 ((<= (+ start-max length-max) end-comment-column)
7545 ;; align at `comment-column' if possible
7546 ((and (<= start comment-column)
7547 (<= length (- end-comment-column comment-column)))
7548 comment-column)
7554 (indent-to cur-start))
7558 (defun vhdl-align-inline-comment-region (beg end &optional spacing no-message)
7575 (vhdl-align-inline-comment-region-1 beg end spacing)
7580 (vhdl-align-inline-comment-region-1 beg pos spacing)
7585 (vhdl-align-inline-comment-region-1 beg end spacing)))
7586 (when vhdl-indent-tabs-mode
7590 (defun vhdl-align-inline-comment-group (&optional spacing)
7603 (vhdl-align-inline-comment-region-1 beg end)
7604 (when vhdl-indent-tabs-mode
7608 (defun vhdl-align-inline-comment-buffer ()
7612 (vhdl-align-inline-comment-region (point-min) (point-max)))
7680 case fixing to a region. Calls functions `vhdl-indent-buffer',
7685 (vhdl-indent-region beg end nil)
7710 (vhdl-comment-kill-region beg end)
7711 (vhdl-comment-kill-inline-region beg end)
7714 ;; wrap and end-comment-column
7717 (when(> (current-column) vhdl-end-comment-column)
7721 (indent-to margin)))))))
7733 (defun vhdl-fill-same-indent ()
7734 "Fill the lines of block of lines with same indent."
7736 (vhdl-do-same-indent 'vhdl-fill-region))
7896 end-comment-column)
7898 (insert "\n") (indent-to margin))
8059 ;; correct different behavior of function `unread-command-events' in XEmacs
8103 "-- starts a comment, --- draws a horizontal line,
8104 ---- starts a display comment."
8112 (vhdl-comment-display))
8116 (message "Enter '-' for horiz. line, 'CR' for commenting-out code, else enter comment")
8120 (vhdl-comment-display-line)
8122 "Enter '-' for display comment, else continue coding")
8125 (vhdl-comment-display t)
8130 (vhdl-comment-insert)))))
8225 (vhdl-comment-insert-inline))))
8291 (vhdl-comment-insert-inline))))
8323 (vhdl-comment-block))))
8333 (indent-to margin)
8336 (indent-to (+ margin vhdl-basic-offset)))))
8386 (indent-to margin)
8391 (indent-to (+ margin vhdl-basic-offset))
8395 (indent-to (+ margin vhdl-basic-offset))
8422 (indent-to margin)
8437 (indent-to margin)
8443 (indent-to (+ margin vhdl-basic-offset))
8446 (indent-to (+ margin vhdl-basic-offset))
8478 (indent-to (+ margin vhdl-basic-offset))
8483 (indent-to (+ margin vhdl-basic-offset)))
8511 (indent-to margin)
8550 (indent-to (+ margin vhdl-basic-offset))
8569 (indent-to (+ margin (* 2 vhdl-basic-offset)))
8574 (indent-to (+ margin (* 2 vhdl-basic-offset))))
8608 (indent-to (+ margin vhdl-basic-offset))
8612 (indent-to margin)
8631 (vhdl-comment-insert-inline))
8637 (vhdl-comment-insert-inline))))))
8648 (defun vhdl-template-default-indent ()
8649 "Insert nothing and indent."
8656 (indent-according-to-mode))
8678 (indent-according-to-mode)
8681 (indent-to (+ margin vhdl-basic-offset))))))
8693 (indent-according-to-mode)
8697 (indent-to (+ margin vhdl-basic-offset))))))
8708 (indent-to margin)
8714 (indent-to (+ margin vhdl-basic-offset))
8716 (indent-to (+ margin vhdl-basic-offset))
8720 (indent-to (+ margin vhdl-basic-offset))
8759 (vhdl-comment-insert-inline))))
8821 (indent-to margin)
8828 (indent-to (+ margin vhdl-basic-offset)))))
8830 (defun vhdl-template-function (&optional kind)
8831 "Insert a function declaration or body."
8842 (indent-to (+ margin vhdl-basic-offset))
8850 (vhdl-comment-block))
8853 (defun vhdl-template-function-decl ()
8854 "Insert a function declaration."
8856 (vhdl-template-function 'decl))
8858 (defun vhdl-template-function-body ()
8859 "Insert a function declaration."
8861 (vhdl-template-function 'body))
8905 (vhdl-comment-insert-inline))))
8915 (vhdl-comment-insert-inline))))
8962 (indent-to margin)
8967 (indent-to (+ margin vhdl-basic-offset)))))
8996 (indent-to margin)
9041 (indent-to margin)
9045 (indent-to (+ margin vhdl-basic-offset))))
9061 (if vhdl-argument-list-indent
9065 (indent-to margin))
9074 (indent-to margin)
9079 (indent-to margin))
9137 (vhdl-comment-insert-inline)
9185 (indent-to (+ margin vhdl-basic-offset))
9189 (indent-to margin)
9243 (vhdl-comment-block)))
9263 (vhdl-comment-block))
9324 (indent-to margin)
9329 (indent-to margin)
9332 (indent-to margin)
9341 (indent-to margin)
9367 (vhdl-comment-insert-inline)))
9387 (vhdl-comment-insert-inline)))
9404 (vhdl-comment-insert-inline)))
9420 (vhdl-comment-insert-inline))
9429 (indent-to (+ margin vhdl-basic-offset))
9436 (vhdl-comment-insert-inline)
9438 (indent-to (+ margin vhdl-basic-offset))
9441 (indent-to margin)
9485 (indent-to (+ margin vhdl-basic-offset))
9489 (indent-to (+ margin vhdl-basic-offset))
9494 (indent-to (+ margin vhdl-basic-offset))
9498 (progn (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
9518 (vhdl-comment-insert-inline))
9524 (vhdl-comment-insert-inline))))))
9547 (vhdl-comment-insert-inline))))
9553 (vhdl-template-function-body)
9560 (vhdl-template-function-decl)
9575 (vhdl-comment-insert-inline))))
9586 (vhdl-comment-insert-inline))))
9622 (vhdl-comment-insert-inline)
9647 "\\<function\\|procedure\\|process\\|procedural\\|end\\>"
9659 (vhdl-comment-insert-inline))
9665 (vhdl-comment-insert-inline))))))
9690 (indent-to (+ margin vhdl-basic-offset)))
9712 (indent-to margin)
9716 (indent-to (+ margin vhdl-basic-offset)))))
9745 (vhdl-comment-insert-inline
9758 (vhdl-comment-insert-inline
9761 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
9763 (insert "\n") (indent-to margin)
9765 (if (eq vhdl-clock-edge-condition 'function)
9773 (vhdl-comment-insert-inline
9775 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
9784 (vhdl-comment-insert-inline
9787 (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset)))
9789 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
9791 (insert "\n") (indent-to (+ margin (* 2 vhdl-basic-offset)))
9792 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
9796 (insert "\n") (indent-to margin)
9818 (indent-to margin)))
10015 (defun vhdl-comment-indent ()
10022 (- (current-column) 2) ; existing comment at bol stays there
10025 (max comment-column ; else indent to comment column
10030 (defun vhdl-comment-insert ()
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."
10035 (when (> (current-column) end-comment-column) (newline-and-indent))
10044 (progn (indent-to margin) (insert "--"))
10046 (indent-to comment-column)
10063 (defun vhdl-comment-display (&optional line-exists)
10064 "Add 2 comment lines at the current indent, making a display comment."
10067 (unless line-exists (vhdl-comment-display-line))
10068 (insert "\n") (indent-to margin)
10069 (insert "\n") (indent-to margin)
10070 (vhdl-comment-display-line)
10074 (defun vhdl-comment-display-line ()
10079 (len (- end-comment-column col)))
10082 (defun vhdl-comment-append-inline ()
10083 "Append empty inline comment to current line."
10088 (indent-to comment-column)
10091 (defun vhdl-comment-insert-inline (&optional string always-insert)
10092 "Insert inline comment."
10097 (indent-to comment-column)
10100 (vhdl-template-field "[comment]" nil t)))
10103 ; (when (> (current-column) end-comment-column)
10107 ; (indent-to comment-column)
10111 (defun vhdl-comment-block ()
10112 "Insert comment for code block."
10117 (re-search-backward "\\<\\(architecture\\|block\\|function\\|procedure\\|process\\|procedural\\)\\>" nil t))
10125 (indent-to margin)
10131 (defun vhdl-comment-uncomment-region (beg end &optional arg)
10141 (if (looking-at comment-start)
10142 (comment-region beg end '(4))
10143 (comment-region beg end))))
10145 (defun vhdl-comment-uncomment-line (&optional arg)
10152 (vhdl-comment-uncomment-region position (point)))))
10154 (defun vhdl-comment-kill-region (beg end)
10167 (defun vhdl-comment-kill-inline-region (beg end)
10188 (indent-to margin)
10196 (indent-to (+ margin vhdl-basic-offset))
10200 (indent-to margin)
10206 (defun vhdl-template-argument-list (&optional is-function)
10207 "Read from user a procedure or function argument list."
10213 (unless vhdl-argument-list-indent
10216 (indent-to margin))
10219 (unless is-function " | VARIABLE") "]") " " t))
10223 (unless is-function
10230 (vhdl-comment-insert-inline)
10233 (indent-to margin)
10236 (unless is-function " | VARIABLE") "]") " " t)))
10249 (unless vhdl-argument-list-indent
10255 (indent-to margin)))
10263 (unless vhdl-argument-list-indent
10279 (vhdl-comment-insert-inline)
10282 (indent-to margin)
10299 (unless vhdl-argument-list-indent
10305 (indent-to margin)))
10315 (unless vhdl-argument-list-indent
10331 (vhdl-comment-insert-inline)
10334 (indent-to margin)
10352 (indent-to margin)
10356 (indent-to (+ margin vhdl-basic-offset)))
10373 "Expand abbreviations and self-insert space(s), do indent-new-comment-line
10374 if in comment and past end-comment-column."
10376 (cond ((vhdl-in-comment-p)
10378 (cond ((>= (current-column) (+ 2 end-comment-column))
10381 (indent-new-comment-line)
10384 ((>= (current-column) end-comment-column)
10385 (indent-new-comment-line))
10515 (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))
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))
10575 (looking-at "^\\s-*\\(\\(\\w+[ \t\n]+\\)?\\(function\\|procedure\\)\\|\\(\\w+[ \t\n]*:[ \t\n]*\\)?\\(\\w+[ \t\n]+\\)?\\(procedural\\|process\\)\\)\\>")))))))
10584 (looking-at "^\\s-*\\(generic\\|port\\|\\(\\(impure\\|pure\\)\\s-+\\|\\)function\\|procedure\\)\\>\\s-*\\(\\w+\\s-*\\)?("))))))
10590 "Do function, if syntax says abbrev is a keyword, invoked by hooked abbrev,
10591 but not if inside a comment or quote."
10646 (defun vhdl-template-display-comment-hook ()
10647 (vhdl-hooked-abbrev 'vhdl-comment-display))
10660 (defun vhdl-template-function-hook ()
10661 (vhdl-hooked-abbrev 'vhdl-template-function))
10739 (defun vhdl-template-default-indent-hook ()
10740 (vhdl-hooked-abbrev 'vhdl-template-default-indent))
10787 (indent-according-to-mode)
10799 ;; indent code
10846 (eval `(defun ,(vhdl-function-name "vhdl-model" model-name) ()
10854 ,(vhdl-function-name
10857 ',(vhdl-function-name "vhdl-model" model-name)))))
10871 ;; ((generic-names) generic-type generic-init generic-comment group-comment)
10872 ;; ((port-names) port-object port-direct port-type port-comment group-comment)
10894 (defun vhdl-parse-group-comment ()
10895 "Parse comment and empty lines between groups of lines."
10898 (vhdl-forward-comment (point-max))
10909 (defun vhdl-paste-group-comment (string indent)
10910 "Paste comment and empty lines from STRING between groups of lines
10913 (when (> indent 0)
10916 (make-string indent ? )
10988 object names direct type init comment group-comment)
11007 ;; parse group comment and spacing
11008 (setq group-comment (vhdl-parse-group-comment))
11020 (setq comment nil)
11030 (setq comment (substring type (match-beginning 2)))
11032 ;; strip of trailing group-comment
11049 (setq comment (substring init (match-beginning 2)))
11053 ;; parse inline comment, special case: as above, no initial.
11054 (unless comment
11055 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11060 ;; parse inline comment
11061 (unless comment
11062 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11067 comment group-comment))))
11068 ;; parse group comment and spacing
11069 (setq group-comment (vhdl-parse-group-comment))))
11072 ;; parse group comment and spacing
11073 (setq group-comment (vhdl-parse-group-comment))
11093 (setq comment nil)
11102 (setq comment (substring type (match-beginning 2)))
11104 ;; strip of trailing group-comment
11110 ;; parse inline comment
11111 (unless comment
11112 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11117 comment group-comment))))
11118 ;; parse group comment and spacing
11119 (setq group-comment (vhdl-parse-group-comment))))
11165 (unless vhdl-argument-list-indent
11166 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11170 ;; paste group comment and spacing
11172 (vhdl-paste-group-comment (nth 4 generic) list-margin))
11186 ;; paste comment
11188 (vhdl-comment-insert-inline (nth 3 generic) t))
11190 (when generic-list (insert "\n") (indent-to list-margin)))
11203 (unless vhdl-argument-list-indent
11204 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11208 ;; paste group comment and spacing
11210 (vhdl-paste-group-comment (nth 5 port) list-margin))
11226 ;; paste comment
11228 (vhdl-comment-insert-inline (nth 4 port) t))
11230 (when port-list (insert "\n") (indent-to list-margin)))
11234 (defun vhdl-port-paste-declaration (kind &optional no-indent)
11236 (unless no-indent (indent-according-to-mode))
11248 (indent-to (+ margin vhdl-basic-offset))
11255 (indent-to (+ margin vhdl-basic-offset)))
11260 (indent-to margin)
11270 (defun vhdl-port-paste-entity (&optional no-indent)
11276 (vhdl-port-paste-declaration 'entity no-indent)
11279 (defun vhdl-port-paste-component (&optional no-indent)
11285 (vhdl-port-paste-declaration 'component no-indent)
11291 (unless secondary (indent-according-to-mode))
11309 (unless vhdl-argument-list-indent
11310 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11314 ;; paste group comment and spacing
11316 (vhdl-paste-group-comment (nth 4 generic) list-margin))
11327 ;; paste comment
11330 (vhdl-comment-insert-inline
11335 (when generic-list (insert "\n") (indent-to list-margin)))
11355 (unless vhdl-argument-list-indent
11356 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11360 ;; paste group comment and spacing
11362 (vhdl-paste-group-comment (nth 5 port) list-margin))
11369 ;; paste comment
11373 (vhdl-comment-insert-inline
11385 (when port-list (insert "\n") (indent-to list-margin)))
11390 (defun vhdl-port-paste-instance (&optional name no-indent title)
11398 (unless no-indent (indent-according-to-mode))
11422 (indent-to vhdl-basic-offset)
11429 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
11432 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
11439 (defun vhdl-port-paste-constants (&optional no-indent)
11448 (unless no-indent (indent-according-to-mode))
11456 ;; paste group comment and spacing
11458 (vhdl-paste-group-comment (nth 4 generic) margin))
11470 ;; paste comment
11472 (vhdl-comment-insert-inline (nth 3 generic) t))
11474 (when generic-list (insert "\n") (indent-to margin))))
11481 (defun vhdl-port-paste-signals (&optional initialize no-indent)
11487 (unless no-indent (indent-according-to-mode))
11495 ;; paste group comment and spacing
11497 (vhdl-paste-group-comment (nth 5 port) margin))
11515 ;; paste comment
11518 (vhdl-comment-insert-inline
11525 (when port-list (insert "\n") (indent-to margin)))
11530 (defun vhdl-port-paste-initializations (&optional no-indent)
11539 (unless no-indent (indent-according-to-mode))
11557 (insert "\n") (indent-to margin)))
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")))
11649 (insert "\n\n") (indent-to vhdl-basic-offset)
11653 (insert "\n\n") (indent-to vhdl-basic-offset))
11656 (insert "-- component generics\n") (indent-to vhdl-basic-offset)
11658 (insert "\n\n") (indent-to vhdl-basic-offset))
11660 (insert "-- component ports\n") (indent-to vhdl-basic-offset)
11669 (vhdl-comment-display-line) (insert "\n")
11678 (indent-to vhdl-basic-offset)
11680 (indent-to vhdl-basic-offset)
11683 (vhdl-comment-display-line) (insert "\n"))
11688 (insert "-- component instantiation\n") (indent-to vhdl-basic-offset)
11697 (indent-to vhdl-basic-offset)
11719 ;; ((names) object direct type init comment group-comment)
11720 ;; return-type return-comment group-comment)
11755 comment group-comment
11756 return-type return-comment return-group-comment)
11761 ;; check if within function declaration
11765 (unless (and (re-search-backward "^\\s-*\\(\\(procedure\\)\\|\\(\\(pure\\|impure\\)\\s-+\\)?function\\)\\s-+\\(\"?\\w+\"?\\)[ \t\n]*\\(\\((\\)\\|;\\|is\\>\\)" nil t)
11772 (setq kind (if (match-string 2) 'procedure 'function))
11776 (setq group-comment (vhdl-parse-group-comment))
11797 (setq comment nil)
11807 (setq comment (substring type (match-beginning 2)))
11809 ;; strip off trailing group-comment
11826 (setq comment (substring init (match-beginning 2)))
11830 ;; parse inline comment, special case: as above, no initial.
11831 (unless comment
11832 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11836 ;; parse inline comment
11837 (unless comment
11838 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11840 (setq return-group-comment (vhdl-parse-group-comment))
11848 (setq return-comment (substring return-type (match-beginning 2)))
11850 ;; strip of trailing group-comment
11853 ;; parse return comment
11854 (unless return-comment
11855 (setq return-comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11857 ;; parse inline comment
11858 (unless comment
11859 (setq comment (and (vhdl-parse-string "--\\s-*\\([^\n]*\\)" t)
11864 comment group-comment))))
11865 ;; parse group comment and spacing
11866 (setq group-comment (vhdl-parse-group-comment)))
11873 (list name kind param-list return-type return-comment
11874 return-group-comment)
11879 (indent-according-to-mode)
11892 (unless vhdl-argument-list-indent
11893 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11897 ;; paste group comment and spacing
11899 (vhdl-paste-group-comment (nth 6 param) list-margin))
11921 ;; paste comment
11923 (vhdl-comment-insert-inline (nth 5 param) t))
11925 (when param-list (insert "\n") (indent-to list-margin)))
11927 (insert "\n") (indent-to list-margin)
11928 ;; paste group comment and spacing
11930 (vhdl-paste-group-comment (nth 5 vhdl-subprog-list) list-margin))
11935 (vhdl-comment-insert-inline (nth 4 vhdl-subprog-list) t)))
11980 (indent-according-to-mode)
11991 (unless vhdl-argument-list-indent
11992 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11996 ;; paste group comment and spacing
11998 (vhdl-paste-group-comment (nth 6 param) list-margin))
12003 ;; paste comment
12005 (vhdl-comment-insert-inline (nth 5 param)))
12006 (when param-list (insert "\n") (indent-to list-margin)))
12071 ;; function for expanding abbrevs and dabbrevs
12073 (fset 'vhdl-expand-abbrev (make-hippie-expand-function
12078 ;; function for expanding parenthesis
12080 (fset 'vhdl-expand-paren (make-hippie-expand-function
12210 "Open a new line and indent."
12213 (newline-and-indent))
12225 (defun vhdl-forward-same-indent ()
12226 "Move forward to next line with same indent."
12229 (indent (current-indentation)))
12233 (> (current-indentation) indent)))
12235 (if (= (current-indentation) indent)
12237 (message "No following line with same indent found in this block")
12241 (defun vhdl-backward-same-indent ()
12242 "Move backward to previous line with same indent."
12245 (indent (current-indentation)))
12249 (> (current-indentation) indent)))
12251 (if (= (current-indentation) indent)
12253 (message "No preceding line with same indent found in this block")
12336 (defun vhdl-toggle-project (name token indent)
12459 "\\(function\\|procedure\\)\\>\\|"
12500 ((looking-at "^\\s-*\\(function\\|procedure\\)\\s-+\\(\\w+\\|\".+\"\\)")
12633 "\\(\\(impure\\|pure\\)\\s-+\\)?function\\|procedure\\|component"
12635 5 'font-lock-function-name-face)
12640 2 'font-lock-function-name-face)
12651 1 'font-lock-function-name-face)
12658 '(1 font-lock-function-name-face) '(2 font-lock-function-name-face))
12666 '(1 font-lock-function-name-face) '(3 font-lock-function-name-face)
12667 '(5 font-lock-function-name-face nil t)
12668 '(7 font-lock-function-name-face nil t))
12675 "for\\|function\\|generate\\|if\\|loop\\|package\\(\\s-+body\\)?\\|"
12680 5 'font-lock-function-name-face)
12686 3 'font-lock-function-name-face)
12692 1 'font-lock-function-name-face)
12699 '(1 font-lock-function-name-face) '(4 font-lock-function-name-face nil t))
12703 '(vhdl-font-lock-match-item nil nil (1 font-lock-function-name-face)))
12710 '(3 font-lock-function-name-face) '(5 font-lock-function-name-face nil t)
12711 '(7 font-lock-function-name-face nil t))
12791 (defvar vhdl-font-lock-function-face 'vhdl-font-lock-function-face
12807 (setq name (vhdl-function-name
12820 'vhdl-highlight-faces 'font-lock-comment-face 'custom-face)
12828 'vhdl-highlight-faces 'font-lock-function-name-face 'custom-face)
12855 (defface vhdl-font-lock-function-face
12888 (eval `(defface ,(vhdl-function-name
12924 (list vhdl-functions-regexp 1 'vhdl-font-lock-function-face)
12925 (list vhdl-packages-regexp 1 'vhdl-font-lock-function-face)
12936 (vhdl-function-name
12988 '(font-lock-comment-face
12989 font-lock-function-name-face
13311 (while (re-search-forward "^[ \t]*\\(component\\|function\\|procedure\\)[ \t\n]+\\(\\w+\\|\".*\"\\)" end-of-unit t)
13721 conf-inst-alist level indent
13796 (1+ level) indent nil (cons ent-key ent-hier)))
13812 (defun vhdl-get-instantiations (ent-key indent)
13814 (let ((ent-alist (aget vhdl-entity-alist (vhdl-speedbar-line-key indent) t))
14076 (setq speedbar-stealthy-function-list
14085 speedbar-stealthy-function-list))
14112 (put 'speedbar-with-writable 'lisp-indent-function 0)
14170 (speedbar-do-function-pointer)))
14176 (defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan)
14187 (car (aget vhdl-ent-inst-alist project t)) indent)
14188 (insert (int-to-string indent) ":\n")
14285 (speedbar-do-function-pointer)))
14305 (speedbar-do-function-pointer)
14315 (speedbar-do-function-pointer)
14332 (speedbar-do-function-pointer)
14376 (defun vhdl-speedbar-expand-project (text token indent)
14387 (vhdl-speedbar-insert-project-hierarchy token (1+ indent)
14393 (speedbar-delete-subblock indent))
14398 (defun vhdl-speedbar-expand-entity (text token indent)
14402 (let* ((key (vhdl-speedbar-line-key indent))
14406 (inst-alist (vhdl-get-instantiations token indent))
14422 (vhdl-speedbar-make-title-line "Architectures:" (1+ indent)))
14430 'vhdl-speedbar-architecture-face (1+ indent))
14437 (vhdl-speedbar-make-title-line "Instantiated as:" (1+ indent)))
14443 nil nil nil (1+ indent) 0 " in ")
14447 subpack-alist (1+ indent) indent)))
14454 (let* ((key (vhdl-speedbar-line-key indent))
14460 (speedbar-delete-subblock indent)
14467 (defun vhdl-speedbar-expand-architecture (text token indent)
14471 (let* ((key (vhdl-speedbar-line-key (1- indent)))
14476 0 (1- indent)))
14495 (1+ indent)))
14503 (nth 8 entry) (1+ indent) (1+ (nth 9 entry)) ": "))
14507 subpack-alist (1+ indent) (1- indent))))
14514 (let* ((key (vhdl-speedbar-line-key (1- indent)))
14519 (speedbar-delete-subblock indent)
14526 (defun vhdl-speedbar-expand-config (text token indent)
14530 (let* ((key (vhdl-speedbar-line-key indent))
14537 0 indent t))
14552 (vhdl-speedbar-make-title-line "Design hierarchy:" (1+ indent)))
14560 (nth 8 entry) (1+ indent) (nth 9 entry) ": "))
14564 subpack-alist (1+ indent) indent)))
14571 (let* ((key (vhdl-speedbar-line-key indent))
14577 (speedbar-delete-subblock indent)
14584 (defun vhdl-speedbar-expand-package (text token indent)
14588 (let* ((key (vhdl-speedbar-line-key indent))
14608 (vhdl-speedbar-make-title-line "Components:" (1+ indent)))
14616 'vhdl-speedbar-entity-face (1+ indent))
14620 (vhdl-speedbar-make-title-line "Subprograms:" (1+ indent)))
14629 (1+ indent)))
14633 subpack-alist (1+ indent) indent)))
14640 (let* ((key (vhdl-speedbar-line-key indent))
14646 (speedbar-delete-subblock indent)
14653 (defun vhdl-speedbar-insert-subpackages (subpack-alist indent dir-indent)
14656 (vhdl-speedbar-line-key dir-indent) t))
14659 (vhdl-speedbar-make-title-line "Packages Used:" indent))
14667 (cons (nth 6 pack-entry) (nth 7 pack-entry)) indent)
14781 "Help function to highlight design units."
14979 (defun vhdl-speedbar-dired (text token indent)
14984 (concat (speedbar-line-directory indent) token "/"))
14993 (concat (speedbar-line-directory indent) token "/"))
14994 (1+ indent))
14998 (concat (speedbar-line-directory indent) token "/"))
14999 (1+ indent) speedbar-power-click)))
15006 (concat (speedbar-line-directory indent) token))))
15013 (speedbar-delete-subblock indent))
15087 (defun vhdl-speedbar-line-key (&optional indent)
15092 (file-name-as-directory (speedbar-line-directory indent)))))
15094 (defun vhdl-speedbar-line-project (&optional indent)
15129 (function
15160 (defun vhdl-speedbar-find-file (text token indent)
15260 expansion function)."
15424 (vhdl-comment-display-line) (insert "\n\n"))
15431 (insert "\n\n") (vhdl-comment-display-line) (insert "\n\n")
15436 (indent-to vhdl-basic-offset) (vhdl-insert-keyword "GENERIC (\n")
15437 (indent-to (* 2 vhdl-basic-offset)) (insert ");\n")
15439 (indent-to vhdl-basic-offset) (vhdl-insert-keyword "PORT (\n")
15440 (indent-to (* 2 vhdl-basic-offset)) (insert ");\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")
15471 (indent-to vhdl-basic-offset) (insert "-- Internal signal declarations\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")
15475 (indent-to vhdl-basic-offset) (insert "-- Component declarations\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")
15484 (indent-to vhdl-basic-offset) (insert "-- Component instantiations\n")
15485 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")
15492 (vhdl-comment-display-line) (insert "\n"))
15531 (insert "\n\n") (indent-to vhdl-basic-offset)
15537 (insert "\n\n") (indent-to vhdl-basic-offset)
15714 (indent-to vhdl-basic-offset)
15724 (indent-to (* 2 vhdl-basic-offset))
15732 (indent-to vhdl-basic-offset)
15742 (indent-to (* 2 vhdl-basic-offset))
15780 (insert "\n") (indent-to (* 2 vhdl-basic-offset))
15822 (insert "\n") (indent-to (* 2 vhdl-basic-offset))
15827 (insert "\n") (indent-to vhdl-basic-offset)
15834 (insert "\n") (indent-to (* 2 vhdl-basic-offset))
15839 (insert "\n") (indent-to (* 2 vhdl-basic-offset))
15855 (indent-to (* 2 vhdl-basic-offset))
15862 (vhdl-comment-insert-inline (nth 3 entry) t))
15869 (indent-to (* 2 vhdl-basic-offset))
15873 (vhdl-comment-insert-inline (nth 4 entry) t))
15879 (indent-to vhdl-basic-offset)
15882 (vhdl-comment-insert-inline (nth 4 entry) t))
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")
15922 (indent-to vhdl-basic-offset) (insert "-- Component declarations\n")
15923 (indent-to vhdl-basic-offset) (vhdl-comment-display-line) (insert "\n\n")
15924 (indent-to vhdl-basic-offset)
15932 (vhdl-comment-display-line) (insert "\n"))
15941 (when (cdr ent-alist) (insert "\n\n") (indent-to vhdl-basic-offset))
15975 (indent-to margin)
15979 (indent-to margin)
15984 (indent-to margin)
16002 (indent-to (+ margin vhdl-basic-offset))
16009 (indent-to (+ margin vhdl-basic-offset))
16026 (indent-to (+ margin vhdl-basic-offset))
16031 (indent-to margin)
16038 (indent-to margin)
16041 (indent-to (- margin vhdl-basic-offset))
16093 (vhdl-comment-display-line) (insert "\n\n")))
16098 (vhdl-comment-display-line) (insert "\n\n")))
16108 (indent-to vhdl-basic-offset)
16117 (vhdl-comment-display-line) (insert "\n"))
16287 compilation-process-setup-function)
16297 (setq compilation-process-setup-function 'vhdl-compile-print-file-name))
16590 (function (lambda (a b)
16757 'vhdl-comment-only-line-offset
16761 'vhdl-indent-tabs-mode
16789 'vhdl-argument-list-indent
16838 'vhdl-inline-comment-column
16839 'vhdl-end-comment-column
16843 'vhdl-align-same-indent
16869 'vhdl-indent-syntax-based
16874 (function
16877 (if vhdl-special-indent-hook
16879 "vhdl-special-indent-hook is set to '"
16880 (format "%s" vhdl-special-indent-hook)