Apply pretty print tool.

Apply on each class in test suite and library.

test/autotest/test_suite/json_book_collection_converter.e

@@ -1,45 +1,45 @@
 note
-    description: "A JSON converter for BOOK_COLLECTION"
-    author: "Paul Cohen"
-    date: "$Date$"
-    revision: "$Revision$"
+	description: "A JSON converter for BOOK_COLLECTION"
+	author: "Paul Cohen"
+	date: "$Date$"
+	revision: "$Revision$"
 
 class
 	JSON_BOOK_COLLECTION_CONVERTER
 
 inherit
-    JSON_CONVERTER
+
+	JSON_CONVERTER
 
 create
-    make
+	make
 
 feature {NONE} -- Initialization
 
-    make
-        local
-            ucs: STRING_32
-        do
-            create ucs.make_from_string ("")
-            create object.make (ucs)
-        end
+	make
+		local
+			ucs: STRING_32
+		do
+			create ucs.make_from_string ("")
+			create object.make (ucs)
+		end
 
 feature -- Access
 
-    object: BOOK_COLLECTION
+	object: BOOK_COLLECTION
 
 feature -- Conversion
 
-    from_json (j: like to_json): detachable like object
-        local
-            l_books: LINKED_LIST [BOOK]
-        do
-            if
+	from_json (j: like to_json): detachable like object
+		local
+			l_books: LINKED_LIST [BOOK]
+		do
+			if
 				attached {STRING_32} json.object (j.item (name_key), Void) as l_name and
 				attached {JSON_ARRAY} j.item (books_key) as l_json_array
-            then
+			then
 				create Result.make (l_name)
 				create l_books.make
-
 				across
 					l_json_array as it
 				until
@@ -52,32 +52,31 @@ feature -- Conversion
 							-- Failed
 					end
 				end
-
 				if Result /= Void then
 					Result.add_books (l_books)
 				end
-            end
-        end
+			end
+		end
 
-    to_json (o: like object): JSON_OBJECT
-        do
-            create Result.make
-            Result.put (json.value (o.name), name_key)
-            Result.put (json.value (o.books), books_key)
-        end
+	to_json (o: like object): JSON_OBJECT
+		do
+			create Result.make
+			Result.put (json.value (o.name), name_key)
+			Result.put (json.value (o.books), books_key)
+		end
 
-feature    {NONE} -- Implementation
+feature {NONE} -- Implementation
 
-    name_key: JSON_STRING
+	name_key: JSON_STRING
 			-- Collection's name label.
-        once
-            create Result.make_json ("name")
-        end
+		once
+			create Result.make_json ("name")
+		end
 
-    books_key: JSON_STRING
+	books_key: JSON_STRING
 			-- Book list label.
-        once
-            create Result.make_json ("books")
-        end
+		once
+			create Result.make_json ("books")
+		end
 
 end -- class JSON_BOOK_COLLECTION_CONVERTER