Home | History | Annotate | Download | only in dist2
      1 #! /usr/bin/perl
      2 
      3 # A script to scan PCRE2'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             ^\.SM\s*$|
     34             ^\.br\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  
     68