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 | cfe0e2b488d886d14fc1755679b8a88165b22d92 (patch) | |
| tree | fbf9ca4d3f276e13b39090465008b182d20f0e5a /contrib/awk/awklib/eg/prog/dupword.awk | |
| parent | 9682ea287751aa7aad9e21c50ba74cfb3d7314d0 (diff) | |
| parent | 223f0286ad0612783e0da01de3b5bfdc52e3b25c (diff) | |
| download | FreeBSD-src-cfe0e2b488d886d14fc1755679b8a88165b22d92.zip FreeBSD-src-cfe0e2b488d886d14fc1755679b8a88165b22d92.tar.gz | |
This commit was generated by cvs2svn to compensate for changes in r85898,
which included commits to RCS files with non-trunk default branches.
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) |
