Initial commit

1 files changed, 28 insertions, 0 deletions

diff --git a/pkg/tbtables/tbtren.x b/pkg/tbtables/tbtren.x
new file mode 100644
index 00000000..808a3cbc
--- /dev/null
+++ b/pkg/tbtables/tbtren.x
@@ -0,0 +1,28 @@
+include <tbset.h>
+include "tbtables.h"
+
+# tbtren -- rename a table
+# This procedure renames a table from inname to outname.  The default
+# extension will be appended if an extension is not present and the input
+# file is a binary table.  If intable is a text file, no extension will be
+# appended to outtable.
+#
+# Phil Hodge, 28-Dec-1989  Open before renaming to verify that it is a table.
+# Phil Hodge, 14-May-1992  Check for text table; call tbtext only if binary.
+# Phil Hodge, 26-Jun-1995  Modify for FITS file or CDF file.
+
+procedure tbtren (intable, outtable)
+
+char	intable[ARB]	# i: name of table to be renamed to outtable
+char	outtable[ARB]	# i: new name of table
+#--
+errchk	tbtcpy, tbtdel
+
+begin
+	# For the time being, use tbtcpy and tbtdel.  After the CDF
+	# interface is available, copy code from tbtcpy and tbtdel
+	# to here so we don't open the input table twice.
+
+	call tbtcpy (intable, outtable)
+	call tbtdel (intable)
+end