Upload Tizen:Base source

9 files changed, 2244 insertions, 0 deletions

diff --git a/luaext/Makefile.am b/luaext/Makefile.am
new file mode 100644
index 0000000..65e1555
--- /dev/null
+++ b/luaext/Makefile.am
@@ -0,0 +1,19 @@
+noinst_LTLIBRARIES = libluaext.la
+
+EXTRA_DIST = \
+	modemuncher.c \
+	userconfig.c \
+	linit.lua
+
+AM_CPPFLAGS = -I$(top_builddir) -I$(top_builddir)/include -I.
+
+libluaext_la_CPPFLAGS = $(AM_CPPFLAGS) -DWITH_POSIX @LUA_CFLAGS@
+libluaext_la_LIBADD = @LUA_LIBS@
+libluaext_la_SOURCES = \
+		lposix.h \
+		lposix.c \
+		lrexlib.h \
+		lrexlib.c 
+
+linit.lch: linit.lua
+	bin2c linit.lua > linit.lch
diff --git a/luaext/Makefile.in b/luaext/Makefile.in
new file mode 100644
index 0000000..90218b8
--- /dev/null
+++ b/luaext/Makefile.in
@@ -0,0 +1,614 @@
+# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# @configure_input@
+
+# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
+# 2003, 2004, 2005, 2006, 2007, 2008, 2009  Free Software Foundation,
+# Inc.
+# This Makefile.in is free software; the Free Software Foundation
+# gives unlimited permission to copy and/or distribute it,
+# with or without modifications, as long as this notice is preserved.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
+# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+# PARTICULAR PURPOSE.
+
+@SET_MAKE@
+
+VPATH = @srcdir@
+pkgdatadir = $(datadir)/@PACKAGE@
+pkgincludedir = $(includedir)/@PACKAGE@
+pkglibdir = $(libdir)/@PACKAGE@
+pkglibexecdir = $(libexecdir)/@PACKAGE@
+am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
+install_sh_DATA = $(install_sh) -c -m 644
+install_sh_PROGRAM = $(install_sh) -c
+install_sh_SCRIPT = $(install_sh) -c
+INSTALL_HEADER = $(INSTALL_DATA)
+transform = $(program_transform_name)
+NORMAL_INSTALL = :
+PRE_INSTALL = :
+POST_INSTALL = :
+NORMAL_UNINSTALL = :
+PRE_UNINSTALL = :
+POST_UNINSTALL = :
+build_triplet = @build@
+host_triplet = @host@
+subdir = luaext
+DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
+ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
+am__aclocal_m4_deps = $(top_srcdir)/m4/gettext.m4 \
+	$(top_srcdir)/m4/iconv.m4 $(top_srcdir)/m4/lib-ld.m4 \
+	$(top_srcdir)/m4/lib-link.m4 $(top_srcdir)/m4/lib-prefix.m4 \
+	$(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
+	$(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
+	$(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/nls.m4 \
+	$(top_srcdir)/m4/po.m4 $(top_srcdir)/m4/progtest.m4 \
+	$(top_srcdir)/configure.ac
+am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
+	$(ACLOCAL_M4)
+mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
+CONFIG_HEADER = $(top_builddir)/config.h
+CONFIG_CLEAN_FILES =
+CONFIG_CLEAN_VPATH_FILES =
+LTLIBRARIES = $(noinst_LTLIBRARIES)
+libluaext_la_DEPENDENCIES =
+am_libluaext_la_OBJECTS = libluaext_la-lposix.lo \
+	libluaext_la-lrexlib.lo
+libluaext_la_OBJECTS = $(am_libluaext_la_OBJECTS)
+DEFAULT_INCLUDES = 
+depcomp = $(SHELL) $(top_srcdir)/depcomp
+am__depfiles_maybe = depfiles
+am__mv = mv -f
+COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
+	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
+	--mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
+	$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
+CCLD = $(CC)
+LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
+	--mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
+	$(LDFLAGS) -o $@
+SOURCES = $(libluaext_la_SOURCES)
+DIST_SOURCES = $(libluaext_la_SOURCES)
+ETAGS = etags
+CTAGS = ctags
+DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
+ACLOCAL = @ACLOCAL@
+AMTAR = @AMTAR@
+AR = @AR@
+AS = @AS@
+AUTOCONF = @AUTOCONF@
+AUTOHEADER = @AUTOHEADER@
+AUTOM4TE = @AUTOM4TE@
+AUTOMAKE = @AUTOMAKE@
+AWK = @AWK@
+CC = @CC@
+CCDEPMODE = @CCDEPMODE@
+CFLAGS = @CFLAGS@
+CPP = @CPP@
+CPPFLAGS = @CPPFLAGS@
+CXX = @CXX@
+CXXCPP = @CXXCPP@
+CXXDEPMODE = @CXXDEPMODE@
+CXXFLAGS = @CXXFLAGS@
+CYGPATH_W = @CYGPATH_W@
+DEFS = @DEFS@
+DEPDIR = @DEPDIR@
+DLLTOOL = @DLLTOOL@
+DOXYGEN = @DOXYGEN@
+DSYMUTIL = @DSYMUTIL@
+DUMPBIN = @DUMPBIN@
+ECHO_C = @ECHO_C@
+ECHO_N = @ECHO_N@
+ECHO_T = @ECHO_T@
+EGREP = @EGREP@
+EXEEXT = @EXEEXT@
+FGREP = @FGREP@
+FIXPERMS = @FIXPERMS@
+GMSGFMT = @GMSGFMT@
+GMSGFMT_015 = @GMSGFMT_015@
+GREP = @GREP@
+HAVE_DOT = @HAVE_DOT@
+INSTALL = @INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
+INSTALL_PROGRAM = @INSTALL_PROGRAM@
+INSTALL_SCRIPT = @INSTALL_SCRIPT@
+INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+INTLLIBS = @INTLLIBS@
+INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
+LD = @LD@
+LDFLAGS = @LDFLAGS@
+LIBICONV = @LIBICONV@
+LIBINTL = @LIBINTL@
+LIBOBJS = @LIBOBJS@
+LIBS = @LIBS@
+LIBTOOL = @LIBTOOL@
+LIPO = @LIPO@
+LN_S = @LN_S@
+LTLIBICONV = @LTLIBICONV@
+LTLIBINTL = @LTLIBINTL@
+LTLIBOBJS = @LTLIBOBJS@
+LUA_CFLAGS = @LUA_CFLAGS@
+LUA_LIBS = @LUA_LIBS@
+MAKEINFO = @MAKEINFO@
+MANIFEST_TOOL = @MANIFEST_TOOL@
+MKDIR_P = @MKDIR_P@
+MSGFMT = @MSGFMT@
+MSGFMT_015 = @MSGFMT_015@
+MSGMERGE = @MSGMERGE@
+NM = @NM@
+NMEDIT = @NMEDIT@
+OBJDUMP = @OBJDUMP@
+OBJEXT = @OBJEXT@
+OTOOL = @OTOOL@
+OTOOL64 = @OTOOL64@
+PACKAGE = @PACKAGE@
+PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
+PACKAGE_NAME = @PACKAGE_NAME@
+PACKAGE_STRING = @PACKAGE_STRING@
+PACKAGE_TARNAME = @PACKAGE_TARNAME@
+PACKAGE_URL = @PACKAGE_URL@
+PACKAGE_VERSION = @PACKAGE_VERSION@
+PATH_SEPARATOR = @PATH_SEPARATOR@
+PKG_CONFIG = @PKG_CONFIG@
+PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
+PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
+POSUB = @POSUB@
+PYTHON = @PYTHON@
+PYTHON_EXEC_PREFIX = @PYTHON_EXEC_PREFIX@
+PYTHON_PLATFORM = @PYTHON_PLATFORM@
+PYTHON_PREFIX = @PYTHON_PREFIX@
+PYTHON_VERSION = @PYTHON_VERSION@
+RANLIB = @RANLIB@
+RPMCANONARCH = @RPMCANONARCH@
+RPMCANONCOLOR = @RPMCANONCOLOR@
+RPMCANONGNU = @RPMCANONGNU@
+RPMCANONOS = @RPMCANONOS@
+RPMCANONVENDOR = @RPMCANONVENDOR@
+RPMCONFIGDIR = @RPMCONFIGDIR@
+SED = @SED@
+SET_MAKE = @SET_MAKE@
+SHELL = @SHELL@
+STRIP = @STRIP@
+USE_NLS = @USE_NLS@
+VERSION = @VERSION@
+WITH_ACL_LIB = @WITH_ACL_LIB@
+WITH_BZ2_LIB = @WITH_BZ2_LIB@
+WITH_CAP_LIB = @WITH_CAP_LIB@
+WITH_DB_LIB = @WITH_DB_LIB@
+WITH_LIBELF_LIB = @WITH_LIBELF_LIB@
+WITH_LZMA_LIB = @WITH_LZMA_LIB@
+WITH_MAGIC_INCLUDE = @WITH_MAGIC_INCLUDE@
+WITH_MAGIC_LIB = @WITH_MAGIC_LIB@
+WITH_NSS_INCLUDE = @WITH_NSS_INCLUDE@
+WITH_NSS_LIB = @WITH_NSS_LIB@
+WITH_POPT_INCLUDE = @WITH_POPT_INCLUDE@
+WITH_POPT_LIB = @WITH_POPT_LIB@
+WITH_PYTHON_INCLUDE = @WITH_PYTHON_INCLUDE@
+WITH_PYTHON_LIB = @WITH_PYTHON_LIB@
+WITH_SELINUX_LIB = @WITH_SELINUX_LIB@
+WITH_SEMANAGE_LIB = @WITH_SEMANAGE_LIB@
+WITH_ZLIB_INCLUDE = @WITH_ZLIB_INCLUDE@
+WITH_ZLIB_LIB = @WITH_ZLIB_LIB@
+XGETTEXT = @XGETTEXT@
+XGETTEXT_015 = @XGETTEXT_015@
+YACC = @YACC@
+YFLAGS = @YFLAGS@
+__BZIP2 = @__BZIP2@
+__CAT = @__CAT@
+__CC = @__CC@
+__CHGRP = @__CHGRP@
+__CHMOD = @__CHMOD@
+__CHOWN = @__CHOWN@
+__CP = @__CP@
+__CPIO = @__CPIO@
+__CURL = @__CURL@
+__FAKECHROOT = @__FAKECHROOT@
+__FILE = @__FILE@
+__GPG = @__GPG@
+__GREP = @__GREP@
+__GZIP = @__GZIP@
+__ID = @__ID@
+__INSTALL = @__INSTALL@
+__LD = @__LD@
+__LRZIP = @__LRZIP@
+__LZIP = @__LZIP@
+__MAKE = @__MAKE@
+__MKDIR = @__MKDIR@
+__MKDIR_P = @__MKDIR_P@
+__MV = @__MV@
+__NM = @__NM@
+__OBJCOPY = @__OBJCOPY@
+__OBJDUMP = @__OBJDUMP@
+__PATCH = @__PATCH@
+__PERL = @__PERL@
+__PGP = @__PGP@
+__PYTHON = @__PYTHON@
+__RESTORECON = @__RESTORECON@
+__RM = @__RM@
+__RSH = @__RSH@
+__SED = @__SED@
+__SEMODULE = @__SEMODULE@
+__SSH = @__SSH@
+__STRIP = @__STRIP@
+__TAR = @__TAR@
+__UNZIP = @__UNZIP@
+__XZ = @__XZ@
+abs_builddir = @abs_builddir@
+abs_srcdir = @abs_srcdir@
+abs_top_builddir = @abs_top_builddir@
+abs_top_srcdir = @abs_top_srcdir@
+ac_ct_AR = @ac_ct_AR@
+ac_ct_CC = @ac_ct_CC@
+ac_ct_CXX = @ac_ct_CXX@
+ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
+am__include = @am__include@
+am__leading_dot = @am__leading_dot@
+am__quote = @am__quote@
+am__tar = @am__tar@
+am__untar = @am__untar@
+bindir = @bindir@
+build = @build@
+build_alias = @build_alias@
+build_cpu = @build_cpu@
+build_os = @build_os@
+build_vendor = @build_vendor@
+builddir = @builddir@
+datadir = @datadir@
+datarootdir = @datarootdir@
+dirstamp = @dirstamp@
+docdir = @docdir@
+dvidir = @dvidir@
+exec_prefix = @exec_prefix@
+host = @host@
+host_alias = @host_alias@
+host_cpu = @host_cpu@
+host_os = @host_os@
+host_vendor = @host_vendor@
+htmldir = @htmldir@
+includedir = @includedir@
+infodir = @infodir@
+install_sh = @install_sh@
+libdir = @libdir@
+libexecdir = @libexecdir@
+localedir = @localedir@
+localstatedir = @localstatedir@
+mandir = @mandir@
+mkdir_p = @mkdir_p@
+oldincludedir = @oldincludedir@
+pdfdir = @pdfdir@
+pkgpyexecdir = @pkgpyexecdir@
+pkgpythondir = @pkgpythondir@
+prefix = @prefix@
+program_transform_name = @program_transform_name@
+psdir = @psdir@
+pyexecdir = @pyexecdir@
+pythondir = @pythondir@
+sbindir = @sbindir@
+sharedstatedir = @sharedstatedir@
+srcdir = @srcdir@
+subdirs = @subdirs@
+sysconfdir = @sysconfdir@
+target_alias = @target_alias@
+top_build_prefix = @top_build_prefix@
+top_builddir = @top_builddir@
+top_srcdir = @top_srcdir@
+noinst_LTLIBRARIES = libluaext.la
+EXTRA_DIST = \
+	modemuncher.c \
+	userconfig.c \
+	linit.lua
+
+AM_CPPFLAGS = -I$(top_builddir) -I$(top_builddir)/include -I.
+libluaext_la_CPPFLAGS = $(AM_CPPFLAGS) -DWITH_POSIX @LUA_CFLAGS@
+libluaext_la_LIBADD = @LUA_LIBS@
+libluaext_la_SOURCES = \
+		lposix.h \
+		lposix.c \
+		lrexlib.h \
+		lrexlib.c 
+
+all: all-am
+
+.SUFFIXES:
+.SUFFIXES: .c .lo .o .obj
+$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
+	@for dep in $?; do \
+	  case '$(am__configure_deps)' in \
+	    *$$dep*) \
+	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
+	        && { if test -f $@; then exit 0; else break; fi; }; \
+	      exit 1;; \
+	  esac; \
+	done; \
+	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign luaext/Makefile'; \
+	$(am__cd) $(top_srcdir) && \
+	  $(AUTOMAKE) --foreign luaext/Makefile
+.PRECIOUS: Makefile
+Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
+	@case '$?' in \
+	  *config.status*) \
+	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
+	  *) \
+	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
+	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
+	esac;
+
+$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+
+$(top_srcdir)/configure:  $(am__configure_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
+	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
+$(am__aclocal_m4_deps):
+
+clean-noinstLTLIBRARIES:
+	-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
+	@list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
+	  dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
+	  test "$$dir" != "$$p" || dir=.; \
+	  echo "rm -f \"$${dir}/so_locations\""; \
+	  rm -f "$${dir}/so_locations"; \
+	done
+libluaext.la: $(libluaext_la_OBJECTS) $(libluaext_la_DEPENDENCIES) 
+	$(LINK)  $(libluaext_la_OBJECTS) $(libluaext_la_LIBADD) $(LIBS)
+
+mostlyclean-compile:
+	-rm -f *.$(OBJEXT)
+
+distclean-compile:
+	-rm -f *.tab.c
+
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libluaext_la-lposix.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libluaext_la-lrexlib.Plo@am__quote@
+
+.c.o:
+@am__fastdepCC_TRUE@	depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\
+@am__fastdepCC_TRUE@	$(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\
+@am__fastdepCC_TRUE@	$(am__mv) $$depbase.Tpo $$depbase.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@	$(COMPILE) -c -o $@ $<
+
+.c.obj:
+@am__fastdepCC_TRUE@	depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\
+@am__fastdepCC_TRUE@	$(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\
+@am__fastdepCC_TRUE@	$(am__mv) $$depbase.Tpo $$depbase.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@	$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
+
+.c.lo:
+@am__fastdepCC_TRUE@	depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\
+@am__fastdepCC_TRUE@	$(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\
+@am__fastdepCC_TRUE@	$(am__mv) $$depbase.Tpo $$depbase.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@	$(LTCOMPILE) -c -o $@ $<
+
+libluaext_la-lposix.lo: lposix.c
+@am__fastdepCC_TRUE@	$(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libluaext_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libluaext_la-lposix.lo -MD -MP -MF $(DEPDIR)/libluaext_la-lposix.Tpo -c -o libluaext_la-lposix.lo `test -f 'lposix.c' || echo '$(srcdir)/'`lposix.c
+@am__fastdepCC_TRUE@	$(am__mv) $(DEPDIR)/libluaext_la-lposix.Tpo $(DEPDIR)/libluaext_la-lposix.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	source='lposix.c' object='libluaext_la-lposix.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@	$(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libluaext_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libluaext_la-lposix.lo `test -f 'lposix.c' || echo '$(srcdir)/'`lposix.c
+
+libluaext_la-lrexlib.lo: lrexlib.c
+@am__fastdepCC_TRUE@	$(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libluaext_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libluaext_la-lrexlib.lo -MD -MP -MF $(DEPDIR)/libluaext_la-lrexlib.Tpo -c -o libluaext_la-lrexlib.lo `test -f 'lrexlib.c' || echo '$(srcdir)/'`lrexlib.c
+@am__fastdepCC_TRUE@	$(am__mv) $(DEPDIR)/libluaext_la-lrexlib.Tpo $(DEPDIR)/libluaext_la-lrexlib.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	source='lrexlib.c' object='libluaext_la-lrexlib.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@	DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@	$(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libluaext_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libluaext_la-lrexlib.lo `test -f 'lrexlib.c' || echo '$(srcdir)/'`lrexlib.c
+
+mostlyclean-libtool:
+	-rm -f *.lo
+
+clean-libtool:
+	-rm -rf .libs _libs
+
+ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
+	list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
+	unique=`for i in $$list; do \
+	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+	  done | \
+	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
+	      END { if (nonempty) { for (i in files) print i; }; }'`; \
+	mkid -fID $$unique
+tags: TAGS
+
+TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
+		$(TAGS_FILES) $(LISP)
+	set x; \
+	here=`pwd`; \
+	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
+	unique=`for i in $$list; do \
+	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+	  done | \
+	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
+	      END { if (nonempty) { for (i in files) print i; }; }'`; \
+	shift; \
+	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
+	  test -n "$$unique" || unique=$$empty_fix; \
+	  if test $$# -gt 0; then \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      "$$@" $$unique; \
+	  else \
+	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
+	      $$unique; \
+	  fi; \
+	fi
+ctags: CTAGS
+CTAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
+		$(TAGS_FILES) $(LISP)
+	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
+	unique=`for i in $$list; do \
+	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
+	  done | \
+	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
+	      END { if (nonempty) { for (i in files) print i; }; }'`; \
+	test -z "$(CTAGS_ARGS)$$unique" \
+	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
+	     $$unique
+
+GTAGS:
+	here=`$(am__cd) $(top_builddir) && pwd` \
+	  && $(am__cd) $(top_srcdir) \
+	  && gtags -i $(GTAGS_ARGS) "$$here"
+
+distclean-tags:
+	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
+
+distdir: $(DISTFILES)
+	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
+	list='$(DISTFILES)'; \
+	  dist_files=`for file in $$list; do echo $$file; done | \
+	  sed -e "s|^$$srcdirstrip/||;t" \
+	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
+	case $$dist_files in \
+	  */*) $(MKDIR_P) `echo "$$dist_files" | \
+			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
+			   sort -u` ;; \
+	esac; \
+	for file in $$dist_files; do \
+	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
+	  if test -d $$d/$$file; then \
+	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
+	    if test -d "$(distdir)/$$file"; then \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
+	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
+	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
+	    fi; \
+	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
+	  else \
+	    test -f "$(distdir)/$$file" \
+	    || cp -p $$d/$$file "$(distdir)/$$file" \
+	    || exit 1; \
+	  fi; \
+	done
+check-am: all-am
+check: check-am
+all-am: Makefile $(LTLIBRARIES)
+installdirs:
+install: install-am
+install-exec: install-exec-am
+install-data: install-data-am
+uninstall: uninstall-am
+
+install-am: all-am
+	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
+
+installcheck: installcheck-am
+install-strip:
+	$(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+	  install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+	  `test -z '$(STRIP)' || \
+	    echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+mostlyclean-generic:
+
+clean-generic:
+
+distclean-generic:
+	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
+	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
+
+maintainer-clean-generic:
+	@echo "This command is intended for maintainers to use"
+	@echo "it deletes files that may require special tools to rebuild."
+clean: clean-am
+
+clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
+	mostlyclean-am
+
+distclean: distclean-am
+	-rm -rf ./$(DEPDIR)
+	-rm -f Makefile
+distclean-am: clean-am distclean-compile distclean-generic \
+	distclean-tags
+
+dvi: dvi-am
+
+dvi-am:
+
+html: html-am
+
+html-am:
+
+info: info-am
+
+info-am:
+
+install-data-am:
+
+install-dvi: install-dvi-am
+
+install-dvi-am:
+
+install-exec-am:
+
+install-html: install-html-am
+
+install-html-am:
+
+install-info: install-info-am
+
+install-info-am:
+
+install-man:
+
+install-pdf: install-pdf-am
+
+install-pdf-am:
+
+install-ps: install-ps-am
+
+install-ps-am:
+
+installcheck-am:
+
+maintainer-clean: maintainer-clean-am
+	-rm -rf ./$(DEPDIR)
+	-rm -f Makefile
+maintainer-clean-am: distclean-am maintainer-clean-generic
+
+mostlyclean: mostlyclean-am
+
+mostlyclean-am: mostlyclean-compile mostlyclean-generic \
+	mostlyclean-libtool
+
+pdf: pdf-am
+
+pdf-am:
+
+ps: ps-am
+
+ps-am:
+
+uninstall-am:
+
+.MAKE: install-am install-strip
+
+.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
+	clean-libtool clean-noinstLTLIBRARIES ctags distclean \
+	distclean-compile distclean-generic distclean-libtool \
+	distclean-tags distdir dvi dvi-am html html-am info info-am \
+	install install-am install-data install-data-am install-dvi \
+	install-dvi-am install-exec install-exec-am install-html \
+	install-html-am install-info install-info-am install-man \
+	install-pdf install-pdf-am install-ps install-ps-am \
+	install-strip installcheck installcheck-am installdirs \
+	maintainer-clean maintainer-clean-generic mostlyclean \
+	mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+	pdf pdf-am ps ps-am tags uninstall uninstall-am
+
+
+linit.lch: linit.lua
+	bin2c linit.lua > linit.lch
+
+# Tell versions [3.59,3.63) of GNU make to not export all variables.
+# Otherwise a system limit (for SysV at least) may be exceeded.
+.NOEXPORT:
diff --git a/luaext/linit.lua b/luaext/linit.lua
new file mode 100644
index 0000000..7b134ba
--- /dev/null
+++ b/luaext/linit.lua
@@ -0,0 +1,41 @@
+
+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/luaext/lposix.c b/luaext/lposix.c
new file mode 100644
index 0000000..3b25157
--- /dev/null
+++ b/luaext/lposix.c
@@ -0,0 +1,889 @@
+/*
+* 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
+*/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#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>
+#include <rpm/rpmutil.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 int have_forked = 0;
+
+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_checkoption(L, i, NULL, 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) return 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;
+
+	if (!have_forked)
+	    return luaL_error(L, "exec not permitted in this context");
+
+	argv = malloc((n+1)*sizeof(char*));
+	if (argv==NULL) return 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() */
+{
+	pid_t pid = fork();
+	if (pid == 0) {
+	    have_forked = 1;
+	}
+	return pushresult(L, pid, 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) */
+{
+#if HAVE_PUTENV
+	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);
+#else
+	return -1;
+#endif
+}
+
+
+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;
+}
+
+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 int Pmkstemp(lua_State *L)
+{
+	const char *path;
+	char *dynpath;
+	int fd;
+	FILE **f;
+
+	path = luaL_checkstring(L, 1);
+	if (path == NULL)
+		return 0;
+	dynpath = rstrdup(path);
+	fd = mkstemp(dynpath);
+	f = (FILE**)lua_newuserdata(L, sizeof(FILE*));
+	if (f == NULL) {
+		close(fd);
+		free(dynpath);
+		return 0;
+	}
+	*f = fdopen(fd, "a+");
+	lua_pushstring(L, dynpath);
+	free(dynpath);
+	luaL_getmetatable(L, "FILE*");
+	if (lua_isnil(L, -1)) {
+		lua_pop(L, 1);
+		return luaL_error(L, "FILE* metatable not available "
+			      "(io not loaded?)");
+	} else {
+		lua_setmetatable(L, -3);
+	}
+	return 2;
+}
+
+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},
+	{"mkstemp",		Pmkstemp},
+	{"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},
+	{"setenv",		Psetenv},
+	{"unsetenv",		Punsetenv},
+	{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;
+}
+
+/* RPM specific overrides for Lua standard library */
+
+static int exit_override(lua_State *L)
+{
+    if (!have_forked)
+	return luaL_error(L, "exit not permitted in this context");
+
+    exit(luaL_optint(L, 1, EXIT_SUCCESS));
+}
+
+static const luaL_reg os_overrides[] =
+{
+    {"exit",    exit_override},
+    {NULL,      NULL}
+};
+
+int luaopen_rpm_os(lua_State *L)
+{
+    lua_pushvalue(L, LUA_GLOBALSINDEX);
+    luaL_openlib(L, "os", os_overrides, 0);
+    return 0;
+}
+
diff --git a/luaext/lposix.h b/luaext/lposix.h
new file mode 100644
index 0000000..1f9afe9
--- /dev/null
+++ b/luaext/lposix.h
@@ -0,0 +1,7 @@
+#ifndef LPOSIX_H
+#define LPOSIX_H
+
+int luaopen_posix (lua_State *L);
+int luaopen_rpm_os (lua_State *L);
+
+#endif
diff --git a/luaext/lrexlib.c b/luaext/lrexlib.c
new file mode 100644
index 0000000..81931c0
--- /dev/null
+++ b/luaext/lrexlib.c
@@ -0,0 +1,340 @@
+/* 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/luaext/lrexlib.h b/luaext/lrexlib.h
new file mode 100644
index 0000000..663c635
--- /dev/null
+++ b/luaext/lrexlib.h
@@ -0,0 +1,6 @@
+#ifndef LREXLIB_H
+#define LREXLIB_H
+
+int luaopen_rex(lua_State *L);
+
+#endif
diff --git a/luaext/modemuncher.c b/luaext/modemuncher.c
new file mode 100644
index 0000000..ed86d9f
--- /dev/null
+++ b/luaext/modemuncher.c
@@ -0,0 +1,271 @@
+/* 
+	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},
+	{'\0', 					(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 |= ch_mode & affected_bits;
+			break;
+
+			case '-':
+			*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/luaext/userconfig.c b/luaext/userconfig.c
new file mode 100644
index 0000000..458768a
--- /dev/null
+++ b/luaext/userconfig.c
@@ -0,0 +1,57 @@
+
+#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_pushfstring(L, "%s/%s", rpmConfigDir(), "/lua/?.lua;?.lua");
+	lua_rawset(L, LUA_GLOBALSINDEX);
+	return 0;
+}