class
	EL_PYXIS_TO_XML_CONVERTER

inherit
	EL_APPLICATION_COMMAND

	EL_MODULE_LIO; EL_MODULE_FILE; EL_MODULE_FILE_SYSTEM; EL_MODULE_PYXIS

	EL_FILE_OPEN_ROUTINES

create
	make

feature {EL_COMMAND_CLIENT} -- Initialization

	make (a_source_path, a_output_path: FILE_PATH)
		do
			source_path  := a_source_path; output_path := a_output_path
			create source_encoding.make_from_file (source_path)
			if output_path.is_empty then
				output_path := new_output_path
			end
			xml_generator := new_xml_generator
		end

feature -- Access

	description: STRING
		do
			Result := "Convert Pyxis format file to XML"
		end

	output_path: FILE_PATH

	source_path: FILE_PATH

	source_encoding: EL_MARKUP_ENCODING

feature -- Basic operations

	execute
			--
		local
			in_file, out_file: PLAIN_TEXT_FILE
		do
			if File.is_newer_than (source_path, output_path) then
				if is_lio_enabled then
					lio.put_path_field ("Converting " + source_encoding.name, source_path)
					lio.put_new_line
				end
				if output_path.exists then
					File_system.remove_file (output_path)
				else
					File_system.make_directory (output_path.parent)
				end
				create out_file.make_open_write (output_path)
				create in_file.make_open_read (source_path)

				xml_generator.convert_stream (in_file, out_file)
				out_file.close; in_file.close
				check_output_xml

			elseif is_lio_enabled then
				lio.put_path_field ("No change in %S", source_path)
				lio.put_new_line
			end
		end

feature {NONE} -- Implementation

	check_output_xml
		do
		end

	new_output_path: FILE_PATH
		do
			Result := source_path.without_extension
			if not Result.base.has ('.') then
				Result.add_extension ("xml")
			end
		end

	new_xml_generator: EL_PYXIS_XML_TEXT_GENERATOR
		do
			create Result.make
		end

feature {NONE} -- Internal attributes

	xml_generator: like new_xml_generator

end