diff --git a/doc/tools/find-its b/doc/tools/find-its index 2276183628..7f8996b32b 100755 --- a/doc/tools/find-its +++ b/doc/tools/find-its @@ -1,48 +1,17 @@ -#!/usr/bin/perl -w -use strict; -use File::Find (); - +#!/bin/sh # ----------------------------------------------------------------------------- -# # Script # find-its # # Description -# Search for *.[CH] files with "it's" +# Search for 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 -# # ----------------------------------------------------------------------------- +set -x +cd $WM_PROJECT_DIR || exit 1 -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 ); -} +git grep -e "it's" +#------------------------------------------------------------------ end-of-file diff --git a/src/thermophysicalModels/pdfs/general/general.C b/src/thermophysicalModels/pdfs/general/general.C index e29bf1f4a4..da674ee2ad 100644 --- a/src/thermophysicalModels/pdfs/general/general.C +++ b/src/thermophysicalModels/pdfs/general/general.C @@ -99,7 +99,7 @@ Foam::scalar Foam::pdfs::general::sample() const scalar alpha = y + xy_[n-1][0]*(0.5*k*xy_[n-1][0] + d) - integral_[n-1]; scalar x = 0.0; - // if k is small it's a linear equation, otherwise it's of second order + // if k is small it is a linear equation, otherwise it is of second order if (mag(k) > SMALL) { scalar p = 2.0*d/k;