Bring latest byte code gawk into git. Hurray!

1 files changed, 35 insertions, 0 deletions

diff --git a/test/aasorti.awk b/test/aasorti.awk
new file mode 100644
index 00000000..04164372
--- /dev/null
+++ b/test/aasorti.awk
@@ -0,0 +1,35 @@
+function init(b, a, i)
+{
+	delete a
+
+	a["aardvark"] = 1
+	a["animal"] = 2
+	a["zebra"] = 3
+	a["zoo"] = 4
+	a["Iguana"] = 5
+	a["Alligator"] = 6
+	a["Nouns"] = 7
+	a["people"] = 8
+	for (i in a)
+		b[IGNORECASE][i] = a[i]
+}
+
+BEGIN {
+
+	for (IGNORECASE = 0; IGNORECASE < 2; IGNORECASE++) {
+		init(b)
+
+		n = asorti(b[IGNORECASE])
+
+		for (i = 1; i <= n; i++)
+			printf("b[%d][%d] = \"%s\"\n", IGNORECASE, i, b[IGNORECASE][i])
+
+		print "============"
+
+	}
+	
+	n = asorti(b)
+	for (i = 1; i <= n; i++)
+		printf("b[%d] = \"%s\"\n", i, b[i])
+
+}