Initial commit

1 files changed, 91 insertions, 0 deletions

diff --git a/pkg/tbtables/tbtclo.x b/pkg/tbtables/tbtclo.x
new file mode 100644
index 00000000..4673bf0e
--- /dev/null
+++ b/pkg/tbtables/tbtclo.x
@@ -0,0 +1,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