blob: 9af87bf6074d35440f3e6062b4b6c7e114f69dfe (
plain) (
blame)
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
|
# TBL_SORT -- Sort a table on selected table columns
#
# B.Simon 06-Fab-90 First Code
procedure tbl_sort (ascend, casesens, tp, numptr, colptr, nindex, index)
bool ascend # i: Sort in ascending order
bool casesens # i: Sort is case sensitive
pointer tp # i: Table descriptor
int numptr # i: Number of columns to sort on
pointer colptr[ARB] # i: Array of column descriptors
int nindex # i: Number of elements in index array
int index[ARB] # io: Array of row indices to sort
#--
bool fold
int idx, jdx, temp
begin
# Call the sort routine in the table library
fold = ! casesens
call tbtsrt (tp, numptr, colptr, fold, nindex, index)
# Reorder the index array if ascend is false
if (! ascend) {
idx = 1
jdx = nindex
while (idx < jdx) {
temp = index[idx]
index[idx] = index[jdx]
index[jdx] = temp
idx = idx + 1
jdx = jdx - 1
}
}
end
|
