Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/qpoe/qpcopy.x b/sys/qpoe/qpcopy.x
new file mode 100644
index 00000000..6d0a597d
--- /dev/null
+++ b/sys/qpoe/qpcopy.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"qpoe.h"
+
+# QP_COPY -- Copy a poefile.  The output version is "rebuilt" in the process,
+# i.e., the datafile is not merely physically copied, but instead is rebuilt to
+# reclaim unused storage and render the file structures logically contiguous.
+
+procedure qp_copy (o_poefile, n_poefile)
+
+char	o_poefile[ARB]		#I old poefile name
+char	n_poefile[ARB]		#I new poefile name
+
+pointer	sp
+pointer	o_fname, n_fname
+string	extn QPOE_EXTN
+
+begin
+	call smark (sp)
+	call salloc (o_fname, SZ_PATHNAME, TY_CHAR)
+	call salloc (n_fname, SZ_PATHNAME, TY_CHAR)
+
+	call qp_mkfname (o_poefile, extn, Memc[o_fname], SZ_PATHNAME)
+	call qp_mkfname (n_poefile, extn, Memc[n_fname], SZ_PATHNAME)
+	call fm_copy (Memc[o_fname], Memc[n_fname])
+
+	call sfree (sp)
+end