1 files changed, 49 insertions, 0 deletions
diff --git a/sys/imio/iki/stf/stfrename.x b/sys/imio/iki/stf/stfrename.x
new file mode 100644
index 00000000..0d3c43fd
--- /dev/null
+++ b/sys/imio/iki/stf/stfrename.x
@@ -0,0 +1,49 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+include	"stf.h"
+
+# STF_RENAME -- Rename an image.  A special operator is required since the image
+# is stored as two files.
+#
+# [NOTE] - Name changed to `rname' rather than `rename' to avoid a name
+# collision with the SYMTAB procedure `stfree' (first such collision!).
+
+procedure stf_rname (kernel, oroot, oextn, nroot, nextn, status)
+
+int	kernel			#I IKI kernel
+char	oroot[ARB]		# old image root name
+char	oextn[ARB]		# old image extn
+char	nroot[ARB]		# new image root name
+char	nextn[ARB]		# old image extn
+int	status
+
+pointer	sp
+pointer	ohdr_fname, opix_fname, nhdr_fname, npix_fname
+bool	streq()
+
+begin
+	call smark (sp)
+	call salloc (ohdr_fname, SZ_PATHNAME, TY_CHAR)
+	call salloc (opix_fname, SZ_PATHNAME, TY_CHAR)
+	call salloc (nhdr_fname, SZ_PATHNAME, TY_CHAR)
+	call salloc (npix_fname, SZ_PATHNAME, TY_CHAR)
+
+	# Generate filenames.
+	call iki_mkfname (oroot, oextn, Memc[ohdr_fname], SZ_PATHNAME)
+	call iki_mkfname (nroot, nextn, Memc[nhdr_fname], SZ_PATHNAME)
+
+	if (!streq (Memc[ohdr_fname], Memc[nhdr_fname])) {
+	    call stf_mkpixfname (oroot, oextn, Memc[opix_fname], SZ_PATHNAME)
+	    call stf_mkpixfname (nroot, nextn, Memc[npix_fname], SZ_PATHNAME)
+
+	    # If the header cannot be renamed, don't leave the pixfile alone.
+	    iferr (call rename (Memc[ohdr_fname], Memc[nhdr_fname]))
+		call erract (EA_WARN)
+	    else iferr (call rename (Memc[opix_fname], Memc[npix_fname]))
+		call erract (EA_WARN)
+	}
+
+	call sfree (sp)
+	status = OK
+end