From 95ebc8a9c27990b935df3c3d0c50264302e36b65 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Wed, 25 Sep 2013 13:01:32 +0300
Subject: Add a library file for readfile function. (Ooops.)

---
 awklib/eg/lib/readfile.awk | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 awklib/eg/lib/readfile.awk

(limited to 'awklib/eg/lib/readfile.awk')

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
+}
-- 
cgit v1.2.3