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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
include <tbset.h>
include "tbtables.h"
include "tblerr.h"
# tbtclo -- close a table
# The files themselves are closed, and memory that was allocated for
# descriptors is released.
#
# Phil Hodge, 8-Oct-1987 TB_COLPTR is of type TY_POINTER.
# Phil Hodge, 16-Nov-1990 Eliminate calls to tbxclo, tbyclo.
# Phil Hodge, 13-Jan-1992 Add option for text table type.
# Phil Hodge, 30-Mar-1993 TB_INDEF is now TY_CHAR rather than TY_REAL.
# Phil Hodge, 23-Dec-1994 Deallocate space for table and file or HDU names.
# Phil Hodge, 3-Apr-1995 Check TB_MODIFIED before calling tbtwsi.
# Phil Hodge, 2-Mar-1998 Deallocate memory for row & column selectors.
# Phil Hodge, 22-Mar-1999 Deallocate memory for host OS file name.
# Phil Hodge, 7-Jun-1999 Replace TB_F_TYPE by TB_TYPE;
# move deallocation of comment buffer to tbzclo.
procedure tbtclo (tp)
pointer tp # i: pointer to descriptor of table to be closed
#--
int colnum # Column number
errchk tbfclo, tbvclo, tbzclo
begin
if (tp == NULL)
return
# Text file; write values back to file if not read-only, and
# deallocate buffers for column data.
if (TB_TYPE(tp) == TBL_TYPE_TEXT)
call tbzclo (tp)
# If the table has been changed, rewrite the current size information.
if (TB_MODIFIED(tp) && TB_FILE(tp) != NULL)
call tbtwsi (tp)
# Check for FITS file.
if (TB_TYPE(tp) == TBL_TYPE_FITS)
call tbfclo (tp)
# Close the file itself.
if (TB_FILE(tp) != NULL)
call close (TB_FILE(tp))
# Check for CDF file.
# ***
if (TB_TYPE(tp) == TBL_TYPE_CDF)
; # call qp_close (TB_CD(tp))
# Free memory used for row and column selectors.
if (TB_ROW_SELECT(tp) == YES) {
if (TB_ROWSET(tp) != NULL)
call rst_free (TB_ROWSET(tp))
}
if (TB_COLUMN_SELECT(tp) == YES) {
if (TB_SELCOL_PTR(tp) != NULL) {
call tcs_close (Memi[TB_SELCOL_PTR(tp)], TB_NSEL_COLS(tp))
call mfree (TB_SELCOL_PTR(tp), TY_POINTER)
}
}
# Free memory used for column descriptors.
do colnum = 1, TB_NCOLS(tp) {
if (TB_COLINFO(tp,colnum) != NULL)
call mfree (TB_COLINFO(tp,colnum), TY_STRUCT)
}
# Free memory for the array of pointers to column descriptors.
if (TB_COLPTR(tp) != NULL)
call mfree (TB_COLPTR(tp), TY_POINTER)
# Free memory for buffer for the indef record (null value for each col)
if (TB_INDEF(tp) != NULL)
call mfree (TB_INDEF(tp), TY_CHAR)
# Deallocate space for the CDF file or FITS HDU name.
if (TB_EXTNAME_PTR(tp) != NULL)
call mfree (TB_EXTNAME_PTR(tp), TY_CHAR)
# Deallocate space for the table name.
if (TB_NAME_PTR(tp) != NULL)
call mfree (TB_NAME_PTR(tp), TY_CHAR)
if (TB_OS_FILENAME_PTR(tp) != NULL)
call mfree (TB_OS_FILENAME_PTR(tp), TY_CHAR)
# Free memory for the table descriptor.
call mfree (tp, TY_STRUCT)
end
|
