blob: 7831af2de06aca088c817402ba6a1c5d66d6a0af (
plain) (
blame)
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
|
include "tbtables.h"
# tbywnc -- Y write new column
# Write new column descriptors into a column-ordered table.
# The table must have already been reorganized (if necessary) to make
# sufficient space for column descriptors or row length.
#
# Phil Hodge, 1-May-1989 Change calling sequence; don't call tbysiz.
# Phil Hodge, 14-Apr-1998 Change calling sequence of tbcwcd;
# change LEN_COLSTRUCT to LEN_COLDEF.
procedure tbywnc (tp, colptr, numcols)
pointer tp # i: pointer to table descriptor
pointer colptr[numcols] # i: pointers to descriptors for new columns
int numcols # i: number of new columns
#--
pointer cp # Pointer to a specific column
int k # Loop index
errchk tbcwcd, tbyncn
begin
# Write descriptors of new columns to table.
do k = 1, numcols {
cp = colptr[k]
call tbcwcd (tp, cp)
}
# Assign indef values for each new column and all allocated rows.
call tbyncn (tp, colptr, numcols)
end
|
