diff options
Diffstat (limited to 'contrib/awk/awklib/eg/prog/dupword.awk')
-rw-r--r-- | contrib/awk/awklib/eg/prog/dupword.awk | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/contrib/awk/awklib/eg/prog/dupword.awk b/contrib/awk/awklib/eg/prog/dupword.awk deleted file mode 100644 index a2cc7d2b..0000000 --- a/contrib/awk/awklib/eg/prog/dupword.awk +++ /dev/null @@ -1,21 +0,0 @@ -# dupword.awk --- find duplicate words in text -# -# Arnold Robbins, arnold@gnu.org, Public Domain -# December 1991 -# Revised October 2000 - -{ - $0 = tolower($0) - gsub(/[^[:alnum:][:blank:]]/, " "); - $0 = $0 # re-split - if (NF == 0) - next - if ($1 == prev) - printf("%s:%d: duplicate %s\n", - FILENAME, FNR, $1) - for (i = 2; i <= NF; i++) - if ($i == $(i-1)) - printf("%s:%d: duplicate %s\n", - FILENAME, FNR, $i) - prev = $NF -} |