package-nopast/lua/lua-posix/t2-ext-glob.patch

# --- SDE-COPYRIGHT-NOTE-BEGIN ---
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
#
# Filename: package/.../lua-posix/t2-ext-glob.patch
# Copyright (C) 2004 - 2006 The T2 SDE Project
#
# More information can be found in the files COPYING and README.
#
# This patch file is dual-licensed. It is available under the license the
# patched project is licensed under, as long as it is an OpenSource license
# as defined at http://www.opensource.org/ (e.g. BSD, X11) or under the terms
# of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
# --- SDE-COPYRIGHT-NOTE-END ---
--- posix/lposix.c	2005-09-08 21:50:42.445019600 +0200
+++ posix-t2/lposix.c	2005-09-08 21:49:14.994723494 +0200
@@ -22,6 +22,7 @@
 #include <time.h>
 #include <unistd.h>
 #include <utime.h>
+#include <glob.h>
 
 #define MYNAME		"posix"
 #define MYVERSION	MYNAME " library for " LUA_VERSION " / Nov 2003"
@@ -177,6 +178,25 @@
 }
 
 
+static int Pglob(lua_State *L)			/** glob(pattern) */
+{
+	const char *pattern = luaL_optstring(L, 1, ".");
+	glob_t globres;
+
+	if (glob(pattern, GLOB_MARK, NULL, &globres))
+		return pusherror(L, pattern);
+	else
+	{
+		int i;
+		lua_newtable(L);
+		for (i=1; i<=globres.gl_pathc; i++)
+			storeindex(L, i, globres.gl_pathv[i-1]);
+		globfree(&globres);
+		return 1;
+	}
+}
+
+
 static int aux_files(lua_State *L)
 {
 	DIR *d = lua_touserdata(L, lua_upvalueindex(1));
@@ -773,6 +793,7 @@
 	{"getlogin",		Pgetlogin},
 	{"getpasswd",		Pgetpasswd},
 	{"getprocessid",	Pgetprocessid},
+	{"glob",                Pglob},
 	{"kill",		Pkill},
 	{"link",		Plink},
 	{"mkdir",		Pmkdir},