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
|
-- ioctls, filling in as needed
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(types)
local s, t = types.s, types.t
local strflag = require("syscall.helpers").strflag
local bit = require "syscall.bit"
local band = bit.band
local function bor(...)
local r = bit.bor(...)
if r < 0 then r = r + 4294967296 end -- TODO see note in NetBSD
return r
end
local lshift = bit.lshift
local rshift = bit.rshift
local IOC = {
VOID = 0x20000000,
OUT = 0x40000000,
IN = 0x80000000,
PARM_SHIFT = 13,
}
IOC.PARM_MASK = lshift(1, IOC.PARM_SHIFT) - 1
IOC.INOUT = IOC.IN + IOC.OUT
IOC.DIRMASK = IOC.IN + IOC.OUT + IOC.VOID
local function ioc(dir, ch, nr, size)
return t.ulong(bor(dir,
lshift(band(size, IOC.PARM_MASK), 16),
lshift(ch, 8),
nr))
end
local singletonmap = {
int = "int1",
char = "char1",
uint = "uint1",
uint64 = "uint64_1",
off = "off1",
}
local function _IOC(dir, ch, nr, tp)
if type(ch) == "string" then ch = ch:byte() end
if type(tp) == "number" then return ioc(dir, ch, nr, tp) end
local size = s[tp]
local singleton = singletonmap[tp] ~= nil
tp = singletonmap[tp] or tp
return {number = ioc(dir, ch, nr, size),
read = dir == IOC.OUT or dir == IOC.INOUT, write = dir == IOC.IN or dir == IOC.INOUT,
type = t[tp], singleton = singleton}
end
local _IO = function(ch, nr) return _IOC(IOC.VOID, ch, nr, 0) end
local _IOR = function(ch, nr, tp) return _IOC(IOC.OUT, ch, nr, tp) end
local _IOW = function(ch, nr, tp) return _IOC(IOC.IN, ch, nr, tp) end
local _IOWR = function(ch, nr, tp) return _IOC(IOC.INOUT, ch, nr, tp) end
local ioctl = strflag {
-- tty ioctls
TIOCEXCL = _IO('t', 13),
TIOCNXCL = _IO('t', 14),
TIOCFLUSH = _IOW('t', 16, "int"),
TIOCGETA = _IOR('t', 19, "termios"),
TIOCSETA = _IOW('t', 20, "termios"),
TIOCSETAW = _IOW('t', 21, "termios"),
TIOCSETAF = _IOW('t', 22, "termios"),
TIOCGETD = _IOR('t', 26, "int"),
TIOCSETD = _IOW('t', 27, "int"),
TIOCDRAIN = _IO('t', 94),
TIOCSIG = _IOW('t', 95, "int"),
TIOCEXT = _IOW('t', 96, "int"),
TIOCSCTTY = _IO('t', 97),
TIOCCONS = _IOW('t', 98, "int"),
TIOCSTAT = _IOW('t', 101, "int"),
TIOCUCNTL = _IOW('t', 102, "int"),
TIOCSWINSZ = _IOW('t', 103, "winsize"),
TIOCGWINSZ = _IOR('t', 104, "winsize"),
TIOCMGET = _IOR('t', 106, "int"),
TIOCMBIC = _IOW('t', 107, "int"),
TIOCMBIS = _IOW('t', 108, "int"),
TIOCMSET = _IOW('t', 109, "int"),
TIOCSTART = _IO('t', 110),
TIOCSTOP = _IO('t', 111),
TIOCPKT = _IOW('t', 112, "int"),
TIOCNOTTY = _IO('t', 113),
TIOCSTI = _IOW('t', 114, "char"),
TIOCOUTQ = _IOR('t', 115, "int"),
TIOCSPGRP = _IOW('t', 118, "int"),
TIOCGPGRP = _IOR('t', 119, "int"),
TIOCCDTR = _IO('t', 120),
TIOCSDTR = _IO('t', 121),
TIOCCBRK = _IO('t', 122),
TIOCSBRK = _IO('t', 123),
-- file descriptor ioctls
FIOCLEX = _IO('f', 1),
FIONCLEX = _IO('f', 2),
FIONREAD = _IOR('f', 127, "int"),
FIONBIO = _IOW('f', 126, "int"),
FIOASYNC = _IOW('f', 125, "int"),
FIOSETOWN = _IOW('f', 124, "int"),
FIOGETOWN = _IOR('f', 123, "int"),
-- allow user defined ioctls
_IO = _IO,
_IOR = _IOR,
_IOW = _IOW,
_IOWR = _IOWR,
}
return ioctl
end
return {init = init}
|
