db7fac3f24
git-svn-id: https://openfoam-extend.svn.sourceforge.net/svnroot/openfoam-extend/trunk/Core/OpenFOAM-1.5-dev@1731 e4e07f05-0c2f-0410-a05a-b8ba57e0c909
48 lines
1.1 KiB
Perl
Executable file
48 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
use strict;
|
|
use File::Find ();
|
|
|
|
# -----------------------------------------------------------------------------
|
|
#
|
|
# Script
|
|
# find-its
|
|
#
|
|
# Description
|
|
# Search for *.[CH] files with "it's"
|
|
# This contraction (== "it is") looks too much like "its" (possesive)
|
|
# and confuses non-native (and some native) English speakers.
|
|
#
|
|
# - print filename and lineNumber
|
|
#
|
|
# -----------------------------------------------------------------------------
|
|
|
|
my $re_filespec = qr{^.+\.[CH]$};
|
|
|
|
# for the convenience of &wanted calls, including -eval statements:
|
|
## use vars qw( *name *dir *prune );
|
|
## *name = *File::Find::name;
|
|
## *dir = *File::Find::dir;
|
|
## *prune = *File::Find::prune;
|
|
|
|
sub wanted {
|
|
unless ( lstat($_) and -f _ and -r _ and not -l _ and /$re_filespec/ ) {
|
|
return;
|
|
}
|
|
|
|
local @ARGV = $_;
|
|
while (<>) {
|
|
if (m{it\'s}) {
|
|
print "$File::Find::name line=$.\n";
|
|
}
|
|
}
|
|
|
|
close ARGV;
|
|
}
|
|
|
|
## Traverse desired filesystems
|
|
for my $dir (@ARGV) {
|
|
no warnings 'File::Find';
|
|
warn "(**) checking '$dir' ...\n";
|
|
File::Find::find( { wanted => \&wanted }, $dir );
|
|
}
|
|
|