1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
# Written by Aleksey Cheusov <vle@gmx.net>, public domain
#
# This awk module is a part of RunAWK distribution,
# http://sourceforge.net/projects/runawk
#
############################################################
# =head2 sort.awk
#
# =over 2
#
# =item I<sort (src, dest_remap, start, end)>
#
# Call either heapsort function from heapsort.awk (if
# RUNAWK_SORTTYPE environment variable is "heapsort") or quicksort
# from quicksort.awk (if RUNAWK_SORTTYPE is "quicksort").
# Sorttype defaults to "heapsort".
#
# =item I<sort_values (src, dest_remap)>
#
# Call either heapsort_values function from heapsort.awk (if
# RUNAWK_SORTTYPE environment variable is "heapsort") or
# quicksort_values from quicksort.awk (if RUNAWK_SORTTYPE is
# "quicksort"). Sorttype defaults to "heapsort".
#
# =item I<sort_indices (src, dest_remap)>
#
# Call either heapsort_indices function from heapsort.awk (if
# RUNAWK_SORTTYPE environment variable is "heapsort") or
# quicksort_indices from quicksort.awk (if RUNAWK_SORTTYPE is
# "quicksort"). Sorttype defaults to "heapsort".
#
# =back
#
#use "abort.awk"
#use "heapsort.awk"
#use "quicksort.awk"
BEGIN {
if (!__sort_type)
__sort_type = ENVIRON ["RUNAWK_SORTTYPE"]
if (!__sort_type)
__sort_type = "heapsort"
}
function sort (array, index_remap, start, end)
{
if (__sort_type == "heapsort")
heapsort(array, index_remap, start, end);
else if (__sort_type == "quicksort")
quicksort(array, index_remap, start, end);
else
abort("Bad __sort_type in sort.awk")
}
function sort_values (src_hash, index_remap)
{
if (__sort_type == "heapsort")
return heapsort_values(src_hash, index_remap);
else if (__sort_type == "quicksort")
return quicksort_values(src_hash, index_remap);
else
abort("Bad __sort_type in sort.awk")
}
function sort_indices (src_hash, index_remap)
{
if (__sort_type == "heapsort")
return heapsort_indices(src_hash, index_remap);
else if (__sort_type == "quicksort")
return quicksort_indices(src_hash, index_remap);
else
abort("Bad __sort_type in sort.awk")
}
|
