class
	EVOLICITY_EVALUATE_DIRECTIVE

inherit
	EVOLICITY_NESTED_TEMPLATE_DIRECTIVE
		redefine
			make
		end

create
	make

feature -- Initialization

	make
			--
		do
			Precursor
			create template_name_variable_ref.make_empty
		end

feature -- Element change

	set_template_name_variable_ref (a_template_name_variable_ref: like template_name_variable_ref)
			--
		do
			template_name_variable_ref := a_template_name_variable_ref
		end

feature -- Basic operations

	execute (context: EVOLICITY_CONTEXT; output: EL_OUTPUT_MEDIUM)
			--
		local
			new_line_split: EL_SPLIT_ZSTRING_ON_CHARACTER; template_path: FILE_PATH
		do
			if attached {EVOLICITY_CONTEXT} context.referenced_item (variable_ref) as new_context then
				if attached template_file_path (context) as path then
					template_path := path

				elseif not template_name_variable_ref.is_empty
					and then attached {FILE_PATH} context.referenced_item (template_name_variable_ref) as context_template_name
				then
					template_path := context_template_name
				end
				new_context.prepare
				if not Evolicity_templates.has (template_path) and then template_path.exists then
					-- Assume template encoding is same as output encoding
					Evolicity_templates.put_file (template_path, output)
				end
				if Evolicity_templates.is_nested_output_indented then
					across ZSTRING_io_medium_scope as scope loop
						if attached scope.item as medium then
							medium.open_write
							Evolicity_templates.merge (template_path, new_context, medium)
							new_line_split := medium.text.split ('%N')
							medium.close
							across new_line_split as line loop
								if not tabs.is_empty then
									output.put_encoded_string_8 (tabs)
								end
								output.put_string (line.item)
								output.put_new_line
							end
						end
					end
				else
					Evolicity_templates.merge (template_path, new_context, output)
				end
			end
		end

feature {NONE} -- Internal attributes

	template_name_variable_ref: EVOLICITY_VARIABLE_REFERENCE

feature {NONE} -- Constants

	ZSTRING_io_medium_scope: EL_BORROWED_OBJECT_SCOPE [EL_ZSTRING_IO_MEDIUM]
		-- scope from which an instance of `EL_ZSTRING_IO_MEDIUM' can be borrowed
		local
			factory: EL_MAKEABLE_TO_SIZE_FACTORY [EL_ZSTRING_IO_MEDIUM]
		once
			-- Using `factory' avoids keeping a reference to `Current' with an anonymous agent
			create factory
			create Result.make_with_agent (agent factory.new_item (500))
		end

end