# 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,	num)

{

	num = "^[-+]?([0-9]+[.]?[0-9]*|[.][0-9]+)([eE][-+]?[0-9]+)?$"

	# force stable sort, compare as strings if not numeric

	if ((v1 - v2) == 0 && (v1 !~ num || v2 !~ num))

		return comp_val_str(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])

	}

}