Return to CleanTxt CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre

Annotation of embedaddon/pcre/CleanTxt, revision 1.1.1.1

1.1       misho       1: #! /usr/bin/perl -w
                      2: 
                      3: # Script to take the output of nroff -man and remove all the backspacing and
                      4: # the page footers and the screen commands etc so that it is more usefully
                      5: # readable online. In fact, in the latest nroff, intermediate footers don't
                      6: # seem to be generated any more.
                      7: 
                      8: $blankcount = 0;
                      9: $lastwascut = 0;
                     10: $firstheader = 1;
                     11: 
                     12: # Input on STDIN; output to STDOUT.
                     13: 
                     14: while (<STDIN>)
                     15:   {
                     16:   s/\x1b\[\d+m//g;   # Remove screen controls "ESC [ number m"
                     17:   s/.\x8//g;         # Remove "char, backspace"
                     18: 
                     19:   # Handle header lines. Retain only the first one we encounter, but remove
                     20:   # the blank line that follows. Any others (e.g. at end of document) and the
                     21:   # following blank line are dropped.
                     22: 
                     23:   if (/^PCRE(\w*)\(([13])\)\s+PCRE\1\(\2\)$/)
                     24:     {
                     25:     if ($firstheader)
                     26:       {
                     27:       $firstheader = 0;
                     28:       print;
                     29:       $lastprinted = $_;
                     30:       $lastwascut = 0;
                     31:       }
                     32:     $_=<STDIN>;       # Remove a blank that follows
                     33:     next;
                     34:     }
                     35: 
                     36:   # Count runs of empty lines
                     37: 
                     38:   if (/^\s*$/)
                     39:     {
                     40:     $blankcount++;
                     41:     $lastwascut = 0;
                     42:     next;
                     43:     }
                     44: 
                     45:   # If a chunk of lines has been cut out (page footer) and the next line
                     46:   # has a different indentation, put back one blank line.
                     47: 
                     48:   if ($lastwascut && $blankcount < 1 && defined($lastprinted))
                     49:     {
                     50:     ($a) = $lastprinted =~ /^(\s*)/;
                     51:     ($b) = $_ =~ /^(\s*)/;
                     52:     $blankcount++ if ($a ne $b);
                     53:     }
                     54: 
                     55:   # We get here only when we have a non-blank line in hand. If it was preceded
                     56:   # by 3 or more blank lines, read the next 3 lines and see if they are blank.
                     57:   # If so, remove all 7 lines, and remember that we have just done a cut.
                     58: 
                     59:   if ($blankcount >= 3)
                     60:     {
                     61:     for ($i = 0; $i < 3; $i++)
                     62:       {
                     63:       $next[$i] = <STDIN>;
                     64:       $next[$i] = "" if !defined $next[$i];
                     65:       $next[$i] =~ s/\x1b\[\d+m//g;   # Remove screen controls "ESC [ number m"
                     66:       $next[$i] =~ s/.\x8//g;         # Remove "char, backspace"
                     67:       }
                     68: 
                     69:     # Cut out chunks of the form <3 blanks><non-blank><3 blanks>
                     70: 
                     71:     if ($next[0] =~ /^\s*$/ &&
                     72:         $next[1] =~ /^\s*$/ &&
                     73:         $next[2] =~ /^\s*$/)
                     74:       {
                     75:       $blankcount -= 3;
                     76:       $lastwascut = 1;
                     77:       }
                     78: 
                     79:     # Otherwise output the saved blanks, the current, and the next three
                     80:     # lines. Remember the last printed line.
                     81: 
                     82:     else
                     83:       {
                     84:       for ($i = 0; $i < $blankcount; $i++) { print "\n"; }
                     85:       print;
                     86:       for ($i = 0; $i < 3; $i++)
                     87:         {
                     88:         $next[$i] =~ s/.\x8//g;
                     89:         print $next[$i];
                     90:         $lastprinted = $_;
                     91:         }
                     92:       $lastwascut = 0;
                     93:       $blankcount = 0;
                     94:       }
                     95:     }
                     96: 
                     97:   # This non-blank line is not preceded by 3 or more blank lines. Output
                     98:   # any blanks there are, and the line. Remember it. Force two blank lines
                     99:   # before headings.
                    100: 
                    101:   else
                    102:     {
                    103:     $blankcount = 2 if /^\S/ && !/^Last updated/ && !/^Copyright/ &&
                    104:       defined($lastprinted);
                    105:     for ($i = 0; $i < $blankcount; $i++) { print "\n"; }
                    106:     print;
                    107:     $lastprinted = $_;
                    108:     $lastwascut = 0;
                    109:     $blankcount = 0;
                    110:     }
                    111:   }
                    112: 
                    113: # End