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
53
54
55
56
57
58
59
60
61
|
include <mach.h> # for SZB_CHAR
include <tbset.h>
include "tbtables.h"
# tbzadd -- add new column for text file
# Allocate a buffer for a new column for a text file, and assign indef values.
# If the data type is not valid for text tables, the type will be changed.
#
# Phil Hodge, 14-Jan-1992 Subroutine created.
# Phil Hodge, 31-Mar-1993 Include check for short datatype.
procedure tbzadd (tp, cp)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
#--
int allrows # number of allocated rows
int row_1 # row number minus one
int lenstr # length of each string in a string column
int size # total number of char in a string column
errchk malloc, calloc
begin
allrows = TB_ALLROWS(tp)
# Make sure the data type is valid for text tables.
if (COL_DTYPE(cp) == TBL_TY_REAL)
COL_DTYPE(cp) = TBL_TY_DOUBLE
else if (COL_DTYPE(cp) == TBL_TY_SHORT)
COL_DTYPE(cp) = TBL_TY_INT
else if (COL_DTYPE(cp) == TBL_TY_BOOL)
COL_DTYPE(cp) = -8
else if (COL_DTYPE(cp) == TY_CHAR)
# Old notation: TY_CHAR instead of -N.
COL_DTYPE(cp) = -COL_LEN(cp) * SZB_CHAR
COL_OFFSET(cp) = NULL # initial null pointer
# Allocate memory for column values.
if (COL_DTYPE(cp) == TBL_TY_DOUBLE) {
call malloc (COL_OFFSET(cp), allrows, TY_DOUBLE)
do row_1 = 0, allrows-1 # zero indexed
Memd[COL_OFFSET(cp) + row_1] = INDEFD
} else if (COL_DTYPE(cp) == TBL_TY_INT) {
call malloc (COL_OFFSET(cp), allrows, TY_INT)
do row_1 = 0, allrows-1
Memi[COL_OFFSET(cp) + row_1] = INDEFI
} else if (COL_DTYPE(cp) < 0) { # string
lenstr = -COL_DTYPE(cp) + 1 # add one for EOS
size = lenstr * allrows
call calloc (COL_OFFSET(cp), size, TY_CHAR)
} else {
call error (1, "tbzadd: invalid data type")
}
end
|
