indexing

	description: "[
		Base class for spaces classes that need to handle the XAP C++ exceptions
	]"

	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class

	EGS_SHARED_EXCEPTION_HANDLER

feature

	record_xap_exception: INTEGER = 0
		-- Record XAP exception as last_exception - the default behavior

	raise_xap_exception: INTEGER = 1
		-- Raise an Eiffel exception in case of XAP Exception

feature

	set_exceptions_handling_discipline (discipline: INTEGER) is
			--
		do
			exceptions_handling_discipline.put (discipline)
		end


feature -- Queries

	last_exception: EGS_XAP_EXCEPTION is
			-- The last exception occured
		do
			Result := exception_handler.last_exception
		end

	was_exception: BOOLEAN is
			-- Has the exception occured during the last operation
		do
			Result := exception_handler.was_exception
		end

	clear_exception is
			-- Clears the last exception
		do
			exception_handler.clear_exception
		end

feature {NONE} -- Implementation

	exceptions_handling_discipline: CELL[INTEGER]
		indexing
 			once_status: "global"
		once
 			create Result
		end


	exception_handler: EGS_EXCEPTION_HANDLER is
		once
			if exceptions_handling_discipline.item = record_xap_exception then
				create {EGS_EXCEPTION_HANDLER_RECORD} Result.make
			elseif exceptions_handling_discipline.item = raise_xap_exception then
				create {EGS_EXCEPTION_HANDLER_RAISE} Result.make
			end
		end

feature


indexing

	library:	"egigs-cpp: Library for accessing the GigaSpaces platform, POCO library based implementation."
	copyright:	"Copyright (c) 2008, 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