Added set_representation feature.

json/scanner/json_reader.e

@@ -12,15 +12,23 @@ create
 
 feature {NONE} -- Initialization
 
-	make (a_json: STRING) is
+    make (a_json: STRING) is
-			-- Initialize Reader
+            -- Initialize Reader
-		do
+        do
-			representation := a_json
+            set_representation (a_json)
-			index := 1
+        end
-		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