xv6

commit 13b3f4d2e32eee81ba039ad3c6a6c97bfc9d4638
parent fd462b6a01735cc7a14b9cb11c99242c5ed03c03
Author: Austin Clements <amdragon@mit.edu>
Date:   Tue, 31 Aug 2010 17:46:30 -0400

Make it possible to express half-page preferences

Diffstat:
M
runoff
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/runoff b/runoff
@@ -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";
 			}