Return to CheckMan CVS log

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

Annotation of embedaddon/pcre/CheckMan, revision 1.1

1.1     ! misho       1: #! /usr/bin/perl
        !             2: 
        !             3: # A script to scan PCRE's man pages to check for typos in the control
        !             4: # sequences. I use only a small set of the available repertoire, so it is 
        !             5: # straightforward to check that nothing else has slipped in by mistake. This
        !             6: # script should be called in the doc directory.
        !             7: 
        !             8: $yield = 0;
        !             9: 
        !            10: while (scalar(@ARGV) > 0)
        !            11:   {
        !            12:   $line = 0; 
        !            13:   $file = shift @ARGV;
        !            14:     
        !            15:   open (IN, $file) || die "Failed to open $file\n";
        !            16:   
        !            17:   while (<IN>)
        !            18:     {  
        !            19:     $line++; 
        !            20:     if (/^\s*$/)
        !            21:       {
        !            22:       printf "Empty line $line of $file\n";
        !            23:       $yield = 1;  
        !            24:       }   
        !            25:     elsif (/^\./)
        !            26:       {
        !            27:       if (!/^\.\s*$|
        !            28:             ^\.B\s+\S| 
        !            29:             ^\.TH\s\S|
        !            30:             ^\.SH\s\S|
        !            31:             ^\.SS\s\S|
        !            32:             ^\.TP(?:\s\d+)?\s*$|
        !            33:             ^\.ti\s\S| 
        !            34:             ^\.SM\s*$|
        !            35:             ^\.rs\s*$| 
        !            36:             ^\.sp\s*$| 
        !            37:             ^\.nf\s*$| 
        !            38:             ^\.fi\s*$| 
        !            39:             ^\.P\s*$| 
        !            40:             ^\.PP\s*$| 
        !            41:             ^\.\\"(?:\ HREF)?\s*$|
        !            42:             ^\.\\"\sHTML\s<a\shref="[^"]+?">\s*$|
        !            43:             ^\.\\"\sHTML\s<a\sname="[^"]+?"><\/a>\s*$|
        !            44:             ^\.\\"\s<\/a>\s*$|
        !            45:             ^\.\\"\sJOINSH\s*$|
        !            46:             ^\.\\"\sJOIN\s*$/x  
        !            47:          )
        !            48:         {
        !            49:         printf "Bad control line $line of $file\n";
        !            50:         $yield = 1;
        !            51:         }
        !            52:       }
        !            53:     else
        !            54:       {
        !            55:       if (/\\[^ef]|\\f[^IBP]/)
        !            56:         {
        !            57:         printf "Bad backslash in line $line of $file\n";  
        !            58:         $yield = 1; 
        !            59:         } 
        !            60:       }   
        !            61:     }
        !            62:      
        !            63:   close(IN);   
        !            64:   }
        !            65:   
        !            66: exit $yield;
        !            67: # End