/***
File state record.
@table PosixStat
@int st_dev device id
@int st_ino inode number
@int st_mode mode of file
@int st_nlink number of hardlinks to file
@int st_uid user id of file owner
@int st_gid group id of file owner
@int st_rdev additional device specific id for special files
@int st_size file size in bytes
@int st_atime time of last access
@int st_mtime time of last data modification
@int st_ctime time of last state change
@int st_blksize preferred block size
@int st_blocks number of blocks allocated
*/
static int
pushstat(lua_State *L, struct stat *st)
{
if (!st)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 13);
setintegerfield(st, st_dev);
setintegerfield(st, st_ino);
setintegerfield(st, st_mode);
setintegerfield(st, st_nlink);
setintegerfield(st, st_uid);
setintegerfield(st, st_gid);
setintegerfield(st, st_rdev);
setintegerfield(st, st_size);
setintegerfield(st, st_blksize);
setintegerfield(st, st_blocks);
/* st_[amc]time is a macro on at least Mac OS, so we have to
assign field name strings manually. */
pushintegerfield("st_atime", st->st_atime);
pushintegerfield("st_mtime", st->st_mtime);
pushintegerfield("st_ctime", st->st_ctime);
settypemetatable("PosixStat");
return 1;
}
/***
Timespec record.
@table PosixTimespec
@int tv_sec seconds
@int tv_nsec nanoseconds
@see posix.sys.time.PosixTimeval
*/
static int
pushtimespec(lua_State *L, struct timespec *ts)
{
if (!ts)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 2);
setintegerfield(ts, tv_sec);
setintegerfield(ts, tv_nsec);
settypemetatable("PosixTimespec");
return 1;
}
static int
pushutsname(lua_State *L, struct utsname *u)
{
if (!u)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 5);
setstringfield(u, machine);
setstringfield(u, nodename);
setstringfield(u, release);
setstringfield(u, sysname);
setstringfield(u, version);
settypemetatable("PosixUtsname");
return 1;
}
static int
pushpasswd(lua_State *L, struct passwd *p)
{
if (!p)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 6);
setintegerfield(p, pw_uid);
setintegerfield(p, pw_gid);
setstringfield(p, pw_name);
setstringfield(p, pw_dir);
setstringfield(p, pw_shell);
setstringfield(p, pw_passwd);
settypemetatable("PosixPasswd");
return 1;
}
/***
Datetime record.
@table PosixTm
@int tm_sec second [0,60]
@int tm_min minute [0,59]
@int tm_hour hour [0,23]
@int tm_mday day of month [1, 31]
@int tm_mon month of year [0,11]
@int tm_year years since 1900
@int tm_wday day of week [0=Sunday,6]
@int tm_yday day of year [0,365[
@int tm_isdst 0 if daylight savings time is not in effect
*/
static int
pushtm(lua_State *L, struct tm *t)
{
if (!t)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 9);
setintegerfield(t, tm_sec);
setintegerfield(t, tm_min);
setintegerfield(t, tm_hour);
setintegerfield(t, tm_mday);
setintegerfield(t, tm_mday);
setintegerfield(t, tm_mon);
setintegerfield(t, tm_year);
setintegerfield(t, tm_wday);
setintegerfield(t, tm_yday);
setintegerfield(t, tm_isdst);
settypemetatable("PosixTm");
return 1;
}
/***
Address information hints.
@table PosixAddrInfo
@int family one of `AF_INET`, `AF_INET6`, `AF_UNIX` or `AF_NETLINK`
@int flags bitwise OR of zero or more of `AI_ADDRCONFIG`, `AI_ALL`,
`AI_CANONNAME`, `AI_NUMERICHOST`, `AI_NUMERICSERV`, `AI_PASSIVE` and
`AI_V4MAPPED`
@int socktype one of `SOCK_STREAM`, `SOCK_DGRAM` or `SOCK_RAW`
@int protocol one of `IPPROTO_TCP` or `IPPROTO_UDP`
*/
static int
pushsockaddrinfo(lua_State *L, int family, struct sockaddr *sa)
{
char addr[INET6_ADDRSTRLEN];
struct sockaddr_in *sa4;
struct sockaddr_in6 *sa6;
lua_newtable(L);
pushnumberfield("family", family);
switch (family)
{
case AF_INET:
sa4 = (struct sockaddr_in *)sa;
inet_ntop(family, &sa4->sin_addr, addr, sizeof addr);
pushnumberfield("port", ntohs(sa4->sin_port));
pushstringfield("addr", addr);
break;
case AF_INET6:
sa6 = (struct sockaddr_in6 *)sa;
inet_ntop(family, &sa6->sin6_addr, addr, sizeof addr);
pushnumberfield("port", ntohs(sa6->sin6_port));
pushstringfield("addr", addr);
break;
case AF_UNIX:
pushstringfield("path", ((struct sockaddr_un *) sa)->sun_path);
break;
#if HAVE_LINUX_NETLINK_H
case AF_NETLINK:
pushnumberfield("pid", ((struct sockaddr_nl *) sa)->nl_pid);
pushnumberfield("groups", ((struct sockaddr_nl *) sa)->nl_groups);
break;
#endif
}
settypemetatable("PosixAddrInfo");
return 1;
}
/***
Files system information record.
@table PosixStatvfs
@int f_bsize file system block size
@int f_frsize fundamental file system block size
@int f_blocks number of *f_frsize* sized blocks in file system
@int f_bfree number of free blocks
@int f_bavail number of free blocks available to non-privileged process
@int f_files number of file serial numbers
@int f_ffree number of free file serial numbers
@int f_favail number of free file serial numbers available
@int f_fsid file system id
@int f_flag flag bits
@int f_namemax maximum filename length
*/
static int
pushstatvfs(lua_State *L, struct statvfs *sv)
{
if (!sv)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 11);
setintegerfield(sv, f_bsize);
setintegerfield(sv, f_frsize);
setintegerfield(sv, f_blocks);
setintegerfield(sv, f_bfree);
setintegerfield(sv, f_bavail);
setintegerfield(sv, f_files);
setintegerfield(sv, f_ffree);
setintegerfield(sv, f_favail);
setintegerfield(sv, f_fsid);
setintegerfield(sv, f_flag);
setintegerfield(sv, f_namemax);
settypemetatable("PosixStatvfs");
return 1;
}
static int
pushgroup(lua_State *L, struct group *g)
{
if (!g)
return lua_pushnil(L), 1;
lua_createtable(L, 0, 3);
setintegerfield(g, gr_gid);
setstringfield(g, gr_name);
if (g->gr_mem)
{
int i;
lua_newtable(L);
for (i = 0; g->gr_mem[i] != NULL; i++)
{
lua_pushstring(L, g->gr_mem[i]);
lua_rawseti(L, -2, i + 1);
}
lua_setfield(L, -2, "gr_mem");
}
settypemetatable("PosixGroup");
return 1;
}
