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*$|
            ^\.ti\s\S| 
            ^\.SM\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	#! /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