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},
 | |
| 
 |