Repatch (from linux) of OSX IRAF

1 files changed, 76 insertions, 0 deletions

diff --git a/pkg/tbtables/tbxsft.x b/pkg/tbtables/tbxsft.x
new file mode 100644
index 00000000..5d414736
--- /dev/null
+++ b/pkg/tbtables/tbxsft.x
@@ -0,0 +1,76 @@
+include "tbtables.h"
+
+# tbxsft -- X shift rows
+# Shift one or more rows down (to leave a gap in the table) or up (to
+# delete rows).  The range of rows that is shifted is from FIRST to
+# the last row in the table.  Shift down if SHIFT > 0, or shift up if
+# SHIFT < 0.  SHIFT is the number of rows by which to shift.
+#
+# If SHIFT > 0 rows that are exposed by the shift are NOT set to indef.
+# If SHIFT < 0 rows at the end WILL be set to indef, and the number
+# of rows TB_NROWS(tp) will be reduced.
+#
+# Phil Hodge, 23-Mar-1988  Subroutine created.
+
+procedure tbxsft (tp, first, shift)
+
+pointer tp			# i: pointer to table descriptor
+int	first			# i: first row to be moved
+int	shift			# i: shift by this many rows
+#--
+int	abs_shift		# absolute value of shift
+int	row1			# first row of a range to be copied
+int	nrows			# number of rows written to table
+int	j, k			# loop indexes
+
+begin
+	nrows = TB_NROWS(tp)
+	abs_shift = abs (shift)
+
+	if (first > nrows)
+	    return
+
+	if (shift < 0) {
+
+	    # Shift up, overwriting rows starting with FIRST.
+	    k = first
+	    do j = first + abs_shift, nrows {
+		call tbrcpy (tp, tp, j, k)	# copy row j to row k
+		k = k + 1
+	    }
+	    # Set rows at end to indef.
+	    call tbxnll (tp, nrows-abs_shift+1, nrows)
+
+	    # Change the value of TB_NROWS.
+	    TB_NROWS(tp) = max (0, nrows - abs_shift)
+
+	} else {				# shift down
+
+	    row1 = nrows - shift + 1
+
+	    if (row1 >= first) {
+
+		# First copy the block of rows that are to be put beyond
+		# the current EOF; with each call in this loop we are
+		# writing the next row beyond EOF.
+		k = nrows + 1
+		do j = row1, nrows {
+		    call tbrcpy (tp, tp, j, k)
+		    k = k + 1
+		}
+
+		k = nrows
+		do j = nrows - shift, first, -1 {
+		    call tbrcpy (tp, tp, j, k)
+		    k = k - 1
+		}
+	    } else {
+		# The entire block is to be shifted beyond current EOF.
+		k = first + shift
+		do j = first, nrows {
+		    call tbrcpy (tp, tp, j, k)
+		    k = k + 1
+		}
+	    }
+	}
+end