BEGIN{

  for (IGNORECASE=0; IGNORECASE <= 1; IGNORECASE++) {

	SORT_STR = -1

 	makea(a)

 	asort1(a, "")

	printf("---end asort(a), IGNORECASE = %d---\n", IGNORECASE)

	makea(a)

	asort2(a, "")

	printf("---end asort(a, b), IGNORECASE = %d---\n", IGNORECASE)

	makea(a)

	SORT_STR = ""

	asort1(a)

	printf("---end asort(a, a), IGNORECASE = %d---\n", IGNORECASE)

	makea(a)

	SORT_STR = "@ind_num_asc"

	asort2(a, "")

	printf("---end asort(a, b, \"%s\"), IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@ind_str_desc"

	asort1(a, "")

	printf("---end asort(a, a, \"%s\"), IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_str_asc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_num_asc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_str_desc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_num_desc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_type_asc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

	makea(a)

	SORT_STR = "@val_type_desc"

	proc_sort(a, "")

	printf("---end PROCINFO[\"sorted_in\"] = \"%s\", IGNORECASE = %d---\n",

		SORT_STR, IGNORECASE)

  }

}

function makea(aa)

{

  delete aa

  aa[1] = "barz";

  aa[2] = "blattt";

  aa[3] = "Zebra";

  aa[4] = 1234;

  aa[5] = 234;

  aa[6][1] = 4321;

#  aa[6][2] = 432;

  aa[6][3] = "tttalb";

  aa[6][2] = "arbeZ";

  aa[6][4] = "zrab";

}

# 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])

  }

}

function proc_sort(c, s,	k) 

{

  PROCINFO["sorted_in"] = SORT_STR

  for(k in c) {

	if (isarray(c[k]))

		proc_sort(c[k], s"["k"]")

	else

	    	printf("%10s:%10s\n", s"["k"]", c[k])

  }

}