diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-03-27 22:56:50 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-03-27 22:56:50 +0200 |
| commit | 87347b80c8821cae07e4f530e75d200bedf9c9d6 (patch) | |
| tree | 1107c461d0b2ee151aaf67a36416157c80bc8e48 /test/readfile2.awk | |
| parent | bd53bb875a7aaae81b2a44810cfe532bb53f08d6 (diff) | |
| parent | 4d396858eb897f2bb6d318b851a369ee92e50147 (diff) | |
| download | egawk-87347b80c8821cae07e4f530e75d200bedf9c9d6.tar.gz egawk-87347b80c8821cae07e4f530e75d200bedf9c9d6.tar.bz2 egawk-87347b80c8821cae07e4f530e75d200bedf9c9d6.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'test/readfile2.awk')
| -rw-r--r-- | test/readfile2.awk | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/readfile2.awk b/test/readfile2.awk new file mode 100644 index 00000000..c21483fc --- /dev/null +++ b/test/readfile2.awk @@ -0,0 +1,12 @@ +@load "readfile" +BEGIN { PROCINFO["readfile"] = 1 } +BEGINFILE { print "Start of", basename(FILENAME) } +{ printf ("%d: <%s>\n", FNR, $0 ) } +ENDFILE { print "End of", basename(FILENAME) } + +function basename(file, result) +{ + result = file + gsub(".*/", "", result) + return result +} |