note
    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
            -- Hash code value
        do
            Result := null_value.hash_code
        end

    representation: STRING
        do
            Result := "null"
        end
        
feature -- Visitor pattern

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

feature -- Status report

    debug_output: STRING
            -- String that should be displayed in debugger to represent `Current'.
        do
            Result := null_value
        end

feature {NONE}-- Implementation        

    null_value: STRING = "null"

end