/library/kernel/json_null.e

 1note
 2    description: "JSON Null Values"
 3    author: "Javier Velilla"
 4    date: "2008/08/24"
 5    revision: "Revision 0.1"
 6
 7class
 8    JSON_NULL
 9
10inherit
11    JSON_VALUE
12
13feature --Access
14
15    hash_code: INTEGER
16            -- Hash code value
17        do
18            Result := null_value.hash_code
19        end
20
21    representation: STRING
22        do
23            Result := "null"
24        end
25        
26feature -- Visitor pattern
27
28    accept (a_visitor: JSON_VISITOR)
29            -- Accept `a_visitor'.
30            -- (Call `visit_element_a' procedure on `a_visitor'.)
31        do
32            a_visitor.visit_json_null (Current)
33        end
34
35feature -- Status report
36
37    debug_output: STRING
38            -- String that should be displayed in debugger to represent `Current'.
39        do
40            Result := null_value
41        end
42
43feature {NONE}-- Implementation        
44
45    null_value: STRING = "null"
46
47end