1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
/*
* POSIX library for Lua 5.1, 5.2, 5.3 & 5.4.
* Copyright (C) 2013-2025 Gary V. Vaughan
* Copyright (C) 2010-2013 Reuben Thomas <rrt@sc3d.org>
* Copyright (C) 2008-2010 Natanael Copa <natanael.copa@gmail.com>
* Clean up and bug fixes by Leo Razoumov <slonik.az@gmail.com> 2006-10-11
* Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br> 07 Apr 2006 23:17:49
* Based on original by Claudio Terra for Lua 3.x.
* With contributions by Roberto Ierusalimschy.
* With documentation from Steve Donovan 2012
*/
/***
Retrieve File System Information.
Where supported by the underlying system, query the file system. If the
module loads, but there is no kernel support, then `posix.sys.statvfs.version`
will be set, but the unsupported APIs will be `nil`.
@module posix.sys.statvfs
*/
#if defined HAVE_STATVFS
#include <sys/statvfs.h>
#include "_helpers.c"
/***
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;
}
/***
Get file system statistics.
@function statvfs
@string path any path within the mounted file system
@treturn[1] PosixStatvfs information about file system containing *path*, if successful
@return[2] nil
@treturn[2] string error message
@treturn[2] int errnum
@see statvfs(3)
@usage
local statvfs = require "posix.sys.statvfs".statvfs
for a, b in pairs (statvfs "/") do print (a, b) end
*/
static int
Pstatvfs(lua_State *L)
{
struct statvfs s;
const char *path = luaL_checkstring(L, 1);
checknargs(L, 1);
if (statvfs(path, &s) == -1)
return pusherror(L, path);
return pushstatvfs(L, &s);
}
static const luaL_Reg posix_sys_statvfs_fns[] =
{
LPOSIX_FUNC( Pstatvfs ),
{NULL, NULL}
};
/***
Constants.
@section constants
*/
/***
Statvfs constants.
Any constants not available in the underlying system will be `nil` valued.
@table posix.sys.statvfs
@int ST_RDONLY read-only file system
@int ST_NOSUID does not support `S_ISUID` nor `S_ISGID` file mode bits
@usage
-- Print statvfs constants supported on this host.
for name, value in pairs (require "posix.sys.statvfs") do
if type (value) == "number" then
print (name, value)
end
end
*/
LUALIB_API int
luaopen_posix_sys_statvfs(lua_State *L)
{
luaL_newlib(L, posix_sys_statvfs_fns);
lua_pushstring(L, LPOSIX_VERSION_STRING("sys.statvfs"));
lua_setfield(L, -2, "version");
LPOSIX_CONST( ST_RDONLY );
LPOSIX_CONST( ST_NOSUID );
return 1;
}
#endif
|
