Repatch (from linux) of OSX IRAF

1 files changed, 31 insertions, 0 deletions

diff --git a/pkg/tbtables/tbywnc.x b/pkg/tbtables/tbywnc.x
new file mode 100644
index 00000000..7831af2d
--- /dev/null
+++ b/pkg/tbtables/tbywnc.x
@@ -0,0 +1,31 @@
+include "tbtables.h"
+
+# tbywnc -- Y write new column
+# Write new column descriptors into a column-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 tbysiz.
+# Phil Hodge, 14-Apr-1998  Change calling sequence of tbcwcd;
+#			change LEN_COLSTRUCT to LEN_COLDEF.
+
+procedure tbywnc (tp, colptr, numcols)
+
+pointer tp			# i: pointer to table descriptor
+pointer colptr[numcols]		# i: pointers to descriptors for new columns
+int	numcols			# i: number of new columns
+#--
+pointer cp			# Pointer to a specific column
+int	k			# Loop index
+errchk	tbcwcd, tbyncn
+
+begin
+	# 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 and all allocated rows.
+	call tbyncn (tp, colptr, numcols)
+end