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