diff options
| author | obrien <obrien@FreeBSD.org> | 2001-11-02 21:06:08 +0000 |
|---|---|---|
| committer | obrien <obrien@FreeBSD.org> | 2001-11-02 21:06:08 +0000 |
| commit | 223f0286ad0612783e0da01de3b5bfdc52e3b25c (patch) | |
| tree | cd2c7fd87952f47d303b90e49b90c14bccf7e292 /contrib/awk/awklib/eg/prog/dupword.awk | |
| parent | 4e5281d00b8fa7447d70020d36660157e7e43626 (diff) | |
| download | FreeBSD-src-223f0286ad0612783e0da01de3b5bfdc52e3b25c.zip FreeBSD-src-223f0286ad0612783e0da01de3b5bfdc52e3b25c.tar.gz | |
Update vendor branch to gawk-3.1.0.
Diffstat (limited to 'contrib/awk/awklib/eg/prog/dupword.awk')
| -rw-r--r-- | contrib/awk/awklib/eg/prog/dupword.awk | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/contrib/awk/awklib/eg/prog/dupword.awk b/contrib/awk/awklib/eg/prog/dupword.awk index 9a518a1..a2cc7d2b 100644 --- a/contrib/awk/awklib/eg/prog/dupword.awk +++ b/contrib/awk/awklib/eg/prog/dupword.awk @@ -1,10 +1,15 @@ -# dupword --- find duplicate words in text +# dupword.awk --- find duplicate words in text +# # Arnold Robbins, arnold@gnu.org, Public Domain # December 1991 +# Revised October 2000 { $0 = tolower($0) - gsub(/[^A-Za-z0-9 \t]/, ""); + gsub(/[^[:alnum:][:blank:]]/, " "); + $0 = $0 # re-split + if (NF == 0) + next if ($1 == prev) printf("%s:%d: duplicate %s\n", FILENAME, FNR, $1) |
