blob: aa144e208a04ac64be3e3b2bd4845c3d20ac38cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#! /usr/bin/perl -w
# $Cambridge: exim/doc/doc-docbook/PageLabelPDF,v 1.1 2006/02/01 11:01:01 ph10 Exp $
# Program to add page label information to the PDF output file. I have not
# found a way of automatically discovering the number of frontmatter pages
# in the document. It is therefore screwed in as 12 in the next statement.
$add = "/PageLabels << /Nums [ 0 << /S /r >>\n" .
" 12 << /S /D >>\n" .
" ]\n" .
" >>\n";
$extra = length $add;
$before = 0;
while (<>)
{
print;
$before += length($_);
last if $_ =~ "^<< /Type /Catalog";
}
print $add;
while (<>)
{
print;
last if $_ =~ /^xref$/;
}
while (<>)
{
if (/^(\d{10}) (.*)/)
{
my($was) = $1;
my($rest) = $2;
printf "%010d $rest\n", $was + (($was > $before)? $extra : 0);
}
elsif (/^startxref/)
{
print;
$_ = <>;
if (/^(\d+)/)
{
print $1 + $extra, "\n";
}
else
{
print;
}
}
else
{
print;
}
}
# End
|
