note
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

deferred class
	TEMPLATE_INSPECTOR

feature -- Change

	register (a_inspector_name: READABLE_STRING_8)
		do
			Template_routines.register_template_inspector (Current, a_inspector_name)
		end

	register_type (a_type: TYPE [detachable ANY])
		do
			register (a_type.name)
		end

	unregister
		do
			Template_routines.unregister_template_inspector (Current)
		end

feature {TEMPLATE_ROUTINES}

	internal_data (field_name: STRING; object: detachable ANY): detachable CELL [detachable ANY]
			-- Return object in a cell
			-- If not handled by this inspector, return Void
		deferred
		end

	cell_of (obj: detachable ANY): CELL [detachable ANY]
		do
			create Result.put (obj)
		end

feature -- Routine

	template_routines: TEMPLATE_ROUTINES
		once
			create Result
		end

note
	copyright: "2011-2013, Jocelyn Fiat, and Eiffel Software"
	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			Jocelyn Fiat
			Contact: http://about.jocelynfiat.net/
		]"
end -- class TEMPLATE_INSPECTOR