include	"gf.h"

# GF_NEWCOPY -- Overwrite the primary header keywords in the user area

procedure gf_newcopy (im, prim)

pointer	im		# i: image descriptor
int	prim		# i: spool file with primary header keywords
#--
pointer	db, old_prim, ext

pointer	gf_find_db()

begin
	db = gf_find_db (im, PARAM_DB)

	if (db == NULL || prim == NULL)
	    return

	call gf_split_ua (im, db, old_prim, ext)

	if (old_prim != NULL)
	    call close (old_prim)

	call gf_upuser (im, prim, WRITE_ONLY)
	call gf_upuser (im, ext, APPEND)

	if (ext != NULL)
	    call close (ext)

end