Alejandro Mery
14 years ago
5 changed files with 8 additions and 255 deletions
@ -1,38 +0,0 @@ |
|||||||
# --- SDE-COPYRIGHT-NOTE-BEGIN ---
|
|
||||||
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
|
|
||||||
#
|
|
||||||
# Filename: package/.../lua-posix/clk_tck.patch
|
|
||||||
# Copyright (C) 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 ---
|
|
||||||
|
|
||||||
|
|
||||||
diff -ur posix/lposix.c posix-t2/lposix.c
|
|
||||||
--- posix/lposix.c 2003-11-06 01:23:48.000000000 +0100
|
|
||||||
+++ posix-t2/lposix.c 2006-02-01 22:15:50.000000000 +0100
|
|
||||||
@@ -599,7 +599,7 @@
|
|
||||||
clock_t elapsed;
|
|
||||||
};
|
|
||||||
|
|
||||||
-#define pushtime(L,x) lua_pushnumber(L,((lua_Number)x)/CLK_TCK)
|
|
||||||
+#define pushtime(L,x) lua_pushnumber(L,((lua_Number)x)/CLOCKS_PER_SEC)
|
|
||||||
|
|
||||||
static int Ftimes(lua_State *L, int i, const void *data)
|
|
||||||
{
|
|
||||||
@@ -620,7 +620,7 @@
|
|
||||||
"utime", "stime", "cutime", "cstime", "elapsed", NULL
|
|
||||||
};
|
|
||||||
|
|
||||||
-#define storetime(L,name,x) storenumber(L,name,(lua_Number)x/CLK_TCK)
|
|
||||||
+#define storetime(L,name,x) storenumber(L,name,(lua_Number)x/CLOCKS_PER_SEC)
|
|
||||||
|
|
||||||
static int Ptimes(lua_State *L) /** times() */
|
|
||||||
{
|
|
@ -1,77 +0,0 @@ |
|||||||
# --- SDE-COPYRIGHT-NOTE-BEGIN ---
|
|
||||||
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
|
|
||||||
#
|
|
||||||
# Filename: package/.../lua-posix/makefile.patch
|
|
||||||
# Copyright (C) 2006 The OpenSDE Project
|
|
||||||
# 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/Makefile 2003-11-06 01:26:49.000000000 +0100
|
|
||||||
+++ posix-5.1-alpha/Makefile 2005-09-04 14:17:03.000000000 +0200
|
|
||||||
@@ -1,10 +1,20 @@
|
|
||||||
# makefile for POSIX library for Lua
|
|
||||||
|
|
||||||
# change these to reflect your Lua installation
|
|
||||||
-LUA= /tmp/lhf/lua-5.0
|
|
||||||
-LUAINC= $(LUA)/include
|
|
||||||
-LUALIB= $(LUA)/lib
|
|
||||||
-LUABIN= $(LUA)/bin
|
|
||||||
+LUA= lua
|
|
||||||
+
|
|
||||||
+LUAINC= $(LUA_ROOT)/include
|
|
||||||
+LUALIB= $(LUA_ROOT)/lib
|
|
||||||
+LUABIN= $(LUA_ROOT)/bin
|
|
||||||
+
|
|
||||||
+# installation path
|
|
||||||
+LUA_ROOT= $(shell pkg-config --variable prefix lua)
|
|
||||||
+LUA_CDIR= $(shell pkg-config --variable INSTALL_CMOD lua)
|
|
||||||
+LUA_LDIR= $(shell pkg-config --variable INSTALL_LMOD lua)
|
|
||||||
+
|
|
||||||
+INSTALL = install
|
|
||||||
+INSTALL_DATA = $(INSTALL) -m 644
|
|
||||||
+INSTALL_EXEC = $(INSTALL) -m 755
|
|
||||||
|
|
||||||
# no need to change anything below here
|
|
||||||
CFLAGS= -fPIC $(INCS) $(WARN) -O2 $G
|
|
||||||
@@ -16,23 +26,25 @@
|
|
||||||
|
|
||||||
OBJS= $(MYLIB).o
|
|
||||||
|
|
||||||
-T= $(MYLIB).so
|
|
||||||
+all: $(MYLIB).so
|
|
||||||
|
|
||||||
-all: test
|
|
||||||
+test: $(MYLIB).so
|
|
||||||
+ $(LUA) -l$(MYNAME) test.lua
|
|
||||||
|
|
||||||
-test: $T
|
|
||||||
- $(LUABIN)/lua -l$(MYNAME) test.lua
|
|
||||||
+$(MYLIB).so: $(OBJS)
|
|
||||||
+ $(CC) $(LDFLAGS) -o $@ -shared $(OBJS)
|
|
||||||
|
|
||||||
-$T: $(OBJS)
|
|
||||||
- $(CC) -o $@ -shared $(OBJS)
|
|
||||||
+install:
|
|
||||||
+ $(INSTALL_EXEC) $(MYLIB).so $(LUA_CDIR)/
|
|
||||||
+ $(INSTALL_DATA) $(MYNAME).lua $(LUA_LDIR)/
|
|
||||||
|
|
||||||
$(OBJS): modemuncher.c
|
|
||||||
|
|
||||||
-tree: $T
|
|
||||||
+tree: $(MYLIB).so
|
|
||||||
$(LUABIN)/lua -l$(MYNAME) tree.lua .
|
|
||||||
|
|
||||||
clean:
|
|
||||||
- rm -f $(OBJS) $T core core.* a.out
|
|
||||||
+ rm -f $(OBJS) $(MYLIB).so core core.* a.out
|
|
||||||
|
|
||||||
x:
|
|
||||||
@echo "$(MYNAME) library:"
|
|
@ -1,59 +0,0 @@ |
|||||||
# --- 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},
|
|
@ -1,74 +0,0 @@ |
|||||||
# --- SDE-COPYRIGHT-NOTE-BEGIN ---
|
|
||||||
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
|
|
||||||
#
|
|
||||||
# Filename: package/.../lua-posix/update-lua51.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 2003-11-06 01:23:48.000000000 +0100
|
|
||||||
+++ posix-5.1-alpha/lposix.c 2005-09-04 13:59:15.000000000 +0200
|
|
||||||
@@ -64,7 +64,7 @@
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
- int j=luaL_findstring(luaL_checkstring(L, i), S);
|
|
||||||
+ int j=luaL_checkoption(L, i, NULL, S);
|
|
||||||
if (j==-1) luaL_argerror(L, i, "unknown selector");
|
|
||||||
return F(L, j, data);
|
|
||||||
}
|
|
||||||
@@ -802,7 +802,7 @@
|
|
||||||
{NULL, NULL}
|
|
||||||
};
|
|
||||||
|
|
||||||
-LUALIB_API int luaopen_posix (lua_State *L)
|
|
||||||
+LUALIB_API int luaopen_lposix (lua_State *L)
|
|
||||||
{
|
|
||||||
luaL_openlib(L, MYNAME, R, 0);
|
|
||||||
lua_pushliteral(L,"version"); /** version */
|
|
||||||
--- posix/posix.lua 2003-06-18 14:47:44.000000000 +0200
|
|
||||||
+++ posix-5.1-alpha/posix.lua 2005-09-04 14:15:14.000000000 +0200
|
|
||||||
@@ -1,10 +1,4 @@
|
|
||||||
-- posix.lua
|
|
||||||
-- support code for posix library
|
|
||||||
--- usage lua -lposix ...
|
|
||||||
|
|
||||||
-local function so(x)
|
|
||||||
- local SOPATH= os.getenv"LUA_SOPATH" or "./"
|
|
||||||
- assert(loadlib(SOPATH.."l"..x..".so","luaopen_"..x))()
|
|
||||||
-end
|
|
||||||
-
|
|
||||||
-so"posix"
|
|
||||||
+require"lposix"
|
|
||||||
--- posix/test.lua 2003-11-07 12:42:30.000000000 +0100
|
|
||||||
+++ posix-5.1-alpha/test.lua 2005-09-04 13:51:39.000000000 +0200
|
|
||||||
@@ -41,7 +41,7 @@
|
|
||||||
f"HOME"
|
|
||||||
f"SHELL"
|
|
||||||
f"absent"
|
|
||||||
-for k in ox.getenv() do io.write(k,"\t") end io.write"\n"
|
|
||||||
+for k,_ in pairs(ox.getenv()) do io.write(k,"\t") end io.write"\n"
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
testing"putenv"
|
|
||||||
@@ -179,11 +179,11 @@
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
testing"times"
|
|
||||||
a=ox.times()
|
|
||||||
-for k,v in a do print(k,v) end
|
|
||||||
+for k,v in pairs(a) do print(k,v) end
|
|
||||||
print"sleeping 10 seconds..."
|
|
||||||
ox.sleep(10)
|
|
||||||
b=ox.times()
|
|
||||||
-for k,v in b do print(k,v) end
|
|
||||||
+for k,v in pairs(b) do print(k,v) end
|
|
||||||
print""
|
|
||||||
print("elapsed",b.elapsed-a.elapsed)
|
|
||||||
print("clock",os.clock())
|
|
Loading…
Reference in new issue