Merge pull request #9 from Conaclos/working

Apply pretty tool.

Author: jvelilla

library/extras/file/json_file_reader.e

@@ -26,7 +26,9 @@ feature -- Access
 					create template_content.make_empty
 					l_file.read_stream (l_file.count)
 					l_last_string := l_file.last_string
-					check l_last_string /= Void end -- implied by postcondition of `l_file.read_stream'
+					check
+						l_last_string /= Void
+					end -- implied by postcondition of `l_file.read_stream'
 					template_content.append (l_last_string.string)
 					Result := template_content
 					l_file.close

library/extras/visitor/json_iterator.e

@@ -1,18 +1,16 @@
 note
-	description:
-
-		"JSON Iterator"
-
+	description: "JSON Iterator"
 	pattern: "Iterator visitor"
 	author: "Jocelyn Fiat"
-	license:"MIT (see http://www.opensource.org/licenses/mit-license.php)"
+	license: "MIT (see http://www.opensource.org/licenses/mit-license.php)"
 	date: "2013/08/01"
 	revision: "Revision 0.1"
 
 deferred class
 	JSON_ITERATOR
 
 inherit
+
 	JSON_VISITOR
 
 feature -- Visitor Pattern
@@ -52,7 +50,7 @@ feature -- Visitor Pattern
 			end
 		end
 
