Repatch (from linux) of OSX IRAF

1 files changed, 60 insertions, 0 deletions

diff --git a/pkg/tbtables/tbzt2t.x b/pkg/tbtables/tbzt2t.x
new file mode 100644
index 00000000..0087fcf9
--- /dev/null
+++ b/pkg/tbtables/tbzt2t.x
@@ -0,0 +1,60 @@
+include "tbtables.h"
+
+# tbzt2t -- increase column width
+# When reading a text table into memory, if the word in a column of type
+# text is longer than the allocated space, this routine may be called to
+# increase the column width.
+#
+# Phil Hodge,  7-Jun-1994  Subroutine created.
+
+procedure tbzt2t (tp, cp, width)
+
+pointer tp		# i: pointer to table descriptor
+pointer cp		# i: pointer to column descriptor
+int	width		# i: the new max width for this column
+#--
+pointer sp
+pointer message		# scratch for possible error message
+pointer new		# pointer to new memory for column data
+int	oldwidth	# previous value of column width
+int	row		# row number
+int	ip, op		# offsets in char array
+errchk	calloc
+
+begin
+	oldwidth = -COL_DTYPE(cp)
+
+	if (width <= oldwidth)
+	    return				# it's OK as is
+
+	if (width > SZ_LINE-1) {
+	    call smark (sp)
+	    call salloc (message, SZ_LINE, TY_CHAR)
+	    call sprintf (Memc[message], SZ_LINE,
+		"string is too long for a table; the maximum is %s")
+		call pargi (SZ_LINE-1)
+	    call error (1, Memc[message])
+	}
+
+	# Allocate memory for the new, wider, array of strings.
+	# (add one to width for EOS)
+	call calloc (new, (width+1) * TB_ALLROWS(tp), TY_CHAR)
+
+	ip = 0					# initial values
+	op = 0
+
+	do row = 1, TB_NROWS(tp) {
+
+	    call strcpy (Memc[COL_OFFSET(cp)+ip], Memc[new+op], width)
+
+	    ip = ip + oldwidth + 1		# add one for EOS
+	    op = op + width + 1
+	}
+
+	# Free the old memory, and save the new pointer.
+	call mfree (COL_OFFSET(cp), TY_CHAR)
+	COL_OFFSET(cp) = new
+
+	# Specify the new data type.
+	COL_DTYPE(cp) = -width
+end