Mercurial > gsoc-lua / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/csv.lua	Fri Mar 26 01:30:24 2010 +0000
@@ -0,0 +1,40 @@
+
+local lpeg = require "lpeg"
+local setmetatable, tonumber = 
+	setmetatable, tonumber;
+local s_char = string.char;
+
+module("csv");
+
+local delim = lpeg.P",";
+
+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;