backup/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add accept method (JSON_VISITOR), remove is_xxx queries, remove to_json feature.

Browse Source 
Improve comments
This commit is contained in:
jvelilla
2008-08-25 01:13:35 +00:00
parent f83c5d2643
commit 31750efb8e
7 changed files with 110 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
json/json_value.e
View File

@@ -24,117 +24,13 @@ inherit
HASHABLE
feature -- Access
feature -- Visitor pattern
to_json:STRING is
-- Generate the JSON String for this value object
-- return a correct JSON-STRING
accept (a_visitor: JSON_VISITOR) is
-- Accept `a_visitor'.
-- (Call `visit_*' procedure on `a_visitor'.)
require
a_visitor_not_void: a_visitor /= Void
deferred
end
feature -- Status Report
is_json_array:BOOLEAN is
-- Does `Current' represent a JSON_ARRAY?
do
if generating_type.is_equal ("JSON_ARRAY") then
Result := true
end
end
is_json_string:BOOLEAN is
-- Does `Current' represent a JSON_STRING?
do
if generating_type.is_equal ("JSON_STRING") then
Result := true
end
end
is_json_object:BOOLEAN is
-- Does `Current' represent a JSON_OBJECT?
do
if generating_type.is_equal ("JSON_OBJECT") then
Result := true
end
end
is_json_number:BOOLEAN is
-- Does 'Current' represent a JSON_NUMBER?
do
if generating_type.is_equal ("JSON_NUMBER") then
Result := true
end
end
is_json_boolean:BOOLEAN is
-- Does 'Current' represent a JSON_BOOLEAN?
do
if generating_type.is_equal ("JSON_BOOLEAN") then
Result := true
end
end
is_json_null:BOOLEAN is
-- Does 'Current' represent a JSON_NULL?
do
if generating_type.is_equal ("JSON_NULL") then
Result := true
end
end
feature -- Conversion
to_json_array:JSON_ARRAY is
-- Convert `Current' as a JSON_ARRAY.
require
is_a_json_array:is_json_array
do
Result ?= Current
end
to_json_string:JSON_STRING is
-- Convert `Current' as a JSON_STRING.
require
is_a_json_string: is_json_string
do
Result ?= Current
end
to_json_object:JSON_OBJECT is
-- Convert 'Current' as a JSON_OBJECT
require
is_a_json_object: is_json_object
do
Result?=Current
end
to_json_number:JSON_NUMBER is
-- Convert 'Current' as a JSON_NUMBER
require
is_a_json_number:is_json_number
do
Result ?= Current
end
to_json_boolean:JSON_BOOLEAN is
-- Convert 'Current' as a JSON_BOOLEAN
require
is_a_json_boolean:is_json_boolean
do
Result ?= Current
end
to_json_null:JSON_NULL is
-- Convert 'Current' as a JSON_NULL
require
is_a_json_null:is_json_null
do
Result ?= Current
end
end