| 2 |
- |
1 |
% Copyright (C) 2000 Aladdin Enterprises. All rights reserved.
|
|
|
2 |
%
|
|
|
3 |
% This file is part of Aladdin Ghostscript.
|
|
|
4 |
%
|
|
|
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.
|
|
|
10 |
%
|
|
|
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
|
|
|
16 |
% all copies.
|
|
|
17 |
|
|
|
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.
|
|
|
20 |
|
|
|
21 |
.currentglobal true .setglobal
|
|
|
22 |
pdfdict begin
|
|
|
23 |
|
|
|
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
|
|
|
39 |
} {
|
|
|
40 |
(\012%%EO) search
|
|
|
41 |
{ pop pop } { exit } ifelse % exit if neither string found
|
|
|
42 |
} ifelse
|
|
|
43 |
} loop
|
|
|
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
|
|
|
50 |
pop
|
|
|
51 |
} { % else, this file has 'startxref #####' format
|
|
|
52 |
(startxref) ne { findxreferror } if
|
|
|
53 |
cvi % xref start position
|
|
|
54 |
exch PDFfile exch setfileposition
|
|
|
55 |
} ifelse
|
|
|
56 |
} bind def
|
|
|
57 |
|
|
|
58 |
end % pdfdict
|
|
|
59 |
.setglobal
|