Lines Matching +defs:header +defs:text
178 \"\\&\" means substitute entire matched text
505 -- that can be used as a project dependent part of the file header.
535 Project title and description are used to insert into the file header (see
536 option `vhdl-file-header').
899 (defgroup vhdl-header nil
900 "Customizations for file header."
904 (defcustom vhdl-file-header "\
925 "*String or file to insert as file header.
927 inserted, otherwise the string itself is inserted as file header.
929 If the header contains RCS keywords, they may be written as <RCS>Keyword<RCS>
930 if the header needs to be version controlled.
950 dependent part of the file header and can also contain the above keywords."
952 :group 'vhdl-header)
960 The same keywords as in option `vhdl-file-header' can be used."
962 :group 'vhdl-header)
965 "*Name of company to insert in file header.
966 See option `vhdl-file-header'."
968 :group 'vhdl-header)
974 "*Copyright string to insert in file header.
976 header keywords (see option `vhdl-file-header')."
978 :group 'vhdl-header)
981 "*Specification of VHDL platform to insert in file header.
984 See option `vhdl-file-header'."
986 :group 'vhdl-header)
989 "*Specifies the date format to use in the header.
994 :group 'vhdl-header)
997 "*Prefix string of modification date in VHDL file header.
1002 :group 'vhdl-header)
1011 :group 'vhdl-header)
1090 File header prompts (see variable `vhdl-file-header') are automatically
1167 (defcustom vhdl-compose-include-header t
1168 "*Non-nil means include a header in automatically generated files."
1312 (defcustom vhdl-testbench-include-header t
1313 "*Non-nil means include a header in automatically generated files."
2577 (define-key vhdl-template-map "\C-h" 'vhdl-template-header)
3336 ["Insert Header" vhdl-template-header :keys "C-c C-t C-h"]
3696 ["Header String..." (customize-option 'vhdl-file-header) t]
3774 (customize-set-variable 'vhdl-testbench-include-header
3775 (not vhdl-testbench-include-header))
3776 :style toggle :selected vhdl-testbench-include-header]
3819 (customize-set-variable 'vhdl-compose-include-header
3820 (not vhdl-compose-include-header))
3821 :style toggle :selected vhdl-compose-include-header]
4190 A file header can be inserted by `C-c C-t C-h'. A file footer
4192 See customization group `vhdl-header'.
4876 "real" "time" "natural" "positive" "string" "line" "text" "side"
5141 (defconst vhdl-case-header-key "case[( \t\n][^;=>]+[) \t\n]is"
5142 "Regexp describing a case statement header key.")
6513 (concat vhdl-case-alternative-re "\\|" vhdl-case-header-key))
7079 ;; the indentation. Else stay at same point in text.
7199 contracted. It may also provide regexps for the text surrounding the
9909 (defun vhdl-template-header (&optional file-title)
9910 "Insert a VHDL file header."
9912 (unless (equal vhdl-file-header "")
9916 (vhdl-insert-string-or-file vhdl-file-header)
9918 (vhdl-template-replace-header-keywords
9932 (vhdl-template-replace-header-keywords pos (point-max-marker)))))
9934 (defun vhdl-template-replace-header-keywords (beg end &optional file-title
9936 "Replace keywords in header and footer."
10816 ;; replace header prompts
10817 (vhdl-template-replace-header-keywords start end nil t)
10876 "Check that the text following point matches the regexp in STRING."
11592 ;; paste entity header
11593 (if vhdl-testbench-include-header
11594 (progn (vhdl-template-header
11636 ;; paste architecture header
11637 (if vhdl-testbench-include-header
11638 (progn (vhdl-template-header
13003 (set (make-local-variable 'ps-header-title-font-size) 10.0)
13004 (set (make-local-variable 'ps-header-font-size) 9.0)
13005 (set (make-local-variable 'ps-header-offset) 12.0)
14146 (setq speedbar-full-text-cache nil)) ; prevent caching
14189 (put-text-property (- (point) 3) (1- (point)) 'invisible t)
14190 (put-text-property (1- (point)) (point) 'invisible nil)
14376 (defun vhdl-speedbar-expand-project (text token indent)
14379 ((string-match "+" text) ; expand project
14389 ((string-match "-" text) ; contract project
14398 (defun vhdl-speedbar-expand-entity (text token indent)
14401 ((string-match "+" text) ; expand entity
14451 ((string-match "-" text) ; contract entity
14467 (defun vhdl-speedbar-expand-architecture (text token indent)
14470 ((string-match "+" text) ; expand architecture
14511 ((string-match "-" text) ; contract architecture
14526 (defun vhdl-speedbar-expand-config (text token indent)
14529 ((string-match "+" text) ; expand configuration
14568 ((string-match "-" text) ; contract configuration
14584 (defun vhdl-speedbar-expand-package (text token indent)
14587 ((string-match "+" text) ; expand package
14637 ((string-match "-" text) ; contract package
14692 (put-text-property (match-beginning 1) (match-end 1) 'face
14779 (defun vhdl-speedbar-update-units (text unit-list file-name face
14785 (concat text "\\(" (car unit-list) "\\)\\>") nil t)
14786 (when (equal file-name (car (get-text-property
14789 (put-text-property (match-beginning 1) (match-end 1) 'face face)))
14802 (put-text-property start (point) 'invisible t)
14809 (put-text-property visible-start (point) 'invisible nil)
14848 (put-text-property (+ 2 start) (1- (point)) 'face
14851 (put-text-property visible-start (point) 'invisible nil)))
14859 (put-text-property start (point) 'invisible t)
14862 (put-text-property visible-start (point) 'invisible nil)
14886 (put-text-property visible-start (point) 'invisible nil)))
14894 (put-text-property start (point) 'invisible t)
14897 (put-text-property visible-start (point) 'invisible nil)
14918 (put-text-property (+ 2 start) (1- (point)) 'face
14921 (put-text-property visible-start (point) 'invisible nil)))
14930 (put-text-property start (point) 'invisible t)
14933 (put-text-property visible-start (point) 'invisible nil)
14953 (put-text-property visible-start (point) 'invisible nil)))
14955 (defun vhdl-speedbar-make-title-line (text &optional depth)
14961 (put-text-property start (point) 'invisible t))
14965 (insert text)
14968 (put-text-property visible-start (point) 'invisible nil)))
14979 (defun vhdl-speedbar-dired (text token indent)
14981 (cond ((string-match "+" text) ; we have to expand this dir
15001 ((string-match "-" text) ; we have to contract this node
15033 (let ((face (get-text-property (point) 'face)))
15061 (or (car (get-text-property (point) 'speedbar-token))
15066 (defun vhdl-speedbar-line-text ()
15067 "Calls `speedbar-line-text' and removes text properties."
15068 (let ((string (speedbar-line-text)))
15069 (set-text-properties 0 (length string) nil string)
15072 (defun vhdl-speedbar-higher-text ()
15073 "Get speedbar-line-text of higher level."
15081 (set-text-properties 0 (length string) nil string)
15160 (defun vhdl-speedbar-find-file (text token indent)
15184 (let ((token (get-text-property
15213 (let ((arch-name (vhdl-speedbar-line-text))
15214 (ent-name (vhdl-speedbar-higher-text)))
15225 (let* ((arch-key (downcase (vhdl-speedbar-line-text)))
15226 (ent-key (downcase (vhdl-speedbar-higher-text)))
15240 (unit-name (vhdl-speedbar-line-text))
15264 (memq (get-text-property (match-end 0) 'face)
15268 (memq (get-text-property (match-end 0) 'face)
15272 (eq (get-text-property (match-end 0) 'face)
15420 ;; insert header
15421 (if vhdl-compose-include-header
15422 (progn (vhdl-template-header)
15461 ;; insert header
15462 (if vhdl-compose-include-header
15463 (progn (vhdl-template-header)
15490 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
15907 ;; insert header
15908 (if vhdl-compose-include-header
15909 (progn (vhdl-template-header
15930 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
16087 ;; insert header
16088 (if vhdl-compose-include-header
16089 (progn (vhdl-template-header
16115 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
16794 'vhdl-file-header
16819 'vhdl-testbench-include-header
16832 'vhdl-compose-include-header