45 lines
446 B
Plaintext
45 lines
446 B
Plaintext
indexing
|
|
description: "JSON Truth values"
|
|
author: "Javier Velilla"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
|
|
JSON_BOOLEAN
|
|
|
|
inherit
|
|
JSON_VALUE
|
|
|
|
create
|
|
|
|
make_boolean
|
|
|
|
feature -- Initialization
|
|
|
|
make_boolean (an_item: BOOLEAN) is
|
|
--
|
|
do
|
|
item := an_item
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
item: BOOLEAN
|
|
|
|
to_json: STRING is
|
|
--
|
|
do
|
|
Result := item.out
|
|
end
|
|
|
|
hash_code: INTEGER is
|
|
--
|
|
do
|
|
Result := item.hash_code
|
|
end
|
|
|
|
|
|
|
|
end
|