parsers: split out from io library

Makefile.in

@@ -25,6 +25,7 @@ headers      = @headers@
 
 llibs = \
 	lem/repl.lua \
+	lem/parsers.lua \
 	lem/io.lua \
 	lem/io/queue.lua \
 	lem/lfs.lua \
@@ -34,6 +35,7 @@ llibs = \
 
 clibs = \
 	lem/utils.so \
+	lem/parsers/core.so \
 	lem/io/core.so \
 	lem/lfs/core.so \
 	lem/http/core.so

configure

@@ -2159,7 +2159,7 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu
 ac_config_headers="$ac_config_headers libev/ev-config.h:ev-config.h.in"
 
 
-headers='lem.h lem-io.h'
+headers='lem.h lem-parsers.h'
 
 objects='bin/lem.o'
 

configure.ac

@@ -5,7 +5,7 @@ builtin_lua_version='5.2'
 AC_LANG(C)
 AC_CONFIG_HEADERS([libev/ev-config.h:ev-config.h.in])
 
-AC_SUBST([headers], ['lem.h lem-io.h'])
+AC_SUBST([headers], ['lem.h lem-parsers.h'])
 AC_SUBST([objects], ['bin/lem.o'])
 AC_SUBST([SHARED], ['-shared'])
 AC_SUBST([CPPFLAGS_PRIVATE], ['-Iinclude'])

include/lem-io.h → include/lem-parsers.h

@@ -1,6 +1,6 @@
 /*
  * This file is part of LEM, a Lua Event Machine.
- * Copyright 2011-2012 Emil Renner Berthing
+ * Copyright 2011-2013 Emil Renner Berthing
  *
  * LEM is free software: you can redistribute it and/or
  * modify it under the terms of the GNU General Public License as
@@ -16,8 +16,8 @@
  * along with LEM.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-#ifndef _LEM_IO_H
-#define _LEM_IO_H
+#ifndef _LEM_PARSERS_H
+#define _LEM_PARSERS_H
 
 #include <lem.h>
 

lem/http.lua

@@ -19,10 +19,14 @@
 local io   = require 'lem.io'
 local http = require 'lem.http.core'
 
-io.parsers['HTTPRequest'] = http.HTTPRequest
-http.HTTPRequest = nil
-io.parsers['HTTPResponse'] = http.HTTPResponse
-http.HTTPResponse = nil
+do
+	local parsers = require 'lem.parsers'
+
+	parsers.lookup['HTTPRequest'] = http.HTTPRequest
+	http.HTTPRequest = nil
+	parsers.lookup['HTTPResponse'] = http.HTTPResponse
+	http.HTTPResponse = nil
+end
 
 local tonumber = tonumber
 local concat = table.concat

lem/http/core.c

@@ -16,7 +16,7 @@
  * along with LEM.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-#include <lem-io.h>
+#include <lem-parsers.h>
 
 #if !(LUA_VERSION_NUM >= 502)
 #define lua_getuservalue lua_getfenv

lem/io.lua

@@ -16,38 +16,18 @@
 -- along with LEM.  If not, see <http://www.gnu.org/licenses/>.
 --
 
-local utils = require 'lem.utils'
-local io    = require 'lem.io.core'
+local utils  = require 'lem.utils'
+local io     = require 'lem.io.core'
 
 local type   = type
 local assert = assert
 local error  = error
 
 do
-	local parsers = io.parsers
-	local parser_available = parsers.available
-	parsers.available = nil
-	local parser_target = parsers.target
-	parsers.target = nil
-
-	function io.reader(readp)
-		return function(self, fmt, ...)
-			if fmt == nil then
-				return readp(self, parser_available)
-			end
-			if type(fmt) == 'number' then
-				return readp(self, parser_target, fmt)
-			end
-			local parser = parsers[fmt]
-			if parser == nil then
-				error('invalid format', 2)
-			end
-			return readp(self, parser, ...)
-		end
-	end
+	local parsers = require 'lem.parsers'
 
-	io.Stream.read = io.reader(io.Stream.readp)
-	io.File.read = io.reader(io.File.readp)
+	io.Stream.read = parsers.newreader(io.Stream.readp)
+	io.File.read   = parsers.newreader(io.File.readp)
 end
 
 do

lem/io/core.c

@@ -36,7 +36,7 @@
 #include <sys/sendfile.h>
 #endif
 
-#include <lem-io.h>
+#include <lem-parsers.h>
 
 static int
 io_closed(lua_State *T)
@@ -66,7 +66,6 @@ io_strerror(lua_State *T, int err)
 #include "stream.c"
 #include "server.c"
 #include "tcp.c"
-#include "parsers.c"
 
 static int
 module_index(lua_State *T)
@@ -362,23 +361,6 @@ luaopen_lem_io_core(lua_State *L)
 	/* insert the tcp table */
 	lua_setfield(L, -2, "tcp");
 
