Repatch (from linux) of OSX IRAF

1 files changed, 27 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/tjoin/tjoin.h b/pkg/utilities/nttools/tjoin/tjoin.h
new file mode 100644
index 00000000..2e7155b0
--- /dev/null
+++ b/pkg/utilities/nttools/tjoin/tjoin.h
@@ -0,0 +1,27 @@
+# TJOIN.H -- Constants and data structures used by tjoin
+
+define	ROWNAME		"row"		# string that indicates row number
+					# as join column
+
+# Structure used to hold information about tables
+
+define	LEN_TJSTRUCT	7
+
+define	TJ_TAB		Memi[$1]	# Table descriptor
+define	TJ_JNUM		Memi[$1+1]	# Number of join columns
+define	TJ_DNUM		Memi[$1+2]	# Number of data columns
+define	TJ_JPTR		Memi[$1+3]	# Pointer to array of join columns
+define	TJ_DPTR		Memi[$1+4]	# Pointer to array of data colomns
+
+define	TJ_JCOL		Memi[TJ_JPTR($1)+$2-1]
+define	TJ_DCOL		Memi[TJ_DPTR($1)+$2-1]
+
+# Structure used to hold tolerance vector
+
+define	LEN_TOLSTRUCT	2
+
+define	TOL_NUM		Memi[$1]	# Number of tolerance values
+define	TOL_PTR		Memi[$1+1]	# Pointer to array of tolerance values
+
+define	TOL_VAL		Memd[TOL_PTR($1)+$2-1]
+