You can not select more than 25 topics
			Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
		
		
		
		
		
			
		
			
				
					
					
						
							59 lines
						
					
					
						
							1.7 KiB
						
					
					
				
			
		
		
	
	
							59 lines
						
					
					
						
							1.7 KiB
						
					
					
				# --- 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},
 | 
						|
 |