xemacs-beta: lisp/packages/ps-print.el comparison

comparison lisp/packages/ps-print.el @ 88:821dec489c24 r20-0

Import from CVS: tag r20-0

author	cvs
date	Mon, 13 Aug 2007 09:09:59 +0200
parents	6a378aca36af
children	dbb370e3c29e

comparison

equal deleted inserted replaced

-:7df2982f5c17
+:821dec489c24
 ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
 ;; Author:     Jim Thompson (was <thompson@wg2.waii.com>)
 ;; Maintainer: Jacques Duthen <duthen@cegelec-red.fr>
 ;; Keywords:   print, PostScript
-;; Time-stamp: <97/01/17 16:41:00 duthen>
+;; Time-stamp: <97/01/29 23:21:25 tjchol01>
 ;; Version:    3.05
 (defconst ps-print-version "3.05"
 "ps-print.el, v 3.05 <97/01/17 duthen>
 ;;
 ;; Adding a new font family
 ;; ------------------------
 ;;
 ;; To use a new font family, you MUST first teach ps-print
-;; this font, ie add its information to `ps-font-info-database',
+;; this font, i.e., add its information to `ps-font-info-database',
 ;; otherwise ps-print cannot correctly place line and page breaks.
 ;;
-;; For example, assuming `Helvetica' is unkown,
+;; For example, assuming `Helvetica' is unknown,
 ;; you first need to do the following ONLY ONCE:
 ;;
 ;; - create a new buffer
 ;; - generate the PostScript image to a file (C-u M-x ps-print-buffer)
 ;; - open this file and find the line:
 ;;
 ;; To avoid wrapping too many lines, you may want to adjust the
 ;; left and right margins and the font size.  On UN*X systems, do:
 ;; pr -t file | awk '{printf "%3d %s\n", length($0), $0}' | sort -r | head
 ;; to determine the longest lines of your file.
-;; Then, the command `ps-line-lengths' will give you the correspondance
+;; Then, the command `ps-line-lengths' will give you the correspondence
 ;; between a line length (number of characters) and the maximum font
 ;; size which doesn't wrap such a line with the current ps-print setup.
 ;;
 ;; The commands `ps-nb-pages-buffer' and `ps-nb-pages-region' display
-;; the correspondance between a number of pages and the maximum font
+;; the correspondence between a number of pages and the maximum font
 ;; size which allow the number of lines of the current buffer or of
 ;; its current region to fit in this number of pages.
 ;; Note: line folding is not taken into account in this process
 ;; and could change the results.
 ;;
 (make-variable-buffer-local 'ps-right-header)
 (defvar ps-razzle-dazzle t
 "*Non-nil means report progress while formatting buffer.")
-(defvar ps-adobe-tag "%!PS-Adobe-1.0\n"
+(defvar ps-adobe-tag "%!PS-Adobe-3.0\n"
 "*Contains the header line identifying the output as PostScript.
 By default, `ps-adobe-tag' contains the standard identifier.  Some
 printers require slightly different versions of this line.")
 (defvar ps-build-face-reference t
 (interactive (list (ps-print-preprint current-prefix-arg)))
 (ps-do-despool filename))
 ;;;###autoload
 (defun ps-line-lengths ()
-"*Display the correspondance between a line length and a font size,
+"*Display the correspondence between a line length and a font size,
 using the current ps-print setup.
 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
 (interactive)
 (ps-line-lengths-internal))
 ;;;###autoload
 (defun ps-nb-pages-buffer (nb-lines)
-"*Display an approximate correspondance between a font size and the number
+"*Display an approximate correspondence between a font size and the number
 of pages the current buffer would require to print
 using the current ps-print setup."
 (interactive (list (count-lines (point-min) (point-max))))
 (ps-nb-pages nb-lines))
 ;;;###autoload
 (defun ps-nb-pages-region (nb-lines)
-"*Display an approximate correspondance between a font size and the number
+"*Display an approximate correspondence between a font size and the number
 of pages the current region would require to print
 using the current ps-print setup."
 (interactive (list (count-lines (mark) (point))))
 (ps-nb-pages nb-lines))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal functions
 (defun ps-line-lengths-internal ()
-"Display the correspondance between a line length and a font size,
+"Display the correspondence between a line length and a font size,
 using the current ps-print setup.
 Try: pr -t file | awk '{printf \"%3d %s\n\", length($0), $0}' | sort -r | head"
 (let ((buf (get-buffer-create "*Line-lengths*"))
 	(ifs ps-font-size)		; initial font size
 	(icw ps-avg-char-width)		; initial character width
 (setq nb-cpl (1+ nb-cpl)))
 (insert "\n")
 (display-buffer buf 'not-this-window)))
 (defun ps-nb-pages (nb-lines)
-"Display an approximate correspondance between a font size and the number
+"Display an approximate correspondence between a font size and the number
 of pages the number of lines would require to print
 using the current ps-print setup."
 (let ((buf (get-buffer-create "*Nb-Pages*"))
 	(ifs ps-font-size)		; initial font size
 	(ilh ps-line-height)		; initial line height
 (defun ps-insert-file (fname)
 (ps-flush-output)
 ;; Check to see that the file exists and is readable; if not, throw
-;; and error.
+;; an error.
 (if (not (file-readable-p fname))
 (error "Could not read file `%s'" fname))
 (save-excursion
 (set-buffer ps-spool-buffer)
 (ps-output "%%Title: " (buffer-name) "\n") ;Take job name from name of
 					;first buffer printed
 (ps-output "%%Creator: " (user-full-name) "\n")
 (ps-output "%%CreationDate: "
 	     (time-stamp-hh:mm:ss) " " (time-stamp-mon-dd-yyyy) "\n")
-(ps-output "%% DocumentFonts: "
-	     ps-font " " ps-font-bold " " ps-font-italic " "
-	     ps-font-bold-italic " "
-	     ps-header-font " " ps-header-title-font "\n")
 (ps-output "%%Pages: (atend)\n")
 (ps-output "%%EndComments\n\n")
+(ps-output "%%BeginProlog\n")
 (ps-output-boolean "LandscapeMode"             ps-landscape-mode)
 (ps-output (format "/NumberOfColumns %d def\n" ps-number-of-columns))
 (ps-output (format "/LandscapePageHeight %s def\n" ps-landscape-page-height))
 (ps-output (format "/PrintWidth   %s def\n" ps-print-width))
 (ps-output-boolean "Duplex"           ps-spool-duplex)
 (ps-output (format "/LineHeight   %s def\n" ps-line-height))
 (ps-output ps-print-prologue-1)
+(ps-output "%%EndProlog\n\n")
+(ps-output "%%BeginSetup\n")
 ;; Header fonts
 (ps-output				; /h0 14 /Helvetica-Bold Font
 (format "/h0 %s /%s DefFont\n" ps-header-title-font-size ps-header-title-font))
 (ps-output				; /h1 12 /Helvetica Font
 (ps-output (format "/f1 %s /%s DefFont\n" ps-font-size ps-font-bold))
 (ps-output (format "/f2 %s /%s DefFont\n" ps-font-size ps-font-italic))
 (ps-output (format "/f3 %s /%s DefFont\n" ps-font-size ps-font-bold-italic))
 (ps-output "\nBeginDoc\n\n")
-(ps-output "%%EndPrologue\n"))
+(ps-output "%%EndSetup\n")
+)
 (defun ps-header-dirpart ()
 (let ((fname (buffer-file-name)))
 (if fname
 	(if (string-equal (buffer-name) (file-name-nondirectory fname))
 (defun ps-begin-job ()
 (setq ps-page-count 0))
 (defun ps-end-file ()
-(ps-output "\nEndDoc\n\n")
+(ps-output "\n\n%%Trailer\n")
-(ps-output "%%Trailer\n")
 (ps-output (format "%%%%Pages: %d\n" (1+ (/ (1- ps-page-count)
-					      ps-number-of-columns)))))
+					      ps-number-of-columns))))
+(ps-output "EndDoc\n")
+(ps-output "%%EOF\n"))
 (defun ps-next-page ()
 (ps-end-page)
 (ps-flush-output)
 (ps-begin-page))
 	      ;; the end of this marker onwards.
 	      (setq safe-marker (make-marker))
 	      (set-marker safe-marker (point-max))
 	      (goto-char (point-min))
-	      (if (looking-at (regexp-quote "%!PS-Adobe-1.0"))
+	      (if (looking-at (regexp-quote ps-adobe-tag))
 		  nil
 		(setq needs-begin-file t))
 	      (save-excursion
 		(set-buffer ps-source-buffer)
 		(if needs-begin-file (ps-begin-file))

Mercurial > hg > xemacs-beta

comparison lisp/packages/ps-print.el @ 88:821dec489c24 r20-0