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

tweaks

Browse source
This commit is contained in:
rsc 2006-09-08 14:40:59 +00:00
parent 66d46d691d
commit fb6ddf3ea2
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runoff
View file

@ -10,7 +10,7 @@ pad()
# create formatted (numbered) files # create formatted (numbered) files
mkdir -p fmt mkdir -p fmt
rm fmt/* rm -f fmt/*
cp README fmt cp README fmt
files=`grep -v '^#' runoff.list | awk '{print $1}'` files=`grep -v '^#' runoff.list | awk '{print $1}'`
n=99 n=99

11
runoff1
View file

@ -1,6 +1,11 @@
#!/usr/bin/perl #!/usr/bin/perl
$n = 0; $n = 0;
$v = 0;
if($ARGV[0] eq "-v") {
$v = 1;
shift @ARGV;
}
if($ARGV[0] eq "-n") { if($ARGV[0] eq "-n") {
$n = $ARGV[1]; $n = $ARGV[1];
shift @ARGV; shift @ARGV;
@ -38,12 +43,13 @@ for($i=0; $i<@lines; ){
$breaksize = 15; # 15 lines to get to function $breaksize = 15; # 15 lines to get to function
for($j=$i; $j<$i+50 && $j < @lines; $j++){ for($j=$i; $j<$i+50 && $j < @lines; $j++){
if($lines[$j] =~ /PAGEBREAK:\s*([0-9]+)/){ if($lines[$j] =~ /PAGEBREAK:\s*([0-9]+)/){
$breaksize = int($2); $breaksize = $1;
$breakbefore = $j; $breakbefore = $j;
$lines[$j] = ""; $lines[$j] = "";
} }
if($lines[$j] =~ /^};?$/){ if($lines[$j] =~ /^};?$/){
$breakbefore = $j+1; $breakbefore = $j+1;
$breaksize = 15;
} }
if($lines[$j] =~ /^{$/){ if($lines[$j] =~ /^{$/){
$sawbrace = 1; $sawbrace = 1;
@ -62,6 +68,9 @@ for($i=0; $i<@lines; ){
# If we are not putting enough on a page, try a blank line. # 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($breakbefore - $i < 50 - $breaksize && $lastblank > $breakbefore && $lastblank >= $i+50 - 5){
if($v){
print STDERR "breakbefore $breakbefore i $i breaksize $breaksize\n";
}
$breakbefore = $lastblank; $breakbefore = $lastblank;
$breaksize = 5; # only 5 lines to get to blank line $breaksize = 5; # only 5 lines to get to blank line
} }