Move to gawk-3.0.0.

1 files changed, 15 insertions, 0 deletions

diff --git a/awklib/eg/lib/join.awk b/awklib/eg/lib/join.awk
new file mode 100644
index 00000000..e6b81656
--- /dev/null
+++ b/awklib/eg/lib/join.awk
@@ -0,0 +1,15 @@
+# join.awk --- join an array into a string
+# Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
+# May 1993
+
+function join(array, start, end, sep,    result, i)
+{
+    if (sep == "")
+       sep = " "
+    else if (sep == SUBSEP) # magic value
+       sep = ""
+    result = array[start]
+    for (i = start + 1; i <= end; i++)
+        result = result sep array[i]
+    return result
+}