Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/pkg/tbtables/selector/tcsaddcol.x b/pkg/tbtables/selector/tcsaddcol.x
new file mode 100644
index 00000000..c17f2cb9
--- /dev/null
+++ b/pkg/tbtables/selector/tcsaddcol.x
@@ -0,0 +1,26 @@
+# TCS_ADDCOL -- Add a single column to the list of descriptors
+
+procedure tcs_addcol (tp, cp, descrip, ndescrip, maxdescrip)
+
+pointer	tp		# i: table descriptor
+pointer	cp		# i: column descriptor
+pointer	descrip[ARB]	# u: list of column array selectors
+int	ndescrip	# u: number of column array selectors
+int	maxdescrip	# i: length of descrip array
+#--
+string	toomany  "Overflow in descriptor array"
+
+begin
+	# Check for descriptor array overflow
+
+	if (ndescrip >= maxdescrip)
+	    call error (1, toomany)
+
+	# Convert the column pointer to a table column descriptor
+	# Function tcs_fillstruct can be found in tcs_open
+
+	ndescrip = ndescrip + 1
+	call tcs_fillstruct (tp, cp, "", descrip[ndescrip])
+
+end
+