diff options
author | rsc <rsc> | 2006-09-08 14:40:59 +0000 |
---|---|---|
committer | rsc <rsc> | 2006-09-08 14:40:59 +0000 |
commit | fb6ddf3ea2ae8b1bbd15cb029147e3782cce3921 (patch) | |
tree | 9c81e5e5ecf45ad51cb9e96bc8b873348d1cac53 /runoff1 | |
parent | 66d46d691def24c1d76b43efd911dcab641fbe7c (diff) | |
download | xv6-labs-fb6ddf3ea2ae8b1bbd15cb029147e3782cce3921.tar.gz xv6-labs-fb6ddf3ea2ae8b1bbd15cb029147e3782cce3921.tar.bz2 xv6-labs-fb6ddf3ea2ae8b1bbd15cb029147e3782cce3921.zip |
tweaks
Diffstat (limited to 'runoff1')
-rwxr-xr-x | runoff1 | 13 |
1 files changed, 11 insertions, 2 deletions
@@ -1,6 +1,11 @@ #!/usr/bin/perl $n = 0; +$v = 0; +if($ARGV[0] eq "-v") { + $v = 1; + shift @ARGV; +} if($ARGV[0] eq "-n") { $n = $ARGV[1]; shift @ARGV; @@ -38,12 +43,13 @@ for($i=0; $i<@lines; ){ $breaksize = 15; # 15 lines to get to function for($j=$i; $j<$i+50 && $j < @lines; $j++){ if($lines[$j] =~ /PAGEBREAK:\s*([0-9]+)/){ - $breaksize = int($2); + $breaksize = $1; $breakbefore = $j; $lines[$j] = ""; } if($lines[$j] =~ /^};?$/){ $breakbefore = $j+1; + $breaksize = 15; } if($lines[$j] =~ /^{$/){ $sawbrace = 1; @@ -59,9 +65,12 @@ for($i=0; $i<@lines; ){ if($j<@lines && $lines[$j] =~ /^$/){ $lastblank = $j; } - + # If we are not putting enough on a page, try a blank line. if($breakbefore - $i < 50 - $breaksize && $lastblank > $breakbefore && $lastblank >= $i+50 - 5){ + if($v){ + print STDERR "breakbefore $breakbefore i $i breaksize $breaksize\n"; + } $breakbefore = $lastblank; $breaksize = 5; # only 5 lines to get to blank line } |