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
|
-- things that are libc only, not syscalls
-- this file will not be included if not running with libc eg for rump
local require, error, assert, tonumber, tostring,
setmetatable, pairs, ipairs, unpack, rawget, rawset,
pcall, type, table, string =
require, error, assert, tonumber, tostring,
setmetatable, pairs, ipairs, unpack, rawget, rawset,
pcall, type, table, string
local function init(S)
local c = S.c
local types = S.types
local t, s, pt = types.t, types.s, types.pt
local ffi = require "ffi"
local h = require "syscall.helpers"
local zeropointer = pt.void(0)
local function retbool(ret)
if ret == -1 then return nil, t.error() end
return true
end
-- if getcwd not defined, fall back to libc implementation (currently osx, freebsd)
-- freebsd implementation fairly complex
if not S.getcwd then
ffi.cdef [[
char *getcwd(char *buf, size_t size);
]]
function S.getcwd(buf, size)
size = size or c.PATH_MAX
buf = buf or t.buffer(size)
local ret = ffi.C.getcwd(buf, size)
if ret == zeropointer then return nil, t.error() end
return ffi.string(buf)
end
end
-- in NetBSD, OSX exit defined in libc, no _exit syscall available
if not S.exit then
function S.exit(status) return retbool(ffi.C.exit(c.EXIT[status or 0])) end
end
if not S._exit then
S._exit = S.exit -- provide syscall exit if possible
end
ffi.cdef [[
int __cxa_atexit(void (*func) (void *), void * arg, void * dso_handle);
]]
local function inlibc(k) return ffi.C[k] end
if pcall(inlibc, "exit") and pcall(inlibc, "__cxa_atexit") then
function S.exit(status) return retbool(ffi.C.exit(c.EXIT[status or 0])) end -- use libc exit instead
function S.atexit(f) return retbool(ffi.C.__cxa_atexit(f, nil, nil)) end
end
--[[ -- need more types defined
int uname(struct utsname *buf);
time_t time(time_t *t);
]]
--[[
int gethostname(char *name, size_t namelen);
int sethostname(const char *name, size_t len);
int getdomainname(char *name, size_t namelen);
int setdomainname(const char *name, size_t len);
--]]
-- environment
ffi.cdef [[
// environment
extern char **environ;
int setenv(const char *name, const char *value, int overwrite);
int unsetenv(const char *name);
int clearenv(void);
char *getenv(const char *name);
]]
function S.environ() -- return whole environment as table
local environ = ffi.C.environ
if not environ then return nil end
local r = {}
local i = 0
while environ[i] ~= zeropointer do
local e = ffi.string(environ[i])
local eq = e:find('=')
if eq then
r[e:sub(1, eq - 1)] = e:sub(eq + 1)
end
i = i + 1
end
return r
end
function S.getenv(name)
return S.environ()[name]
end
function S.unsetenv(name) return retbool(ffi.C.unsetenv(name)) end
function S.setenv(name, value, overwrite)
overwrite = h.booltoc(overwrite) -- allows nil as false/0
return retbool(ffi.C.setenv(name, value, overwrite))
end
function S.clearenv() return retbool(ffi.C.clearenv()) end
S.errno = ffi.errno
return S
end
return {init = init}
|
