summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/pdf2dsc.ps
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2011-09-10 20:02:58 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2011-09-10 20:02:58 +0000
commit4c7ea1ec21f149b4164551b72860054d241d4c16 (patch)
treeb015d34a5429bd77beb1dba6b350fd8e3ff5d920 /Master/tlpkg/tlgs/lib/pdf2dsc.ps
parent309924b61f1069504394a05b0f8652bafc5d43d4 (diff)
tlpkg/tlgs: gs-8.71 => gs-9.04
git-svn-id: svn://tug.org/texlive/trunk@23888 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/pdf2dsc.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/pdf2dsc.ps26
1 files changed, 13 insertions, 13 deletions
diff --git a/Master/tlpkg/tlgs/lib/pdf2dsc.ps b/Master/tlpkg/tlgs/lib/pdf2dsc.ps
index 792d7f19f6f..c38f2b95de7 100644
--- a/Master/tlpkg/tlgs/lib/pdf2dsc.ps
+++ b/Master/tlpkg/tlgs/lib/pdf2dsc.ps
@@ -1,19 +1,19 @@
% Copyright (C) 1994, 1995, 1996, 1997, 1998 Aladdin Enterprises. All rights reserved.
-%
+%
% This software is provided AS-IS with no warranty, either express or
% implied.
-%
+%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
-%
+%
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-% $Id: pdf2dsc.ps 8546 2008-02-25 05:48:45Z alexcher $
+% $Id$
% pdf2dsc.ps
% read pdf file and produce DSC "index" file.
%
@@ -63,9 +63,9 @@ systemdict /.setsafe known { .setsafe } if
% scan through for media sizes, keep them in the dictionary
FirstPage 1 LastPage {
pdfgetpage /MediaBox pget pop % MediaBox is a required attribute
- aload pop
+ aload pop
3 -1 roll sub 3 1 roll exch sub exch
- 2 array astore
+ 2 array astore
aload 3 1 roll 10 string cvs exch 10 string cvs
(x) 3 -1 roll concatstrings concatstrings cvn
MediaTypes 3 1 roll exch put
@@ -91,13 +91,13 @@ systemdict /.setsafe known { .setsafe } if
if
% This is really supposed to be sorted by frequency of usage...
(%%DocumentMedia: )
- MediaTypes {
+ MediaTypes {
exch pop
1 index puts
(y) puts dup 1 get DSCstring cvs puts
- (x) puts dup 0 get DSCstring cvs puts
+ (x) puts dup 0 get DSCstring cvs puts
( ) puts dup 0 get DSCstring cvs puts
- ( ) puts 1 get DSCstring cvs puts
+ ( ) puts 1 get DSCstring cvs puts
( 70 white ()\n) puts
pop (%%+ )
} forall
@@ -116,7 +116,7 @@ systemdict /.setsafe known { .setsafe } if
DSCfile PDFname write==only
( \(r\) file { DELAYSAFER { .setsafe } if } stopped pop\n) puts
( pdfopen begin\n) puts
- ( copy_trailer_attrs\n) puts
+ ( process_trailer_attrs\n) puts
(%%EndSetup\n) puts
/.hasPageLabels false def % see "Page Labels" in the PDF Reference
@@ -222,9 +222,9 @@ systemdict /.setsafe known { .setsafe } if
dup pdfgetpage
dup /MediaBox pget pop
(%%PageMedia: y) puts
- aload pop 3 -1 roll sub DSCstring cvs puts
- (x) puts exch sub DSCstring cvs puts
- (\n) puts
+ aload pop 3 -1 roll sub DSCstring cvs puts
+ (x) puts exch sub DSCstring cvs puts
+ (\n) puts
dup /CropBox pget {
(%%PageBoundingBox: ) puts
{DSCfile exch write=only ( ) puts} forall