Added set_representation feature.

json/scanner/json_reader.e

@@ -15,12 +15,20 @@ feature {NONE} -- Initialization
     make (a_json: STRING) is
             -- Initialize Reader
         do
-			representation := a_json
+            set_representation (a_json)
-			index := 1
         end
 
 feature -- Commands
 
+	 set_representation (a_json: STRING) is
+            -- Set `representation'.
+        do
+        	a_json.left_adjust
+        	a_json.right_adjust
+		representation := a_json
+            index := 1
+        end
+
 	read: CHARACTER is
 			-- Read character
 		do