From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 pkg/tbtables/tbyncn.x | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 pkg/tbtables/tbyncn.x

(limited to 'pkg/tbtables/tbyncn.x')

diff --git a/pkg/tbtables/tbyncn.x b/pkg/tbtables/tbyncn.x
new file mode 100644
index 00000000..485d637d
--- /dev/null
+++ b/pkg/tbtables/tbyncn.x
@@ -0,0 +1,24 @@
+include "tbtables.h"
+
+# tbyncn -- Y new column null
+# Write INDEF values for each new column in each row of a table.
+# This is called after defining new columns in an open table.
+
+procedure tbyncn (tp, colptr, numcols)
+
+pointer tp			# Pointer to table descriptor
+pointer colptr[numcols]		# Array of pointers to descr of new columns
+int	numcols			# The number of new columns
+
+int	fd			# identifies the file for the table data
+int	firstrow		# the first row to be set to indef
+int	lastrow			# the last row to be set to indef
+errchk	tbyscn
+
+begin
+	firstrow = 1
+	lastrow = TB_ALLROWS(tp)
+	fd = TB_FILE(tp)
+	# set columns to null
+	call tbyscn (tp, fd, colptr, numcols, firstrow, lastrow)
+end
-- 
cgit