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
|
# TBDUMP -- Dump selected columns of an APPHOT/DAOPHOT STSDAS table database.
procedure tbdump (tables, fields, expr)
file tables {prompt = "Input apphot/daophot tables database(s)"}
string fields {"", prompt = "Fields to be extracted"}
string expr {"yes", prompt = "Boolean expression for record selection"}
file datafile {"STDOUT", prompt = "Output file for table data"}
file cdfile {"", prompt = "Output file for table column definitions"}
file pfile {"", prompt = "Output file for table header parameters"}
string rows {"-", prompt = "Range of rows to dump"}
int pagwidth {158, prompt = "Output page width"}
struct *inlist
begin
# Declare local variables
file ttables
string tfields, texpr, tmpin, tmpout, inname
# Get the positional parameters.
ttables = tables
tfields = fields
texpr = expr
tmpin = mktemp ("tmp$")
files (ttables, sort=no, > tmpin)
inlist = tmpin
while (fscan (inlist, inname) != EOF) {
if (texpr != "yes") {
tmpout = mktemp ("tmp$")
tselect (inname, tmpout, texpr)
tdump (tmpout, cdfile=cdfile, pfile=pfile, datafile=datafile,
columns=tfields, rows=rows, pwidth=pagwidth)
tdelete (tmpout, ver-, >& "dev$null")
} else {
tdump (inname, cdfile=cdfile, pfile=pfile, datafile=datafile,
columns=tfields, rows=rows, pwidth=pagwidth)
}
}
delete (tmpin, ver-, >& "dev$null")
inlist = ""
end
|
