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
|
# TBTSRT -- Sort a table on multiple columns
#
# This procedure rearranges an array of row indices into sorted order.
# The array of row indices must be created before calling this procedure.
# Null elements will be last in the sort order. Boolean false is less
# than true in the sort order. If character strings are being sorted,
# case can be ignored by setting fold to true.
#
# B.Simon 22-Jan-90 First Code
procedure tbtsrt (tp, numcols, colptr, fold, nindex, index)
pointer tp # i: Table descriptor
int numcols # i: Number of columns to sort on
pointer colptr[ARB] # i: Array of column descriptors
bool fold # i: Fold upper and lower case when sorting
int nindex # i: Number of rows
int index[ARB] # io: Array of row indices in sorted order
#--
common /savcmp/ sv_tp, sv_colptr, sv_numcols, sv_fold
bool sv_fold
int sv_numcols
pointer sv_tp, sv_colptr
int icol
int tbqcmp()
extern tbqcmp
begin
# Fill common block used to pass info to comparison routine
call malloc (sv_colptr, numcols, TY_INT)
sv_tp = tp
sv_fold = fold
sv_numcols = numcols
do icol = 1, numcols
Memi[sv_colptr+icol-1] = colptr[icol]
# Call quicksort routine
call qsort (index, nindex, tbqcmp)
# Free memory
call mfree (sv_colptr, TY_INT)
end
# TBQCMP -- Interface to comparison routine
int procedure tbqcmp (row1, row2)
int row1 # i: Index to first row to compare
int row2 # i: Index to second row to compare
#--
common /savcmp/ sv_tp, sv_colptr, sv_numcols, sv_fold
bool sv_fold
int sv_numcols
pointer sv_tp, sv_colptr
int order
int tbrcmp()
begin
order = tbrcmp (sv_tp, sv_numcols, Memi[sv_colptr],
sv_fold, row1, row2)
return (order)
end
|
