indexing
	description: "JSON Null Values"
	author: "Javier Velilla"
	date: "2008/08/24"
	revision: "Revision 0.1"

class
	JSON_NULL
	inherit
		JSON_VALUE

feature --Access

	hash_code:INTEGER is
			-- Hash code value
		do
			Result:= null_value.hash_code
		end
feature -- Visitor pattern

	accept (a_visitor: JSON_VISITOR) is
			-- Accept `a_visitor'.
			-- (Call `visit_element_a' procedure on `a_visitor'.)
		do
			a_visitor.visit_json_null (Current)
		end

feature {NONE}-- Implementation		
	null_value:STRING is "null"
end