Some Pod::Spell::CommonMistakes on .U
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Wed, 8 May 2013 10:08:47 +0000 (12:08 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Wed, 8 May 2013 10:08:47 +0000 (12:08 +0200)
I know .U ain't pod, and finding text against finding code might be
brittle, but it is a start

14 files changed:
U/compline/d_keepsig.U
U/compline/d_scannl.U
U/installdirs/archlib.U
U/installdirs/man3dir.U
U/installdirs/privlib.U
U/modified/Cppsym.U
U/modified/Head.U
U/modified/Signal.U
U/modified/libc.U
U/modified/libs.U
U/modified/sig_name.U
U/spellcheck-U [new file with mode: 0755]
U/threads/archname.U
U/threads/usethreads.U

index a5f19d0..31649cd 100644 (file)
@@ -16,7 +16,7 @@
 ?RCS: patch45: protected "sh -c" within backquotes for Linux and SGI
 ?RCS:
 ?RCS: Revision 3.0.1.2  1994/10/29  16:13:59  ram
-?RCS: patch36: call ./bsd explicitely instead of relying on PATH
+?RCS: patch36: call ./bsd explicitly instead of relying on PATH
 ?RCS:
 ?RCS: Revision 3.0.1.1  1993/10/16  13:48:47  ram
 ?RCS: patch12: comment for SIGNALS_KEPT was the other way round
index e9e655e..b111315 100644 (file)
@@ -41,7 +41,7 @@
 : does scanf handle "\n" correctly ?
 echo " "
 val="$define"
-?X: I really want to say "\n" instead of '\n', becasue I am refering
+?X: I really want to say "\n" instead of '\n', becasue I am referring
 ?X:    to the string given as argument to scanf().
 echo 'Let'"'"'s see if scanf() handles "\\n" correctly...' >&4
 $cat >try.c <<'EOCP'
index d146676..4b38989 100644 (file)
@@ -101,7 +101,7 @@ these files in a separate location.  Otherwise, you can just include
 them with the rest of the public library files.
 
 EOM
-?X: Force dependancy on bin.U
+?X: Force dependency on bin.U
 fn=$binexp
 fn=d+~
 rp='Where do you want to put the public architecture-dependent libraries?'
index 311845a..07a3f63 100644 (file)
@@ -85,10 +85,10 @@ esac
 
 echo "If you don't want the manual sources installed, answer 'none'."
 ?X: In 5.005_57 and earlier, I had the following notes:
-?X: We dont use /usr/local/man/man3 because some man programs will
+?X: We do not use /usr/local/man/man3 because some man programs will
 ?X: only show the /usr/local/man/man3 contents, and not the system ones,
 ?X: thus man less will show the perl module less.pm, but not the system
-?X: less command.  We might also conflict with TCL man pages.
+?X: less command.  We might also conflict with Tcl man pages.
 ?X: However, something like /opt/perl/man/man3 is fine.
 ?X:
 ?X: However, opinion seems to be shifting such that 'man POSIX' ought
index baff063..d336456 100644 (file)
@@ -84,7 +84,7 @@ There are some auxiliary files for $package that need to be put into a
 private library directory that is accessible by everyone.
 
 EOM
-?X: Force dependancy on bin.U
+?X: Force dependency on bin.U
 fn=$binexp
 fn=d~+
 rp='Pathname where the private library files will reside?'
index 3f0dd7a..9ad693f 100644 (file)
@@ -217,7 +217,7 @@ EOSH
 chmod +x Cppsym.try
 $eunicefix Cppsym.try
 ./Cppsym < Cppsym.know | $sort | $uniq > Cppsym.true
-: Add in any linux cpp "predefined macros":
+: Add in any Linux cpp "predefined macros":
 case "$osname::$gccversion" in
   *linux*::*.*|*gnukfreebsd*::*.*|gnu::*.*)
     tHdrH=_tmpHdr
index ddac513..db7b203 100644 (file)
@@ -176,7 +176,7 @@ if test -d c:/. || ( uname -a | grep -i 'os\(/\|\)2' ) 2>&1 >/dev/null ; then
                is_os2=yes
        elif test -n "$DJGPP"; then
                case "X${MACHTYPE:-nonesuchmach}" in
-               *cygwin) ;;
+               *cygwin|*msys) ;;
                *) p_=\; ;;
                esac
        fi
index efaf093..59ee986 100644 (file)
@@ -49,7 +49,7 @@
 ?X: Remove SIGSTKSIZE used by Linux.
 ?X: Remove SIGSTKSZ used by Posix.
 ?X: Remove SIGTYP void lines used by OS2.
-?X: Some cpps, like os390, dont give the file name anywhere
+?X: Some cpps, like os390, do not give the file name anywhere
 if [ "X$fieldn" = X ]; then
        : Just make some guesses.  We check them later.
        xxx='/usr/include/signal.h /usr/include/sys/signal.h'
