diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2016-06-08 22:59:28 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2016-06-08 22:59:28 +0300 |
| commit | bb331e22c3207863ebd923bd4c8a36c256485c6b (patch) | |
| tree | 7039148192ed814eac679ec2ed0e8894b3e18fe8 /helpers/changed-files.awk | |
| parent | 4f758771937fcbd59b1fd2db017c4995513c3988 (diff) | |
| parent | b504b2707e0780d5f0b347aef9bead0e516813a2 (diff) | |
| download | egawk-bb331e22c3207863ebd923bd4c8a36c256485c6b.tar.gz egawk-bb331e22c3207863ebd923bd4c8a36c256485c6b.tar.bz2 egawk-bb331e22c3207863ebd923bd4c8a36c256485c6b.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'helpers/changed-files.awk')
| -rw-r--r-- | helpers/changed-files.awk | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/helpers/changed-files.awk b/helpers/changed-files.awk new file mode 100644 index 00000000..937ecd51 --- /dev/null +++ b/helpers/changed-files.awk @@ -0,0 +1,19 @@ +#! /usr/bin/gawk -f + +/^2014-/ { nextfile } + +/^\t\*/ { + sub(/^\t\*[[:space:]]*/, "") + sub(/[:\[(].*/, "") + gsub(/,/, "") + for (i = 1; i <= NF; i++) { + fname = $i + if (! (fname in names)) + names[fname]++ + } +} + +END { + for (i in names) + print i +} |