-    visit_json_string (a_json_string: JSON_STRING)
+	visit_json_string (a_json_string: JSON_STRING)
 			-- Visit `a_json_string'.
 		do
 		end

library/extras/visitor/json_pretty_string_visitor.e

@@ -6,11 +6,11 @@ class
 	JSON_PRETTY_STRING_VISITOR
 
 inherit
+
 	JSON_VISITOR
 
 create
-	make,
-	make_custom
+	make, make_custom
 
 feature -- Initialization
 
@@ -26,15 +26,14 @@ feature -- Initialization
 			output := a_output
 			create indentation.make_empty
 			indentation_step := "%T"
-
 			object_count_inlining := a_object_count_inlining
 			array_count_inlining := a_array_count_inlining
 		end
 
 feature -- Access
 
 	output: STRING_32
-		-- JSON representation
+			-- JSON representation
 
 	indentation: like output
 
@@ -60,6 +59,7 @@ feature -- Access
 		end
 
 	object_count_inlining: INTEGER
+
 	array_count_inlining: INTEGER
 
 feature -- Visitor Pattern
@@ -82,10 +82,7 @@ feature -- Visitor Pattern
 			until
 				l_json_array.off
 			loop
-				if
-					line_number > l_line or
-					l_multiple_lines
-				then
+				if line_number > l_line or l_multiple_lines then
 					new_line
 				end
 				value := l_json_array.item
@@ -96,10 +93,7 @@ feature -- Visitor Pattern
 				end
 			end
 			exdent
-			if 
-				line_number > l_line or
-				l_json_array.count >= array_count_inlining 
-			then
+			if line_number > l_line or l_json_array.count >= array_count_inlining then
 				new_line
 			end
 			output.append ("]")
@@ -140,10 +134,7 @@ feature -- Visitor Pattern
 			until
 				l_pairs.off
 			loop
-				if 
-					line_number > l_line or
-					l_multiple_lines
-				then
+				if line_number > l_line or l_multiple_lines then
 					new_line
 				end
 				l_pairs.key_for_iteration.accept (Current)
@@ -155,16 +146,13 @@ feature -- Visitor Pattern
 				end
 			end
 			exdent
-			if 
-				line_number > l_line or
-				l_pairs.count >= object_count_inlining 
-			then
+			if line_number > l_line or l_pairs.count >= object_count_inlining then
 				new_line
 			end
 			output.append ("}")
 		end
 
-    visit_json_string (a_json_string: JSON_STRING)
+	visit_json_string (a_json_string: JSON_STRING)
 			-- Visit `a_json_string'.
 		do
 			output.append ("%"")

library/extras/visitor/json_visitor.e

@@ -1,11 +1,8 @@
 note
-	description:
-
-		"JSON Visitor"
-
+	description: "JSON Visitor"
 	pattern: "Visitor"
 	author: "Javier Velilla"
-	license:"MIT (see http://www.opensource.org/licenses/mit-license.php)"
+	license: "MIT (see http://www.opensource.org/licenses/mit-license.php)"
 	date: "2008/08/24"
 	revision: "Revision 0.1"
 
@@ -49,7 +46,7 @@ feature -- Visitor Pattern
 		deferred
 		end
 
-    visit_json_string (a_json_string: JSON_STRING)
+	visit_json_string (a_json_string: JSON_STRING)
 			-- Visit `a_json_string'.
 		require
 			a_json_string_not_void: a_json_string /= Void

library/extras/visitor/print_json_visitor.e

@@ -8,9 +8,11 @@ class
 	PRINT_JSON_VISITOR
 
 inherit
+
 	JSON_VISITOR
 
-create make
+create
+	make
 
 feature -- Initialization
 
@@ -23,7 +25,7 @@ feature -- Initialization
 feature -- Access
 
 	to_json: STRING
-		-- JSON representation
+			-- JSON representation
 
 feature -- Visitor Pattern
 
@@ -33,7 +35,7 @@ feature -- Visitor Pattern
 			value: JSON_VALUE
 			l_json_array: ARRAYED_LIST [JSON_VALUE]
 		do
-			l_json_array:=a_json_array.array_representation
+			l_json_array := a_json_array.array_representation
 			to_json.append ("[")
 			from
 				l_json_array.start
@@ -44,7 +46,7 @@ feature -- Visitor Pattern
 				value.accept (Current)
 				l_json_array.forth
 				if not l_json_array.after then
-					to_json.append(",")
+					to_json.append (",")
 				end
 			end
 			to_json.append ("]")
@@ -71,7 +73,7 @@ feature -- Visitor Pattern
 	visit_json_object (a_json_object: JSON_OBJECT)
 			-- Visit `a_json_object'.
 		local
-			l_pairs: HASH_TABLE[JSON_VALUE,JSON_STRING]
+			l_pairs: HASH_TABLE [JSON_VALUE, JSON_STRING]
 		do
 			l_pairs := a_json_object.map_representation
 			to_json.append ("{")
@@ -91,7 +93,7 @@ feature -- Visitor Pattern
 			to_json.append ("}")
 		end
 
-    visit_json_string (a_json_string: JSON_STRING)
+	visit_json_string (a_json_string: JSON_STRING)
 			-- Visit `a_json_string'.
 		do
 			to_json.append ("%"")

library/kernel/converters/json_arrayed_list_converter.e

@@ -5,20 +5,22 @@ note
 	revision: "$Revision$"
 	file: "$HeadURL: $"
 
-class JSON_ARRAYED_LIST_CONVERTER
+class
+	JSON_ARRAYED_LIST_CONVERTER
 
 inherit
-    JSON_LIST_CONVERTER
+
+	JSON_LIST_CONVERTER
 		redefine
 			object
 		end
 
 create
-    make
+	make
 
 feature -- Access
 
-    object: ARRAYED_LIST [detachable ANY]
+	object: ARRAYED_LIST [detachable ANY]
 
 feature {NONE} -- Factory
 

library/kernel/converters/json_converter.e

@@ -5,32 +5,34 @@ note
 	revision: "$Revision$"
 	file: "$HeadURL: $"
 
-deferred class JSON_CONVERTER
+deferred class
+	JSON_CONVERTER
 
 inherit
-    SHARED_EJSON
+
+	SHARED_EJSON
 
 feature -- Access
 
-    object: ANY
-            -- Eiffel object
-        deferred
-        end
+	object: ANY
+			-- Eiffel object
+		deferred
+		end
 
 feature -- Conversion
 
-    from_json (j: attached like to_json): detachable like object
-            -- Convert from JSON value. 
+	from_json (j: attached like to_json): detachable like object
+			-- Convert from JSON value.
 			-- Returns Void if unable to convert
-        deferred
-        end
+		deferred
+		end
 
-    to_json (o: like object): detachable JSON_VALUE
-            -- Convert to JSON value
-        deferred
-        end
+	to_json (o: like object): detachable JSON_VALUE
+			-- Convert to JSON value
+		deferred
+		end
 
 invariant
-    has_eiffel_object: object /= Void -- An empty object must be created at creation time!
+	has_eiffel_object: object /= Void -- An empty object must be created at creation time!
 
 end