diff options
Diffstat (limited to 'sys/imio/db/imrenf.x')
| -rw-r--r-- | sys/imio/db/imrenf.x | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/sys/imio/db/imrenf.x b/sys/imio/db/imrenf.x new file mode 100644 index 00000000..3b1bf7a6 --- /dev/null +++ b/sys/imio/db/imrenf.x @@ -0,0 +1,44 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <syserr.h> +include <imhdr.h> +include "idb.h" + +# IMRENF -- Rename a user field keyword. It is an error if the +# named field does not exist. + +procedure imrenf (im, oldkey, newkey) + +pointer im # image descriptor +char oldkey[ARB] # old keyword +char newkey[ARB] # new keyword + +int off +pointer rp, sp, keyname +int idb_kwlookup(), idb_findrecord(), stridxs() +errchk syserrs + +begin + call smark (sp) + call salloc (keyname, SZ_FNAME, TY_CHAR) + + # FITS format requires that the keyword name be upper case. + call strcpy (oldkey, Memc[keyname], IDB_SZFITSKEY) + call strupr (Memc[keyname]) + + # Cannot delete standard header keywords. + if (idb_kwlookup (oldkey) > 0) + call syserrs (SYS_IDBNODEL, oldkey) + + # Verify that the named user field exists. + if (idb_findrecord (im, oldkey, rp) <= 0) + call syserrs (SYS_IDBDELNXKW, oldkey) + + # Rename the keyword. + call sprintf (Memc[keyname], IDB_SZFITSKEY, "%-8.8s") + call pargstr (newkey) + call strupr (Memc[keyname]) + call amovc (Memc[keyname], Memc[rp], 8) + + call sfree (sp) +end |