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/cut.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/cut.awk')
| -rw-r--r-- | contrib/awk/awklib/eg/prog/cut.awk | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/contrib/awk/awklib/eg/prog/cut.awk b/contrib/awk/awklib/eg/prog/cut.awk index 6e2dd06..d9c6c9b 100644 --- a/contrib/awk/awklib/eg/prog/cut.awk +++ b/contrib/awk/awklib/eg/prog/cut.awk @@ -1,13 +1,16 @@ # cut.awk --- implement cut in awk +# # Arnold Robbins, arnold@gnu.org, Public Domain # May 1993 # Options: -# -f list Cut fields -# -d c Field delimiter character -# -c list Cut characters +# -f list Cut fields +# -d c Field delimiter character +# -c list Cut characters +# +# -s Suppress lines without the delimiter # -# -s Suppress lines without the delimiter character +# Requires getopt and join library functions function usage( e1, e2) { @@ -122,7 +125,7 @@ function set_charlist( field, i, j, f, g, t, nfields = j - 1 } { - if (by_fields && suppress && $0 !~ FS) + if (by_fields && suppress && index($0, FS) != 0) next for (i = 1; i <= nfields; i++) { |
