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/06 22:59:42 $"
	current_author: "$Author: finnerty $"
	revision: "$Revision: 1.1 $"	
	-- $Log: sd_build_namelist.e,v $
	-- Revision 1.1  2005/09/06 22:59:42  finnerty
	-- Part upgrade to compile with GOBO library/tools and with SE/VE.
	--
class SD_BUILD_NAMELIST
inherit
	AGENT_ARG[FILE_SYSTEM_OBJECT, BOOLEAN]
creation {ANY}
	make
feature {ANY}
	is_executable: BOOLEAN is
		do
			Result := True
		end
	is_callable: BOOLEAN is
		do
			Result := True
		end
	execute (an_fso: FILE_SYSTEM_OBJECT): BOOLEAN is
		do
			call (an_fso)
			Result := True
		end
	call (an_fso: FILE_SYSTEM_OBJECT) is
		do
			sync_dir.build_namelist (an_fso)
		end
feature {NONE}
	make (a_sync_dir: SYNCHRONISED_DIRECTORY) is
		require
			a_sync_dir /= Void
		do
			sync_dir := a_sync_dir
		end
	sync_dir: SYNCHRONISED_DIRECTORY
			-- Synchronised directory
invariant
	sync_dir /= Void
end -- class SD_BUILD_NAMELIST
