blob: 6c3585b1f184d2be68a475a723be0c889f0d24a4 (
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
32
|
include "tbtables.h"
define FRAC_INCR 1.2 # fractional increase in allrows
define DEFNUMROWS 100 # minimum increase in allrows
# tbywer -- write empty rows
# The purpose of this routine is to allocate more space for rows for a
# column-ordered table. If the specified row is within the range of
# existing rows, the table itself will not be modified.
#
# If rownum is greater than TB_ALLROWS then tbtchs will be called to
# rewrite the table and increase the allocated number of rows by a default
# amount.
#
# Note that TB_NROWS will not be updated.
#
# Phil Hodge, 4-Mar-1998 Subroutine created, extracted from tbtwer.
procedure tbywer (tp, rownum)
pointer tp # i: pointer to table descriptor
int rownum # i: (actual) row number in table
#--
int allrows # allocated number of rows
errchk tbtchs
begin
if (rownum > TB_ALLROWS(tp)) {
allrows = rownum * FRAC_INCR + DEFNUMROWS
call tbtchs (tp, -1, -1, -1, allrows) # change table size
}
end
|
