diff options
author | Aaron Gyes <me@aaron.gy> | 2016-04-14 22:21:36 -0700 |
---|---|---|
committer | David Adam <zanchey@ucc.gu.uwa.edu.au> | 2016-04-19 11:49:12 +0800 |
commit | 0fd3f5c0ddf830162b66067e536bdbf0975523e5 (patch) | |
tree | a3ee179caef36f2a62452b9325c0ce6b47c90148 /pcre2-10.21/CheckMan | |
parent | e7599fd18cba9fde4ed19aae70c10e622d7d2e0e (diff) |
Update to pcre2 10.21
Point build tools at 10.21
Diffstat (limited to 'pcre2-10.21/CheckMan')
-rwxr-xr-x | pcre2-10.21/CheckMan | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/pcre2-10.21/CheckMan b/pcre2-10.21/CheckMan new file mode 100755 index 00000000..56867465 --- /dev/null +++ b/pcre2-10.21/CheckMan @@ -0,0 +1,67 @@ +#! /usr/bin/perl + +# A script to scan PCRE2'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 |