Repatch (from linux) of OSX IRAF

1 files changed, 37 insertions, 0 deletions

diff --git a/pkg/tbtables/tbxwnc.x b/pkg/tbtables/tbxwnc.x
new file mode 100644
index 00000000..40997389
--- /dev/null
+++ b/pkg/tbtables/tbxwnc.x
@@ -0,0 +1,37 @@
+include "tbtables.h"
+
+# tbxwnc -- X write new columns
+# Write new column descriptors into a row-ordered table.
+# The table must have already been reorganized (if necessary) to make
+# sufficient space for column descriptors or row length.
+#
+# Phil Hodge,  1-May-1989  Change calling sequence; don't call tbxsiz.
+# Phil Hodge, 30-Mar-1993  TB_INDEF is now TY_CHAR rather than TY_REAL.
+# Phil Hodge, 14-Apr-1998  Change calling sequence of tbcwcd.
+
+procedure tbxwnc (tp, colptr, numcols, old_colused)
+
+pointer tp			# i: pointer to table descriptor
+pointer colptr[numcols]		# i: pointers to descriptors for new columns
+int	numcols			# i: number of new columns
+int	old_colused		# i: previous value of TB_COLUSED
+#--
+pointer cp			# Pointer to a specific column
+int	k			# Loop index
+errchk	tbxncn, tbcwcd
+
+begin
+	# Assign appropriate indef values in indef record.
+	do k = 1, numcols
+	    call tbbnll (tp, colptr[k])
+
+	# Write descriptors of new columns to table.
+	do k = 1, numcols {
+	    cp = colptr[k]
+	    call tbcwcd (tp, cp)
+	}
+
+	# Assign indef values for each new column in each existing row.
+	if (TB_NROWS(tp) > 0)
+	    call tbxncn (tp, old_colused, Memc[TB_INDEF(tp)])
+end