# 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