Lines Matching +defs:ps +defs:header +defs:offset
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').
693 (defcustom vhdl-basic-offset 2
694 "*Amount of basic offset used for indentation.
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."
1771 Adjusts settings in a way that postscript printing (\"File\" menu, `ps-print')
1775 Overrides `ps-print' settings locally."
1783 Overrides `ps-print' settings locally."
1850 (custom-add-to-group 'vhdl-related 'ps-print 'custom-group)
1929 list is the absolute offset for line being indented.
1937 designate positive or negative multiples of `vhdl-basic-offset',
1941 return an integer offset.
1968 (defvar vhdl-comment-only-line-offset 0
1969 "*Extra offset for line which contains only the start of a comment.
1974 Where NON-ANCHORED-OFFSET is the amount of offset given to
1976 the amount of offset to give column-zero anchored comment-only lines.
1985 (vhdl-basic-offset . 4)
2002 `vhdl-set-offset' so there is no need to set every syntactic symbol in
2010 vhdl-basic-offset
2012 vhdl-comment-only-line-offset))
2038 (require 'ps-print)
2577 (define-key vhdl-template-map "\C-h" 'vhdl-template-header)
2594 (define-key vhdl-template-map "ps" 'vhdl-template-process-seq)
2609 (define-key vhdl-template-map "\C-ps" 'vhdl-template-package-std-logic-1164)
3336 ["Insert Header" vhdl-template-header :keys "C-c C-t C-h"]
3592 ["Indentation Offset..." (customize-option 'vhdl-basic-offset) t]
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'.
4253 indentation is specified by option `vhdl-basic-offset'. `C-c C-i C-l'
4609 `ps-print-color-p' is non-nil) is possible using the standard Emacs
4612 The paper format can be set by option `ps-paper-type'. Do not forget to
4613 switch `ps-print-color-p' to nil for printing on black-and-white
4759 (vhdl-ps-print-init)
4926 "fs" "ps" "ns" "us" "ms" "sec" "min" "hr"
5141 (defconst vhdl-case-header-key "case[( \t\n][^;=>]+[) \t\n]is"
5142 "Regexp describing a case statement header key.")
5212 ;; Syntactic element offset manipulation:
5214 (defun vhdl-read-offset (langelem)
5215 "Read new offset value for LANGELEM from minibuffer.
5220 offset input interned)
5221 (while (not offset)
5223 offset (cond ((string-equal "+" input) '+)
5237 offset))
5239 (defun vhdl-set-offset (symbol offset &optional add-p)
5242 offset for that syntactic element. Optional ADD-P says to add SYMBOL to
5264 (offset (vhdl-read-offset langelem)))
5265 (list langelem offset current-prefix-arg)))
5266 ;; sanity check offset
5267 (or (eq offset '+)
5268 (eq offset '-)
5269 (eq offset '++)
5270 (eq offset '--)
5271 (integerp offset)
5272 (fboundp offset)
5273 (boundp offset)
5275 offset))
5278 (setcdr entry offset)
5281 (cons (cons symbol offset) vhdl-offsets-alist))
5316 (offset (cdr langentry)))
5317 (vhdl-set-offset langelem offset)
5324 (defun vhdl-get-offset (langelem)
5325 "Get offset from LANGELEM which is a cons cell of the form:
5327 vhdl-offsets-alist and the offset found there is either returned,
5329 the offset is simply returned."
5333 (offset (cdr-safe match)))
5334 ;; offset can be a number, a function, a variable, or one of the
5340 (setq offset 0
5342 ((eq offset '+) (setq offset vhdl-basic-offset))
5343 ((eq offset '-) (setq offset (- vhdl-basic-offset)))
5344 ((eq offset '++) (setq offset (* 2 vhdl-basic-offset)))
5345 ((eq offset '--) (setq offset (* 2 (- vhdl-basic-offset))))
5346 ((and (not (numberp offset))
5347 (fboundp offset))
5348 (setq offset (funcall offset langelem)))
5349 ((not (numberp offset))
5350 (setq offset (eval offset)))
5358 offset)))
6513 (concat vhdl-case-alternative-re "\\|" vhdl-case-header-key))
6872 ;; is good when offset is +, but bad
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)
6963 vhdl-basic-offset
7033 ((and (>= (current-indentation) vhdl-basic-offset)
7036 (backward-delete-char-untabify vhdl-basic-offset nil))
7061 (>= (vhdl-get-offset (car syntax)) comment-column))
7063 (vhdl-get-offset (car syntax))
7064 (apply '+ (mapcar 'vhdl-get-offset syntax)))
8336 (indent-to (+ margin vhdl-basic-offset)))))
8391 (indent-to (+ margin vhdl-basic-offset))
8395 (indent-to (+ margin vhdl-basic-offset))
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)))
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))
8681 (indent-to (+ margin vhdl-basic-offset))))))
8697 (indent-to (+ margin vhdl-basic-offset))))))
8714 (indent-to (+ margin vhdl-basic-offset))
8716 (indent-to (+ margin vhdl-basic-offset))
8720 (indent-to (+ margin vhdl-basic-offset))
8828 (indent-to (+ margin vhdl-basic-offset)))))
8842 (indent-to (+ margin vhdl-basic-offset))
8967 (indent-to (+ margin vhdl-basic-offset)))))
9045 (indent-to (+ margin vhdl-basic-offset))))
9063 (setq margin (+ (current-indentation) vhdl-basic-offset))
9185 (indent-to (+ margin vhdl-basic-offset))
9429 (indent-to (+ margin vhdl-basic-offset))
9438 (indent-to (+ margin vhdl-basic-offset))
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)))
9690 (indent-to (+ margin vhdl-basic-offset)))
9716 (indent-to (+ margin vhdl-basic-offset)))))
9761 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
9775 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
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))
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."
10059 (insert "--")) ; hardwire to 1 space or use vhdl-basic-offset?
10196 (indent-to (+ margin vhdl-basic-offset))
10214 (setq margin (+ (current-indentation) vhdl-basic-offset))
10252 (setq margin (+ (current-column) vhdl-basic-offset))
10302 (setq margin (+ (current-column) vhdl-basic-offset))
10356 (indent-to (+ margin vhdl-basic-offset)))
10816 ;; replace header prompts
10817 (vhdl-template-replace-header-keywords start end nil t)
11166 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11204 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11248 (indent-to (+ margin vhdl-basic-offset))
11255 (indent-to (+ margin vhdl-basic-offset)))
11310 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11356 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11422 (indent-to vhdl-basic-offset)
11429 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
11432 (insert "\n") (indent-to (+ margin vhdl-basic-offset))
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
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)
11678 (indent-to vhdl-basic-offset)
11680 (indent-to vhdl-basic-offset)
11688 (insert "-- component instantiation\n") (indent-to vhdl-basic-offset)
11697 (indent-to vhdl-basic-offset)
11893 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
11992 (insert "\n") (indent-to (+ margin vhdl-basic-offset)))
12976 (defun vhdl-ps-print-settings ()
12980 ps-print-color-p)
12981 (set (make-local-variable 'ps-bold-faces)
12987 (set (make-local-variable 'ps-italic-faces)
12994 (set (make-local-variable 'ps-underlined-faces)
12996 (setq ps-always-build-face-reference t))
13000 (set (make-local-variable 'ps-landscape-mode) t)
13001 (set (make-local-variable 'ps-number-of-columns) 2)
13002 (set (make-local-variable 'ps-font-size) 7.0)
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)
13006 (when (eq ps-paper-type 'letter)
13007 (set (make-local-variable 'ps-inter-column) 40.0)
13008 (set (make-local-variable 'ps-left-margin) 40.0)
13009 (set (make-local-variable 'ps-right-margin) 40.0))))
13011 (defun vhdl-ps-print-init ()
13014 (when (boundp 'ps-print-color-p)
13015 (vhdl-ps-print-settings))
13016 (make-local-variable 'ps-print-hook)
13017 (add-hook 'ps-print-hook 'vhdl-ps-print-settings)))
14797 lib-name depth offset delimiter)
14805 (while (> offset 0)
14807 (insert-char (if (= offset 1) ?- ? ) (1- speedbar-indentation-width))
14808 (setq offset (1- offset)))
15420 ;; insert header
15421 (if vhdl-compose-include-header
15422 (progn (vhdl-template-header)
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")
15461 ;; insert header
15462 (if vhdl-compose-include-header
15463 (progn (vhdl-template-header)
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")
15490 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
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))
15869 (indent-to (* 2 vhdl-basic-offset))
15879 (indent-to vhdl-basic-offset)
15907 ;; insert header
15908 (if vhdl-compose-include-header
15909 (progn (vhdl-template-header
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)
15930 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
15941 (when (cdr ent-alist) (insert "\n\n") (indent-to vhdl-basic-offset))
15960 (setq margin (+ margin vhdl-basic-offset))
15974 (setq margin (- margin vhdl-basic-offset))
15981 (setq margin (+ margin vhdl-basic-offset))
16002 (indent-to (+ margin vhdl-basic-offset))
16009 (indent-to (+ margin vhdl-basic-offset))
16026 (indent-to (+ margin vhdl-basic-offset))
16037 (setq margin (- margin vhdl-basic-offset))
16041 (indent-to (- margin vhdl-basic-offset))
16087 ;; insert header
16088 (if vhdl-compose-include-header
16089 (progn (vhdl-template-header
16108 (indent-to vhdl-basic-offset)
16115 (if (and vhdl-compose-include-header (not (equal vhdl-file-footer "")))
16757 'vhdl-comment-only-line-offset
16773 'vhdl-basic-offset
16794 'vhdl-file-header
16819 'vhdl-testbench-include-header
16832 'vhdl-compose-include-header
16974 ftp://ftp.estec.esa.nl/pub/vhdl/doc/ModelGuide.{pdf,ps}