Fix problem with smtp_max_per_host; test for completed processes before
[users/heiko/exim.git] / doc / doc-scripts / JoinPS
1 #!/usr/bin/perl
2 # $Cambridge: exim/doc/doc-scripts/JoinPS,v 1.1 2004/10/07 15:04:35 ph10 Exp $
3
4 # Make the basic PostScript file for the Exim spec from the gcode file, then
5 # join it together with the contents and the index, to make a single
6 # PostScript file, suitable for double-sided printing.
7
8 sub blank_page {
9 my($title) = shift @_;
10 printf(OUT "%%%%Page: %s %d\nxpage\n\n", $title, $pagenumber++);
11 }
12
13
14 @roman = ("i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix", "x",
15           "xi", "xii", "xiii", "xiv", "xv", "xvi", "xvii", "xviii", "xix");
16
17 $pagenumber = 1;
18
19 system("sgtops z-gcode -to z-ps") && die "sgtops run failed\n";
20
21 open(SPEC, "z-ps") || die "Can't open z-ps\n";
22 open(CONTS, "zc-ps") || die "Can't open zc-ps\n";
23 open(INDEX, "zi-ps") || die "Can't open zi-ps\n";
24 open(OUT, ">spec.ps") || die "Can't open spec.ps\n";
25
26 # Copy spec headings etc.
27
28 while (<SPEC>)
29   {
30   last if (/^%%Page:/) ;
31   print OUT;
32   }
33
34 # Copy the first two pages - the title page, and its blank verso
35
36 for ($i = 1; $i < 3; $i++)
37   {
38   printf(OUT "%%%%Page: title%s %d\n", ($i == 1)? "" : "-verso", $pagenumber++);
39   while (<SPEC>)
40     {
41     last if (/^%%Page:/) ;
42     print OUT;
43     }
44   }   
45
46 # Skip the contents heading
47
48 while (<CONTS>)
49   {
50   last if (/^%%Page:/) ;
51   }
52
53 # Output the contents pages - fudge the roman numerals as we know there
54 # won't be a vast number of them.
55
56 $subpagenumber = 0;
57 while (!eof CONTS)
58   {
59   printf(OUT "%%%%Page: %s %d\n", $roman[$subpagenumber++], $pagenumber++);
60   while (<CONTS>)
61     {
62     next if (/^%%Pages:/);
63     next if (/^%%Trailer/);
64     last if (/^%%Page:/) ;
65     print OUT;
66     }
67   }
68 printf(OUT "\n");
69
70 # If contents was an odd number of pages, insert a blank page
71
72 &blank_page("contents-pad") if ($pagenumber & 1) == 0;
73
74 # Copy the rest of the main file
75
76 $subpagenumber = 1;
77
78 while (!eof SPEC)
79   {
80   printf(OUT "%%%%Page: %d %d\n", $subpagenumber++, $pagenumber++);
81   while (<SPEC>)
82     {
83     next if (/^%%Pages:/);
84     next if (/^%%Trailer/);
85     last if (/^%%Page:/) ;
86     print OUT;
87     }
88   }
89 printf(OUT "\n");
90
91 # If contents was an odd number of pages, insert a blank page
92
93 &blank_page("body-pad") if ($pagenumber & 1) == 0;
94
95 # Skip the index heading
96
97 while (<INDEX>)
98   {
99   last if (/^%%Page:/) ;
100   }
101
102 # Copy the index pages
103
104 $subpagenumber = 1;
105
106 while (!eof INDEX)
107   {
108   printf(OUT "%%%%Page: I%d %d\n", $subpagenumber++, $pagenumber++);
109   while (<INDEX>)
110     {
111     next if (/^%%Pages:/);
112     next if (/^%%Trailer/);
113     last if (/^%%Page:/) ;
114     print OUT;
115     }
116   }
117
118 # Add final comments
119
120 printf(OUT "%%%%Trailer\n");
121 printf(OUT "%%%%Pages: %d\n", $pagenumber-1);
122
123 # That's it
124
125 close(SPEC);
126 close(CONTS);
127 close(INDEX);
128 close(OUT);
129
130 # End