sanchayanmaity/xv6-cs450
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Make it possible to express half-page preferences

Browse source
This commit is contained in:
Austin Clements 2010-08-31 17:46:30 -04:00
parent fd462b6a01
commit 13b3f4d2e3
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
runoff
View file

@ -82,9 +82,10 @@ perl -e '
next;
}
if(/(left|right): (.*)/){
if(/(left|right)(\+?): (.*)/){
$what = $1;
$file = $2;
$tens = ($2 eq "+" ? "5" : "0");
$file = $3;
if(!defined($toc{$file})){
print STDERR "Have no toc for $file\n";
next;
@ -95,11 +96,11 @@ perl -e '
if(!$leftwarn++) {
print STDERR "assuming that sheet 1 is a right page. double-check!\n";
}
if($what eq "left" && !($toc{$file} =~ /^\d[02468]0/)){
if($what eq "left" && !($toc{$file} =~ /^\d[02468]$tens/)){
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[13579]0/);
$x = ($toc{$file} =~ /^\d[13579]$tens/);
if($what eq "right" && !$x){
print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n";
}