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
|
# TXTCPYSC -- Copy scalar columns in compact mode
#
#
#
#
#
# Revision history:
# ----------------
#
# 03-Jan-97 - Implemented after code review (IB)
procedure txtcpysc (otp, colptr, newcol, numptr, colname, colunits, colfmt)
pointer otp, colptr, newcol, colname, colunits, colfmt
int numptr
pointer icp
int iptr, colnum, datatype, lendata, lenfmt
pointer tcs_column
begin
do iptr = 1, numptr {
if (Memi[newcol+iptr-1] == NULL) {
icp = tcs_column (Memi[colptr+iptr-1])
call tbcinf (icp, colnum, Memc[colname], Memc[colunits],
Memc[colfmt], datatype, lendata, lenfmt)
call txthc (otp, colnum, Memc[colname], Memc[colunits],
Memc[colfmt], datatype, lenfmt)
}
}
end
|
