Initial commit

1 files changed, 41 insertions, 0 deletions

diff --git a/pkg/tbtables/tbtwer.x b/pkg/tbtables/tbtwer.x
new file mode 100644
index 00000000..c2f41002
--- /dev/null
+++ b/pkg/tbtables/tbtwer.x
@@ -0,0 +1,41 @@
+include "tbtables.h"
+
+# tbtwer -- write empty rows
+# The purpose of this routine is to write empty (INDEF) rows beyond the
+# current end of file if the specified row is larger than the number of
+# rows already written to the table.  If the specified row is within the
+# range of existing rows, the table itself will not be modified.
+#
+# If there is a row selector and selrow is larger than the current upper
+# limit to the selected rows, then one or more new rows will be written to
+# the end of the table, these new rows will be included in the list of
+# selected rows, and TB_NROWS will be updated.  The number of new, empty
+# rows to be added after the current end of file is selrow minus the
+# current number of selected rows.
+#
+# When putting a column of values to a table, the appropriate actual argument
+# for rownum is the number of the last row to be written.
+#
+# This routine may only be called when writing to a table.
+#
+# Phil Hodge, 17-Sep-1987  Subroutine created.
+# Phil Hodge,  8-Mar-1988  Change name in error mess from tbeoff to tbtwer.
+# Phil Hodge, 14-Jan-1992  Add option for text table type;
+#			call tbtchs directly instead of through tbytsz.
+# Phil Hodge, 30-Mar-1993  TB_INDEF is now TY_CHAR rather than TY_REAL.
+# Phil Hodge, 21-Jun-1995  Modify for FITS tables; set TB_MODIFIED to true.
+# Phil Hodge,  3-Mar-1998  Replace with a call to tbswer.
+
+procedure tbtwer (tp, selrow)
+
+pointer tp		# i: pointer to table descriptor
+int	selrow		# i: row number (or selected row number)
+#--
+int	rownum		# actual row number (ignored)
+errchk	tbswer
+
+begin
+	# Write empty rows to the end of the table,
+	# and add new rows to the list of selected rows.
+	call tbswer (tp, selrow, rownum)
+end