indexing
	cluster: "demangler"
	namespace: "candidate"
	description: "The purpose of an instance of this class is to descend%
	% detect duplicated directory trees."
	original_author: "Justin Finnerty"
	original_date: "July 2005"
	current_date: "$Date: 2005/09/28 13:41:28 $"
	current_author: "$Author: finnerty $"
	revision: "$Revision: 1.1 $"	
	-- $Log: rp_backup_command.e,v $
	-- Revision 1.1  2005/09/28 13:41:28  finnerty
	-- Updated to work with ISE
	--
	-- Revision 1.1  2005/09/06 22:59:42  finnerty
	-- Part upgrade to compile with GOBO library/tools and with SE/VE.
	--
class RP_BACKUP_COMMAND
inherit
	DP_COMMAND
creation {ANY}
	make
feature {ANY}
	execute is
		do
			report.new_backup_transform (parent, fso)
		end
feature {NONE}
	make (a_rep: SYNC_REPORT; a_parent, a_child: FILE_SYSTEM_OBJECT) is
		require
			a_rep /= Void
			a_parent /= Void
			a_child /= Void
		do
			report := a_rep
			parent := a_parent
			fso := a_child
		end
	report: SYNC_REPORT
			-- Transform factory
	parent: FILE_SYSTEM_OBJECT
			-- Arg for transform factory
	fso: FILE_SYSTEM_OBJECT
			-- Arg for transform factory
invariant
	report /= Void
	parent /= Void
	fso /= Void
end -- class RP_BACKUP_COMMAND
