/[pcre]/code/trunk/CheckMan
ViewVC logotype

Contents of /code/trunk/CheckMan

Parent Directory Parent Directory | Revision Log Revision Log


Revision 583 - (hide annotations) (download)
Tue Jan 11 16:49:55 2011 UTC (3 years, 9 months ago) by ph10
File size: 1492 byte(s)
Add script to check for man page markup typos. Fix some typos.

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     ^\.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

Properties

Name Value
svn:executable *

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12