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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
#!/usr/bin/perl
# $Cambridge: exim/doc/doc-scripts/JoinPS,v 1.1 2004/10/07 15:04:35 ph10 Exp $
# Make the basic PostScript file for the Exim spec from the gcode file, then
# join it together with the contents and the index, to make a single
# PostScript file, suitable for double-sided printing.
sub blank_page {
my($title) = shift @_;
printf(OUT "%%%%Page: %s %d\nxpage\n\n", $title, $pagenumber++);
}
@roman = ("i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix", "x",
"xi", "xii", "xiii", "xiv", "xv", "xvi", "xvii", "xviii", "xix");
$pagenumber = 1;
system("sgtops z-gcode -to z-ps") && die "sgtops run failed\n";
open(SPEC, "z-ps") || die "Can't open z-ps\n";
open(CONTS, "zc-ps") || die "Can't open zc-ps\n";
open(INDEX, "zi-ps") || die "Can't open zi-ps\n";
open(OUT, ">spec.ps") || die "Can't open spec.ps\n";
# Copy spec headings etc.
while (<SPEC>)
{
last if (/^%%Page:/) ;
print OUT;
}
# Copy the first two pages - the title page, and its blank verso
for ($i = 1; $i < 3; $i++)
{
printf(OUT "%%%%Page: title%s %d\n", ($i == 1)? "" : "-verso", $pagenumber++);
while (<SPEC>)
{
last if (/^%%Page:/) ;
print OUT;
}
}
# Skip the contents heading
while (<CONTS>)
{
last if (/^%%Page:/) ;
}
# Output the contents pages - fudge the roman numerals as we know there
# won't be a vast number of them.
$subpagenumber = 0;
while (!eof CONTS)
{
printf(OUT "%%%%Page: %s %d\n", $roman[$subpagenumber++], $pagenumber++);
while (<CONTS>)
{
next if (/^%%Pages:/);
next if (/^%%Trailer/);
last if (/^%%Page:/) ;
print OUT;
}
}
printf(OUT "\n");
# If contents was an odd number of pages, insert a blank page
&blank_page("contents-pad") if ($pagenumber & 1) == 0;
# Copy the rest of the main file
$subpagenumber = 1;
while (!eof SPEC)
{
printf(OUT "%%%%Page: %d %d\n", $subpagenumber++, $pagenumber++);
while (<SPEC>)
{
next if (/^%%Pages:/);
next if (/^%%Trailer/);
last if (/^%%Page:/) ;
print OUT;
}
}
printf(OUT "\n");
# If contents was an odd number of pages, insert a blank page
&blank_page("body-pad") if ($pagenumber & 1) == 0;
# Skip the index heading
while (<INDEX>)
{
last if (/^%%Page:/) ;
}
# Copy the index pages
$subpagenumber = 1;
while (!eof INDEX)
{
printf(OUT "%%%%Page: I%d %d\n", $subpagenumber++, $pagenumber++);
while (<INDEX>)
{
next if (/^%%Pages:/);
next if (/^%%Trailer/);
last if (/^%%Page:/) ;
print OUT;
}
}
# Add final comments
printf(OUT "%%%%Trailer\n");
printf(OUT "%%%%Pages: %d\n", $pagenumber-1);
# That's it
close(SPEC);
close(CONTS);
close(INDEX);
close(OUT);
# End
|
