Repatch (from linux) of OSX IRAF

1 files changed, 38 insertions, 0 deletions

diff --git a/sys/fio/rename.x b/sys/fio/rename.x
new file mode 100644
index 00000000..c52c28bf
--- /dev/null
+++ b/sys/fio/rename.x
@@ -0,0 +1,38 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+include	<fio.h>
+
+# RENAME -- Rename a file.  First try to rename the file using the ZFRNAM
+# kernel primitive, accessed by FRENAME.  If that fails try to copy the
+# file and delete the original.
+
+procedure rename (oldname, newname)
+
+char	oldname[ARB]			# old filename
+char	newname[ARB]			# new filename
+
+int	junk, protect()
+errchk	fcopy, protect
+
+begin
+	# Try a simple file rename first.
+	ifnoerr (call frename (oldname, newname))
+	    return
+
+	# That failed, so copy the file to the new name.
+	call fcopy (oldname, newname)
+
+	# Now delete the original.  Transfer file protection to the new file,
+	# if the old file was protected.
+
+	if (protect (oldname, QUERY_PROTECTION) == YES) {
+	    iferr (junk = protect (oldname, REMOVE_PROTECTION)) {
+		call delete (newname)
+		call erract (EA_ERROR)
+	    }
+	    call delete (oldname)
+	    junk = protect (newname, SET_PROTECTION)
+	} else
+	    call delete (oldname)
+end