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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
# TBCONCAT -- Concatenate a list of apphot/daophot STSDAS table databases
# into a single output database. All the input files must of been written
# by the same task.
procedure tbconcat (tables, outtable)
file tables {prompt="Input apphot/daophot tables databases to be concatenated"}
file outtable {prompt="Output apphot/daophot STSDAS table database"}
string task {"TASK", prompt="Task name keyword"}
struct *inlist
begin
# Declare local variables.
bool stat, first_tab
file in, out
int npars, first_npars, ncols, first_ncols
string tmpin, inname, first_inname, tkname, first_tkname
# Cache the parameters.
cache ("istable", "keypar", "tinfo")
# Get the positional parameters.
in = tables
out = outtable
# Make a file lists.
tmpin = mktemp ("tmp$")
files (in, sort=no, > tmpin)
# Loop through the list checking that all the files are
# tables that they were created with the same task and
# that they have the same number of parameters and columns
stat = yes
first_tab = yes
inlist = tmpin
while (fscan (inlist, inname) != EOF) {
# Check that the input file is an STSDAS table.
istable (inname)
if (! istable.table) {
print ("ERROR: File " // inname // " is not an ST table")
stat = no
break
}
# Check that all the input files were written by the same task.
if (defpar ("keypar.silent")) {
keypar (inname, task, silent=no)
} else {
keypar (inname, task)
}
if (first_tab) {
first_inname = inname
first_tkname = keypar.value
} else {
tkname = keypar.value
if (tkname != first_tkname) {
print ("ERROR:")
print (" File" // first_inname // " written by task " //
first_tkname)
print (" File" // inname // " written by task " //
tkname)
stat = no
break
}
}
# Check that the number of parameters and columns is the same.
tinfo (inname, ttout=no)
if (first_tab) {
first_npars = tinfo.npar
first_ncols = tinfo.ncols
} else {
npars = tinfo.npar
ncols = tinfo.ncols
if (npars != first_npars) {
print ("ERROR:")
print (" File " // first_inname // " has " //
first_npars // "parameters")
print (" File " // inname // " has " // npars //
"parameters")
stat = no
break
}
if (ncols != first_ncols) {
print ("ERROR:")
print (" File " // first_inname // " has " //
first_ncols // "columns")
print (" File " // inname // " has " // ncols //
"columns")
stat = no
break
}
}
first_tab = no
}
delete (tmpin, ver-, >& "dev$null")
inlist = ""
# Return if status is not ok.
if (! stat)
return
# Do the actual append.
tmerge (in, out, option="append", allcols=no, tbltype="row",
allrows=100, extracol=0)
end
|
