From 7049b69af19dfbe3fced0e0a02e07af809a7c1b6 Mon Sep 17 00:00:00 2001
From: tomas <tomas>
Date: Sat, 23 Oct 2004 22:33:11 +0000
Subject: Pequenas melhorias na documentacao. Implementacao da funcao
 `attributes' que recupera informacoes sobre os arquivos.

---
 src/lfs.c | 123 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 121 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/lfs.c b/src/lfs.c
index 0b947d0..bf0f02b 100644
--- a/src/lfs.c
+++ b/src/lfs.c
@@ -9,13 +9,14 @@
 **   lfs.lock (fh, mode)
 **   lfs.unlock (fh)
 **
-** $Id: lfs.c,v 1.3 2004/10/15 10:04:15 tomas Exp $
+** $Id: lfs.c,v 1.4 2004/10/23 22:33:11 tomas Exp $
 */
 
 #include <errno.h>
 #include <stdio.h>
 #include <string.h>
 #include <time.h>
+#include <sys/stat.h>
 
 #ifdef WIN32
 #include <direct.h>
@@ -26,7 +27,6 @@
 #include <dirent.h>
 #include <fcntl.h>
 #include <sys/types.h>
-#include <sys/stat.h>
 #endif
 
 #include <lua.h>
@@ -335,7 +335,126 @@ static int dir_create_meta (lua_State *L) {
 }
 
 
+#ifdef _WIN32
+ #define S_ISDIR(mode)  (mode&_S_IFDIR)
+ #define S_ISREG(mode)  (mode&_S_IFREG)
+ #define S_ISLNK(mode)  (0)
+ #define S_ISSOCK(mode)  (0)
+ #define S_ISFIFO(mode)  (0)
+ #define S_ISCHR(mode)  (0)
+ #define S_ISBLK(mode)  (0)
+#endif
+/*
+** Convert the inode protection mode to a string.
+*/
+static const char *mode2string (mode_t mode) {
+  if ( S_ISREG(mode) )
+    return "file";
+  else if ( S_ISDIR(mode) )
+    return "directory";
+  else if ( S_ISLNK(mode) )
+	return "link";
+  else if ( S_ISSOCK(mode) )
+    return "socket";
+  else if ( S_ISFIFO(mode) )
+	return "named pipe";
+  else if ( S_ISCHR(mode) )
+	return "char device";
+  else if ( S_ISBLK(mode) )
+	return "block device";
+  else
+	return "other";
+}
+
+
+/*
+** Convert a struct timespec to a Lua table.
+*/
+static lua_Number time2number (struct timespec t) {
+	return (lua_Number)t.tv_sec + (lua_Number)t.tv_nsec / 1000000000.0;
+}
+
+
+/*
+** Get file information
+*/
+static int file_info (lua_State *L) {
+	struct stat info;
+	const char *file = luaL_checkstring (L, 1);
+
+	if (stat(file, &info)) {
+		lua_pushnil (L);
+		lua_pushfstring (L, "cannot obtain information from file `%s'", file);
+		return 2;
+	}
+	lua_newtable (L);
+	/* device inode resides on */
+	lua_pushliteral (L, "dev");
+	lua_pushnumber (L, (lua_Number)info.st_dev);
+	lua_rawset (L, -3);
+	/* inode's number */
+	lua_pushliteral (L, "ino");
+	lua_pushnumber (L, (lua_Number)info.st_ino);
+	lua_rawset (L, -3);
+	/* inode protection mode */
+	lua_pushliteral (L, "mode");
+	lua_pushstring (L, mode2string (info.st_mode));
+	lua_rawset (L, -3);
+	/* number or hard links to the file */
+	lua_pushliteral (L, "nlink");
+	lua_pushnumber (L, (lua_Number)info.st_nlink);
+	lua_rawset (L, -3);
+	/* user-id of owner */
+	lua_pushliteral (L, "uid");
+	lua_pushnumber (L, (lua_Number)info.st_uid);
+	lua_rawset (L, -3);
+	/* group-id of owner */
+	lua_pushliteral (L, "gid");
+	lua_pushnumber (L, (lua_Number)info.st_gid);
+	lua_rawset (L, -3);
+	/* device type, for special file inode */
+	lua_pushliteral (L, "rdev");
+	lua_pushnumber (L, (lua_Number)info.st_rdev);
+	lua_rawset (L, -3);
+	/* time of last access */
+	lua_pushliteral (L, "access");
+	lua_pushnumber (L, time2number (info.st_atimespec));
+	lua_rawset (L, -3);
+	/* time of last data modification */
+	lua_pushliteral (L, "modification");
+	lua_pushnumber (L, time2number (info.st_mtimespec));
+	lua_rawset (L, -3);
+	/* time of last file status change */
+	lua_pushliteral (L, "change");
+	lua_pushnumber (L, time2number (info.st_ctimespec));
+	lua_rawset (L, -3);
+	/* file size, in bytes */
+	lua_pushliteral (L, "size");
+	lua_pushnumber (L, (lua_Number)info.st_size);
+	lua_rawset (L, -3);
+	/* blocks allocated for file */
+	lua_pushliteral (L, "blocks");
+	lua_pushnumber (L, (lua_Number)info.st_blocks);
+	lua_rawset (L, -3);
+	/* optimal file system I/O blocksize */
+	lua_pushliteral (L, "blksize");
+	lua_pushnumber (L, (lua_Number)info.st_blksize);
+	lua_rawset (L, -3);
+	/* user defined flags for file */
+	lua_pushliteral (L, "flags");
+	lua_pushnumber (L, (lua_Number)info.st_flags);
+	lua_rawset (L, -3);
+	/* file generation number */
+	lua_pushliteral (L, "gen");
+	lua_pushnumber (L, (lua_Number)info.st_gen);
+	lua_rawset (L, -3);
+
+	return 1;
+}
+
+
 static const struct luaL_reg fslib[] = {
+	{"attributes", file_info},
 	{"chdir", change_dir},
 	{"currentdir", get_dir},
 	{"dir", dir_iter_factory},
-- 
cgit v1.2.3-55-g6feb