note description : "Objects that ..." author : "$Author$" date : "$Date$" revision : "$Revision$" class TEMPLATE_STRUCTURE_ACTION_NL2BR inherit TEMPLATE_STRUCTURE_ACTION redefine process end create {TEMPLATE_STRUCTURE_ACTION_FACTORY} make feature -- Output process do Precursor process_nl2br end feature {NONE} -- Implementation process_nl2br local item_output: like foreach_iteration_string do item_output := foreach_iteration_string (inside_text, False) item_output.replace_substring_all ("%R%N", "
%N") item_output.replace_substring_all ("%N", "
%N") if parameters.has (tab_param_id) then if attached parameters.item (tab_param_id) as vn and then vn.is_case_insensitive_equal (yes_value_id) then item_output.replace_substring_all ("%T", "    ") end end set_forced_output (item_output) end note copyright: "2011-2013, Jocelyn Fiat, and Eiffel Software" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Jocelyn Fiat Contact: http://about.jocelynfiat.net/ ]" end