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
|
include <tbset.h>
# TICH -- Copy data from input header into scalar cell in output.
#
#
#
#
# Revision history:
# ----------------
# 20-Jan-97 - Task created (I.Busko)
procedure tichd (itp, ihc, otp, ocp, orow)
pointer itp # i: input table descriptor
int ihc # i: header keyword index
pointer otp # i: output table descriptor
pointer ocp # i: output column descriptor
int orow # i: row where to insert
#--
double buf
pointer sp, kwname, kwval
int datatype, parnum
string corrupt "Corrupted header in input table."
int nscan()
begin
call smark (sp)
call salloc (kwname, SZ_LINE, TY_CHAR)
call salloc (kwval, SZ_PARREC, TY_CHAR)
# Build keyword name and look for it.
call sprintf (Memc[kwname], SZ_LINE, "TCV_%03d")
call pargi (ihc)
call tbhfkr (itp, Memc[kwname], datatype, Memc[kwval], parnum)
# Parse and read value. We assume that the keyword existence
# was confirmed by previously finding the paired TCD_ keyword.
if (parnum > 0) {
call sscan (Memc[kwval])
call gargd (buf)
if (nscan() < 1) call error (1, corrupt)
} else
call error (1, corrupt)
# Write value into scalar cell.
call tbcptd (otp, ocp, buf, orow, orow)
call sfree (sp)
end
|
