summaryrefslogtreecommitdiff
path: root/src/third_party/pcre-8.36/CheckMan
diff options
context:
space:
mode:
Diffstat (limited to 'src/third_party/pcre-8.36/CheckMan')
-rwxr-xr-xsrc/third_party/pcre-8.36/CheckMan67
1 files changed, 0 insertions, 67 deletions
diff --git a/src/third_party/pcre-8.36/CheckMan b/src/third_party/pcre-8.36/CheckMan
deleted file mode 100755
index 480d735481e..00000000000
--- a/src/third_party/pcre-8.36/CheckMan
+++ /dev/null
@@ -1,67 +0,0 @@
-#! /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