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
|
#
# TXTCPT -- Copy data to output table. If array, copy into column.
# If scalar, either write as column or write into header.
#
#
#
#
# Revision history:
# ----------------
#
# 22-Nov-1996 - Task created (I.Busko)
# 7-Feb-2000 - For datatype = 'c', make buf an array of strings (P.Hodge)
procedure txtcptr (otp, ocp, buf, start, nbuf, icol, compact)
pointer otp # i: table descriptor
pointer ocp # i: column descriptor
real buf[ARB]
int start # i: starting row in output table
int nbuf # i: number of elements to write into output
int icol # i: column number in input table
bool compact # i: write scalars as header keywords ?
#--
begin
if (ocp != NULL) {
call tbcptr (otp, ocp, buf, start, nbuf)
} else if (compact) {
call txthvr (otp, icol, buf[1])
}
end
|
