1 files changed, 114 insertions, 0 deletions
diff --git a/test/sortu.awk b/test/sortu.awk
new file mode 100644
index 00000000..b4d30138
--- /dev/null
+++ b/test/sortu.awk
@@ -0,0 +1,114 @@
+# numeric before string, ascending by index
+function comp_num_str(s1, v1, s2, v2,		n1, n2) {
+	n1 = s1 + 0
+	n2 = s2 + 0
+	if (n1 == s1)
+		return (n2 == s2) ? (n1 - n2) : -1
+	else if (n2 == s2)
+		return 1
+	return (s1 < s2) ? -1 : (s1 != s2)
+}
+
+# ascending index number
+function comp_idx_num(s1, v1, s2, v2)
+{
+	return (s1 - s2)
+}
+
+# ascending value number
+function comp_val_num(s1, v1, s2, v2)
+{
+	return (v1 - v2)
+}
+
+# ascending value string
+function comp_val_str(s1, v1, s2, v2)
+{
+	v1 = v1 ""
+	v2 = v2 ""
+	return (v1 < v2) ? -1 : (v1 != v2)
+}
+
+# deterministic, by value (and index), descending numeric
+function comp_val_idx(s1, v1, s2, v2)
+{
+	return (v1 != v2) ? (v2 - v1) : (s2 - s1)
+}
+
+BEGIN {
+	a[1] = 10; a[100] = 1; a[2] = 200
+	a["cat"] = "tac"; a["rat"] = "tar";a["bat"] = "tab"
+
+	print "--- number before string, ascending by index ---"
+	PROCINFO["sorted_in"] = "comp_num_str"
+	for (i in a)
+		printf("%-10s%-s\n", i, a[i])
+
+	delete a
+	a[11] = 10; a[100] = 5; a[2] = 200
+	a[4] = 1; a[20] = 10; a[14] = 10
+	print "--- deterministic, by value (index), descending numeric ---"
+	PROCINFO["sorted_in"] = "comp_val_idx"
+	for (i in a)
+		printf("%-10s%-s\n", i, a[i])
+
+	for (IGNORECASE=0; IGNORECASE <= 1; IGNORECASE++) {
+		makea(a)
+		SORT_STR =  "comp_val_num"
+		printf("--- asort(a, b, \"%s\"), IGNORECASE = %d---\n", SORT_STR, IGNORECASE)
+		asort2(a, "")
+
+		makea(a)
+		SORT_STR =  "comp_val_str"
+		printf("--- asort(a, b, \"%s\"), IGNORECASE = %d---\n", SORT_STR, IGNORECASE)
+		asort2(a, "")
+
+		makea(a)
+		SORT_STR = "comp_val_str"
+		printf("--- asort(a, a, \"%s\"), IGNORECASE = %d---\n", SORT_STR, IGNORECASE)
+		asort1(a, "")
+  }
+}
+
+function makea(aa)
+{
+	delete aa
+	aa[1] = "barz";
+	aa[2] = "blattt";
+	aa[3] = "Zebra";
+	aa[4] = 1234;
+	aa[5] = 234;
+}
+
+# source array != destination array 
+function asort2(c, s,	d, k, m) 
+{
+	if (SORT_STR < 0)
+		m = asort(c, d);
+	else
+		m = asort(c, d, SORT_STR);
+	for (k=1; k <= m; k++) {
+		if (isarray(d[k]))
+			asort2(d[k], s"["k"]")
+		else
+			printf("%-10s:%-10s%-10s\n", s"["k"]", c[k], d[k])
+	}
+}
+
+# source array == destination array
+function asort1(c, s,   k, m) 
+{
+	if (SORT_STR < 0)
+		m = asort(c)
+	else if (SORT_STR != "")
+		m = asort(c, c, SORT_STR)
+	else
+		m = asort(c, c);
+
+	for (k=1; k <= m; k++) {
+		if (isarray(c[k]))
+			asort1(c[k], s"["k"]")
+		else
+			printf("%-10s:%-10s\n", s"["k"]", c[k])
+	}
+}