108 lines
2.2 KiB
Perl
Executable file
108 lines
2.2 KiB
Perl
Executable file
#!/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;
|
|
shift @ARGV;
|
|
}
|
|
$n = int(($n+49)/50)*50 - 1;
|
|
|
|
$file = $ARGV[0];
|
|
@lines = <>;
|
|
$linenum = 0;
|
|
foreach (@lines) {
|
|
$linenum++;
|
|
chomp;
|
|
s/\s+$//;
|
|
if(length() >= 75){
|
|
print STDERR "$file:$linenum: line too long\n";
|
|
}
|
|
}
|
|
@outlines = ();
|
|
$nextout = 0;
|
|
|
|
for($i=0; $i<@lines; ){
|
|
# Skip leading blank lines.
|
|
$i++ while $i<@lines && $lines[$i] =~ /^$/;
|
|
last if $i>=@lines;
|
|
|
|
# If the rest of the file fits, use the whole thing.
|
|
if(@lines <= $i+50){
|
|
$breakbefore = @lines;
|
|
}else{
|
|
# Find a good next page break;
|
|
# Hope for end of function.
|
|
# but settle for a blank line (but not first blank line
|
|
# in function, which comes after variable declarations).
|
|
$breakbefore = $i;
|
|
$lastblank = $i;
|
|
$sawbrace = 0;
|
|
$breaksize = 15; # 15 lines to get to function
|
|
for($j=$i; $j<$i+50 && $j < @lines; $j++){
|
|
if($lines[$j] =~ /PAGEBREAK!/){
|
|
$lines[$j] = "";
|
|
$breakbefore = $j;
|
|
$breaksize = 100;
|
|
last;
|
|
}
|
|
if($lines[$j] =~ /PAGEBREAK:\s*([0-9]+)/){
|
|
$breaksize = $1;
|
|
$breakbefore = $j;
|
|
$lines[$j] = "";
|
|
}
|
|
if($lines[$j] =~ /^};?$/){
|
|
$breakbefore = $j+1;
|
|
$breaksize = 15;
|
|
}
|
|
if($lines[$j] =~ /^{$/){
|
|
$sawbrace = 1;
|
|
}
|
|
if($lines[$j] =~ /^$/){
|
|
if($sawbrace){
|
|
$sawbrace = 0;
|
|
}else{
|
|
$lastblank = $j;
|
|
}
|
|
}
|
|
}
|
|
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
|
|
}
|
|
|
|
# If we are not putting enough on a page, force a full page.
|
|
if($breakbefore - $i < 50 - $breaksize && $breakbefore != @lines){
|
|
$breakbefore = $i + 50;
|
|
$breakbefore = @lines if @lines < $breakbefore;
|
|
}
|
|
|
|
if($breakbefore < $i+2){
|
|
$breakbefore = $i+2;
|
|
}
|
|
}
|
|
|
|
# Emit the page.
|
|
$i50 = $i + 50;
|
|
for(; $i<$breakbefore; $i++){
|
|
printf "%04d %s\n", ++$n, $lines[$i];
|
|
}
|
|
|
|
# Finish page
|
|
for($j=$i; $j<$i50; $j++){
|
|
printf "%04d \n", ++$n;
|
|
}
|
|
}
|