shuffle and tweak for formatting.
pdf has very good page breaks now. would be a good copy for fall 2009.
This commit is contained in:
parent
b3bebfce8a
commit
0aef891495
24 changed files with 6869 additions and 6672 deletions
26
runoff
26
runoff
|
@ -45,6 +45,7 @@ cat toc.ftr >>fmt/toc
|
|||
|
||||
# check for bad alignments
|
||||
perl -e '
|
||||
$leftwarn = 0;
|
||||
while(<>){
|
||||
chomp;
|
||||
s!#.*!!;
|
||||
|
@ -75,12 +76,35 @@ perl -e '
|
|||
print STDERR "Have no toc for $file\n";
|
||||
next;
|
||||
}
|
||||
if($toc{$file} =~ /^\d\d[^5]/){
|
||||
if($toc{$file} !~ /^\d\d5/){
|
||||
print STDERR "$file does not start on a second half page.\n";
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
if(/(left|right): (.*)/){
|
||||
$what = $1;
|
||||
$file = $2;
|
||||
if(!defined($toc{$file})){
|
||||
print STDERR "Have no toc for $file\n";
|
||||
next;
|
||||
}
|
||||
# this assumes that sheet 1 of code is a left page
|
||||
# double-check the PDF
|
||||
if(!$leftwarn++) {
|
||||
print STDERR "assuming that sheet 1 is a left page. double-check!\n";
|
||||
}
|
||||
if($what eq "left" && !($toc{$file} =~ /^\d[13579]0/)){
|
||||
print STDERR "$file does not start on a fresh left page [$toc{$file}]\n";
|
||||
}
|
||||
# why does this not work if I inline $x in the if?
|
||||
$x = ($toc{$file} =~ /^\d[02468]0/);
|
||||
if($what eq "right" && !$x){
|
||||
print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n";
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
print STDERR "Unknown spec: $_\n";
|
||||
}
|
||||
' fmt/tocdata runoff.spec
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue