1 % Copyright (C) 2000 Aladdin Enterprises. All rights reserved.
3 % This file is part of Aladdin Ghostscript.
5 % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author
6 % or distributor accepts any responsibility for the consequences of using it,
7 % or for whether it serves any particular purpose or works at all, unless he
8 % or she says so in writing. Refer to the Aladdin Ghostscript Free Public
9 % License (the "License") for full details.
11 % Every copy of Aladdin Ghostscript must include a copy of the License,
12 % normally in a plain ASCII text file named PUBLIC. The License grants you
13 % the right to copy, modify and redistribute Aladdin Ghostscript, but only
14 % under certain conditions described in the License. Among other things, the
15 % License requires that the copyright notice and this notice be preserved on
18 % $Id: pdfeof.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
19 % Patch to allow garbage on the end of PDF files.
21 .currentglobal true .setglobal
24 % Skip backward over the %%EOF at the end of the PDF file.
25 % We put this in a separate procedure so we can easily offer the option
26 % of accepting garbage after the %%EOF, which the PDF specification
27 % unambiguously forbids but which some applications (including, apparently,
28 % Acrobat Distiller on the Macintosh) produce, and of accepting the
29 % xref position on the same line as startxref.
30 /findxref { % - findxref <xrefpos>
31 PDFfile dup dup 0 setfileposition bytesavailable
32 dup /PDFfilelen exch def
33 % Find the last %%EOF string (within 2048 bytes)
34 2048 sub PDFoffset .max
35 2 copy setfileposition
36 PDFfilelen exch sub string 1 index exch readstring pop {
37 (\015%%EO) search { % Adobe can handle truncated key string
38 pop pop % if found, keep searching 'post' string
41 { pop pop } { exit } ifelse % exit if neither string found
44 PDFfilelen exch length sub 4 sub PDFoffset .max setfileposition
45 % Now read the startxref and xref start position.
46 prevline token not { null } if dup type /integertype eq {
47 exch pop cvi % xref start position
48 exch PDFfile exch setfileposition
49 prevline (startxref) linene { findxreferror } if
51 } { % else, this file has 'startxref #####' format
52 (startxref) ne { findxreferror } if
53 cvi % xref start position
54 exch PDFfile exch setfileposition