Repatch (from linux) of OSX IRAF

1 files changed, 35 insertions, 0 deletions

diff --git a/pkg/tbtables/tbcdes.x b/pkg/tbtables/tbcdes.x
new file mode 100644
index 00000000..aa6ffc88
--- /dev/null
+++ b/pkg/tbtables/tbcdes.x
@@ -0,0 +1,35 @@
+include <tbset.h>
+include "tbtables.h"
+
+# tbcdes -- get the column selector descriptor
+# This function returns the column selector descriptor corresponding to
+# the input column pointer.  NULL will be returned if the column pointer
+# does not match any selected column, or if there is no column selector.
+#
+# Phil Hodge,  3-Oct-1997  Function created.
+
+pointer procedure tbcdes (tp, cp)
+
+pointer tp		# i: pointer to table descriptor
+pointer cp		# i: pointer to column descriptor
+#--
+pointer descrip		# column selector descriptor
+int	colnum		# loop index for selected column number
+pointer tcs_column()	# column pointer as function of descriptor
+
+begin
+	descrip = NULL
+
+	if (TB_COLUMN_SELECT(tp) == YES) {	# column selector was used
+
+	    do colnum = 1, TB_NSEL_COLS(tp) {	# all selected columns
+		descrip = TB_SELCOL(tp,colnum)
+		if (cp == tcs_column (descrip))
+		    break			# found it
+		else
+		    descrip = NULL
+	    }
+	}
+
+	return (descrip)
+end