Added set_representation feature.

2009-08-14 11:09:38 +00:00
parent ab19cc2b16
commit aed8d1a516
1 changed files with 14 additions and 6 deletions
--- a/json/scanner/json_reader.e
+++ b/json/scanner/json_reader.e
@@ -12,15 +12,23 @@ create

 feature {NONE} -- Initialization

-	make (a_json: STRING) is
-			-- Initialize Reader
-		do
-			representation := a_json
-			index := 1
-		end
+    make (a_json: STRING) is
+            -- Initialize Reader
+        do
+            set_representation (a_json)
+        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