index f927c17..9cca70e 100644 (file)
@@ -19,8 +19,8 @@
 ?RCS: Revision 3.0.1.8  1995/05/12  12:20:47  ram
 ?RCS: patch54: made sure only most recent version of shared lib is picked
 ?RCS: patch54: final "nm -p" check now uses xscan and xrun like everybody
-?RCS: patch54: can now grok linux nm output with lead __IO (ADO)
-?RCS: patch54: added support for linux ELF output, using 'W' for alias (ADO)
+?RCS: patch54: can now grok Linux nm output with lead __IO (ADO)
+?RCS: patch54: added support for Linux ELF output, using 'W' for alias (ADO)
 ?RCS:
 ?RCS: Revision 3.0.1.7  1994/10/29  16:23:40  ram
 ?RCS: patch36: now looks for shared libraries before anything else (ADO)
index 0c7451e..99deabf 100644 (file)
@@ -65,7 +65,7 @@
 ?X:
 ?X: This order is chosen so that libraries  -lndir, -ldir, -lucb, -lbsd,
 ?X: -lBSD, -lPW, and -lx only get used if there are unresolved
-?X: routines at link time.  Usually, these are backwards compatability
+?X: routines at link time.  Usually, these are backwards compatibility
 ?X: libraries, and may not be as reliable as the standard c library.
 ?X:
 ?X: The -lsocket -linet -lnsl order has been reported to be necessary
index 376932b..da8bde6 100644 (file)
@@ -13,7 +13,7 @@
 ?RCS: patch61: brand new algorithm for sig_name and (new!) sig_num
 ?RCS:
 ?RCS: Revision 3.0.1.4  1995/07/25  14:14:54  ram
-?RCS: patch56: added <asm/signal.h> lookup for linux
+?RCS: patch56: added <asm/signal.h> lookup for Linux
 ?RCS:
 ?RCS: Revision 3.0.1.3  1995/05/12  12:24:11  ram
 ?RCS: patch54: now looks for <linux/signal.h> too (ADO)
diff --git a/U/spellcheck-U b/U/spellcheck-U
new file mode 100755 (executable)
index 0000000..9d8327e
--- /dev/null
@@ -0,0 +1,60 @@
+#!/pro/bin/perl
+
+use 5.016;
+use warnings;
+use autodie;
+
+use File::Find;
+use Pod::Spell::CommonMistakes::WordList qw( _check_case _check_common );
+
+my @u;
+find (sub { m/\.U$/ && !-l && -s and push @u, $File::Find::name }, glob "*");
+
+my %ignore = (
+    "modified/Oldconfig.U"     => {
+       "gnu"           => "GNU",               # output of uname
+       },
+    "perl/patchlevel.U"                => {
+       "subversion"    => "Subversion",        # perl's subversion, not svn
+       },
+    );
+
+foreach my $u (sort @u) {
+    open my $fh, "<", $u;
+
+    my $n = 0;
+    while (<$fh>) {
+
+       $n++;
+
+       m{^(?| \?RCS:   \s+ (\w.*)
+            | \?S:     \s+ (\w.*)
+            | \?INIT:: \s+ (\w.*)
+            | \?X:     \s* (\w.*)
+            | :        \s+ (\w.*)
+            )}x or
+       m{echo \s+ (?| "([^"]+)" | '([^']+)')}x or next;
+
+       my $t = $1;
+       my @w = split m/[,\s]+/ => $t;
+
+       my ($err, %seen);
+       $err = _check_case (\@w);
+       if (ref $err eq "HASH" && keys %$err) {
+           for (sort keys %$err) {
+               exists $ignore{$u}{$_} and next;
+               $seen{$_}++ and next;;
+               printf "%-25s %4d %-20s => %s\n", $u, $n, $_, $err->{$_};
+               }
+           }
+
+       $err = _check_common (\@w);
+       if (ref $err eq "HASH" && keys %$err) {
+           for (sort keys %$err) {
+               exists $ignore{$u}{$_} and next;
+               $seen{$_}++ and next;;
+               printf "%-25s %4d %-20s => %s\n", $u, $n, $_, $err->{$_};
+               }
+           }
+       }
+    }
index adff0dd..b8932b2 100644 (file)
@@ -88,7 +88,7 @@ rp='What is your architecture name'
 . ./myread
 archname="$ans"
 
-: optionally add api version to the architecture for versioned archlibs
+: optionally add API version to the architecture for versioned archlibs
 case "$useversionedarchname" in
 $define|true|[yY]*) dflt='y';;
 *)                  dflt='n';;
index 6682b18..b391329 100644 (file)
@@ -192,7 +192,7 @@ EOM
     useithreads="$usethreads"
 fi
 
-?X: Check out what kind of threads api we have
+?X: Check out what kind of threads API we have
 case "$d_oldpthreads" in
 '')    : Configure tests would be welcome here.  For now, assume undef.
        val="$undef" ;;