diff options
| author | sheldonh <sheldonh@FreeBSD.org> | 2000-08-15 10:02:07 +0000 |
|---|---|---|
| committer | sheldonh <sheldonh@FreeBSD.org> | 2000-08-15 10:02:07 +0000 |
| commit | 4e5281d00b8fa7447d70020d36660157e7e43626 (patch) | |
| tree | 88d7fea3d791af620456e3cd42ff2bf1c4229af2 /contrib/awk/awklib/eg/prog/dupword.awk | |
| parent | 946d89ae2629e07c7d4735eac8d1f5ac2263ce58 (diff) | |
| download | FreeBSD-src-4e5281d00b8fa7447d70020d36660157e7e43626.zip FreeBSD-src-4e5281d00b8fa7447d70020d36660157e7e43626.tar.gz | |
Update vendor branch to gawk-3.0.6.
Diffstat (limited to 'contrib/awk/awklib/eg/prog/dupword.awk')
| -rw-r--r-- | contrib/awk/awklib/eg/prog/dupword.awk | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/contrib/awk/awklib/eg/prog/dupword.awk b/contrib/awk/awklib/eg/prog/dupword.awk new file mode 100644 index 0000000..9a518a1 --- /dev/null +++ b/contrib/awk/awklib/eg/prog/dupword.awk @@ -0,0 +1,16 @@ +# dupword --- find duplicate words in text +# Arnold Robbins, arnold@gnu.org, Public Domain +# December 1991 + +{ + $0 = tolower($0) + gsub(/[^A-Za-z0-9 \t]/, ""); + 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 +} |
