Improve converters.

Replace old syntax with new one and improve
implementation.

test/autotest/test_suite/json_author_converter.e

@@ -4,7 +4,8 @@ note
     date: "$Date$"
     revision: "$Revision$"
 
-class JSON_AUTHOR_CONVERTER
+class
+	JSON_AUTHOR_CONVERTER
 
 inherit
     JSON_CONVERTER
@@ -29,12 +30,10 @@ feature -- Access
 feature -- Conversion
 
     from_json (j: like to_json): detachable like object
-        local
-            ucs: detachable STRING_32
         do
-            ucs ?= json.object (j.item (name_key), Void)
+            if attached {STRING_32} json.object (j.item (name_key), Void) as l_name then
-            check ucs /= Void end
+				create Result.make (l_name)
-            create Result.make (ucs)
+            end
         end
 
     to_json (o: like object): JSON_OBJECT
@@ -46,6 +45,7 @@ feature -- Conversion
 feature {NONE} -- Implementation
 
     name_key: JSON_STRING
+			-- Author's name label.
         once
             create Result.make_json ("name")
         end

test/autotest/test_suite/json_book_collection_converter.e

@@ -4,7 +4,8 @@ note
     date: "$Date$"
     revision: "$Revision$"
 
-class JSON_BOOK_COLLECTION_CONVERTER
+class
+	JSON_BOOK_COLLECTION_CONVERTER
 
 inherit
     JSON_CONVERTER
@@ -30,30 +31,32 @@ feature -- Conversion
 
     from_json (j: like to_json): detachable like object
         local
-            ucs: detachable STRING_32
+            l_books: LINKED_LIST [BOOK]
-            ll: LINKED_LIST [BOOK]
-            b: detachable BOOK
-            ja: detachable JSON_ARRAY
-            i: INTEGER
         do
-            ucs ?= json.object (j.item (name_key), Void)
+            if
-            check ucs /= Void end
+				attached {STRING_32} json.object (j.item (name_key), Void) as l_name and
-            create Result.make (ucs)
+				attached {JSON_ARRAY} j.item (books_key) as l_json_array
-            ja ?= j.item (books_key)
+            then
-            check ja /= Void end
+				create Result.make (l_name)
-            from
+				create l_books.make
-                i := 1
+
-                create ll.make
+				across
+					l_json_array as it
 				until
-                i > ja.count
+					Result = Void
 				loop
-                b ?= json.object (ja [i], "BOOK")
+					if attached {BOOK} json.object (it.item, "BOOK") as l_book then
-                check b /= Void end
+						l_books.extend (l_book)
-                ll.force (b)
+					else
-                i := i + 1
+						Result := Void
+							-- Failed
+					end
+				end
+
+				if Result /= Void then
+					Result.add_books (l_books)
+				end
             end
-            check ll /= Void end
-            Result.add_books (ll)
         end
 
     to_json (o: like object): JSON_OBJECT
@@ -66,11 +69,13 @@ feature -- Conversion
 feature    {NONE} -- Implementation
 
     name_key: JSON_STRING
+			-- Collection's name label.
         once
             create Result.make_json ("name")
         end
 
     books_key: JSON_STRING
+			-- Book list label.
         once
             create Result.make_json ("books")
         end

test/autotest/test_suite/json_book_converter.e

@@ -4,7 +4,8 @@ note
     date: "$Date$"
     revision: "$Revision$"
 
-class JSON_BOOK_CONVERTER
+class
+	JSON_BOOK_CONVERTER
 
 inherit
     JSON_CONVERTER
@@ -31,17 +32,14 @@ feature -- Access
 feature -- Conversion
 
     from_json (j: like to_json): detachable like object
-        local
-            ucs1, ucs2: detachable STRING_32
-            a: detachable AUTHOR
         do
-            ucs1 ?= json.object (j.item (title_key), Void)
+            if
-            check ucs1 /= Void end
+				attached {STRING_32} json.object (j.item (title_key), Void) as l_title and
-            ucs2 ?= json.object (j.item (isbn_key), Void)
+				attached {STRING_32} json.object (j.item (isbn_key), Void) as l_isbn and
-            check ucs2 /= Void end
+				attached {AUTHOR} json.object (j.item (author_key), "AUTHOR") as l_author
-            a ?= json.object (j.item (author_key), "AUTHOR")
+            then
-            check a /= Void end
+				create Result.make (l_title, l_author, l_isbn)
-            create Result.make (ucs1, a, ucs2)
+            end
         end
 
     to_json (o: like object): JSON_OBJECT
@@ -55,16 +53,19 @@ feature -- Conversion
 feature {NONE} -- Implementation
 
     title_key: JSON_STRING
+			-- Book's title label.
         once
             create Result.make_json ("title")
         end
 
     isbn_key: JSON_STRING
+			-- Book ISBN label.
         once
             create Result.make_json ("isbn")
         end
 
     author_key: JSON_STRING
+			-- Author label.
         once
             create Result.make_json ("author")
         end