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
|
||||
97
json/scanner/json_reader.e
Normal file
97
json/scanner/json_reader.e
Normal file
@@ -0,0 +1,97 @@
|
||||
indexing
|
||||
description: "Objects that ..."
|
||||
author: ""
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
JSON_READER
|
||||
|
||||
create
|
||||
make
|
||||
feature -- Access
|
||||
make(a_json:STRING) is
|
||||
--
|
||||
do
|
||||
representation:=a_json
|
||||
index:=1
|
||||
end
|
||||
|
||||
read:CHARACTER is
|
||||
--
|
||||
do
|
||||
if not representation.is_empty then
|
||||
Result:= representation.item (index)
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
|
||||
actual:CHARACTER is
|
||||
--
|
||||
do
|
||||
Result:=representation.item (index)
|
||||
end
|
||||
|
||||
has_next:BOOLEAN is
|
||||
--
|
||||
do
|
||||
if index <= representation.count then
|
||||
Result:=True
|
||||
end
|
||||
end
|
||||
|
||||
has_previous:BOOLEAN is
|
||||
--
|
||||
do
|
||||
if index >=1 then
|
||||
Result:=True
|
||||
end
|
||||
end
|
||||
next is
|
||||
--
|
||||
require
|
||||
has_more_elements: has_next
|
||||
do
|
||||
index:=index + 1
|
||||
ensure
|
||||
incremented: old index + 1 = index
|
||||
end
|
||||
|
||||
previous is
|
||||
--
|
||||
require
|
||||
not_is_first: has_previous
|
||||
do
|
||||
index:=index - 1
|
||||
ensure
|
||||
incremented: old index - 1 = index
|
||||
end
|
||||
|
||||
|
||||
skip_withe_spaces is
|
||||
-- Remove withe spaces
|
||||
do
|
||||
from
|
||||
until not actual.is_space and has_next
|
||||
loop
|
||||
next
|
||||
end
|
||||
end
|
||||
|
||||
json_substring (start_index, end_index: INTEGER_32):STRING is
|
||||
--
|
||||
do
|
||||
Result:=representation.substring (start_index, end_index)
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
feature -- Implementation
|
||||
representation:STRING
|
||||
--linear representation of the original json string
|
||||
index:INTEGER
|
||||
--actual index
|
||||
|
||||
end
|
||||
33
json/scanner/json_tokens.e
Normal file
33
json/scanner/json_tokens.e
Normal file
@@ -0,0 +1,33 @@
|
||||
indexing
|
||||
description: "Objects that ..."
|
||||
author: ""
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
JSON_TOKENS
|
||||
|
||||
feature -- Access
|
||||
J_OBJECT_OPEN:CHARACTER is '{'
|
||||
J_ARRAY_OPEN:CHARACTER is '['
|
||||
J_OBJECT_CLOSE:CHARACTER is '}'
|
||||
J_ARRAY_CLOSE:CHARACTER is ']'
|
||||
|
||||
J_STRING:CHARACTER is '"'
|
||||
J_PLUS:CHARACTER is '+'
|
||||
J_MINUS:CHARACTER is '-'
|
||||
J_DOT:CHARACTER is '.'
|
||||
|
||||
open_tokens:ARRAY[CHARACTER] is
|
||||
-- Characters wich open a type
|
||||
once
|
||||
Result:=<<J_OBJECT_OPEN,J_ARRAY_OPEN,J_STRING,J_PLUS,J_MINUS,J_DOT>>
|
||||
end
|
||||
|
||||
close_tokens:ARRAY[CHARACTER] is
|
||||
-- Characters wich close a type
|
||||
once
|
||||
Result:=<<J_OBJECT_CLOSE,J_ARRAY_CLOSE,J_STRING >>
|
||||
end
|
||||
|
||||
end
|
||||
Reference in New Issue
Block a user