From c7ceb71d5757db21a2228ec33bde2f4da1677094 Mon Sep 17 00:00:00 2001 From: Austin Clements Date: Tue, 31 Aug 2010 17:33:04 -0400 Subject: Sheet 1 is a right page now because of the (much) longer cross-ref --- runoff | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'runoff') diff --git a/runoff b/runoff index 21ee8ed..0e0e49e 100755 --- a/runoff +++ b/runoff @@ -89,16 +89,17 @@ perl -e ' print STDERR "Have no toc for $file\n"; next; } - # this assumes that sheet 1 of code is a left page - # double-check the PDF + # this assumes that sheet 1 of code is a right page + # double-check the PDF. swap the two regexps below + # otherwise. 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"; } # 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){ print STDERR "$file does not start on a fresh right page [$toc{$file}] [$x]\n"; } -- cgit v1.2.3 From 13b3f4d2e32eee81ba039ad3c6a6c97bfc9d4638 Mon Sep 17 00:00:00 2001 From: Austin Clements Date: Tue, 31 Aug 2010 17:46:30 -0400 Subject: Make it possible to express half-page preferences --- runoff | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'runoff') diff --git a/runoff b/runoff index 0e0e49e..14db252 100755 --- 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"; } -- cgit v1.2.3