greg/xv6
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Sheet 1 is a right page now because of the (much) longer cross-ref

Browse source
This commit is contained in:
Austin Clements 2010-08-31 17:33:04 -04:00
parent 51e2a7b324
commit c7ceb71d57
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
runoff
View file

@ -89,16 +89,17 @@ perl -e '
print STDERR "Have no toc for $file\n"; print STDERR "Have no toc for $file\n";
next; next;
} }
# this assumes that sheet 1 of code is a left page # this assumes that sheet 1 of code is a right page
# double-check the PDF # double-check the PDF. swap the two regexps below
# otherwise.
if(!$leftwarn++) { if(!$leftwarn++) {
print STDERR "assuming that sheet 1 is a left page. double-check!\n"; print STDERR "assuming that sheet 1 is a right page. double-check!\n";
} }
if($what eq "left" && !($toc{$file} =~ /^\d[13579]0/)){ if($what eq "left" && !($toc{$file} =~ /^\d[02468]0/)){
print STDERR "$file does not start on a fresh left page [$toc{$file}]\n"; 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? # why does this not work if I inline $x in the if?
$x = ($toc{$file} =~ /^\d[02468]0/); $x = ($toc{$file} =~ /^\d[13579]0/);
if($what eq "right" && !$x){ if($what eq "right" && !$x){
print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n"; print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n";
} }