note
	description: "Real values, single precision."
	external_name: "System.Single"
	assembly: "mscorlib"
	library: "Free implementation of ELKS library"
	status: "See notice at end of class."
	legal: "See notice at end of class."
	date: "$Date: 2020-04-15 18:06:04 +0000 (Wed, 15 Apr 2020) $"
	revision: "$Revision: 104046 $"

frozen expanded class 
	REAL_32

inherit
	REAL_32_REF
		redefine
			is_less,
			is_nan,
			is_negative_infinity,
			is_positive_infinity,
			truncated_to_integer,
			truncated_to_integer_64,
			to_double,
			ceiling_real_32,
			floor_real_32,
			plus,
			minus,
			product,
			quotient,
			power,
			opposite,
			identity,
			out
		end

create 
	default_create,
	make_from_reference

convert
	make_from_reference ({REAL_32_REF}),
	to_double: {REAL_64}

feature -- Comparison

	is_less alias "<" (other: REAL_32): BOOLEAN
			-- Is other greater than current real?
			-- See also: ieee_is_less.
		do
			Result := Precursor (other)
		end
	
feature -- Status Report

	is_nan: BOOLEAN
			-- Is current the representation of nan?
		do
			Result := Precursor
		end

	is_negative_infinity: BOOLEAN
			-- Is current the representation of negative_infinity?
		do
			Result := Precursor
		end

	is_positive_infinity: BOOLEAN
			-- Is current the representation of positive_infinity?
		do
			Result := Precursor
		end
	
feature -- Conversion

	truncated_to_integer: INTEGER_32
			-- Integer part (same sign, largest absolute
			-- value no greater than current object's)
		do
			Result := Precursor
		end

	truncated_to_integer_64: INTEGER_64
			-- Integer part (same sign, largest absolute
			-- value no greater than current object's)
		do
			Result := Precursor
		end

	to_double: REAL_64
			-- Current seen as a double
		do
			Result := Precursor
		end

	ceiling_real_32: REAL_32
			-- Smallest integral value no smaller than current object
		do
			Result := Precursor
		end

	floor_real_32: REAL_32
			-- Greatest integral value no greater than current object
		do
			Result := Precursor
		end
	
feature -- Basic operations

	plus alias "+" (other: REAL_32): REAL_32
			-- Sum with other
		do
			Result := Precursor (other)
		end

	minus alias "-" alias "−" (other: REAL_32): REAL_32
			-- Result of subtracting other
		do
			Result := Precursor (other)
		end

	product alias "*" alias "×" (other: REAL_32): REAL_32
			-- Product by other
		do
			Result := Precursor (other)
		end

	quotient alias "/" alias "÷" (other: REAL_32): REAL_32
			-- Division by other
		do
			Result := Precursor (other)
		end

	power alias "^" (other: REAL_64): REAL_64
			-- Current real to the power other
		do
			Result := Precursor (other)
		end

	identity alias "+": REAL_32
			-- Unary plus
		do
			Result := Precursor
		end

	opposite alias "-" alias "−": REAL_32
			-- Unary minus
		do
			Result := Precursor
		end
	
feature -- IEEE comparison

	ieee_is_equal (other: REAL_32): BOOLEAN
			-- Is current value equal to other according to IEEE 754 standard?
		external
			"built_in"
		end

	ieee_is_greater (other: REAL_32): BOOLEAN
			-- Is current value greater than other according to IEEE 754 standard?
		external
			"built_in"
		end

	ieee_is_greater_equal (other: REAL_32): BOOLEAN
			-- Is current value greater than or equal to other according to IEEE 754 standard?
		external
			"built_in"
		end

	ieee_is_less (other: REAL_32): BOOLEAN
			-- Is current value less than other according to IEEE 754 standard?
		external
			"built_in"
		end

	ieee_is_less_equal (other: REAL_32): BOOLEAN
			-- Is current value less than or equal to other according to IEEE 754 standard?
		external
			"built_in"
		end

	ieee_maximum_number (other: REAL_32): REAL_32
			-- The greater of current object and other according to IEEE 754 standard.
		external
			"built_in"
		end

	ieee_minimum_number (other: REAL_32): REAL_32
			-- The smaller of current object and other according to IEEE 754 standard.
		external
			"built_in"
		end
	
feature -- Output

	out: STRING_8
			-- Printable representation of real value
		do
			Result := Precursor
		end
	
note
	copyright: "Copyright (c) 1984-2020, Eiffel Software and others"
	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	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 REAL_32

Generated by ISE EiffelStudio