Initial commit

1 files changed, 66 insertions, 0 deletions

diff --git a/pkg/tbtables/tbtcre.x b/pkg/tbtables/tbtcre.x
new file mode 100644
index 00000000..3935b9b0
--- /dev/null
+++ b/pkg/tbtables/tbtcre.x
@@ -0,0 +1,66 @@
+include <tbset.h>
+include "tbtables.h"
+include "tblerr.h"
+
+# tbtcre -- Create a new table
+# This routine is called after calling tbtopn for a new table.
+# For binary tables, this routine appends the default extension.
+#
+# Phil Hodge, 14-Aug-1987  Error if table is already open.
+# Phil Hodge, 13-Jan-1992  Add option for text table type.
+# Phil Hodge,  5-Mar-1993  Deallocate comment buffer if not a text table.
+# 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,  3-Apr-1995  Set TB_MODIFIED to true.
+# Phil Hodge,  7-Jun-1999  Replace TB_F_TYPE by TB_TYPE.
+# Phil Hodge, 15-Jun-1999  Reset subtype for stsdas format tables.
+
+procedure tbtcre (tp)
+
+pointer tp			# Pointer to table descriptor
+#--
+errchk	tbtext, tbvnew, tbwnew, tbfnew, tbxnew, tbynew, tbznew
+
+begin
+	if (TB_IS_OPEN(tp))
+	    call error (1, "tbtcre:  table is already open")
+
+	if (TB_TYPE(tp) == TBL_TYPE_TEXT) {		# text file
+	    call tbznew (tp)
+
+	} else if (TB_TYPE(tp) == TBL_TYPE_FITS) {	# FITS table
+	    call tbfnew (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)
+
+	    # Will the table be stored in a CDF file?  If it's a CDF file,
+	    # we'll also do the initialization for a row-ordered table.
+	    if (TB_TYPE(tp) == TBL_TYPE_CDF)		# common data format
+		;  # call tbvnew (tp)
+
+	    else if (TB_TYPE(tp) == TBL_TYPE_MI)	# machine independent
+		;  # call tbwnew (tp)
+	    else if (TB_TYPE(tp) == TBL_TYPE_S_ROW)	# SDAS row-ordered
+		call tbxnew (tp)
+	    else if (TB_TYPE(tp) == TBL_TYPE_S_COL)	# SDAS column-ordered
+		call tbynew (tp)
+	    else
+		call error (ER_TBCORRUPTED, "tbtcre:  table type is messed up")
+
+	    # We don't need this if it's not a text table.
+	    if (TB_COMMENT(tp) != NULL) {
+		call mfree (TB_COMMENT(tp), TY_CHAR)
+		TB_SZ_COMMENT(tp) = 0
+	    }
+
+	    # Subtype is not relevant.
+	    TB_SUBTYPE(tp) = TBL_SUBTYPE_UNKNOWN
+	}
+
+	TB_IS_OPEN(tp) = true
+	TB_MODIFIED(tp) = true
+end