NetBSD/gnu/dist/gawk/test/sort1.awk
wiz 06c09073b3 Initial import of gawk-3.1.3.
Seven releases since the last import, so the ChangeLog is quite big;
please refer to the NEWS file included in the import for details.
Among others, this also addresses PR 23054.
2003-10-06 15:55:26 +00:00

32 lines
405 B
Awk

BEGIN{
a[1] = "barz";
a[2] = "blattt";
a[3] = "Zebra";
a[4] = 1234;
testit1(a)
delete a
a[1] = "barz";
a[2] = "blattt";
a[3] = "Zebra";
a[4] = 1234;
n = asort(a, b);
print "N = ", n;
for(i=1; i <= n; i++)
print i, a[i], b[i];
}
function testit1(a, count, j)
{
print "start testit"
count = asort(a)
for (j = 1; j <= count; j++)
print j, a[j]
print "end testit"
}