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

Contents of /code/trunk/CheckMan

Parent Directory Parent Directory | Revision Log Revision Log


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

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

Properties

Name Value
svn:executable *

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12