Repatch (from linux) of OSX IRAF

1 files changed, 37 insertions, 0 deletions

diff --git a/sys/fmio/fmcopy.x b/sys/fmio/fmcopy.x
new file mode 100644
index 00000000..1125a820
--- /dev/null
+++ b/sys/fmio/fmcopy.x
@@ -0,0 +1,37 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<error.h>
+include	"fmset.h"
+
+# FM_COPY -- Copy a datafile, preserving all the physical attributes, but
+# eliminating waste storage and rendering file structures logically contiguous.
+
+procedure fm_copy (dfname, newname)
+
+char	dfname[ARB]		#I existing datafile
+char	newname[ARB]		#I new datafile name
+
+pointer	o_fm, n_fm
+pointer	fm_open()
+int	fm_stati()
+errchk	fm_open, fm_copyo
+
+begin
+	# Open the old and new datafiles.
+	o_fm = fm_open (dfname, READ_ONLY)
+	n_fm = fm_open (newname, NEW_FILE)
+
+	# The child inherits the attributes of the parent.
+	call fm_seti (n_fm, FM_PAGESIZE,   fm_stati(o_fm,FM_PAGESIZE))
+	call fm_seti (n_fm, FM_MAXLFILES,  fm_stati(o_fm,FM_MAXLFILES))
+
+	# Copy the datafile and clean up.
+	iferr (call fm_copyo (o_fm, n_fm)) {
+	    call fm_close (o_fm)
+	    call fm_close (n_fm)
+	    call erract (EA_ERROR)
+	} else {
+	    call fm_close (o_fm)
+	    call fm_close (n_fm)
+	}
+end