note description: "Window where output is generated." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date$" revision: "$Revision $" deferred class OUTPUT_WINDOW inherit TEXT_FORMATTER redefine process_string_text, process_difference_text_item, process_feature_error end feature -- Text processing process_basic_text (text: READABLE_STRING_GENERAL) do put_string (text) end process_string_text (text, link: READABLE_STRING_GENERAL) do put_string (text) end process_comment_text (text: READABLE_STRING_GENERAL; url: READABLE_STRING_GENERAL) -- Process comment text. do put_comment (text) end process_quoted_text (text: READABLE_STRING_GENERAL) -- Process the quoted `text' within a comment. do put_quoted_comment (text) end process_cluster_name_text (text: READABLE_STRING_GENERAL; a_group: CONF_GROUP; a_quote: BOOLEAN) -- do if a_quote then put_group (a_group, text_quoted (text)) else put_group (a_group, text) end end process_target_name_text (text: READABLE_STRING_GENERAL; a_target: CONF_TARGET) -- Process target name text `text'. do put_string (text) end process_class_name_text (text: READABLE_STRING_GENERAL; a_class: CLASS_I; a_quote: BOOLEAN) -- Process class name text `t'. local e_class: CLASS_C class_i: CLASS_I l_text : STRING_32 do if a_quote then l_text := text_quoted (text) else l_text := text.to_string_32 end class_i := a_class e_class := class_i.compiled_class if e_class /= Void then put_class (e_class, l_text) else put_classi (class_i, l_text) end end process_feature_name_text (text: READABLE_STRING_GENERAL; a_class: CLASS_C) -- Process feature name text `t'. do put_feature_name (text, a_class) end process_feature_text (text: READABLE_STRING_GENERAL; a_feature: E_FEATURE; a_quote: BOOLEAN) -- Process feature text `text'. do if a_quote then put_feature (a_feature, text_quoted (text)) else put_feature (a_feature, text) end end process_breakpoint (a_feature: E_FEATURE; a_index: INTEGER) -- Process breakpoint. do end process_breakpoint_index (a_feature: E_FEATURE; a_index: INTEGER; a_cond: BOOLEAN) -- Process breakpoint. do end process_padded -- Process padded item at start of non breakpoint line. do end process_new_line -- Process new line text `t'. do put_new_line end process_indentation (a_indent_depth: INTEGER) -- Process indentation `t'. do put_string (indentation (a_indent_depth)) end process_after_class (a_class: CLASS_C) -- Process after class text `t'. do add_space process_comment_text (ti_dashdash, Void) add_space process_comment_text ("class ", Void) add_class (a_class.lace_class) end process_before_class (a_class: CLASS_C) -- Process before class `t'. do end process_filter_item (text: READABLE_STRING_GENERAL; is_before: BOOLEAN) -- Process filter text `t'. do put_filter_item (text, is_before) end process_symbol_text (text: READABLE_STRING_GENERAL) -- Process symbol text. do put_symbol (text) end process_keyword_text (text: READABLE_STRING_GENERAL; a_feature: E_FEATURE) -- Process keyword text. do put_keyword (text) end process_operator_text (text: READABLE_STRING_GENERAL; a_feature: E_FEATURE) -- Process operator text. do put_operator (text, a_feature, is_keyword (text)) end process_address_text (a_address, a_name: READABLE_STRING_GENERAL; a_class: CLASS_C) -- Process address text. do put_address (a_address, a_name, a_class) end process_error_text (text:READABLE_STRING_GENERAL; a_error: ERROR) -- Process error text. do put_error (a_error, text) end process_cl_syntax (text: READABLE_STRING_GENERAL; a_syntax_message: ERROR; a_class: CLASS_C) -- Process class syntax text. do put_class_syntax (a_syntax_message, a_class, text) end process_ace_syntax (text: READABLE_STRING_GENERAL; a_error: SYNTAX_ERROR) -- Process Ace syntax text. do put_ace_syntax (a_error, text) end process_difference_text_item (text: READABLE_STRING_GENERAL) -- Process difference text. do put_string (text) end process_feature_error (text: READABLE_STRING_GENERAL; a_feature: E_FEATURE; a_line: INTEGER) -- Process error feature text. do put_feature_error (a_feature, text, a_line) end feature -- Output display -- Display the contents of window. do end clear_window -- Clear the contents of window. do end put_new_line -- Put a new line at current position. deferred end put_string (s: READABLE_STRING_GENERAL) -- Put string `s' at current position. require valid_s: s /= Void deferred end put_one_indent -- Put one indent to Current. do put_indent (1) end put_indent (nbr_of_tabs: INTEGER) -- Put indent of `nbr_of_tabs'. require valid_tabs: nbr_of_tabs > 0 local str: STRING do str := "%T" if nbr_of_tabs > 1 then str.multiply (nbr_of_tabs) end put_string (str) end put_group (a_group: CONF_GROUP; str: READABLE_STRING_GENERAL) -- Put `a_group' with string representation -- `str' at current position. require valid_str: str /= Void do put_string (str) end put_cluster (e_cluster: CONF_GROUP; str: READABLE_STRING_GENERAL) -- Put `e_cluster' with string representation -- `str' at current position. require valid_str: str /= Void do put_group (e_cluster, str) end put_class (e_class: CLASS_C; str: READABLE_STRING_GENERAL) -- Put `e_class' with string representation -- `str' at current position. require valid_str: str /= Void do put_string (str) end put_classi (class_i: CLASS_I; str: READABLE_STRING_GENERAL) -- Put `class_i' with string representation -- `str' at current position. require valid_str: str /= Void do put_string (str) end put_error (error: ERROR; str: READABLE_STRING_GENERAL) -- Put `error' with string representation -- `str' at current position. require valid_error: error /= Void valid_str: str /= Void do put_string (str) end put_feature (feat: E_FEATURE; str: READABLE_STRING_GENERAL) -- Put feature `feat' with string -- representation `str' at current position. require valid_str: str /= Void do put_string (str) end put_feature_name (f_name: READABLE_STRING_GENERAL; e_class: CLASS_C) -- Put feature name `f_name' defined in `e_class'. require valid_f_name: f_name /= Void do put_string (f_name) end put_exported_feature_name (f_name: READABLE_STRING_GENERAL; class_c: CLASS_C; alias_name: READABLE_STRING_GENERAL) require valid_f_name: f_name /= Void do put_string (f_name) end put_feature_error (feat: E_FEATURE; str: READABLE_STRING_GENERAL; pos: INTEGER) -- Put feature `feat' with error at charcter -- position `pos' require valid_str: str /= Void positive_pos: pos > 0 do put_feature (feat, str) end put_address (address: READABLE_STRING_GENERAL; a_name: READABLE_STRING_GENERAL; e_class: CLASS_C) -- Put `address' with `a_name' for `e_class'. require valid_address: address /= Void valid_name: a_name /= Void do put_string (address) end put_class_syntax (syn: ERROR; eclass: CLASS_C; str: READABLE_STRING_GENERAL) -- Put `syn' for `e_class' with `str' as representation. require valid_syn: syn /= Void valid_str: str /= Void do put_string (str) end put_ace_syntax (syn: SYNTAX_ERROR; str: READABLE_STRING_GENERAL) -- Put `syn' with `str' as representation. require valid_syn: syn /= Void valid_str: str /= Void do put_string (str) end put_comment (str: READABLE_STRING_GENERAL) -- Put `str' as representation of a comment. require valid_str: str /= Void do put_string (str) end put_quoted_comment (str: READABLE_STRING_GENERAL) -- Put `str' as representation of quoted text. require valid_str: str /= Void do put_string (text_quoted (str)) end; put_after_class (e_class: CLASS_C; str: READABLE_STRING_GENERAL) -- Put `str' as representation of quoted text. require valid_str: str /= Void do put_string (str) end put_before_class (e_class: CLASS_C) -- Put `str' as representation of quoted text. require valid_e_class: e_class /= Void do end put_filter_item (construct: READABLE_STRING_GENERAL; is_before: BOOLEAN) -- Put `str' as representation of quoted text. require valid_construct: construct /= Void do end put_symbol (str: READABLE_STRING_GENERAL) -- Put `str' as representation of quoted text. require valid_str: str /= Void do put_string (str) end put_keyword (str: READABLE_STRING_GENERAL) -- Put `str' as representation of quoted text. require valid_str: str /= Void do put_string (str) end put_operator (str: READABLE_STRING_GENERAL; e_feature: E_FEATURE; a_is_keyword: BOOLEAN) -- Put `str' as representation of quoted text. require valid_str: str /= Void valid_e_feature: e_feature /= Void do put_string (str) end note copyright: "Copyright (c) 1984-2018, Eiffel Software" license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)" licensing_options: "http://www.eiffel.com/licensing" copying: "[ This file is part of Eiffel Software's Eiffel Development Environment. Eiffel Software's Eiffel Development Environment is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2 of the License (available at the URL listed under "license" above). Eiffel Software's Eiffel Development Environment is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Eiffel Software's Eiffel Development Environment; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ]" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class OUTPUT_WINDOW