Jocelyn Fiat
19dbbf89e7
Implemented escaping of slash '/' only in case of '</' to avoid potential issue with javascript and </script> Many feature renaming to match Eiffel style and naming convention, kept previous feature as obsolete. Restructured the library to make easy extraction of "converter" classes if needed in the future. Updated part of the code to use new feature names.
85 lines
1.2 KiB
Plaintext
85 lines
1.2 KiB
Plaintext
note
|
|
description: "JSON Boolean values"
|
|
author: "$Author$"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
JSON_BOOLEAN
|
|
|
|
inherit
|
|
|
|
JSON_VALUE
|
|
|
|
create
|
|
make,
|
|
make_true, make_false,
|
|
make_boolean
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_value: BOOLEAN)
|
|
-- Initialize Current JSON boolean with `a_boolean'.
|
|
do
|
|
item := a_value
|
|
end
|
|
|
|
make_true
|
|
-- Initialize Current JSON boolean with True.
|
|
do
|
|
make (True)
|
|
end
|
|
|
|
make_false
|
|
-- Initialize Current JSON boolean with False.
|
|
do
|
|
make (False)
|
|
end
|
|
|
|
make_boolean (a_item: BOOLEAN)
|
|
-- Initialize.
|
|
obsolete
|
|
"Use `make' Sept/2014"
|
|
do
|
|
make (a_item)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
item: BOOLEAN
|
|
-- Content
|
|
|
|
hash_code: INTEGER
|
|
-- Hash code value
|
|
do
|
|
Result := item.hash_code
|
|
end
|
|
|
|
representation: STRING
|
|
do
|
|
if item then
|
|
Result := "true"
|
|
else
|
|
Result := "false"
|
|
end
|
|
end
|
|
|
|
feature -- Visitor pattern
|
|
|
|
accept (a_visitor: JSON_VISITOR)
|
|
-- Accept `a_visitor'.
|
|
-- (Call `visit_json_boolean' procedure on `a_visitor'.)
|
|
do
|
|
a_visitor.visit_json_boolean (Current)
|
|
end
|
|
|
|
feature -- Status report
|
|
|
|
debug_output: STRING
|
|
-- String that should be displayed in debugger to represent `Current'.
|
|
do
|
|
Result := item.out
|
|
end
|
|
|
|
end
|