summaryrefslogtreecommitdiff
path: root/doc/doc-docbook/PageLabelPDF
blob: 5819d11c447f66a759d2143a9216ef630bf04d0f (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
62
#! /usr/bin/perl -w

# $Cambridge: exim/doc/doc-docbook/PageLabelPDF,v 1.2 2006/04/04 14:03:49 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 taken as an argument to be inserted into the
# next statement.

$add = "/PageLabels << /Nums [ 0 << /S /r >>\n" .
       "                      $ARGV[0] << /S /D >>\n" .
       "                     ]\n" .
       "            >>\n";

$extra = length $add;

$before = 0;
while (<STDIN>)
  {
  print;
  $before += length($_);
  last if $_ =~ "^<< /Type /Catalog";
  }

print $add;

while (<STDIN>)
  {
  print;
  last if $_ =~ /^xref$/;
  }

while (<STDIN>)
  {
  if (/^(\d{10}) (.*)/)
    {
    my($was) = $1;
    my($rest) = $2;
    printf "%010d $rest\n", $was + (($was > $before)? $extra : 0);
    }
  elsif (/^startxref/)
    {
    print;
    $_ = <STDIN>;
    if (/^(\d+)/)
      {
      print $1 + $extra, "\n";
      }
    else
      {
      print;
      }
    }
  else
    {
    print;
    }
  }

# End