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
|
include "tbtables.h"
# tbzt2t -- increase column width
# When reading a text table into memory, if the word in a column of type
# text is longer than the allocated space, this routine may be called to
# increase the column width.
#
# Phil Hodge, 7-Jun-1994 Subroutine created.
procedure tbzt2t (tp, cp, width)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
int width # i: the new max width for this column
#--
pointer sp
pointer message # scratch for possible error message
pointer new # pointer to new memory for column data
int oldwidth # previous value of column width
int row # row number
int ip, op # offsets in char array
errchk calloc
begin
oldwidth = -COL_DTYPE(cp)
if (width <= oldwidth)
return # it's OK as is
if (width > SZ_LINE-1) {
call smark (sp)
call salloc (message, SZ_LINE, TY_CHAR)
call sprintf (Memc[message], SZ_LINE,
"string is too long for a table; the maximum is %s")
call pargi (SZ_LINE-1)
call error (1, Memc[message])
}
# Allocate memory for the new, wider, array of strings.
# (add one to width for EOS)
call calloc (new, (width+1) * TB_ALLROWS(tp), TY_CHAR)
ip = 0 # initial values
op = 0
do row = 1, TB_NROWS(tp) {
call strcpy (Memc[COL_OFFSET(cp)+ip], Memc[new+op], width)
ip = ip + oldwidth + 1 # add one for EOS
op = op + width + 1
}
# Free the old memory, and save the new pointer.
call mfree (COL_OFFSET(cp), TY_CHAR)
COL_OFFSET(cp) = new
# Specify the new data type.
COL_DTYPE(cp) = -width
end
|
