indexing
	description: "Bounded data structures, with a notion of capacity."
	names: bounded, storage

deferred class interface
	BOUNDED [G]

feature -- Access

	has (v: G): BOOLEAN
			-- Does structure include v?
			-- (Reference or object equality,
			-- based on object_comparison.)
			-- (from CONTAINER)
		ensure -- from CONTAINER
			not_found_in_empty: Result implies not empty
	
feature -- Measurement

	capacity: INTEGER
			-- Number of items that may be stored

	count: INTEGER
			-- Number of items
			-- (from FINITE)
	
feature -- Status report

	changeable_comparison_criterion: BOOLEAN
			-- May object_comparison be changed?
			-- (Answer: yes by default.)
			-- (from CONTAINER)

	empty: BOOLEAN
			-- Is structure empty?
			-- (from FINITE)

	full: BOOLEAN
			-- Is structure full?

	object_comparison: BOOLEAN
			-- Must search operations use equal rather than =
			-- for comparing references? (Default: no, use =.)
			-- (from CONTAINER)

	resizable: BOOLEAN
			-- May capacity be changed?
	
feature -- Status setting

	compare_objects
			-- Ensure that future search operations will use equal
			-- rather than = for comparing references.
			-- (from CONTAINER)
		require -- from CONTAINER
			changeable_comparison_criterion
		ensure -- from CONTAINER
			object_comparison

	compare_references
			-- Ensure that future search operations will use =
			-- rather than equal for comparing references.
			-- (from CONTAINER)
		require -- from CONTAINER
			changeable_comparison_criterion
		ensure -- from CONTAINER
			reference_comparison: not object_comparison
	
feature -- Conversion

	linear_representation: LINEAR [G]
			-- Representation as a linear structure
			-- (from CONTAINER)
	
invariant

		-- from GENERAL
	reflexive_equality: standard_is_equal (Current);
	reflexive_conformance: conforms_to (Current);
	valid_count: count <= capacity;
	full_definition: full = (count = capacity);
		-- from FINITE
	empty_definition: empty = (count = 0);
	non_negative_count: count >= 0;

end -- class BOUNDED