eJson initial import
This commit is contained in:
jvelilla
258
json/scanner/json_parser.e
Normal file
258
json/scanner/json_parser.e
Normal file
@@ -0,0 +1,258 @@
|
||||
indexing
|
||||
description: "Objects that ..."
|
||||
author: ""
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
JSON_PARSER
|
||||
inherit
|
||||
JSON_READER
|
||||
JSON_TOKENS
|
||||
|
||||
create
|
||||
make_parser
|
||||
feature -- Access
|
||||
|
||||
make_parser(a_json:STRING) is
|
||||
--
|
||||
do
|
||||
make(a_json)
|
||||
end
|
||||
|
||||
parse:JSON_VALUE is
|
||||
--
|
||||
local
|
||||
c:CHARACTER
|
||||
do
|
||||
skip_withe_spaces
|
||||
c:=actual
|
||||
if c.is_equal (j_object_open) then
|
||||
Result:=parse_object
|
||||
elseif c.is_equal (j_string) then
|
||||
Result:=parse_string
|
||||
elseif c.is_equal (j_array_open) then
|
||||
Result:=parse_array
|
||||
elseif c.is_digit or c.is_equal (j_minus) or
|
||||
c.is_equal (j_plus) or c.is_equal (j_dot) then
|
||||
Result:=parse_number
|
||||
elseif is_null then
|
||||
--
|
||||
Result:=create {JSON_NULL}
|
||||
next;next;next;
|
||||
elseif is_true then
|
||||
Result:=create {JSON_BOOLEAN}.make_boolean (true)
|
||||
next;next;next;
|
||||
elseif is_false then
|
||||
Result:=create {JSON_BOOLEAN}.make_boolean (false)
|
||||
next;next;next;next;
|
||||
else
|
||||
|
||||
Result:=void
|
||||
end
|
||||
rescue
|
||||
handle_syntax_exception
|
||||
retry
|
||||
end
|
||||
|
||||
parse_object:JSON_OBJECT is
|
||||
-- object
|
||||
-- {}
|
||||
-- {"key" : "value" [,]}
|
||||
|
||||
local
|
||||
has_more:BOOLEAN
|
||||
l_json_string:JSON_STRING
|
||||
l_value:JSON_VALUE
|
||||
do
|
||||
create Result.make
|
||||
-- check if is an empty object {}
|
||||
next
|
||||
skip_withe_spaces
|
||||
if actual.is_equal (j_object_close) then
|
||||
--is an empty object
|
||||
else
|
||||
-- a complex object {"key" : "value"}
|
||||
previous
|
||||
from has_more:=true until not has_more
|
||||
loop
|
||||
next
|
||||
skip_withe_spaces
|
||||
l_json_string:=parse_string
|
||||
next
|
||||
skip_withe_spaces
|
||||
if actual.is_equal (':') then
|
||||
next
|
||||
skip_withe_spaces
|
||||
else
|
||||
excpetions.raise("%N Input string is a not well formed JSON, expected: %":%", found:" +actual.out +"%N")
|
||||
has_more:=false
|
||||
end
|
||||
|
||||
l_value:=parse
|
||||
Result.put (l_json_string, l_value)
|
||||
next
|
||||
skip_withe_spaces
|
||||
if actual.is_equal (j_object_close) then
|
||||
has_more:=false
|
||||
elseif not actual.is_equal (',') then
|
||||
has_more:=false
|
||||
excpetions.raise("JSON Object sintactically malformed expected :%"'%" ")
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
parse_string:JSON_STRING is
|
||||
--
|
||||
local
|
||||
has_more:BOOLEAN
|
||||
l_json_string:STRING
|
||||
do
|
||||
create l_json_string.make_empty
|
||||
if actual.is_equal (j_string) then
|
||||
from
|
||||
has_more:=true
|
||||
until not has_more
|
||||
|
||||
loop
|
||||
next
|
||||
if actual.is_equal (j_string) then
|
||||
has_more:=false
|
||||
elseif close_tokens.has (actual) then
|
||||
has_more:=false
|
||||
excpetions.raise("Input String is not well formed JSON, expected %"")
|
||||
else
|
||||
l_json_string.append (actual.out)
|
||||
end
|
||||
end
|
||||
create Result.make_json (l_json_string)
|
||||
else
|
||||
Result := void
|
||||
end
|
||||
end
|
||||
|
||||
parse_array:JSON_ARRAY is
|
||||
-- array
|
||||
-- []
|
||||
-- [elements [,]]
|
||||
local
|
||||
flag:BOOLEAN
|
||||
l_value:JSON_VALUE
|
||||
do
|
||||
create Result.make_array
|
||||
--check if is an empty array []
|
||||
next
|
||||
skip_withe_spaces
|
||||
if actual.is_equal (j_array_close) then
|
||||
--is an empty array
|
||||
else
|
||||
previous
|
||||
from
|
||||
flag:=true
|
||||
until
|
||||
not flag
|
||||
loop
|
||||
next
|
||||
skip_withe_spaces
|
||||
l_value := parse
|
||||
Result.add (l_value)
|
||||
next
|
||||
skip_withe_spaces
|
||||
|
||||
if not actual.is_equal (j_array_close) and not actual.is_equal (',')then
|
||||
flag:=false
|
||||
excpetions.raise("%NInput string is not well formed JSON, expected: ',' or ']', and found: " +actual.out+"%N")
|
||||
elseif actual.is_equal (j_array_close) then
|
||||
flag:= false
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
parse_number:JSON_NUMBER is
|
||||
--
|
||||
local
|
||||
sb:STRING
|
||||
flag:BOOLEAN
|
||||
do
|
||||
create sb.make_empty
|
||||
if not actual.is_equal (j_plus) then
|
||||
sb.append (actual.out)
|
||||
end
|
||||
|
||||
from
|
||||
flag:=true
|
||||
until not flag
|
||||
loop
|
||||
next
|
||||
if not has_next or close_tokens.has (actual) or actual.is_equal (',')
|
||||
or actual.is_equal ('%N') or actual.is_equal ('%R') then
|
||||
flag:=false
|
||||
previous
|
||||
else
|
||||
sb.append (actual.out)
|
||||
end
|
||||
end
|
||||
|
||||
if sb.is_double then
|
||||
create Result.make_real (sb.to_double)
|
||||
elseif sb.is_integer then
|
||||
create Result.make_integer (sb.to_integer)
|
||||
else
|
||||
excpetions.raise ("Input string is an not well formed JSON")
|
||||
-- print ("Input string is an not well formed JSON")
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
is_null:BOOLEAN is
|
||||
--
|
||||
local
|
||||
l_null:STRING
|
||||
l_string:STRING
|
||||
do
|
||||
l_null:="null"
|
||||
l_string:=json_substring (index,index + l_null.count - 1)
|
||||
if l_string.is_equal (l_null) then
|
||||
Result := true
|
||||
end
|
||||
end
|
||||
|
||||
is_false:BOOLEAN is
|
||||
--
|
||||
local
|
||||
l_false:STRING
|
||||
l_string:STRING
|
||||
do
|
||||
l_false:="false"
|
||||
l_string:=json_substring (index,index + l_false.count - 1)
|
||||
if l_string.is_equal (l_false) then
|
||||
Result := true
|
||||
end
|
||||
end
|
||||
|
||||
is_true:BOOLEAN is
|
||||
--
|
||||
local
|
||||
l_true:STRING
|
||||
l_string:STRING
|
||||
do
|
||||
l_true:="true"
|
||||
l_string:=json_substring (index,index + l_true.count - 1)
|
||||
if l_string.is_equal (l_true) then
|
||||
Result := true
|
||||
end
|
||||
end
|
||||
feature {NONE}
|
||||
handle_syntax_exception is
|
||||
--
|
||||
do
|
||||
next
|
||||
end
|
||||
|
||||
excpetions:EXCEPTIONS once
|
||||
create Result
|
||||
end
|
||||
|
||||
end
|
||||
Reference in New Issue
Block a user