1 files changed, 103 insertions, 0 deletions
diff --git a/pkg/tbtables/tbuopn.x b/pkg/tbtables/tbuopn.x
new file mode 100644
index 00000000..4fb36ad6
--- /dev/null
+++ b/pkg/tbtables/tbuopn.x
@@ -0,0 +1,103 @@
+include <error.h>
+include <tbset.h>
+include "tbtables.h"
+include "tblerr.h"
+
+# tbuopn -- open existing table
+# This routine opens an existing table file.
+# For binary tables the default extension is appended.
+# For each column, create a descriptor and read column info from
+# the table.  Also create the indef record buffer.  For text tables
+# the contents are read into memory.
+# This version is for either row or column ordered SDAS tables
+# or for text files.
+# (Renamed from tbwopn.)
+#
+# Phil Hodge, 26-Feb-1988  Close table file if error in tbtrsi
+# Phil Hodge,  7-Mar-1989  Eliminate TB_MODSIZE.
+# Phil Hodge, 16-Nov-1990  Use local variable instead of TB_FILE(tp) when
+#	opening table file so TB_FILE(tp) will still be NULL in case of error.
+# Phil Hodge, 14-Jan-1992  Add option for text table type.
+# Phil Hodge, 16-Nov-1992  Close TB_FILE in tbtopn instead of here if error.
+# Phil Hodge, 30-Mar-1993  TB_INDEF is now TY_CHAR rather than TY_REAL.
+# Phil Hodge, 20-Sep-1994  Don't allocate an INDEF buffer if readonly.
+# Phil Hodge, 15-Dec-1994  Table name is now SZ_LINE instead of SZ_FNAME.
+# Phil Hodge, 23-Dec-1994  Add option for CDF or FITS file.
+# Phil Hodge, 14-Apr-1998  Change calling sequence of tbcrcd.
+# Phil Hodge,  7-Jun-1999  Replace TB_F_TYPE by TB_TYPE;
+#	when allocating TB_COLPTR, the type is TY_POINTER, not TY_INT.
+# Phil Hodge,  3-Aug-1999  For FITS table, get all column info in one call.
+
+procedure tbuopn (tp)
+
+pointer tp		# i: pointer to table descriptor
+#--
+pointer colptr		# pointer to column descriptor
+int	colnum		# column number (a loop index)
+int	fd		# fd for table file
+int	open()
+errchk	open, calloc, malloc, tbtext, tbtrsi, tbcrcd, tbfopn, tbfrcd, tbzopn
+
+begin
+	# Open the file.
+	if (TB_TYPE(tp) == TBL_TYPE_TEXT) {
+	    fd = open (TB_NAME(tp), TB_IOMODE(tp), TEXT_FILE)
+	    TB_FILE(tp) = fd
+
+	} else if (TB_TYPE(tp) == TBL_TYPE_FITS) {
+	    # Table in a FITS file.
+	    call tbfopn (tp)
+
+	} else if (TB_TYPE(tp) == TBL_TYPE_CDF) {
+	    # Table in a CDF file.
+	    ;   # call tbvopn (tp)
+
+	} else {
+	    # For a binary table we need to check that there's an
+	    # extension, and if not, append the default extension.
+	    call tbtext (TB_NAME(tp), TB_NAME(tp), SZ_LINE)
+	    fd = open (TB_NAME(tp), TB_IOMODE(tp), BINARY_FILE)
+	    TB_FILE(tp) = fd
+	}
+
+	TB_IS_OPEN(tp) = true
+
+	# Read size information from table.
+	call tbtrsi (tp)
+
+	# Allocate space for the array of pointers to column descriptors.
+	call malloc (TB_COLPTR(tp), TB_MAXCOLS(tp), TY_POINTER)
+
+	# Create column descriptors.
+	# (For a text table, TB_NCOLS will still be zero.)
+	do colnum = 1, TB_NCOLS(tp) {
+	    call malloc (colptr, LEN_COLSTRUCT, TY_STRUCT)
+	    TB_COLINFO(tp,colnum) = colptr
+	}
+
+	# Read column descriptors from the table.
+	if (TB_TYPE(tp) == TBL_TYPE_FITS) {
+	    call tbfrcd (tp, TB_COLINFO(tp,1), TB_NCOLS(tp))
+	} else {
+	    do colnum = 1, TB_NCOLS(tp) {
+		colptr = TB_COLINFO(tp,colnum)
+		call tbcrcd (tp, colptr, colnum)
+	    }
+	}
+
+	if (TB_TYPE(tp) == TBL_TYPE_S_ROW && !TB_READONLY(tp)) {
+
+	    # Allocate space for indef record.
+	    call calloc (TB_INDEF(tp), TB_ROWLEN(tp), TY_CHAR)
+	    # Assign the appropriate indef value in the indef record buffer.
+	    do colnum = 1, TB_NCOLS(tp) {
+		colptr = TB_COLINFO(tp,colnum)
+		call tbbnll (tp, colptr)
+	    }
+
+	} else if (TB_TYPE(tp) == TBL_TYPE_TEXT) {
+
+	    # Read the contents of the file into memory.
+	    call tbzopn (tp)
+	}
+end