mirror of https://github.com/mkerrisk/man-pages
Minor changes
This commit is contained in:
parent
f3edaabb5d
commit
c092684fe3
|
@ -6,12 +6,15 @@
|
||||||
#
|
#
|
||||||
# Usage: sh find_repeated_words.sh [file...]
|
# Usage: sh find_repeated_words.sh [file...]
|
||||||
#
|
#
|
||||||
|
|
||||||
|
MANWIDTH=2000
|
||||||
|
|
||||||
for file in "$@" ; do
|
for file in "$@" ; do
|
||||||
words=$(man -l "$file" 2> /dev/null | col -b | \
|
words=$(man -l "$file" 2> /dev/null | col -b | \
|
||||||
tr ' \008' '\012' | sed -e '/^$/d' | \
|
tr ' \008' '\012' | sed -e '/^$/d' | \
|
||||||
awk 'BEGIN {p=""} {if (p==$0) print p; p=$0 }' | \
|
awk 'BEGIN {p=""} {if (p==$0) print p; p=$0 }' | \
|
||||||
grep '[a-zA-Z]' | tr '\012' ' ')
|
grep '[a-zA-Z]' | tr '\012' ' ')
|
||||||
if test "X$words" != "X"; then
|
if test -n "X$words"; then
|
||||||
echo "$file: $words"
|
echo "$file: $words"
|
||||||
fi
|
fi
|
||||||
done
|
done
|
||||||
|
|
Loading…
Reference in New Issue