tsv.lua

local lpeg = require "lpeg"

local setmetatable, tonumber = 

	setmetatable, tonumber;

local s_char = string.char;

module("tsv");

local delim = lpeg.P"\t";

local char_escape = lpeg.R"az" + lpeg.S"\\\r\n" + delim;

local numeric_escape = (lpeg.R"09"^1)^-3;

local escape = (lpeg.P"\\" * (char_escape + numeric_escape));

local value = (escape + (1-delim))^0;

local escape_map = setmetatable({

	t = "\t", b = "\b", f = "\f";

	n = "\n", r = "\r", v = "\v"; },

		{ __index = function (_, n)

			if tonumber(n) then

				print"n"

				return s_char(tonumber(n));

			else

				return n;

			end

		end

	});

function read_record(line, value_callback)

	local fieldpos = 0;

	local callback = function (v)

			return value_callback(v:gsub("\\(.)", escape_map));

		end;

	repeat

		fieldpos = lpeg.match(value / callback, line, fieldpos+1);

	until fieldpos >= #line;

end

return _M;