note

	status: "See notice at end of class.";
	Date: "$Date$"
	Revision: "$Revision$"
	Product: EiffelStore
	Database: All_Bases

class DB_CONSTANT

feature {NONE} -- Status report
	
	name_table_size: INTEGER
			-- Shared hash table size 
			-- used to hold stored procedure names
		do
			Result := name_table_size_ref.item
		end

	selection_string_size: INTEGER
			-- Shared allocated size of passed SQL string
			-- with bind variables
		do
			Result := selection_string_size_ref.item
		end

	parsed_string_size: INTEGER
			-- Shared allocated size of passed SQL string
			-- with bind variables all expanded
		do
			Result := parsed_string_size_ref.item
		end

feature {NONE} -- Status setting

	set_name_table_size (n: INTEGER)
			-- Set shared `name_table_size_ref' with `n'.
		require
			n_positive: n > 0
		do
			name_table_size_ref.set_item (n)
		ensure
			name_table_size_set: name_table_size = n
		end

	set_selection_string_size (n: INTEGER)
			-- Set shared `selection_string_size' with `n'.
		require
			n_positive: n > 0
		do
			selection_string_size_ref.set_item (n)
		ensure
			selection_string_size_set: selection_string_size = n
		end

	set_parsed_string_size (n: INTEGER)
			-- Set shared `parsed_string_size' with `n'.
		require
			n_positive: n > 0
		do
			parsed_string_size_ref.set_item (n)
		ensure
			parsed_string_set: parsed_string_size = n
		end

feature {NONE} -- Status report

	Default_name_table_size: INTEGER = 20

	Default_selection_string_size: INTEGER = 2048

	Default_parsed_string_size: INTEGER = 4096

	name_table_size_ref: INTEGER_REF
			-- Shared integer object holding a value
		once
			create Result
			Result.set_item (Default_name_table_size)
		end

	selection_string_size_ref: INTEGER_REF
			-- Shared integer reference object holding a value
		once
			create Result
			Result.set_item (Default_selection_string_size)
		end

	parsed_string_size_ref: INTEGER_REF
			-- Shared integer object holding a value
		once
			create Result
			Result.set_item (Default_parsed_string_size)
		end

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, 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 DB_CONSTANT