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
|
#!/usr/bin/perl
# 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
|
