161 lines
3.7 KiB
Plaintext
161 lines
3.7 KiB
Plaintext
indexing
|
|
description: "Objects that ..."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
EXAMPLE_JSON_PARSER
|
|
|
|
feature -- Access
|
|
|
|
test_json_string is
|
|
--
|
|
local
|
|
parse_json:JSON_PARSER
|
|
json_value:JSON_VALUE
|
|
do
|
|
create parse_json.make_parser("%"key %N This is a test %"")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
end
|
|
|
|
test_json_objects_with_string is
|
|
--
|
|
local
|
|
parse_json:JSON_PARSER
|
|
json_value:JSON_VALUE
|
|
do
|
|
create parse_json.make_parser("{}")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
create parse_json.make_parser("{%"key%":%"value%"}")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser("{%"key%" :%"value%"}")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser("{%"key%" : %"value%"}")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser("{%"key%" : %"value%" }")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser("{ %N%"key%" : %"value%" }")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser("{ %N%"key%" ; %"value%" }")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
end
|
|
|
|
test_json_array is
|
|
--
|
|
local
|
|
parse_json:JSON_PARSER
|
|
json_value:JSON_VALUE
|
|
do
|
|
create parse_json.make_parser ("[]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser ("[%"value%"]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
create parse_json.make_parser ("[%"value%",%"value2%"]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
--create parse_json.make_parser ("[%"value%";%"value2%"]")
|
|
--json_value:=parse_json.parse
|
|
--print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser ("[null]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
create parse_json.make_parser ("[false]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
create parse_json.make_parser ("[true]")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
end
|
|
|
|
test_json_number is
|
|
--
|
|
local
|
|
parse_json:JSON_PARSER
|
|
json_value:JSON_VALUE
|
|
do
|
|
create parse_json.make_parser ("1234.5")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
create parse_json.make_parser ("1234.e5")
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
end
|
|
|
|
test_json_glossary_from_file is
|
|
--
|
|
local
|
|
file_reader:JSON_FILE_READER
|
|
parse_json:JSON_PARSER
|
|
json_value:JSON_VALUE
|
|
|
|
do
|
|
|
|
create file_reader
|
|
create parse_json.make_parser (file_reader.read_json_from ("./json_glossary_example.txt"))
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
print ("%N JSON MENU %N")
|
|
create parse_json.make_parser (file_reader.read_json_from ("./json_menu_example.txt"))
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
print ("%N JSON WIDGET %N")
|
|
create parse_json.make_parser (file_reader.read_json_from ("./json_widget_example.txt"))
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
print ("%N JSON WEBXML %N")
|
|
create parse_json.make_parser (file_reader.read_json_from ("./json_webxml_example.txt"))
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
print ("%N JSON MENU2 %N")
|
|
create parse_json.make_parser (file_reader.read_json_from ("./json_menu2_example.txt"))
|
|
json_value:=parse_json.parse
|
|
print (json_value.to_json)
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
end
|