From b51e8a24c0aa1b5e6f247fb8d290bd79c0b50652 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 12 Nov 2010 12:25:37 +0200
Subject: Commit all changes for development gawk.

---
 awklib/eg/prog/indirectcall.awk | 44 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 awklib/eg/prog/indirectcall.awk

(limited to 'awklib/eg/prog')

diff --git a/awklib/eg/prog/indirectcall.awk b/awklib/eg/prog/indirectcall.awk
new file mode 100644
index 00000000..56843d5d
--- /dev/null
+++ b/awklib/eg/prog/indirectcall.awk
@@ -0,0 +1,44 @@
+# num_lt --- do a numeric less than comparison
+
+function num_lt(left, right)
+{
+    return ((left + 0) < (right + 0))
+}
+
+# num_ge --- do a numeric greater than or equal to comparison
+
+function num_ge(left, right)
+{
+    return ((left + 0) >= (right + 0))
+}
+# do_sort --- sort the data according to `compare' and return it as a string
+
+function do_sort(first, last, compare,      data, i, retval)
+{
+    delete data
+    for (i = 1; first <= last; first++) {
+        data[i] = $first
+        i++
+    }
+
+    quicksort(data, 1, i-1, compare)
+
+    retval = data[1]
+    for (i = 2; i in data; i++)
+        retval = retval " " data[i]
+    
+    return retval
+}
+# sort --- sort the data in ascending order and return it as a string
+
+function sort(first, last)
+{
+    return do_sort(first, last, "num_lt")
+}
+
+# rsort --- sort the data in descending order and return it as a string
+
+function rsort(first, last)
+{
+    return do_sort(first, last, "num_ge")
+}
-- 
cgit v1.2.3