diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-09-25 13:01:59 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-09-25 13:01:59 +0300 |
| commit | 6b3e0a2bbc7e30feb6db2da69b9cdd731c111e60 (patch) | |
| tree | f6cd36343b22cdcd9bda39ba02a211aa26ccdf43 /awklib/eg/lib/readfile.awk | |
| parent | 026a126c27f648839325c7fadb37c42d2935f467 (diff) | |
| parent | 95ebc8a9c27990b935df3c3d0c50264302e36b65 (diff) | |
| download | egawk-6b3e0a2bbc7e30feb6db2da69b9cdd731c111e60.tar.gz egawk-6b3e0a2bbc7e30feb6db2da69b9cdd731c111e60.tar.bz2 egawk-6b3e0a2bbc7e30feb6db2da69b9cdd731c111e60.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'awklib/eg/lib/readfile.awk')
| -rw-r--r-- | awklib/eg/lib/readfile.awk | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/awklib/eg/lib/readfile.awk b/awklib/eg/lib/readfile.awk new file mode 100644 index 00000000..9137b26d --- /dev/null +++ b/awklib/eg/lib/readfile.awk @@ -0,0 +1,15 @@ +# readfile.awk --- read an entire file at once +# +# Original idea by Denis Shirokov, cosmogen@gmail.com, April 2013 +# + +function readfile(file, tmp, save_rs) +{ + save_rs = RS + RS = "^$" + getline tmp < file + close(file) + RS = save_rs + + return tmp +} |