-	/* create parser table */
-	lua_createtable(L, 0, 4);
-	/* push parser_line */
-	lua_pushlightuserdata(L, (void *)&parser_available);
-	lua_setfield(L, -2, "available");
-	/* push parser_target */
-	lua_pushlightuserdata(L, (void *)&parser_target);
-	lua_setfield(L, -2, "target");
-	/* push parser_all */
-	lua_pushlightuserdata(L, (void *)&parser_all);
-	lua_setfield(L, -2, "*a");
-	/* push parser_line */
-	lua_pushlightuserdata(L, (void *)&parser_line);
-	lua_setfield(L, -2, "*l");
-	/* insert parser table */
-	lua_setfield(L, -2, "parsers");
-
 	/* create metatable for the module */
 	lua_newtable(L);
 	/* insert the index function */

lem/parsers.lua

@@ -0,0 +1,48 @@
+--
+-- This file is part of LEM, a Lua Event Machine.
+-- Copyright 2011-2012 Emil Renner Berthing
+--
+-- LEM is free software: you can redistribute it and/or
+-- modify it under the terms of the GNU General Public License as
+-- published by the Free Software Foundation, either version 3 of
+-- the License, or (at your option) any later version.
+--
+-- LEM is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with LEM.  If not, see <http://www.gnu.org/licenses/>.
+--
+
+local parsers = require 'lem.parsers.core'
+
+local type   = type
+local error  = error
+
+local lookup = parsers.lookup
+local available = lookup.available
+lookup.available = nil
+local target = lookup.target
+lookup.target = nil
+
+function parsers.newreader(readp)
+	return function(self, fmt, ...)
+		if fmt == nil then
+			return readp(self, available)
+		end
+		if type(fmt) == 'number' then
+			return readp(self, target, fmt)
+		end
+		local parser = lookup[fmt]
+		if parser == nil then
+			error('invalid format', 2)
+		end
+		return readp(self, parser, ...)
+	end
+end
+
+return parsers
+
+-- vim: ts=2 sw=2 noet:

lem/io/parsers.c → lem/parsers/core.c

@@ -1,6 +1,6 @@
 /*
  * This file is part of LEM, a Lua Event Machine.
- * Copyright 2011-2012 Emil Renner Berthing
+ * Copyright 2011-2013 Emil Renner Berthing
  *
  * LEM is free software: you can redistribute it and/or
  * modify it under the terms of the GNU General Public License as
@@ -16,6 +16,8 @@
  * along with LEM.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#include <lem-parsers.h>
+
 /*
  * read available data
  */
@@ -173,3 +175,29 @@ static const struct lem_parser parser_line = {
 	.init    = parse_line_init,
 	.process = parse_line_process,
 };
+
+int
+luaopen_lem_parsers_core(lua_State *L)
+{
+	/* create module table */
+	lua_newtable(L);
+
+	/* create lookup table */
+	lua_createtable(L, 0, 4);
+	/* push parser_line */
+	lua_pushlightuserdata(L, (void *)&parser_available);
+	lua_setfield(L, -2, "available");
+	/* push parser_target */
+	lua_pushlightuserdata(L, (void *)&parser_target);
+	lua_setfield(L, -2, "target");
+	/* push parser_all */
+	lua_pushlightuserdata(L, (void *)&parser_all);
+	lua_setfield(L, -2, "*a");
+	/* push parser_line */
+	lua_pushlightuserdata(L, (void *)&parser_line);
+	lua_setfield(L, -2, "*l");
+	/* insert lookup table */
+	lua_setfield(L, -2, "lookup");
+
+	return 1;
+}