mirror of
https://github.com/lunarmodules/luafilesystem.git
synced 2026-07-24 20:33:06 +00:00
Eliminando funcao lfs.touch() para lancamento da versao 1.0 oficial.
This commit is contained in:
4
Makefile
4
Makefile
@@ -1,10 +1,10 @@
|
|||||||
# $Id: Makefile,v 1.11 2005/01/18 10:48:02 tomas Exp $
|
# $Id: Makefile,v 1.12 2005/01/19 14:28:58 tomas Exp $
|
||||||
|
|
||||||
T= lfs
|
T= lfs
|
||||||
|
|
||||||
include ./config
|
include ./config
|
||||||
|
|
||||||
V= 1.1b
|
V= 1.0
|
||||||
DIST_DIR= luafilesystem-$V
|
DIST_DIR= luafilesystem-$V
|
||||||
TAR_FILE= $(DIST_DIR).tar.gz
|
TAR_FILE= $(DIST_DIR).tar.gz
|
||||||
ZIP_FILE= $(DIST_DIR).zip
|
ZIP_FILE= $(DIST_DIR).zip
|
||||||
|
|||||||
36
src/lfs.c
36
src/lfs.c
@@ -7,10 +7,9 @@
|
|||||||
** lfs.dir (path)
|
** lfs.dir (path)
|
||||||
** lfs.mkdir (path)
|
** lfs.mkdir (path)
|
||||||
** lfs.lock (fh, mode)
|
** lfs.lock (fh, mode)
|
||||||
** lfs.touch (filepath [, atime [, mtime]])
|
|
||||||
** lfs.unlock (fh)
|
** lfs.unlock (fh)
|
||||||
**
|
**
|
||||||
** $Id: lfs.c,v 1.16 2005/01/18 11:21:58 tuler Exp $
|
** $Id: lfs.c,v 1.17 2005/01/19 14:28:58 tomas Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
@@ -23,13 +22,11 @@
|
|||||||
#include <direct.h>
|
#include <direct.h>
|
||||||
#include <io.h>
|
#include <io.h>
|
||||||
#include <sys/locking.h>
|
#include <sys/locking.h>
|
||||||
#include <sys/utime.h>
|
|
||||||
#else
|
#else
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
#include <dirent.h>
|
#include <dirent.h>
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
#include <utime.h>
|
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include "lua.h"
|
#include "lua.h"
|
||||||
@@ -148,7 +145,7 @@ static int _file_lock (lua_State *L, FILE *fh, const char *mode, const long star
|
|||||||
case 'w': f.l_type = F_WRLCK; break;
|
case 'w': f.l_type = F_WRLCK; break;
|
||||||
case 'r': f.l_type = F_RDLCK; break;
|
case 'r': f.l_type = F_RDLCK; break;
|
||||||
case 'u': f.l_type = F_UNLCK; break;
|
case 'u': f.l_type = F_UNLCK; break;
|
||||||
default : luaL_error (L, "%s: invalid mode", funcname);
|
default : return luaL_error (L, "%s: invalid mode", funcname);
|
||||||
}
|
}
|
||||||
f.l_whence = SEEK_SET;
|
f.l_whence = SEEK_SET;
|
||||||
f.l_start = (off_t)start;
|
f.l_start = (off_t)start;
|
||||||
@@ -397,30 +394,6 @@ static const char *mode2string (mode_t mode) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
** Set access time and modification values for file
|
|
||||||
*/
|
|
||||||
static int file_utime (lua_State *L) {
|
|
||||||
const char *file = luaL_checkstring (L, 1);
|
|
||||||
struct utimbuf utb, *buf;
|
|
||||||
|
|
||||||
if (lua_gettop (L) == 1) /* set to current date/time */
|
|
||||||
buf = NULL;
|
|
||||||
else {
|
|
||||||
utb.actime = (time_t)luaL_optnumber (L, 2, 0);
|
|
||||||
utb.modtime = (time_t)luaL_optnumber (L, 3, utb.actime);
|
|
||||||
buf = &utb;
|
|
||||||
}
|
|
||||||
if (utime (file, buf)) {
|
|
||||||
lua_pushnil (L);
|
|
||||||
lua_pushfstring (L, "%s", strerror (errno));
|
|
||||||
return 2;
|
|
||||||
}
|
|
||||||
lua_pushboolean (L, 1);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
** Get file information
|
** Get file information
|
||||||
*/
|
*/
|
||||||
@@ -498,7 +471,7 @@ static int file_info (lua_State *L) {
|
|||||||
*/
|
*/
|
||||||
static void set_info (lua_State *L) {
|
static void set_info (lua_State *L) {
|
||||||
lua_pushliteral (L, "_COPYRIGHT");
|
lua_pushliteral (L, "_COPYRIGHT");
|
||||||
lua_pushliteral (L, "Copyright (C) 2004 Kepler Project");
|
lua_pushliteral (L, "Copyright (C) 2004-2005 Kepler Project");
|
||||||
lua_settable (L, -3);
|
lua_settable (L, -3);
|
||||||
lua_pushliteral (L, "_DESCRIPTION");
|
lua_pushliteral (L, "_DESCRIPTION");
|
||||||
lua_pushliteral (L, "LuaFileSystem is a Lua library developed to complement the set of functions related to file systems offered by the standard Lua distribution");
|
lua_pushliteral (L, "LuaFileSystem is a Lua library developed to complement the set of functions related to file systems offered by the standard Lua distribution");
|
||||||
@@ -507,7 +480,7 @@ static void set_info (lua_State *L) {
|
|||||||
lua_pushliteral (L, "LuaFileSystem");
|
lua_pushliteral (L, "LuaFileSystem");
|
||||||
lua_settable (L, -3);
|
lua_settable (L, -3);
|
||||||
lua_pushliteral (L, "_VERSION");
|
lua_pushliteral (L, "_VERSION");
|
||||||
lua_pushliteral (L, "1.0b");
|
lua_pushliteral (L, "1.0");
|
||||||
lua_settable (L, -3);
|
lua_settable (L, -3);
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -519,7 +492,6 @@ static const struct luaL_reg fslib[] = {
|
|||||||
{"dir", dir_iter_factory},
|
{"dir", dir_iter_factory},
|
||||||
{"lock", file_lock},
|
{"lock", file_lock},
|
||||||
{"mkdir", make_dir},
|
{"mkdir", make_dir},
|
||||||
{"touch", file_utime},
|
|
||||||
{"unlock", file_unlock},
|
{"unlock", file_unlock},
|
||||||
{NULL, NULL},
|
{NULL, NULL},
|
||||||
};
|
};
|
||||||
|
|||||||
Reference in New Issue
Block a user