indexing
	description: "Implementation of DB_ALL_TYPES"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date: 2006-12-21 11:51:40 -0800 (Thu, 21 Dec 2006) $"
	revision: "$Revision: 65703 $"

class interface
	DATABASE_ALL_TYPES [G -> DATABASE create default_create end]


create 
	make

feature -- Initialization

	accommodate (n: INTEGER_32)
			-- Reallocate table with enough space for `n' items;
			-- keep all current items.
			-- (from HASH_TABLE)
		require -- from HASH_TABLE
			n >= 0
		ensure -- from HASH_TABLE
			count_not_changed: count = old count
			slot_count_same_as_count: used_slot_count = count
			breathing_space: count < capacity

	make

	ht_make (n: INTEGER_32)
			-- Allocate hash table for at least `n' items.
			-- The table will be resized automatically
			-- if more than `n' items are inserted.
			-- (from HASH_TABLE)
		ensure -- from HASH_TABLE
			breathing_space: n < capacity
			more_than_minimum: capacity > minimum_capacity
			no_status: not special_status
	
feature -- Access

	bit_type: INTEGER_32 is 8
			-- (from INTERNAL)

	boolean_field (i: INTEGER_32; object: ANY): BOOLEAN
			-- Boolean value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			boolean_field: field_type (i, object) = boolean_type

	boolean_type: INTEGER_32 is 3
			-- (from INTERNAL)

	character_32_field (i: INTEGER_32; object: ANY): CHARACTER_32
			-- CHARACTER_32 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			character_32_field: field_type (i, object) = character_32_type

	character_32_type: INTEGER_32 is 12
			-- Was declared in INTERNAL as synonym of Wide_character_type.
			-- (from INTERNAL)

	character_8_field (i: INTEGER_32; object: ANY): CHARACTER_8
			-- CHARACTER_8 value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of character_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			character_8_field: field_type (i, object) = character_8_type

	character_8_type: INTEGER_32 is 2
			-- Was declared in INTERNAL as synonym of Character_type.
			-- (from INTERNAL)

	character_field (i: INTEGER_32; object: ANY): CHARACTER_8
			-- CHARACTER_8 value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of character_8_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			character_8_field: field_type (i, object) = character_8_type

	character_type: INTEGER_32 is 2
			-- Was declared in INTERNAL as synonym of Character_8_type.
			-- (from INTERNAL)

	class_name (object: ANY): STRING_8
			-- Name of the class associated with `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void

	class_name_of_type (type_id: INTEGER_32): STRING_8
			-- Name of class associated with dynamic type `type_id'.
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0

	current_keys: ARRAY [INTEGER_32]
			-- New array containing actually used keys, from 1 to count
			-- (from HASH_TABLE)
		ensure -- from HASH_TABLE
			good_count: Result.count = count

	cursor: CURSOR
			-- Current cursor position
			-- (from HASH_TABLE)
		ensure -- from HASH_TABLE
			cursor_not_void: Result /= Void

	db_type (object: ANY): DB_TYPE
			-- DB_TYPE instance associated to `object'
		ensure
			result_value: Result = item (dynamic_type (object))

	double_field (i: INTEGER_32; object: ANY): REAL_64
			-- Double precision value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of real_64_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			real_64_field: field_type (i, object) = real_64_type

	double_type: INTEGER_32 is 6
			-- Was declared in INTERNAL as synonym of Real_64_type.
			-- (from INTERNAL)

	dynamic_type (object: ANY): INTEGER_32
			-- Dynamic type of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
		ensure -- from INTERNAL
			dynamic_type_nonnegative: Result >= 0

	expanded_field_type (i: INTEGER_32; object: ANY): STRING_8
			-- Class name associated with the `i'-th
			-- expanded field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			is_expanded: field_type (i, object) = expanded_type
		ensure -- from INTERNAL
			result_exists: Result /= Void

	expanded_type: INTEGER_32 is 7
			-- (from INTERNAL)

	field (i: INTEGER_32; object: ANY): ?ANY
			-- Object attached to the `i'-th field of `object'
			-- (directly or through a reference)
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			not_special: not is_special (object)

	field_name (i: INTEGER_32; object: ANY): STRING_8
			-- Name of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			not_special: not is_special (object)
		ensure -- from INTERNAL
			result_exists: Result /= Void

	field_name_of_type (i: INTEGER_32; type_id: INTEGER_32): STRING_8
			-- Name of `i'-th field of dynamic type `type_id'.
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0
			index_large_enough: i >= 1
			index_small_enought: i <= field_count_of_type (type_id)

	field_offset (i: INTEGER_32; object: ANY): INTEGER_32
			-- Offset of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			not_special: not is_special (object)

	field_static_type_of_type (i: INTEGER_32; type_id: INTEGER_32): INTEGER_32
			-- Static type of declared `i'-th field of dynamic type `type_id'
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0
			index_large_enough: i >= 1
			index_small_enough: i <= field_count_of_type (type_id)
		ensure -- from INTERNAL
			field_type_nonnegative: Result >= 0

	field_type (i: INTEGER_32; object: ANY): INTEGER_32
			-- Abstract type of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
		ensure -- from INTERNAL
			field_type_nonnegative: Result >= 0

	field_type_of_type (i: INTEGER_32; type_id: INTEGER_32): INTEGER_32
			-- Abstract type of `i'-th field of dynamic type `type_id'
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0
			index_large_enough: i >= 1
			index_small_enough: i <= field_count_of_type (type_id)
		ensure -- from INTERNAL
			field_type_nonnegative: Result >= 0

	found_item: DB_TYPE
			-- Item, if any, yielded by last search operation
			-- (from HASH_TABLE)

	generating_type: STRING_8
			-- Name of current object's generating type
			-- (type of which it is a direct instance)
			-- (from ANY)
		ensure -- from ANY
			generating_type_not_void: Result /= Void
			generating_type_not_empty: not Result.is_empty

	generator: STRING_8
			-- Name of current object's generating class
			-- (base class of the type of which it is a direct instance)
			-- (from ANY)
		ensure -- from ANY
			generator_not_void: Result /= Void
			generator_not_empty: not Result.is_empty

	generic_count (obj: ANY): INTEGER_32
			-- Number of generic parameter in `obj'.
			-- (from INTERNAL)
		require -- from INTERNAL
			obj_not_void: obj /= Void

	generic_count_of_type (type_id: INTEGER_32): INTEGER_32
			-- Number of generic parameter in `type_id'.
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0

	generic_dynamic_type (object: ANY; i: INTEGER_32): INTEGER_32
			-- Dynamic type of generic parameter of `object' at
			-- position `i'.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			object_generic: generic_count (object) > 0
			i_valid: i > 0 and i <= generic_count (object)
		ensure -- from INTERNAL
			dynamic_type_nonnegative: Result >= 0

	generic_dynamic_type_of_type (type_id: INTEGER_32; i: INTEGER_32): INTEGER_32
			-- Dynamic type of generic parameter of `type_id' at position `i'.
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0
			type_id_generic: generic_count_of_type (type_id) > 0
			i_valid: i > 0 and i <= generic_count_of_type (type_id)
		ensure -- from INTERNAL
			dynamic_type_nonnegative: Result >= 0

	has (key: INTEGER_32): BOOLEAN
			-- Is there an item in the table with key `key'?
			-- (from HASH_TABLE)
		ensure then -- from HASH_TABLE
			default_case: (key = computed_default_key) implies (Result = has_default)

	has_item (v: DB_TYPE): BOOLEAN
			-- Does structure include `v'?
			-- (Reference or object equality,
			-- based on object_comparison.)
			-- (from HASH_TABLE)
		ensure -- from CONTAINER
			not_found_in_empty: Result implies not is_empty

	has_key (key: INTEGER_32): BOOLEAN
			-- Is there an item in the table with key `key'? Set found_item to the found item.
			-- (from HASH_TABLE)
		ensure then -- from HASH_TABLE
			default_case: (key = computed_default_key) implies (Result = has_default)
			found: Result = found
			item_if_found: found implies (found_item = item (key))

	integer_16_field (i: INTEGER_32; object: ANY): INTEGER_16
			-- INTEGER_16 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			integer_16_field: field_type (i, object) = integer_16_type

	integer_16_type: INTEGER_32 is 10
			-- (from INTERNAL)

	integer_32_field (i: INTEGER_32; object: ANY): INTEGER_32
			-- INTEGER_32 value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of integer_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			integer_32_field: field_type (i, object) = integer_32_type

	integer_32_type: INTEGER_32 is 4
			-- Was declared in INTERNAL as synonym of Integer_type.
			-- (from INTERNAL)

	integer_64_field (i: INTEGER_32; object: ANY): INTEGER_64
			-- INTEGER_64 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			integer_64_field: field_type (i, object) = integer_64_type

	integer_64_type: INTEGER_32 is 11
			-- (from INTERNAL)

	integer_8_field (i: INTEGER_32; object: ANY): INTEGER_8
			-- INTEGER_8 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			integer_8_field: field_type (i, object) = integer_8_type

	integer_8_type: INTEGER_32 is 9
			-- (from INTERNAL)

	integer_field (i: INTEGER_32; object: ANY): INTEGER_32
			-- INTEGER_32 value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of integer_32_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			integer_32_field: field_type (i, object) = integer_32_type

	integer_type: INTEGER_32 is 4
			-- Was declared in INTERNAL as synonym of Integer_32_type.
			-- (from INTERNAL)

	item alias "[]" (key: INTEGER_32): DB_TYPE assign put
			-- Item associated with `key', if present
			-- otherwise default value of type `G'
			-- Was declared in HASH_TABLE as synonym of infix "@".
			-- (from HASH_TABLE)
		require -- from TABLE
			valid_key: valid_key (key)
		ensure then -- from HASH_TABLE
			default_value_if_not_present: (not (has (key))) implies (Result = computed_default_value)

	item_for_iteration: DB_TYPE
			-- Element at current iteration position
			-- (from HASH_TABLE)
		require -- from HASH_TABLE
			not_off: not off

	key_for_iteration: INTEGER_32
			-- Key at current iteration position
			-- (from HASH_TABLE)
		require -- from HASH_TABLE
			not_off: not off
		ensure -- from HASH_TABLE
			at_iteration_position: Result = key_at (iteration_position)

	max_predefined_type: INTEGER_32 is 16
			-- (from INTERNAL)

	natural_16_field (i: INTEGER_32; object: ANY): NATURAL_16
			-- NATURAL_16 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			natural_16_field: field_type (i, object) = natural_16_type

	natural_16_type: INTEGER_32 is 14
			-- (from INTERNAL)

	natural_32_field (i: INTEGER_32; object: ANY): NATURAL_32
			-- NATURAL_32 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			natural_32_field: field_type (i, object) = natural_32_type

	natural_32_type: INTEGER_32 is 15
			-- (from INTERNAL)

	natural_64_field (i: INTEGER_32; object: ANY): NATURAL_64
			-- NATURAL_64 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			natural_64_field: field_type (i, object) = natural_64_type

	natural_64_type: INTEGER_32 is 16
			-- (from INTERNAL)

	natural_8_field (i: INTEGER_32; object: ANY): NATURAL_8
			-- NATURAL_8 value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			natural_8_field: field_type (i, object) = natural_8_type

	natural_8_type: INTEGER_32 is 13
			-- (from INTERNAL)

	none_type: INTEGER_32 is -2
			-- Type ID representation for NONE.
			-- (from INTERNAL)

	pointer_field (i: INTEGER_32; object: ANY): POINTER
			-- Pointer value of `i'-th field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			pointer_field: field_type (i, object) = pointer_type

	pointer_type: INTEGER_32 is 0
			-- (from INTERNAL)

	real_32_field (i: INTEGER_32; object: ANY): REAL_32
			-- Real value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of real_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			real_32_field: field_type (i, object) = real_32_type

	real_32_type: INTEGER_32 is 5
			-- Was declared in INTERNAL as synonym of Real_type.
			-- (from INTERNAL)

	real_64_field (i: INTEGER_32; object: ANY): REAL_64
			-- Double precision value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of double_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			real_64_field: field_type (i, object) = real_64_type

	real_64_type: INTEGER_32 is 6
			-- Was declared in INTERNAL as synonym of Double_type.
			-- (from INTERNAL)

	real_field (i: INTEGER_32; object: ANY): REAL_32
			-- Real value of `i'-th field of `object'
			-- Was declared in INTERNAL as synonym of real_32_field.
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			real_32_field: field_type (i, object) = real_32_type

	real_type: INTEGER_32 is 5
			-- Was declared in INTERNAL as synonym of Real_32_type.
			-- (from INTERNAL)

	reference_type: INTEGER_32 is 1
			-- (from INTERNAL)

	type_name (object: ANY): STRING_8
			-- Name of `object''s generating type (type of which `object'
			-- is a direct instance).
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void

	type_name_of_type (type_id: INTEGER_32): STRING_8
			-- Name of `type_id''s generating type (type of which `type_id'
			-- is a direct instance).
			-- (from INTERNAL)
		require -- from INTERNAL
			type_id_nonnegative: type_id >= 0

	wide_character_type: INTEGER_32 is 12
			-- Was declared in INTERNAL as synonym of Character_32_type.
			-- (from INTERNAL)

	infix "@" (key: INTEGER_32): DB_TYPE assign put
			-- Item associated with `key', if present
			-- otherwise default value of type `G'
			-- Was declared in HASH_TABLE as synonym of item.
			-- (from HASH_TABLE)
		require -- from TABLE
			valid_key: valid_key (key)
		ensure then -- from HASH_TABLE
			default_value_if_not_present: (not (has (key))) implies (Result = computed_default_value)
	
feature -- Measurement

	bit_size (i: INTEGER_32; object: ANY): INTEGER_32
			-- Size (in bit) of the `i'-th bit field of `object'
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void
			index_large_enough: i >= 1
			index_small_enough: i <= field_count (object)
			is_bit: field_type (i, object) = bit_type
		ensure -- from INTERNAL
			positive_result: Result > 0

	capacity: INTEGER_32
			-- Number of items that may be stored.
			-- (from HASH_TABLE)

	count: INTEGER_32
			-- Number of items in table
			-- (from HASH_TABLE)

	deep_physical_size (object: ANY): INTEGER_32
			-- Space occupied by `object' and its children in bytes
			-- (from INTERNAL)
		require -- from INTERNAL
			object_not_void: object /= Void

	field_count (object: ANY): INTEGER_32
			-- Number of logical fields in `object'
			-- (from INTERNAL)
		require -- from IN