Text inputstream: Allow obtaining cursor position

text.lua

@@ -62,13 +62,17 @@ function trim_spacing(text)
 end
 
 local inputstream_metatable = {
-	__index = {read = function(self, count)
+	__index = {
+		read = function(self, count)
 			local cursor = self.cursor + 1
 			self.cursor = self.cursor + count
 			local text = self.text:sub(cursor, self.cursor)
 			return text ~= "" and text or nil
-	end}
+		end,
+		seek = function(self) return self.cursor end
 	}
+}
+--> inputstream "handle"; only allows reading characters (given a count), seeking does not accept any arguments
 function inputstream(text)
 	return setmetatable({text = text, cursor = 0}, inputstream_metatable)
 end