Repatch (from linux) of OSX IRAF

1 files changed, 34 insertions, 0 deletions

diff --git a/pkg/tbtables/tbxnll.x b/pkg/tbtables/tbxnll.x
new file mode 100644
index 00000000..aaa833fb
--- /dev/null
+++ b/pkg/tbtables/tbxnll.x
@@ -0,0 +1,34 @@
+include "tbtables.h"
+
+# tbxnll -- X set rows to null
+# This procedure sets all columns in a range of rows to INDEF.
+# If the first row to be deleted is greater than the last row, or if
+# the range of rows is outside the allocated size of the table, nothing
+# is done.  It is not considered an error if the first row is less than
+# one or the last row is greater than the number of allocated rows in
+# the table.
+#
+# Phil Hodge,  7-Mar-1988  Subroutine created.
+# Phil Hodge, 30-Mar-1993  TB_INDEF is now TY_CHAR rather than TY_REAL.
+
+procedure tbxnll (tp, firstrow, lastrow)
+
+pointer tp			# i: pointer to table descriptor
+int	firstrow		# i: first row to be set to INDEF
+int	lastrow			# i: last row to be set to INDEF
+#--
+int	row1, row2		# firstrow, lastrow truncated to 1, nrows
+int	row			# loop index for row number
+long	tbxoff()		# function returning offset to beginning of row
+errchk	seek, write
+
+begin
+	row1 = max (1, firstrow)
+	row2 = min (TB_NROWS(tp), lastrow)
+
+	# Write the indef record at each row to be set to INDEF.
+	do row = row1, row2 {
+	    call seek (TB_FILE(tp), tbxoff (tp, row))
+	    call write (TB_FILE(tp), Memc[TB_INDEF(tp)], TB_ROWLEN(tp))
+	}
+end