Automatic generation produced by ISE Eiffel
indexing description: "Formatter for non-integral numbers" status: "See notice at end of class" names: format_double date: "$Date: 2001-11-16 20:32:23 +0000 (Fri, 16 Nov 2001) $" revision: "$Revision: 51435 $" class interface FORMAT_DOUBLE create make feature -- Initialization make (w, d: INTEGER) require reasonable_field: w >= 1 reasonable_decimals: d <= w ensure blank_fill: fill_character = ' ' show_sign_negative: show_sign_negative no_separator: no_separator width_set: width = w right_justified: right_justified leading_sign: leading_sign decimals_set: decimals = d decimal_point: decimal = '.' feature -- Access after_decimal_separate: BOOLEAN -- Use separators after the decimal? decimals: INTEGER -- Number of digits after the decimal point. zero_not_shown: BOOLEAN -- Show 0.5 as .5 or 0.5? decimal: CHARACTER -- What is used for the decimal feature -- Status setting point_decimal -- Use . as the decimal point. ensure decimal = '.' comma_decimal -- Use , as the decimal point. ensure decimal = ',' set_decimals (d: INTEGER) -- d decimals to be displayed. require d <= width ensure decimals = d separate_after_decimal -- Use separators after the decimal. ensure after_decimal_separate no_separate_after_decimal -- Do not use separators after the decimal. ensure not after_decimal_separate underscore_separate -- Set the separator to be underscore. ensure then after_decimal_separate comma_separate -- Set the separator to be comma. ensure then after_decimal_separate remove_separator -- Remove the separator. ensure then not after_decimal_separate show_zero -- Show 0.5 as 0.5 . ensure not zero_not_shown hide_zero -- Show 0.5 as .5 . ensure zero_not_shown feature -- Conversion formatted (d: DOUBLE): STRING -- Format d. ensure exists: Result /= void correct_length: not_justified or Result.count >= width invariant separate_all: no_separator implies not after_decimal_separate indexing library: "[ EiffelBase: Library of reusable components for Eiffel. ]" status: "[ Copyright 1986-2001 Interactive Software Engineering (ISE). For ISE customers the original versions are an ISE product covered by the ISE Eiffel license and support agreements. ]" license: "[ EiffelBase may now be used by anyone as FREE SOFTWARE to develop any product, public-domain or commercial, without payment to ISE, under the terms of the ISE Free Eiffel Library License (IFELL) at http://eiffel.com/products/base/license.html. ]" source: "[ Interactive Software Engineering Inc. ISE Building 360 Storke Road, Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Electronic mail <info@eiffel.com> Customer support http://support.eiffel.com ]" info: "[ For latest info see award-winning pages: http://eiffel.com ]" end -- class FORMAT_DOUBLE -- Generated by ISE Eiffel --
For more details: www.eiffel.com