comparison lisp/ps-print.el @ 22093:5818374d88e7

(ps-file-end): Put Trailer and Pages before EndDoc. (ps-print-control-characters): Doc fix.

22092:3ce96ca84d68

;; Author:     Jim Thompson (was <[e-mail]>)
;; Author:     Jacques Duthen <[e-mail]>
;; Author:     Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords:   print, PostScript
;; Time-stamp: <98/05/05  12:36:30 vinicius>
;; Version:    3.06.1

(defconst ps-print-version "3.06.1"
  "ps-print.el, v 3.06.1 <98/05/05 vinicius>

Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number.  When reporting bugs,
please also report the version of Emacs, if any, that ps-print was
distributed with.

;; (his code was severely modified, but the main idea was kept).
;;
;; Thanks to some suggestions on:
;;  * Face color map: Marco Melgazzi <[e-mail]>
;;  * XEmacs compatibility: William J. Henney <[e-mail]>
;;  * Check ps-paper-type: Sudhakar Frederick <[e-mail]>
;;
;; Thanks to Jacques Duthen <[e-mail]> (Jack) for the 3.4 version
;; I started from. [vinicius]
;;
;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from.

  :group 'ps-print)

(defcustom ps-print-control-characters 'control-8-bit
  "*Specifies the printable form for control and 8-bit characters.
That is, instead of sending, for example, a ^D (\004) to printer,
it is sent the string \"^D\".

Valid values are:

  `8-bit'         This is the value to use when you want an ascii encoding of
                  any control or non-ascii character. Control characters are
                  encoded as \"^D\", and non-ascii characters have an
                  octal encoding.

  `control-8-bit' This is the value to use when you want an ascii encoding of
                  any control character, whether it is 7 or 8-bit.
                  European 8-bits accented characters are printed according
                  the current font.

  `control'       Only ascii control characters have an ascii encoding.
                  European 8-bits accented characters are printed according
                  the current font.

  nil             No ascii encoding. Any character is printed according the
                  current font.

Any other value is treated as nil."
  :type '(choice (const 8-bit) (const control-8-bit)
		 (const control) (const nil))

(defmacro ps-page-number ()
  `(1+ (/ (1- ps-page-count) ps-number-of-columns)))

(defun ps-end-file ()
  (ps-output "\nEndDoc\n\n%%Trailer\n%%Pages: "
	     (format "%d" (ps-page-number))
	     "\n%%EOF\n"))


(defun ps-next-page ()
  (ps-end-page)
  (ps-flush-output)

22093:5818374d88e7

;; Author:     Jim Thompson (was <[e-mail]>)
;; Author:     Jacques Duthen <[e-mail]>
;; Author:     Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords:   print, PostScript
;; Time-stamp: <98/05/15  21:15:06 vinicius>
;; Version:    3.06.1

(defconst ps-print-version "3.06.1"
  "ps-print.el, v 3.06.1 <98/05/15 vinicius>

Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number.  When reporting bugs,
please also report the version of Emacs, if any, that ps-print was
distributed with.

;; (his code was severely modified, but the main idea was kept).
;;
;; Thanks to some suggestions on:
;;  * Face color map: Marco Melgazzi <[e-mail]>
;;  * XEmacs compatibility: William J. Henney <[e-mail]>
;;  * Check `ps-paper-type': Sudhakar Frederick <[e-mail]>
;;
;; Thanks to Jacques Duthen <[e-mail]> (Jack) for the 3.4 version
;; I started from. [vinicius]
;;
;; Thanks to Jim Thompson <?@?> for the 2.8 version I started from.

  :group 'ps-print)

(defcustom ps-print-control-characters 'control-8-bit
  "*Specifies the printable form for control and 8-bit characters.
That is, instead of sending, for example, a ^D (\004) to printer,
you can send ^ and D.

Valid values are:

  `8-bit'         This is the value to use when you want an ASCII encoding of
                  any control or non-ASCII character.  Control characters are
                  encoded as \"^D\", and non-ascii characters have an
                  octal encoding.

  `control-8-bit' This is the value to use when you want an ASCII encoding of
                  any control character, whether it is 7 or 8-bit.
                  European 8-bits accented characters are printed according
                  the current font.

  `control'       Only ascii control characters have an ASCII encoding.
                  European 8-bits accented characters are printed according
                  the current font.

  nil             No ASCII encoding.  Any character is printed according the
                  current font.

Any other value is treated as nil."
  :type '(choice (const 8-bit) (const control-8-bit)
		 (const control) (const nil))

(defmacro ps-page-number ()
  `(1+ (/ (1- ps-page-count) ps-number-of-columns)))

(defun ps-end-file ()
  (ps-output "\n%%Trailer\n%%Pages: "
	     (format "%d" (ps-page-number))
	     "\n\nEndDoc\n\n%%EOF\n"))


(defun ps-next-page ()
  (ps-end-page)
  (ps-flush-output)