/usr/share/lua/5.1/syscall/libc.lua is in lua-ljsyscall 0.12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | -- 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}
|