From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/tbtables/tbtren.x | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 pkg/tbtables/tbtren.x (limited to 'pkg/tbtables/tbtren.x') 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 +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 -- cgit