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
|
# TBCALC -- Perform arithmetic operations on a column column of an
# APPHOT/DAOPHOT STSDAS table database.
procedure tbcalc (tables, column, value)
file tables {prompt="Input apphot/daophot tables databases to be renumbered"}
string column {prompt="Column to be edited"}
string value {prompt="New value or expression for column"}
struct *inlist
begin
# Declare local variables.
file ttables, tcolumn, tvalue
string tmpin, inname
# Get the positional parameters.
ttables = tables
tcolumn = column
tvalue = value
tmpin = mktemp ("tmp$")
files (ttables, sort=no, > tmpin)
inlist = tmpin
while (fscan (inlist, inname) != EOF) {
if (defpar ("tcalc.verbose") || defpar ("tcalc.harmless")) {
tcalc (inname, tcolumn, tvalue, datatype="real", colunits="",
colfmt="", verbose=no, harmless=0.1)
} else {
tcalc (inname, tcolumn, tvalue, datatype="real", colunits="",
colfmt="")
}
}
delete (tmpin, ver-, >& "dev$null")
inlist = ""
end
|
