Lines Matching +defs:ps +defs:print +defs:page
53 ;; ebnf2ps uses ps-print package (version 5.2.3 or later), so see ps-print to
54 ;; know how to set options like landscape printing, page headings, margins,
57 ;; NOTE: ps-print zebra stripes and line number options doesn't have effect on
75 ;; ebnf-print-directory
76 ;; ebnf-print-file
77 ;; ebnf-print-buffer
78 ;; ebnf-print-region
93 ;; The word "print", "spool" and "eps" in the command name determines when the
96 ;; print - The PostScript image is immediately sent to the printer;
105 ;; The spooling mechanism is the same as used by ps-print and was designed for
108 ;; easier to pick up one 50-page printout than to find 50 single-page
109 ;; printouts). As ebnf2ps and ps-print use the same Emacs buffer to spool
110 ;; images, you can intermix the spooling of ebnf2ps and ps-print images.
112 ;; ebnf2ps use the same hook of ps-print in the `kill-emacs-hook' so that you
115 ;; PostScript, you'll be asked if you want to print it, and if you decline,
122 ;; directory - Read files in the directory and print them.
124 ;; file - Read file and print it.
132 ;; ebnf-print-buffer - translate and print the entire buffer, and send it
135 ;; ebnf-spool-region - translate and print just the current region, and
140 ;; `ebnf-eps-region' never spool the EPS image, so they don't use the ps-print
148 ;; To translate and print your buffer, type
150 ;; M-x ebnf-print-buffer
153 ;; generate the PostScript image and print or spool it as specified. By giving
156 ;; C-u M-x ebnf-print-buffer
174 ;; (global-set-key 'f22 'ebnf-print-buffer) ;f22 is prsc
175 ;; (global-set-key '(shift f22) 'ebnf-print-region)
407 ;; page, for example:
420 ;; In all examples above, only the production X will start on a new page.
586 ;; `ebnf-page-hook'
587 ;; It is evaluated on each beginning of page.
702 ;; `ebnf-debug-ps' Non-nil means to generate PostScript
1076 ;; form-feed current production starts on a new page.
1118 (require 'ps-print)
1120 (and (string< ps-print-version "5.2.3")
1121 (error "`ebnf2ps' requires `ps-print' package version 5.2.3 or later"))
1549 outline - print characters as hollow outlines.
1555 See `ps-font-info-database' for valid font name."
1946 (defcustom ebnf-debug-ps nil
2058 (defun ebnf-print-directory (&optional directory)
2059 "Generate and print a PostScript syntactic chart image of DIRECTORY.
2066 See also `ebnf-print-buffer'."
2068 (list (read-file-name "Directory containing EBNF files (print): "
2070 (ebnf-directory 'ebnf-print-buffer directory))
2074 (defun ebnf-print-file (file &optional do-not-kill-buffer-when-done)
2075 "Generate and print a PostScript syntactic chart image of the file FILE.
2080 See also `ebnf-print-buffer'."
2081 (interactive "fEBNF file to generate PostScript and print from: ")
2082 (ebnf-file 'ebnf-print-buffer file do-not-kill-buffer-when-done))
2086 (defun ebnf-print-buffer (&optional filename)
2087 "Generate and print a PostScript syntactic chart image of the buffer.
2097 (interactive (list (ps-print-preprint current-prefix-arg)))
2098 (ebnf-print-region (point-min) (point-max) filename))
2102 (defun ebnf-print-region (from to &optional filename)
2103 "Generate and print a PostScript syntactic chart image of the region.
2104 Like `ebnf-print-buffer', but prints just the current region."
2105 (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
2108 (ps-do-despool filename)))
2142 Like `ebnf-print-buffer' except that the PostScript image is saved in a
2238 (defalias 'ebnf-despool 'ps-despool)
2345 ebnf-debug-ps %S
2356 (ps-print-quote ebnf-special-font)
2357 (ps-print-quote ebnf-special-shape)
2361 (ps-print-quote ebnf-except-font)
2362 (ps-print-quote ebnf-except-shape)
2366 (ps-print-quote ebnf-repeat-font)
2367 (ps-print-quote ebnf-repeat-shape)
2373 (ps-print-quote ebnf-terminal-font)
2374 (ps-print-quote ebnf-terminal-shape)
2378 (ps-print-quote ebnf-non-terminal-font)
2379 (ps-print-quote ebnf-non-terminal-shape)
2384 (ps-print-quote ebnf-sort-production)
2385 (ps-print-quote ebnf-production-font)
2386 (ps-print-quote ebnf-arrow-shape)
2387 (ps-print-quote ebnf-chart-shape)
2388 (ps-print-quote ebnf-user-arrow)
2393 (ps-print-quote ebnf-justify-sequence)
2396 (ps-print-quote ebnf-syntax)
2405 ebnf-debug-ps
2478 ebnf-debug-ps
2542 (ebnf-debug-ps . nil)
3811 % ISOLatin1Encoding stolen from ps_init.ps in GhostScript 2.6.1.4:
4092 (rgb (ps-color-scale the-color)))
4206 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4207 (ps-print-color-scale (if ps-color-p
4208 (float (car (ps-color-values "white")))
4212 (old-ps-output (symbol-function 'ps-output))
4213 (old-ps-output-string (symbol-function 'ps-output-string))
4215 ebnf-debug-ps error-msg horizontal
4217 ;; redefines `ps-output' and `ps-output-string'
4218 (defalias 'ps-output 'ebnf-eps-output)
4219 (defalias 'ps-output-string 'ps-output-string-prim)
4258 ;; restore `ps-output' and `ps-output-string'
4259 (defalias 'ps-output old-ps-output)
4260 (defalias 'ps-output-string old-ps-output-string)
4319 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4320 (ps-print-color-scale (if ps-color-p
4321 (float (car (ps-color-values "white")))
4323 ps-zebra-stripes ps-line-number ps-razzle-dazzle
4324 ps-print-hook
4325 ps-print-begin-sheet-hook
4326 ps-print-begin-page-hook
4327 ps-print-begin-column-hook)
4328 (ps-generate (current-buffer) (point-min) (point-max)
4358 (<= the-width ps-width-remaining))
4360 ps-width-remaining (- ps-width-remaining
4389 (<= cur-width ps-width-remaining)
4390 (<= (ebnf-node-height prod) ps-height-remaining))
4395 ps-width-remaining (- ps-width-remaining
4405 (> (ebnf-node-height prod) ps-height-remaining))
4406 (ebnf-new-page))
4407 (setq ps-width-remaining (- ps-width-remaining
4413 (and (> height ps-height-remaining)
4414 (ebnf-new-page))
4415 (setq ps-width-remaining ps-print-width
4416 ps-height-remaining (- ps-height-remaining
4425 (ps-output-string (if ebnf-production-name-p
4428 (ps-output " "
4437 (ps-output "EOS\n"))
4447 (ps-output (ebnf-format-float (- entry (ebnf-node-entry (car alt))))
4452 (ps-output (format "%d " nlist)
4466 (ps-output "EOS\n"))
4471 (ps-output "BOS\n")
4481 (ps-output "EOS\n"))
4502 (ps-output (ebnf-format-float
4509 (ps-output "EOS\n")))
4520 (ps-output (ebnf-format-float entry width)
4528 (ps-output "EOS\n"))
4543 (ps-output (ebnf-format-float entry
4555 (ps-output "EOS\n"))
4567 (ps-output-string times)
4568 (ps-output " "
4581 (ps-output "EOS\n"))
4589 (ps-output (ebnf-format-float
4606 (ps-output "EOS\n"))
4610 (ps-output-string (ebnf-node-name node))
4611 (ps-output " " (ebnf-format-float (ebnf-node-width node))
4761 (ps-output (ebnf-format-float width) " EA\n"))
4765 (ps-output (ebnf-format-float height) " vm\n"))
4769 (ps-output (ebnf-format-float width) " hm\n"))
4777 (ps-output (ebnf-format-float (+ height ebnf-production-vertical-space))
4782 (ps-output (ebnf-format-float (+ width ebnf-production-horizontal-space))
4786 (defun ebnf-new-page ()
4787 (when (< ps-height-remaining ps-print-height)
4788 (run-hooks 'ebnf-page-hook)
4789 (ps-next-page)
4790 (ps-output "\n")))
4799 (lsh (ps-extension-bit (cdr font)) -2))
4811 (database (cdr (assoc name ps-font-info-database)))
4821 (database (cdr (assoc name ps-font-info-database)))
4848 (ps-printing-region nil nil nil)
4920 (ps-flush-output)
4922 (set-buffer ps-spool-buffer)
4936 (ps-output "\n")))))
4962 (ps-remove-duplicates
5142 (and ebnf-debug-ps ebnf-debug))))