Start phasing out internal copy of Lua

- don't build internal copy of Lua
- move 3rd party extensions (posix and rexlib) to toplevel luaext/
  directory, built by default (unless --without-lua specified)
- auto*foo checks for external Lua
- minimal tweaks to lposix.c and rpmlua.c to get them build with Lua 5.1

10 files changed, 0 insertions, 1601 deletions

diff --git a/lua/local/linit.c b/lua/local/linit.c
deleted file mode 100644
index 6f10b26fb..000000000
--- a/lua/local/linit.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include "lua.h"
-#include "lauxlib.h"
-#include "linit.h"
-
-LUA_API int luaopen_init(lua_State *L)
-{
-#include "linit.lch"
-    return 0;
-}
diff --git a/lua/local/linit.h b/lua/local/linit.h
deleted file mode 100644
index 04cbb2dd6..000000000
--- a/lua/local/linit.h
+++ /dev/null
@@ -1,6 +0,0 @@
-#ifndef LINIT_H
-#define LINIT_H
-
-int luaopen_init(lua_State *L);
-
-#endif
diff --git a/lua/local/linit.lch b/lua/local/linit.lch
deleted file mode 100644
index 56ced87cf..000000000
--- a/lua/local/linit.lch
+++ /dev/null
@@ -1,46 +0,0 @@
-/* code automatically generated by bin2c -- DO NOT EDIT */
-{
-/* #include'ing this file in a C program is equivalent to calling
-  lua_dofile(L,"local/linit.lua");
-*/
-/* local/linit.lua */
-static const unsigned char B1[]={
- 10,114,101,120, 46,110,101,119, 32, 61, 32,114,101,120, 46,110,101,119, 80, 79,
- 83, 73, 88, 10, 10,117,116,105,108, 32, 61, 32,123,125, 10, 10,102,117,110, 99,
-116,105,111,110, 32,117,116,105,108, 46,103,114,101,112, 40,101,120,112,114, 44,
- 32,102,105,108,101,110, 97,109,101, 41, 10,  9,105,102, 32,110,111,116, 32,112,
-111,115,105,120, 46,115,116, 97,116, 40,102,105,108,101,110, 97,109,101, 44, 32,
- 34,109,111,100,101, 34, 41, 32,116,104,101,110, 10,  9,  9,114,101,116,117,114,
-110, 32,110,105,108, 10,  9,101,110,100, 10,  9,108,111, 99, 97,108, 32,108,105,
-110,101,115, 32, 61, 32,123,125, 10,  9,108,111, 99, 97,108, 32,112, 97,116, 32,
- 61, 32,114,101,120, 46,110,101,119, 40,101,120,112,114, 41, 10,  9,108,111, 99,
- 97,108, 32,112,111,115, 32, 61, 32, 49, 10,  9,102,111,114, 32,108,105,110,101,
- 32,105,110, 32,105,111, 46,108,105,110,101,115, 40,102,105,108,101,110, 97,109,
-101, 41, 32,100,111, 10,  9,  9,105,102, 32,112, 97,116, 58,109, 97,116, 99,104,
- 40,108,105,110,101, 41, 32,116,104,101,110, 10,  9,  9,  9,116, 97, 98,108,101,
- 46,105,110,115,101,114,116, 40,108,105,110,101,115, 44, 32,112,111,115, 44, 32,
-108,105,110,101, 41, 10,  9,  9,101,110,100, 10,  9,  9,112,111,115, 32, 61, 32,
-112,111,115, 32, 43, 32, 49, 10,  9,101,110,100, 10,  9,105,102, 32,116, 97, 98,
-108,101, 46,103,101,116,110, 40,108,105,110,101,115, 41, 32, 61, 61, 32, 48, 32,
-116,104,101,110, 10,  9,  9,114,101,116,117,114,110, 32,110,105,108, 10,  9,101,
-110,100, 10,  9,114,101,116,117,114,110, 32,108,105,110,101,115, 10,101,110,100,
- 10, 10,102,117,110, 99,116,105,111,110, 32,117,116,105,108, 46,105,103,114,101,
-112, 40,101,120,112,114, 44, 32,102,105,108,101,110, 97,109,101, 41, 10,  9,114,
-101,116,117,114,110, 32,105,112, 97,105,114,115, 40,114,101,120, 46,103,114,101,
-112, 40,101,120,112,114, 44, 32,102,105,108,101,110, 97,109,101, 41, 41, 10,101,
-110,100, 10, 10,102,117,110, 99,116,105,111,110, 32,117,116,105,108, 46, 98,103,
-114,101,112, 40,101,120,112,114, 44, 32,102,105,108,101,110, 97,109,101, 41, 10,
-  9,105,102, 32,110,111,116, 32,112,111,115,105,120, 46,115,116, 97,116, 40,102,
-105,108,101,110, 97,109,101, 44, 32, 34,109,111,100,101, 34, 41, 32,116,104,101,
-110, 10,  9,  9,114,101,116,117,114,110, 32,110,105,108, 10,  9,101,110,100, 10,
-  9,108,111, 99, 97,108, 32,112, 97,116, 32, 61, 32,114,101,120, 46,110,101,119,
- 40,101,120,112,114, 41, 10,  9,102,111,114, 32,108,105,110,101, 32,105,110, 32,
-105,111, 46,108,105,110,101,115, 40,102,105,108,101,110, 97,109,101, 41, 32,100,
-111, 10,  9,  9,105,102, 32,112, 97,116, 58,109, 97,116, 99,104, 40,108,105,110,
-101, 41, 32,116,104,101,110, 10,  9,  9,  9,114,101,116,117,114,110, 32,116,114,
-117,101, 10,  9,  9,101,110,100, 10,  9,101,110,100, 10,  9,114,101,116,117,114,
-110, 32,102, 97,108,115,101, 10,101,110,100, 10, 10,
-};
-
- lua_dobuffer(L,(const char*)B1,sizeof(B1),"local/linit.lua");
-}
diff --git a/lua/local/linit.lua b/lua/local/linit.lua
deleted file mode 100644
index 7b134ba75..000000000
--- a/lua/local/linit.lua
+++ /dev/null
@@ -1,41 +0,0 @@
-
-rex.new = rex.newPOSIX
-
-util = {}
-
-function util.grep(expr, filename)
-	if not posix.stat(filename, "mode") then
-		return nil
-	end
-	local lines = {}
-	local pat = rex.new(expr)
-	local pos = 1
-	for line in io.lines(filename) do
-		if pat:match(line) then
-			table.insert(lines, pos, line)
-		end
-		pos = pos + 1
-	end
-	if table.getn(lines) == 0 then
-		return nil
-	end
-	return lines
-end
-
-function util.igrep(expr, filename)
-	return ipairs(rex.grep(expr, filename))
-end
-
-function util.bgrep(expr, filename)
-	if not posix.stat(filename, "mode") then
-		return nil
-	end
-	local pat = rex.new(expr)
-	for line in io.lines(filename) do
-		if pat:match(line) then
-			return true
-		end
-	end
-	return false
-end
-
diff --git a/lua/local/lposix.c b/lua/local/lposix.c
deleted file mode 100644
index 7c7cbac19..000000000
--- a/lua/local/lposix.c
+++ /dev/null
@@ -1,819 +0,0 @@
-/*
-* lposix.c
-* POSIX library for Lua 5.0. Based on original by Claudio Terra for Lua 3.x.
-* Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br>
-* 05 Nov 2003 22:09:10
-*/
-
-#include <dirent.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <grp.h>
-#include <pwd.h>
-#include <signal.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sys/stat.h>
-#include <sys/times.h>
-#include <sys/types.h>
-#include <sys/utsname.h>
-#include <sys/wait.h>
-#include <time.h>
-#include <unistd.h>
-#include <utime.h>
-
-#define MYNAME		"posix"
-#define MYVERSION	MYNAME " library for " LUA_VERSION " / Nov 2003"
-
-#include "lua.h"
-#include "lauxlib.h"
-#include "lposix.h"
-
-
-#ifndef MYBUFSIZ
-#define MYBUFSIZ 512
-#endif
-
-#include "modemuncher.c"
-
-static const char *filetype(mode_t m)
-{
-	if (S_ISREG(m))		return "regular";
-	else if (S_ISLNK(m))	return "link";
-	else if (S_ISDIR(m))	return "directory";
-	else if (S_ISCHR(m))	return "character device";
-	else if (S_ISBLK(m))	return "block device";
-	else if (S_ISFIFO(m))	return "fifo";
-	else if (S_ISSOCK(m))	return "socket";
-	else			return "?";
-}
-
-typedef int (*Selector)(lua_State *L, int i, const void *data);
-
-static int doselection(lua_State *L, int i, const char *const S[], Selector F, const void *data)
-{
-	if (lua_isnone(L, i))
-	{
-		lua_newtable(L);
-		for (i=0; S[i]!=NULL; i++)
-		{
-			lua_pushstring(L, S[i]);
-			F(L, i, data);
-			lua_settable(L, -3);
-		}
-		return 1;
-	}
-	else
-	{
-		int j=luaL_findstring(luaL_checkstring(L, i), S);
-		if (j==-1) luaL_argerror(L, i, "unknown selector");
-		return F(L, j, data);
-	}
-}
-
-static void storeindex(lua_State *L, int i, const char *value)
-{
-	lua_pushstring(L, value);
-	lua_rawseti(L, -2, i);
-}
-
-static void storestring(lua_State *L, const char *name, const char *value)
-{
-	lua_pushstring(L, name);
-	lua_pushstring(L, value);
-	lua_settable(L, -3);
-}
-
-static void storenumber(lua_State *L, const char *name, lua_Number value)
-{
-	lua_pushstring(L, name);
-	lua_pushnumber(L, value);
-	lua_settable(L, -3);
-}
-
-static int pusherror(lua_State *L, const char *info)
-{
-	lua_pushnil(L);
-	if (info==NULL)
-		lua_pushstring(L, strerror(errno));
-	else
-		lua_pushfstring(L, "%s: %s", info, strerror(errno));
-	lua_pushnumber(L, errno);
-	return 3;
-}
-
-static int pushresult(lua_State *L, int i, const char *info)
-{
-	if (i != -1)
-	{
-		lua_pushnumber(L, i);
-		return 1;
-	}
-	else
-		return pusherror(L, info);
-}
-
-static void badoption(lua_State *L, int i, const char *what, int option)
-{
-	luaL_argerror(L, 2,
-		lua_pushfstring(L, "unknown %s option `%c'", what, option));
-}
-
-static uid_t mygetuid(lua_State *L, int i)
-{
-	if (lua_isnone(L, i))
-		return -1;
-	else if (lua_isnumber(L, i))
-		return (uid_t) lua_tonumber(L, i);
-	else if (lua_isstring(L, i))
-	{
-		struct passwd *p=getpwnam(lua_tostring(L, i));
-		return (p==NULL) ? -1 : p->pw_uid;
-	}
-	else
-		return luaL_typerror(L, i, "string or number");
-}
-
-static gid_t mygetgid(lua_State *L, int i)
-{
-	if (lua_isnone(L, i))
-		return -1;
-	else if (lua_isnumber(L, i))
-		return (gid_t) lua_tonumber(L, i);
-	else if (lua_isstring(L, i))
-	{
-		struct group *g=getgrnam(lua_tostring(L, i));
-		return (g==NULL) ? -1 : g->gr_gid;
-	}
-	else
-		return luaL_typerror(L, i, "string or number");
-}
-
-
-
-static int Perrno(lua_State *L)			/** errno() */
-{
-	lua_pushstring(L, strerror(errno));
-	lua_pushnumber(L, errno);
-	return 2;
-}
-
-
-static int Pdir(lua_State *L)			/** dir([path]) */
-{
-	const char *path = luaL_optstring(L, 1, ".");
-	DIR *d = opendir(path);
-	if (d == NULL)
-		return pusherror(L, path);
-	else
-	{
-		int i;
-		struct dirent *entry;
-		lua_newtable(L);
-		for (i=1; (entry = readdir(d)) != NULL; i++)
-			storeindex(L, i, entry->d_name);
-		closedir(d);
-		return 1;
-	}
-}
-
-
-static int aux_files(lua_State *L)
-{
-	DIR *d = lua_touserdata(L, lua_upvalueindex(1));
-	struct dirent *entry;
-	if (d == NULL) luaL_error(L, "attempt to use closed dir");
-	entry = readdir(d);
-	if (entry == NULL)
-	{
-		closedir(d);
-		lua_pushnil(L);
-		lua_replace(L, lua_upvalueindex(1));
-		lua_pushnil(L);
-	}
-	else
-	{
-		lua_pushstring(L, entry->d_name);
-#if 0
-#ifdef _DIRENT_HAVE_D_TYPE
-		lua_pushstring(L, filetype(DTTOIF(entry->d_type)));
-		return 2;
-#endif
-#endif
-	}
-	return 1;
-}
-
-static int Pfiles(lua_State *L)			/** files([path]) */
-{
-	const char *path = luaL_optstring(L, 1, ".");
-	DIR *d = opendir(path);
-	if (d == NULL)
-		return pusherror(L, path);
-	else
-	{
-		lua_pushlightuserdata(L, d);
-		lua_pushcclosure(L, aux_files, 1);
-		return 1;
-	}
-}
-
-
-static int Pgetcwd(lua_State *L)		/** getcwd() */
-{
-	char buf[MYBUFSIZ];
-	if (getcwd(buf, sizeof(buf)) == NULL)
-		return pusherror(L, ".");
-	else
-	{
-		lua_pushstring(L, buf);
-		return 1;
-	}
-}
-
-
-static int Pmkdir(lua_State *L)			/** mkdir(path) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	return pushresult(L, mkdir(path, 0777), path);
-}
-
-
-static int Pchdir(lua_State *L)			/** chdir(path) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	return pushresult(L, chdir(path), path);
-}
-
-
-static int Prmdir(lua_State *L)			/** rmdir(path) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	return pushresult(L, rmdir(path), path);
-}
-
-
-static int Punlink(lua_State *L)		/** unlink(path) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	return pushresult(L, unlink(path), path);
-}
-
-
-static int Plink(lua_State *L)			/** link(oldpath,newpath) */
-{
-	const char *oldpath = luaL_checkstring(L, 1);
-	const char *newpath = luaL_checkstring(L, 2);
-	return pushresult(L, link(oldpath, newpath), NULL);
-}
-
-
-static int Psymlink(lua_State *L)		/** symlink(oldpath,newpath) */
-{
-	const char *oldpath = luaL_checkstring(L, 1);
-	const char *newpath = luaL_checkstring(L, 2);
-	return pushresult(L, symlink(oldpath, newpath), NULL);
-}
-
-
-static int Preadlink(lua_State *L)		/** readlink(path) */
-{
-	char buf[MYBUFSIZ];
-	const char *path = luaL_checkstring(L, 1);
-	int n = readlink(path, buf, sizeof(buf));
-	if (n==-1) return pusherror(L, path);
-	lua_pushlstring(L, buf, n);
-	return 1;
-}
-
-
-static int Paccess(lua_State *L)		/** access(path,[mode]) */
-{
-	int mode=F_OK;
-	const char *path=luaL_checkstring(L, 1);
-	const char *s;
-	for (s=luaL_optstring(L, 2, "f"); *s!=0 ; s++)
-		switch (*s)
-		{
-			case ' ': break;
-			case 'r': mode |= R_OK; break;
-			case 'w': mode |= W_OK; break;
-			case 'x': mode |= X_OK; break;
-			case 'f': mode |= F_OK; break;
-			default: badoption(L, 2, "mode", *s); break;
-		}
-	return pushresult(L, access(path, mode), path);
-}
-
-
-static int Pmkfifo(lua_State *L)		/** mkfifo(path) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	return pushresult(L, mkfifo(path, 0777), path);
-}
-
-
-static int Pexec(lua_State *L)			/** exec(path,[args]) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	int i,n=lua_gettop(L);
-	char **argv = malloc((n+1)*sizeof(char*));
-	if (argv==NULL) luaL_error(L,"not enough memory");
-	argv[0] = (char*)path;
-	for (i=1; i<n; i++) argv[i] = (char*)luaL_checkstring(L, i+1);
-	argv[i] = NULL;
-	execvp(path,argv);
-	return pusherror(L, path);
-}
-
-
-static int Pfork(lua_State *L)			/** fork() */
-{
-	return pushresult(L, fork(), NULL);
-}
-
-
-static int Pwait(lua_State *L)			/** wait([pid]) */
-{
-	pid_t pid = luaL_optint(L, 1, -1);
-	return pushresult(L, waitpid(pid, NULL, 0), NULL);
-}
-
-
-static int Pkill(lua_State *L)			/** kill(pid,[sig]) */
-{
-	pid_t pid = luaL_checkint(L, 1);
-	int sig = luaL_optint(L, 2, SIGTERM);
-	return pushresult(L, kill(pid, sig), NULL);
-}
-
-
-static int Psleep(lua_State *L)			/** sleep(seconds) */
-{
-	unsigned int seconds = luaL_checkint(L, 1);
-	lua_pushnumber(L, sleep(seconds));
-	return 1;
-}
-
-
-static int Pputenv(lua_State *L)		/** putenv(string) */
-{
-	size_t l;
-	const char *s=luaL_checklstring(L, 1, &l);
-	char *e=malloc(++l);
-	return pushresult(L, (e==NULL) ? -1 : putenv(memcpy(e,s,l)), s);
-}
-
-
-#ifdef linux
-static int Psetenv(lua_State *L)		/** setenv(name,value,[over]) */
-{
-	const char *name=luaL_checkstring(L, 1);
-	const char *value=luaL_checkstring(L, 2);
-	int overwrite=lua_isnoneornil(L, 3) || lua_toboolean(L, 3);
-	return pushresult(L, setenv(name,value,overwrite), name);
-}
-
-
-static int Punsetenv(lua_State *L)		/** unsetenv(name) */
-{
-	const char *name=luaL_checkstring(L, 1);
-	unsetenv(name);
-	return 0;
-}
-#endif
-
-
-static int Pgetenv(lua_State *L)		/** getenv([name]) */
-{
-	if (lua_isnone(L, 1))
-	{
-	#ifdef __APPLE__
-		#include <crt_externs.h>
-		#define environ (*_NSGetEnviron())
-	#else
-		extern char **environ;
-	#endif /* __APPLE__ */
-		char **e;
-		if (*environ==NULL) lua_pushnil(L); else lua_newtable(L);
-		for (e=environ; *e!=NULL; e++)
-		{
-			char *s=*e;
-			char *eq=strchr(s, '=');
-			if (eq==NULL)		/* will this ever happen? */
-			{
-				lua_pushstring(L,s);
-				lua_pushboolean(L,0);
-			}
-			else
-			{
-				lua_pushlstring(L,s,eq-s);
-				lua_pushstring(L,eq+1);
-			}
-			lua_settable(L,-3);
-		}
-	}
-	else
-		lua_pushstring(L, getenv(luaL_checkstring(L, 1)));
-	return 1;
-}
-
-
-static int Pumask(lua_State *L)			/** umask([mode]) */
-{
-	char m[10];
-	mode_t mode;
-	umask(mode=umask(0));
-	mode=(~mode)&0777;
-	if (!lua_isnone(L, 1))
-	{
-		if (mode_munch(&mode, luaL_checkstring(L, 1)))
-		{
-			lua_pushnil(L);
-			return 1;
-		}
-		mode&=0777;
-		umask(~mode);
-	}
-	modechopper(mode, m);
-	lua_pushstring(L, m);
-	return 1;
-}
-
-
-static int Pchmod(lua_State *L)			/** chmod(path,mode) */
-{
-	mode_t mode;
-	struct stat s;
-	const char *path = luaL_checkstring(L, 1);
-	const char *modestr = luaL_checkstring(L, 2);
-	if (stat(path, &s)) return pusherror(L, path);
-	mode = s.st_mode;
-	if (mode_munch(&mode, modestr)) luaL_argerror(L, 2, "bad mode");
-	return pushresult(L, chmod(path, mode), path);
-}
-
-
-static int Pchown(lua_State *L)			/** chown(path,uid,gid) */
-{
-	const char *path = luaL_checkstring(L, 1);
-	uid_t uid = mygetuid(L, 2);
-	gid_t gid = mygetgid(L, 3);
-	return pushresult(L, chown(path, uid, gid), path);
-}
-
-
-static int Putime(lua_State *L)			/** utime(path,[mtime,atime]) */
-{
-	struct utimbuf times;
-	time_t currtime = time(NULL);
-	const char *path = luaL_checkstring(L, 1);
-	times.modtime = luaL_optnumber(L, 2, currtime);
-	times.actime  = luaL_optnumber(L, 3, currtime);
-	return pushresult(L, utime(path, &times), path);
-}
-
-
-static int FgetID(lua_State *L, int i, const void *data)
-{
-	switch (i)
-	{
-		case 0:	lua_pushnumber(L, getegid());	break;
-		case 1:	lua_pushnumber(L, geteuid());	break;
-		case 2:	lua_pushnumber(L, getgid());	break;
-		case 3:	lua_pushnumber(L, getuid());	break;
-		case 4:	lua_pushnumber(L, getpgrp());	break;
-		case 5:	lua_pushnumber(L, getpid());	break;
-		case 6:	lua_pushnumber(L, getppid());	break;
-	}
-	return 1;
-}
-
-static const char *const SgetID[] =
-{
-	"egid", "euid", "gid", "uid", "pgrp", "pid", "ppid", NULL
-};
-
-static int Pgetprocessid(lua_State *L)		/** getprocessid([selector]) */
-{
-	return doselection(L, 1, SgetID, FgetID, NULL);
-}
-
-
-static int Pttyname(lua_State *L)		/** ttyname(fd) */
-{
-	int fd=luaL_optint(L, 1, 0);
-	lua_pushstring(L, ttyname(fd));
-	return 1;
-}
-
-static int Pctermid(lua_State *L)		/** ctermid() */
-{
-	char b[L_ctermid];
-	lua_pushstring(L, ctermid(b));
-	return 1;
-}
-
-
-static int Pgetlogin(lua_State *L)		/** getlogin() */
-{
-	lua_pushstring(L, getlogin());
-	return 1;
-}
-
-
-static int Fgetpasswd(lua_State *L, int i, const void *data)
-{
-	const struct passwd *p=data;
-	switch (i)
-	{
-		case 0: lua_pushstring(L, p->pw_name); break;
-		case 1: lua_pushnumber(L, p->pw_uid); break;
-		case 2: lua_pushnumber(L, p->pw_gid); break;
-		case 3: lua_pushstring(L, p->pw_dir); break;
-		case 4: lua_pushstring(L, p->pw_shell); break;
-/* not strictly POSIX */
-		case 5: lua_pushstring(L, p->pw_gecos); break;
-		case 6: lua_pushstring(L, p->pw_passwd); break;
-	}
-	return 1;
-}
-
-static const char *const Sgetpasswd[] =
-{
-	"name", "uid", "gid", "dir", "shell", "gecos", "passwd", NULL
-};
-
-
-static int Pgetpasswd(lua_State *L)		/** getpasswd(name or id) */
-{
-	struct passwd *p=NULL;
-	if (lua_isnoneornil(L, 1))
-		p = getpwuid(geteuid());
-	else if (lua_isnumber(L, 1))
-		p = getpwuid((uid_t)lua_tonumber(L, 1));
-	else if (lua_isstring(L, 1))
-		p = getpwnam(lua_tostring(L, 1));
-	else
-		luaL_typerror(L, 1, "string or number");
-	if (p==NULL)
-		lua_pushnil(L);
-	else
-		doselection(L, 2, Sgetpasswd, Fgetpasswd, p);
-	return 1;
-}
-
-
-static int Pgetgroup(lua_State *L)		/** getgroup(name or id) */
-{
-	struct group *g=NULL;
-	if (lua_isnumber(L, 1))
-		g = getgrgid((gid_t)lua_tonumber(L, 1));
-	else if (lua_isstring(L, 1))
-		g = getgrnam(lua_tostring(L, 1));
-	else
-		luaL_typerror(L, 1, "string or number");
-	if (g==NULL)
-		lua_pushnil(L);
-	else
-	{
-		int i;
-		lua_newtable(L);
-		storestring(L, "name", g->gr_name);
-		storenumber(L, "gid", g->gr_gid);
-		for (i=0; g->gr_mem[i] != NULL; i++)
-			storeindex(L, i+1, g->gr_mem[i]);
-	}
-	return 1;
-}
-
-
-static int Psetuid(lua_State *L)		/** setuid(name or id) */
-{
-	return pushresult(L, setuid(mygetuid(L, 1)), NULL);
-}
-
-
-static int Psetgid(lua_State *L)		/** setgid(name or id) */
-{
-	return pushresult(L, setgid(mygetgid(L, 1)), NULL);
-}
-
-struct mytimes
-{
- struct tms t;
- clock_t elapsed;
-};
-
-#define pushtime(L,x)		lua_pushnumber(L,((lua_Number)x)/CLOCKS_PER_SEC)
-
-static int Ftimes(lua_State *L, int i, const void *data)
-{
-	const struct mytimes *t=data;
-	switch (i)
-	{
-		case 0: pushtime(L, t->t.tms_utime); break;
-		case 1: pushtime(L, t->t.tms_stime); break;
-		case 2: pushtime(L, t->t.tms_cutime); break;
-		case 3: pushtime(L, t->t.tms_cstime); break;
-		case 4: pushtime(L, t->elapsed); break;
-	}
-	return 1;
-}
-
-static const char *const Stimes[] =
-{
-	"utime", "stime", "cutime", "cstime", "elapsed", NULL
-};
-
-#define storetime(L,name,x)	storenumber(L,name,(lua_Number)x/CLOCKS_PER_SEC)
-
-static int Ptimes(lua_State *L)			/** times() */
-{
-	struct mytimes t;
-	t.elapsed = times(&t.t);
-	return doselection(L, 1, Stimes, Ftimes, &t);
-}
-
-
-struct mystat
-{
-	struct stat s;
-	char mode[10];
-	const char *type;
-};
-
-static int Fstat(lua_State *L, int i, const void *data)
-{
-	const struct mystat *s=data;
-	switch (i)
-	{
-		case 0: lua_pushstring(L, s->mode); break;
-		case 1: lua_pushnumber(L, s->s.st_ino); break;
-		case 2: lua_pushnumber(L, s->s.st_dev); break;
-		case 3: lua_pushnumber(L, s->s.st_nlink); break;
-		case 4: lua_pushnumber(L, s->s.st_uid); break;
-		case 5: lua_pushnumber(L, s->s.st_gid); break;
-		case 6: lua_pushnumber(L, s->s.st_size); break;
-		case 7: lua_pushnumber(L, s->s.st_atime); break;
-		case 8: lua_pushnumber(L, s->s.st_mtime); break;
-		case 9: lua_pushnumber(L, s->s.st_ctime); break;
-		case 10:lua_pushstring(L, s->type); break;
-		case 11:lua_pushnumber(L, s->s.st_mode); break;
-	}
-	return 1;
-}
-
-static const char *const Sstat[] =
-{
-	"mode", "ino", "dev", "nlink", "uid", "gid",
-	"size", "atime", "mtime", "ctime", "type", "_mode",
-	NULL
-};
-
-static int Pstat(lua_State *L)			/** stat(path,[selector]) */
-{
-	struct mystat s;
-	const char *path=luaL_checkstring(L, 1);
-	if (lstat(path,&s.s)==-1) return pusherror(L, path);
-	s.type=filetype(s.s.st_mode);
-	modechopper(s.s.st_mode, s.mode);
-	return doselection(L, 2, Sstat, Fstat, &s);
-}
-
-
-static int Puname(lua_State *L)			/** uname([string]) */
-{
-	struct utsname u;
-	luaL_Buffer b;
-	const char *s;
-	if (uname(&u) == -1) return pusherror(L, NULL);
-	luaL_buffinit(L, &b);
-	for (s=luaL_optstring(L, 1, "%s %n %r %v %m"); *s; s++)
-		if (*s!='%')
-			luaL_putchar(&b, *s);
-		else switch (*++s)
-		{
-			case '%': luaL_putchar(&b, *s); break;
-			case 'm': luaL_addstring(&b,u.machine); break;
-			case 'n': luaL_addstring(&b,u.nodename); break;
-			case 'r': luaL_addstring(&b,u.release); break;
-			case 's': luaL_addstring(&b,u.sysname); break;
-			case 'v': luaL_addstring(&b,u.version); break;
-			default: badoption(L, 2, "format", *s); break;
-		}
-	luaL_pushresult(&b);
-	return 1;
-}
-
-
-static const int Kpathconf[] =
-{
-	_PC_LINK_MAX, _PC_MAX_CANON, _PC_MAX_INPUT, _PC_NAME_MAX, _PC_PATH_MAX,
-	_PC_PIPE_BUF, _PC_CHOWN_RESTRICTED, _PC_NO_TRUNC, _PC_VDISABLE,
-	-1
-};
-
-static int Fpathconf(lua_State *L, int i, const void *data)
-{
-	const char *path=data;
-	lua_pushnumber(L, pathconf(path, Kpathconf[i]));
-	return 1;
-}
-
-static const char *const Spathconf[] =
-{
-	"link_max", "max_canon", "max_input", "name_max", "path_max",
-	"pipe_buf", "chown_restricted", "no_trunc", "vdisable",
-	NULL
-};
-
-static int Ppathconf(lua_State *L)		/** pathconf(path,[selector]) */
-{
-	const char *path=luaL_checkstring(L, 1);
-	return doselection(L, 2, Spathconf, Fpathconf, path);
-}
-
-
-static const int Ksysconf[] =
-{
-	_SC_ARG_MAX, _SC_CHILD_MAX, _SC_CLK_TCK, _SC_NGROUPS_MAX, _SC_STREAM_MAX,
-	_SC_TZNAME_MAX, _SC_OPEN_MAX, _SC_JOB_CONTROL, _SC_SAVED_IDS, _SC_VERSION,
-	-1
-};
-
-static int Fsysconf(lua_State *L, int i, const void *data)
-{
-	lua_pushnumber(L, sysconf(Ksysconf[i]));
-	return 1;
-}
-
-static const char *const Ssysconf[] =
-{
-	"arg_max", "child_max", "clk_tck", "ngroups_max", "stream_max",
-	"tzname_max", "open_max", "job_control", "saved_ids", "version",
-	NULL
-};
-
-static int Psysconf(lua_State *L)		/** sysconf([selector]) */
-{
-	return doselection(L, 1, Ssysconf, Fsysconf, NULL);
-}
-
-
-static const luaL_reg R[] =
-{
-	{"access",		Paccess},
-	{"chdir",		Pchdir},
-	{"chmod",		Pchmod},
-	{"chown",		Pchown},
-	{"ctermid",		Pctermid},
-	{"dir",			Pdir},
-	{"errno",		Perrno},
-	{"exec",		Pexec},
-	{"files",		Pfiles},
-	{"fork",		Pfork},
-	{"getcwd",		Pgetcwd},
-	{"getenv",		Pgetenv},
-	{"getgroup",		Pgetgroup},
-	{"getlogin",		Pgetlogin},
-	{"getpasswd",		Pgetpasswd},
-	{"getprocessid",	Pgetprocessid},
-	{"kill",		Pkill},
-	{"link",		Plink},
-	{"mkdir",		Pmkdir},
-	{"mkfifo",		Pmkfifo},
-	{"pathconf",		Ppathconf},
-	{"putenv",		Pputenv},
-	{"readlink",		Preadlink},
-	{"rmdir",		Prmdir},
-	{"setgid",		Psetgid},
-	{"setuid",		Psetuid},
-	{"sleep",		Psleep},
-	{"stat",		Pstat},
-	{"symlink",		Psymlink},
-	{"sysconf",		Psysconf},
-	{"times",		Ptimes},
-	{"ttyname",		Pttyname},
-	{"umask",		Pumask},
-	{"uname",		Puname},
-	{"unlink",		Punlink},
-	{"utime",		Putime},
-	{"wait",		Pwait},
-
-#ifdef linux
-	{"setenv",		Psetenv},
-	{"unsetenv",		Punsetenv},
-#endif
-	{NULL,			NULL}
-};
-
-LUALIB_API int luaopen_posix (lua_State *L)
-{
-	luaL_openlib(L, MYNAME, R, 0);
-	lua_pushliteral(L,"version");		/** version */
-	lua_pushliteral(L,MYVERSION);
-	lua_settable(L,-3);
-	return 1;
-}
diff --git a/lua/local/lposix.h b/lua/local/lposix.h
deleted file mode 100644
index e1e819cb3..000000000
--- a/lua/local/lposix.h
+++ /dev/null
@@ -1,6 +0,0 @@
-#ifndef LPOSIX_H
-#define LPOSIX_H
-
-int luaopen_posix (lua_State *L);
-
-#endif
diff --git a/lua/local/lrexlib.c b/lua/local/lrexlib.c
deleted file mode 100644
index 81931c0a6..000000000
--- a/lua/local/lrexlib.c
+++ /dev/null
@@ -1,340 +0,0 @@
-/* lrexlib.c - POSIX & PCRE regular expression library */
-/* POSIX regexs can use Spencer extensions for matching NULs if available
-   (REG_BASIC) */
-/* Reuben Thomas   nov00-06oct03 */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "lua.h"
-#include "lauxlib.h"
-#include "lrexlib.h"
-
-
-/* Sanity check */
-#if !defined(WITH_POSIX) && !defined(WITH_PCRE)
-#error Define WITH_POSIX or WITH_PCRE, otherwise this library is useless!
-#endif
-
-
-/* POSIX regex methods */
-
-#ifdef WITH_POSIX
-
-#include <regex.h>
-
-static int rex_comp(lua_State *L)
-{
-  size_t l;
-  const char *pattern;
-  int res;
-  regex_t *pr = (regex_t *)lua_newuserdata(L, sizeof(regex_t));
-  pattern = luaL_checklstring(L, 1, &l);
-#ifdef REG_BASIC
-  pr->re_endp = pattern + lua_strlen(L, 1);
-  res = regcomp(pr, pattern, REG_EXTENDED | REG_PEND);
-#else
-  res = regcomp(pr, pattern, REG_EXTENDED);
-#endif
-  if (res) {
-    size_t sz = regerror(res, pr, NULL, 0);
-    char errbuf[sz];
-    regerror(res, pr, errbuf, sz);
-    lua_pushstring(L, errbuf);
-    lua_error(L);
-  }
-  luaL_getmetatable(L, "regex_t");
-  lua_setmetatable(L, -2);
-  return 1;
-}
-
-static void rex_getargs(lua_State *L, size_t *len, size_t *ncapt,
-                        const char **text, regex_t **pr, regmatch_t **match)
-{
-  luaL_checkany(L, 1);
-  *pr = (regex_t *)lua_touserdata(L, 1);
-#ifdef REG_BASIC
-  *text = luaL_checklstring(L, 2, len);
-#else
-  *text = luaL_checklstring(L, 2, NULL);
-#endif
-  *ncapt = (*pr)->re_nsub;
-  luaL_checkstack(L, *ncapt + 2, "too many captures");
-  *match = malloc((*ncapt + 1) * sizeof(regmatch_t));
-}
-
-static void rex_push_matches(lua_State *L, const char *text, regmatch_t *match,
-                             size_t ncapt)
-{
-  size_t i;
-  lua_newtable(L);
-  for (i = 1; i <= ncapt; i++) {
-    if (match[i].rm_so >= 0) {
-      lua_pushlstring(L, text + match[i].rm_so,
-                      match[i].rm_eo - match[i].rm_so);
-      lua_rawseti(L, -2, i);
-    }
-  }
-}
-
-static int rex_match(lua_State *L)
-{
-  int res;
-#ifdef REG_BASIC
-  size_t len;
-#endif
-  size_t ncapt;
-  const char *text;
-  regex_t *pr;
-  regmatch_t *match;
-  rex_getargs(L,
-#ifdef REG_BASIC
-          &len,
-#else
-          NULL,
-#endif
-          &ncapt, &text, &pr, &match);
-#ifdef REG_BASIC
-  match[0].rm_so = 0;
-  match[0].rm_eo = len;
-  res = regexec(pr, text, ncapt + 1, match, REG_STARTEND);
-#else
-  res = regexec(pr, text, ncapt + 1, match, 0);
-#endif
-  if (res == 0) {
-    lua_pushnumber(L, match[0].rm_so + 1);
-    lua_pushnumber(L, match[0].rm_eo);
-    rex_push_matches(L, text, match, ncapt);
-    lua_pushstring(L, "n");
-    lua_pushnumber(L, ncapt);
-    lua_rawset(L, -3);
-    return 3;
-  } else
-    return 0;
-}
-
-static int rex_gmatch(lua_State *L)
-{
-  int res;
-#ifdef REG_BASIC
-  size_t len;
-#endif
-  size_t ncapt, nmatch = 0, maxmatch = 0, limit = 0;
-  const char *text;
-  regex_t *pr;
-  regmatch_t *match;
-  rex_getargs(L,
-#ifdef REG_BASIC
-          &len,
-#else
-          NULL,
-#endif
-          &ncapt, &text, &pr, &match);
-  luaL_checktype(L, 3, LUA_TFUNCTION);
-  if (lua_gettop(L) > 3) {
-    maxmatch = (size_t)luaL_checknumber(L, 4);
-    limit = 1;
-  }
-  while (!limit || nmatch < maxmatch) {
-#ifdef REG_BASIC
-    match[0].rm_so = 0;
-    match[0].rm_eo = len;
-    res = regexec(pr, text, ncapt + 1, match, REG_STARTEND);
-#else
-    res = regexec(pr, text, ncapt + 1, match, 0);
-#endif
-    if (res == 0) {
-      lua_pushvalue(L, 3);
-      lua_pushlstring(L, text + match[0].rm_so, match[0].rm_eo - match[0].rm_so);
-      rex_push_matches(L, text, match, ncapt);
-      lua_call(L, 2, 0);
-      text += match[0].rm_eo;
-#ifdef REG_BASIC
-      len -= match[0].rm_eo;
-#endif
-      nmatch++;
-    } else
-      break;
-  }
-  lua_pushnumber(L, nmatch);
-  return 1;
-}
-
-static int rex_gc (lua_State *L)
-{
-  regex_t *r = (regex_t *)luaL_checkudata(L, 1, "regex_t");
-  if (r)
-    regfree(r);
-  return 0;
-}
-
-static const luaL_reg rexmeta[] = {
-  {"match",   rex_match},
-  {"gmatch",  rex_gmatch},
-  {"__gc",    rex_gc},
-  {NULL, NULL}
-};
-
-#endif /* WITH_POSIX */
-
-
-/* PCRE methods */
-
-#ifdef WITH_PCRE
-
-#include <pcre/pcre.h>
-
-static int pcre_comp(lua_State *L)
-{
-  size_t l;
-  const char *pattern;
-  const char *error;
-  int erroffset;
-  pcre **ppr = (pcre **)lua_newuserdata(L, sizeof(pcre **));
-  pcre *pr;
-  pattern = luaL_checklstring(L, 1, &l);
-  pr = pcre_compile(pattern, 0, &error, &erroffset, NULL);
-  if (!pr) {
-    lua_pushstring(L, error);
-    lua_error(L);
-  }
-  *ppr = pr;
-  luaL_getmetatable(L, "pcre");
-  lua_setmetatable(L, -2);
-  return 1;
-}
-
-static void pcre_getargs(lua_State *L, int *len, int *ncapt, const char **text,
-                        pcre ***ppr, int **match)
-{
-  luaL_checkany(L, 1);
-  *ppr = (pcre **)lua_touserdata(L, 1);
-  *text = luaL_checklstring(L, 2, len);
-  pcre_fullinfo(**ppr, NULL, PCRE_INFO_CAPTURECOUNT, ncapt);
-  luaL_checkstack(L, *ncapt + 2, "too many captures");
-  /* need (2 ints per capture, plus one for substring match) * 3/2 */
-  *match = malloc((*ncapt + 1) * 3 * sizeof(int));
-}
-
-static void pcre_push_matches(lua_State *L, const char *text, int *match,
-                             int ncapt)
-{
-  int i;
-  lua_newtable(L);
-  for (i = 1; i <= ncapt; i++) {
-    if (match[i * 2] >= 0) {
-      lua_pushlstring(L, text + match[i * 2],
-                      match[i * 2 + 1] - match[i * 2]);
-      lua_rawseti(L, -2, i);
-    }
-  }
-}
-
-static int pcre_match(lua_State *L)
-{
-  int res;
-  const char *text;
-  pcre **ppr;
-  int *match;
-  int ncapt;
-  int len;
-  pcre_getargs(L, &len, &ncapt, &text, &ppr, &match);
-  res = pcre_exec(*ppr, NULL, text, len, 0, 0, match, (ncapt + 1) * 3);
-  if (res >= 0) {
-    lua_pushnumber(L, match[0] + 1);
-    lua_pushnumber(L, match[1]);
-    pcre_push_matches(L, text, match, ncapt);
-    lua_pushstring(L, "n");
-    lua_pushnumber(L, ncapt);
-    lua_rawset(L, -3);
-    return 3;
-  } else
-    return 0;
-}
-
-static int pcre_gmatch(lua_State *L)
-{
-  int res;
-  const char *text;
-  int limit = 0;
-  int ncapt, nmatch = 0, maxmatch;
-  pcre **ppr;
-  int *match;
-  int len;
-  pcre_getargs(L, &len, &ncapt, &text, &ppr, &match);
-  luaL_checktype(L, 3, LUA_TFUNCTION);
-  if (lua_gettop(L) > 3) {
-    maxmatch = (int)luaL_checknumber(L, 4);
-    limit = 1;
-  }
-  while (!limit || nmatch < maxmatch) {
-    res = pcre_exec(*ppr, NULL, text, len, 0, 0, match, (ncapt + 1) * 3);
-    if (res == 0) {
-      lua_pushvalue(L, 3);
-      lua_pushlstring(L, text + match[0], match[1] - match[0]);
-      pcre_push_matches(L, text, match, ncapt);
-      lua_call(L, 2, 0);
-      text += match[1];
-      len -= match[1];
-      nmatch++;
-    } else
-      break;
-  }
-  lua_pushnumber(L, nmatch);
-  return 1;
-}
-
-static int pcre_gc (lua_State *L)
-{
-  pcre **ppr = (pcre **)luaL_checkudata(L, 1, "pcre");
-  if (ppr)
-    pcre_free(*ppr);
-  return 0;
-}
-
-static const luaL_reg pcremeta[] = {
-  {"match",  pcre_match},
-  {"gmatch", pcre_gmatch},
-  {"__gc",   pcre_gc},
-  {NULL, NULL}
-};
-
-#endif /* defined(WITH_PCRE) */
-
-
-/* Open the library */
-
-static const luaL_reg rexlib[] = {
-#ifdef WITH_POSIX
-  {"newPOSIX", rex_comp},
-#endif
-#ifdef WITH_PCRE
-  {"newPCRE", pcre_comp},
-#endif
-  {NULL, NULL}
-};
-
-static void createmeta(lua_State *L, const char *name)
-{
-  luaL_newmetatable(L, name);   /* create new metatable */
-  lua_pushliteral(L, "__index");
-  lua_pushvalue(L, -2);         /* push metatable */
-  lua_rawset(L, -3);            /* metatable.__index = metatable */
-}
-
-LUALIB_API int luaopen_rex(lua_State *L)
-{
-#ifdef WITH_POSIX
-  createmeta(L, "regex_t");
-  luaL_openlib(L, NULL, rexmeta, 0);
-  lua_pop(L, 1);
-#endif
-#ifdef WITH_PCRE
-  createmeta(L, "pcre");
-  luaL_openlib(L, NULL, pcremeta, 0);
-  lua_pop(L, 1);
-#endif
-  luaL_openlib(L, "rex", rexlib, 0);
-  return 1;
-}
diff --git a/lua/local/lrexlib.h b/lua/local/lrexlib.h
deleted file mode 100644
index 663c635ef..000000000
--- a/lua/local/lrexlib.h
+++ /dev/null
@@ -1,6 +0,0 @@
-#ifndef LREXLIB_H
-#define LREXLIB_H
-
-int luaopen_rex(lua_State *L);
-
-#endif
diff --git a/lua/local/modemuncher.c b/lua/local/modemuncher.c
deleted file mode 100644
index b1e966c9b..000000000
--- a/lua/local/modemuncher.c
+++ /dev/null
@@ -1,271 +0,0 @@
-/* 
-	Mode Muncher -- modemuncher.c
-	961110 Claudio Terra
-
-	munch vb
-	[ME monchen, perh. influenced by MF mangier to eat --more at MANGER]
-	:to chew with a crunching sound: eat with relish
-	:to chew food with a crunching sound: eat food with relish
-	--munch-er n
-		
-	The NeXT Digital Edition of Webster's Ninth New Collegiate Dictionary
-	and Webster's Collegiate Thesaurus
-*/
-
-/* struct for rwx <-> POSIX constant lookup tables */
-struct modeLookup
-{
-	char rwx;
-	mode_t bits;
-};
-
-typedef struct modeLookup modeLookup;
-
-static modeLookup modesel[] =
-{
-	/* RWX char				Posix Constant */
-	{'r',					S_IRUSR},
-	{'w',					S_IWUSR},
-	{'x',					S_IXUSR},
-	
-	{'r',					S_IRGRP},
-	{'w',					S_IWGRP},
-	{'x',					S_IXGRP},
-	
-	{'r',					S_IROTH},
-	{'w',					S_IWOTH},
-	{'x',					S_IXOTH},
-	{(char)NULL, 					(mode_t)-1} /* do not delete this line */
-};
-
-
-
-static int rwxrwxrwx(mode_t *mode, const char *p)
-{
-	int count;
-	mode_t tmp_mode = *mode;
-	
-	tmp_mode &= ~(S_ISUID | S_ISGID); /* turn off suid and sgid flags */
-	for (count=0; count<9; count ++)
-	{
-		if (*p == modesel[count].rwx) tmp_mode |= modesel[count].bits;	/* set a bit */
-		else if (*p == '-') tmp_mode &= ~modesel[count].bits;			/* clear a bit */
-		else if (*p=='s') switch(count)
-		{
-			case 2: /* turn on suid flag */
-			tmp_mode |= S_ISUID | S_IXUSR;
-			break;
-			
-			case 5: /* turn on sgid flag */
-			tmp_mode |= S_ISGID | S_IXGRP;
-			break;
-
-			default:
-			return -4; /* failed! -- bad rwxrwxrwx mode change */
-			break;
-		}
-		p++;
-	}
-	*mode = tmp_mode;
-	return 0;
-}
-
-static void modechopper(mode_t mode, char *p)
-{
-	/* requires char p[10] */
-	int count;
-	char *pp;
-	
-	pp=p;
-	
-	for (count=0; count<9; count ++)
-	{
-		if (mode & modesel[count].bits) *p = modesel[count].rwx;
-		else *p='-';
-		
-		p++;
-	}
-	*p=0; /* to finish the string */
-	
-	/* dealing with suid and sgid flags */
-	if (mode & S_ISUID) pp[2] = (mode & S_IXUSR) ? 's' : 'S';
-	if (mode & S_ISGID) pp[5] = (mode & S_IXGRP) ? 's' : 'S';
-
-}
-
-static int mode_munch(mode_t *mode, const char* p)
-{
-
-	char op=0;
-	mode_t affected_bits, ch_mode;
-	int doneFlag = 0;
-#ifdef DEBUG
-char tmp[10];
-#endif
-
-#ifdef DEBUG
-modechopper(*mode, tmp);
-printf("modemuncher: got base mode = %s\n", tmp);
-#endif
-
-	while (!doneFlag)
-	{
-		/* step 0 -- clear temporary variables */
-		affected_bits=0;
-		ch_mode=0;
-		
-		/* step 1 -- who's affected? */
-
-#ifdef DEBUG
-printf("modemuncher step 1\n");
-#endif
-		
-		/* mode string given in rwxrwxrwx format */
-		if (*p== 'r' || *p == '-') return rwxrwxrwx(mode, p);
-
-		/* mode string given in 0644 format */
-		if (*p >= '0' && *p <= '7') {
-			char *e;
-			mode_t tmp_mode = strtol(p, &e, 8);
-			if (*p == 0 || *e != 0)
-				return -5;
-			*mode = tmp_mode; 
-			return 0;
-		}
-		
-		/* mode string given in ugoa+-=rwx format */
-		for ( ; ; p++)
-			switch (*p)
-			{
-				case 'u':
-				affected_bits |= 04700;
-				break;
-				
-				case 'g':
-				affected_bits |= 02070;
-				break;
-				
-				case 'o':
-				affected_bits |= 01007;
-				break;
-				
-				case 'a':
-				affected_bits |= 07777;
-				break;
-				
-				/* ignore spaces */
-				case ' ':
-				break;
-				
-				
-				default:
-				goto no_more_affected;
-			}
-
-		no_more_affected:
-		/* If none specified, affect all bits. */
-		if (affected_bits == 0) affected_bits = 07777;
-
-		/* step 2 -- how is it changed? */
-		
-#ifdef DEBUG
-printf("modemuncher step 2 (*p='%c')\n", *p);
-#endif
-
-		switch (*p)
-		{
-			case '+':
-			case '-':
-			case '=':
-			op = *p;
-			break;
-			
-			/* ignore spaces */
-			case ' ':
-			break;
-			
-			default:
-			return -1; /* failed! -- bad operator */
-		}
-		
-		
-		/* step 3 -- what are the changes? */
-		
-#ifdef DEBUG
-printf("modemuncher step 3\n");
-#endif
-
-		for (p++ ; *p!=0 ; p++)
-			switch (*p)
-			{
-				case 'r':
-				ch_mode |= 00444;
-				break;
-				
-				case 'w':
-				ch_mode |= 00222;
-				break;
-				
-				case 'x':
-				ch_mode |= 00111;
-				break;
-				
-				case 's':
-				/* Set the setuid/gid bits if `u' or `g' is selected. */
-				ch_mode |= 06000;
-				break;
-			
-				/* ignore spaces */
-				case ' ':
-				break;
-				
-				default:
-				goto specs_done;
-			}
-
-		specs_done:
-		/* step 4 -- apply the changes */
-
-#ifdef DEBUG
-		printf("modemuncher step 4\n");
-#endif
-		if (*p != ',') doneFlag = 1;
-		if (*p != 0 && *p != ' ' && *p != ',')
-		{
-		
-#ifdef DEBUG
-printf("modemuncher: comma error!\n");
-printf("modemuncher: doneflag = %u\n", doneFlag);
-#endif
-			return -2; /* failed! -- bad mode change */
-		
-		}
-		p++;
-		/*if (!ch_mode) return -2;*/ /* failed! -- bad mode change */
-		if (ch_mode) switch (op)
-		{
-			case '+':
-			*mode = *mode |= ch_mode & affected_bits;
-			break;
-
-			case '-':
-			*mode = *mode &= ~(ch_mode & affected_bits);
-			break;
-
-			case '=':
-			*mode = ch_mode & affected_bits;
-			break;
-		
-			default:
-			return -3; /* failed! -- unknown error */
-		}
-	}
-#ifdef DEBUG
-modechopper(*mode, tmp);
-printf("modemuncher: returning mode = %s\n", tmp);
-#endif
-
-	return 0; /* successful call */
-}
-
-
diff --git a/lua/local/userconfig.c b/lua/local/userconfig.c
deleted file mode 100644
index 014e32536..000000000
--- a/lua/local/userconfig.c
+++ /dev/null
@@ -1,57 +0,0 @@
-
-#include "config.h"
-
-#include "lposix.h"
-#include "lrexlib.h"
-
-#define LUA_EXTRALIBS \
-	{"posix", luaopen_posix}, \
-	{"rex", luaopen_rex}, \
-	{"luapath", luapath},
-
-#if 0
-
-#define lua_readline	myreadline
-#define lua_saveline	mysaveline
-
-#include <ctype.h>
-#include <readline/readline.h>
-#include <readline/history.h>
-
-static int myreadline (lua_State *L, const char *prompt) {
-  char *s=readline(prompt);
-  if (s==NULL)
-    return 0;
-  else {
-    lua_pushstring(L,s);
-    lua_pushliteral(L,"\n");
-    lua_concat(L,2);
-    free(s);
-    return 1;
-  }
-}
-
-static void mysaveline (lua_State *L, const char *s) {
-  const char *p;
-  for (p=s; isspace(*p); p++);
-  if (*p!=0) {
-    size_t n=strlen(s)-1;
-    if (s[n]!='\n')
-      add_history(s);
-    else {
-      lua_pushlstring(L,s,n);
-      s=lua_tostring(L,-1);
-      add_history(s);
-      lua_remove(L,-1);
-    }
-  }
-}
-#endif
-
-static int luapath(lua_State *L)
-{
-	lua_pushstring(L, "LUA_PATH");
-	lua_pushstring(L, RPMCONFIGDIR "/lua/?.lua;?.lua");
-	lua_rawset(L, LUA_GLOBALSINDEX);
-	return 0;
-}