blob: c5d10f248a5daf9ce462173c3542a89f68d2c392 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# TBSORT -- Sort an APPHOT/DAOPHOT STSDAS table using the values in the
# selected columns.
procedure tbsort (table, fields)
file table {"", prompt="Input apphot/daophot tables database(s)to be sorted"}
string fields {"", prompt = "Fields to be sorted on"}
bool ascend {yes, prompt = "Sort in ascending value order ?"}
bool casesens {yes, prompt = "Case sensitive sort ?"}
begin
# Decalre the local variables.
string ttable, tfields
# Get the positional parameters.
ttable = table
tfields = fields
# Sort the table.
tsort (ttable, tfields, ascend=ascend, casesens=casesens)
end
|
