Contents of /code/trunk/CheckMan

#! /usr/bin/perl

# A script to scan PCRE's man pages to check for typos in the control
# sequences. I use only a small set of the available repertoire, so it is 
# straightforward to check that nothing else has slipped in by mistake. This
# script should be called in the doc directory.

$yield = 0;

while (scalar(@ARGV) > 0)
  {
  $line = 0; 
  $file = shift @ARGV;
    
  open (IN, $file) || die "Failed to open $file\n";
  
  while (<IN>)
    {  
    $line++; 
    if (/^\s*$/)
      {
      printf "Empty line $line of $file\n";
      $yield = 1;  
      }   
    elsif (/^\./)
      {
      if (!/^\.\s*$|
            ^\.B\s+\S| 
            ^\.TH\s\S|
            ^\.SH\s\S|
            ^\.SS\s\S|
            ^\.TP(?:\s?\d+)?\s*$|
            ^\.SM\s*$|
            ^\.br\s*$| 
            ^\.rs\s*$| 
            ^\.sp\s*$| 
            ^\.nf\s*$| 
            ^\.fi\s*$| 
            ^\.P\s*$| 
            ^\.PP\s*$| 
            ^\.\\"(?:\ HREF)?\s*$|
            ^\.\\"\sHTML\s<a\shref="[^"]+?">\s*$|
            ^\.\\"\sHTML\s<a\sname="[^"]+?"><\/a>\s*$|
            ^\.\\"\s<\/a>\s*$|
            ^\.\\"\sJOINSH\s*$|
            ^\.\\"\sJOIN\s*$/x  
         )
        {
        printf "Bad control line $line of $file\n";
        $yield = 1;
        }
      }
    else
      {
      if (/\\[^ef]|\\f[^IBP]/)
        {
        printf "Bad backslash in line $line of $file\n";  
        $yield = 1; 
        } 
      }   
    }
     
  close(IN);   
  }
  
exit $yield;
# End  
1	ph10	583	#! /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	ph10	1339	^\.TP(?:\s?\d+)?\s*$\|
33	ph10	583	^\.SM\s*$\|
34	ph10	1339	^\.br\s*$\|
35	ph10	583	^\.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