vio/vio.lua

local vio = {};

vio.__index = vio; 

function vio.open(string)

	return setmetatable({ pos = 1, data = string }, vio);

end

function vio:read(format, ...)

	if self.pos >= #self.data then return; end

	if format == "*a" then

		local oldpos = self.pos;

		self.pos = #self.data;

		return self.data:sub(oldpos, self.pos);

	elseif format == "*l" then

		local data;

		data, self.pos = self.data:match("([^\r\n]*)\r?\n?()", self.pos)

		return data;

	elseif format == "*n" then

		local data;

		data, self.pos = self.data:match("(%d+)()", self.pos)

		return tonumber(data);	

	elseif type(format) == "number" then

		local oldpos = self.pos;

		self.pos = self.pos + format;

		return self.data:sub(oldpos, self.pos-1);

	end

end

function vio:seek(whence, offset)

	if type(whence) == "number" then

		whence, offset = "cur", whence;

	end

	offset = offset or 0;

	if whence == "cur" then

		self.pos = self.pos + offset;

	elseif whence == "set" then

		self.pos = offset + 1;

	elseif whence == "end" then

		self.pos = #self.data - offset;

	end

	return self.pos;

end

local function _readline(f) return f:read("*l"); end

function vio:lines()

	return _readline, self;

end

function vio:write(...)

	for i=1,select('#', ...) do

		local dat = tostring(select(i, ...));

		self.data = self.data:sub(1, self.pos-1)..dat..self.data:sub(self.pos+#dat, -1);

	end

end

function vio:close()

	self.pos, self.data = nil, nil;

end