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
|
include "tbtables.h"
# tbtwer -- write empty rows
# The purpose of this routine is to write empty (INDEF) rows beyond the
# current end of file if the specified row is larger than the number of
# rows already written to the table. If the specified row is within the
# range of existing rows, the table itself will not be modified.
#
# If there is a row selector and selrow is larger than the current upper
# limit to the selected rows, then one or more new rows will be written to
# the end of the table, these new rows will be included in the list of
# selected rows, and TB_NROWS will be updated. The number of new, empty
# rows to be added after the current end of file is selrow minus the
# current number of selected rows.
#
# When putting a column of values to a table, the appropriate actual argument
# for rownum is the number of the last row to be written.
#
# This routine may only be called when writing to a table.
#
# Phil Hodge, 17-Sep-1987 Subroutine created.
# Phil Hodge, 8-Mar-1988 Change name in error mess from tbeoff to tbtwer.
# Phil Hodge, 14-Jan-1992 Add option for text table type;
# call tbtchs directly instead of through tbytsz.
# Phil Hodge, 30-Mar-1993 TB_INDEF is now TY_CHAR rather than TY_REAL.
# Phil Hodge, 21-Jun-1995 Modify for FITS tables; set TB_MODIFIED to true.
# Phil Hodge, 3-Mar-1998 Replace with a call to tbswer.
procedure tbtwer (tp, selrow)
pointer tp # i: pointer to table descriptor
int selrow # i: row number (or selected row number)
#--
int rownum # actual row number (ignored)
errchk tbswer
begin
# Write empty rows to the end of the table,
# and add new rows to the list of selected rows.
call tbswer (tp, selrow, rownum)
end
|
