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.
75 lines
1.4 KiB
Plaintext
75 lines
1.4 KiB
Plaintext
note
|
|
description: "A JSON converter for BOOK"
|
|
author: "Paul Cohen"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
JSON_BOOK_CONVERTER
|
|
|
|
inherit
|
|
|
|
JSON_CONVERTER
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make
|
|
local
|
|
ucs: STRING_32
|
|
a: AUTHOR
|
|
do
|
|
create ucs.make_from_string ("")
|
|
create a.make (ucs)
|
|
create object.make (ucs, a, ucs)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
object: BOOK
|
|
|
|
feature -- Conversion
|
|
|
|
from_json (j: like to_json): detachable like object
|
|
do
|
|
if
|
|
attached {STRING_32} json.object (j.item (title_key), Void) as l_title and
|
|
attached {STRING_32} json.object (j.item (isbn_key), Void) as l_isbn and
|
|
attached {AUTHOR} json.object (j.item (author_key), "AUTHOR") as l_author
|
|
then
|
|
create Result.make (l_title, l_author, l_isbn)
|
|
end
|
|
end
|
|
|
|
to_json (o: like object): JSON_OBJECT
|
|
do
|
|
create Result.make_with_capacity (3)
|
|
Result.put (json.value (o.title), title_key)
|
|
Result.put (json.value (o.isbn), isbn_key)
|
|
Result.put (json.value (o.author), author_key)
|
|
end
|
|
|
|
feature {NONE} -- Implementation
|
|
|
|
title_key: JSON_STRING
|
|
-- Book's title label.
|
|
once
|
|
create Result.make_from_string ("title")
|
|
end
|
|
|
|
isbn_key: JSON_STRING
|
|
-- Book ISBN label.
|
|
once
|
|
create Result.make_from_string ("isbn")
|
|
end
|
|
|
|
author_key: JSON_STRING
|
|
-- Author label.
|
|
once
|
|
create Result.make_from_string ("author")
|
|
end
|
|
|
|
end -- class JSON_BOOK_CONVERTER
|