eJson initial import

json/scanner/json_reader.e

@@ -0,0 +1,97 @@
+indexing
+	description: "Objects that ..."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	JSON_READER
+
+create
+	make
+feature -- Access
+	make(a_json:STRING) is
+			--
+			do
+				representation:=a_json
+				index:=1
+			end
+
+	read:CHARACTER is
+			--
+			do
+			 if not representation.is_empty then
+				Result:= representation.item (index)
+			 end
+
+			end
+
+
+	actual:CHARACTER is
+			--
+			do
+				Result:=representation.item (index)
+			end
+
+	has_next:BOOLEAN is
+			--
+			do
+				if index <= representation.count then
+					Result:=True
+				end
+			end
+
+	has_previous:BOOLEAN is
+			--
+			do
+				if index >=1  then
+					Result:=True
+				end
+			end
+	next is
+			--
+			require
+			   has_more_elements: has_next
+			do
+				index:=index + 1
+			ensure
+				incremented: old index + 1 = index
+			end
+
+	previous is
+			--
+			require
+			   not_is_first: has_previous
+			do
+				index:=index - 1
+			ensure
+				incremented: old index - 1 = index
+			end
+
+
+	skip_withe_spaces is
+			-- Remove withe spaces
+			do
+				from
+				until not actual.is_space and has_next
+				loop
+					next
+				end
+			end
+
+	json_substring (start_index, end_index: INTEGER_32):STRING is
+	  		--
+	  		do
+	  			Result:=representation.substring (start_index, end_index)
+	  		end
+
+
+
+
+feature -- Implementation
+	representation:STRING
+		--linear representation of the original json string
+	index:INTEGER
+		--actual index
+
+end