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
|
--[[
POSIX library for Lua 5.1, 5.2, 5.3 & 5.4.
Copyright (C) 2014-2025 Gary V. Vaughan
]]
--[[--
Private argument checking helpers.
Undocumented internal helpers for argcheck wrapping.
@module posix._base
]]
local HAVE_TYPECHECK, typecheck = pcall(require, 'typecheck')
local HAVE_BITWISE_OPS, bitwise = pcall(require, 'posix._bitwise')
if not HAVE_BITWISE_OPS then
if jit and bit then
bitwise = bit
else
bitwise = require 'bit32'
end
end
local _ENV = require 'posix._strict' {
S_IRUSR = require 'posix.sys.stat'.S_IRUSR,
S_IWUSR = require 'posix.sys.stat'.S_IWUSR,
S_IXUSR = require 'posix.sys.stat'.S_IXUSR,
S_IRGRP = require 'posix.sys.stat'.S_IRGRP,
S_IWGRP = require 'posix.sys.stat'.S_IWGRP,
S_IXGRP = require 'posix.sys.stat'.S_IXGRP,
S_IROTH = require 'posix.sys.stat'.S_IROTH,
S_IWOTH = require 'posix.sys.stat'.S_IWOTH,
S_IXOTH = require 'posix.sys.stat'.S_IXOTH,
S_ISUID = require 'posix.sys.stat'.S_ISUID,
S_ISGID = require 'posix.sys.stat'.S_ISGID,
band = bitwise.band,
concat = table.concat,
error = error,
format = string.format,
}
local MODE_MAP = {
{c='r', b=S_IRUSR}, {c='w', b=S_IWUSR}, {c='x', b=S_IXUSR},
{c='r', b=S_IRGRP}, {c='w', b=S_IWGRP}, {c='x', b=S_IXGRP},
{c='r', b=S_IROTH}, {c='w', b=S_IWOTH}, {c='x', b=S_IXOTH},
}
return {
MODE_MAP = MODE_MAP,
argerror = function(name, i, extramsg, level)
level = level or 1
local s = format("bad argument #%d to '%s'", i, name)
if extramsg ~= nil then
s = s .. ' (' .. extramsg .. ')'
end
error(s, level + 1)
end,
argscheck = HAVE_TYPECHECK and typecheck.argscheck or function(_, fn)
return fn
end,
band = bitwise.band,
bor = bitwise.bor,
bnot = bitwise.bnot,
pushmode = function(mode)
local m = {}
for i = 1, 9 do
if band(mode, MODE_MAP[i].b) ~= 0 then
m[i] = MODE_MAP[i].c
else
m[i] = '-'
end
end
if band(mode, S_ISUID) ~= 0 then
if band(mode, S_IXUSR) ~= 0 then
m[3] = 's'
else
m[3] = 'S'
end
end
if band(mode, S_ISGID) ~= 0 then
if band(mode, S_IXGRP) ~= 0 then
m[6] = 's'
else
m[6] = 'S'
end
end
return concat(m)
end,
}
|
