49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
note
|
|
description: "Summary description for {ROC_JSON_CONFIGURATION}."
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
ROC_JSON_CONFIGURATION
|
|
|
|
inherit
|
|
|
|
JSON_CONFIGURATION
|
|
|
|
feature -- Access
|
|
|
|
is_html_mode (a_path: PATH): BOOLEAN
|
|
-- Is the server running on web mode?
|
|
local
|
|
l_parser: JSON_PARSER
|
|
do
|
|
if attached json_file_from (a_path) as json_file then
|
|
l_parser := new_json_parser (json_file)
|
|
if attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
|
|
attached {JSON_OBJECT} jv.item ("server") as l_server and then
|
|
attached {JSON_STRING} l_server.item ("mode") as l_mode then
|
|
Result := l_mode.item.is_case_insensitive_equal_general ("html")
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
|
|
is_web_mode (a_path: PATH): BOOLEAN
|
|
-- Is the server running on web mode?
|
|
local
|
|
l_parser: JSON_PARSER
|
|
do
|
|
if attached json_file_from (a_path) as json_file then
|
|
l_parser := new_json_parser (json_file)
|
|
if attached {JSON_OBJECT} l_parser.parse as jv and then l_parser.is_parsed and then
|
|
attached {JSON_OBJECT} jv.item ("server") as l_server and then
|
|
attached {JSON_STRING} l_server.item ("mode") as l_mode then
|
|
Result := l_mode.item.is_case_insensitive_equal_general ("web")
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
end
|