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
|
local itlc = Proto("ITLC", "ITL Chorus Protocol")
local fields = {
command = ProtoField.new("Command", "itlc.cmd", ftypes.UINT32),
pingdata = ProtoField.new("Ping Data", "itlc.ping", ftypes.BYTES),
seconds = ProtoField.new("Seconds", "itlc.secs", ftypes.UINT32),
microseconds = ProtoField.new("Microseconds", "itlc.usecs", ftypes.UINT32),
frequency = ProtoField.new("Frequency(Hz)", "itlc.freq", ftypes.UINT32),
amplitude = ProtoField.new("Amplitude", "itlc.amp", ftypes.FLOAT),
port = ProtoField.new("Port", "itlc.port", ftypes.UINT32),
ports = ProtoField.new("Ports", "itlc.ports", ftypes.UINT32),
type = ProtoField.new("Client Type", "itlc.type", ftypes.STRING),
ident = ProtoField.new("Client ID", "itlc.ident", ftypes.STRING),
pcm = ProtoField.new("PCM Data", "itlc.pcm", ftypes.INT16),
data = ProtoField.new("Unknown Data", "itlc.data", ftypes.BYTES),
buffered = ProtoField.new("Buffered Samples", "itlc.buffered", ftypes.UINT32),
artp = ProtoField.new("Articulation Parameter", "itlc.artp", ftypes.UINT32),
value = ProtoField.new("Value", "itlc.value", ftypes.FLOAT),
isglobal = ProtoField.new("Global?", "itlc.global", ftypes.BOOLEAN),
}
local fieldarray = {}
for _, v in pairs(fields) do table.insert(fieldarray, v) end
itlc.fields = fieldarray
local commands = {
[0] = "KA (keep alive)",
[1] = "PING",
[2] = "QUIT",
[3] = "PLAY",
[4] = "CAPS",
[5] = "PCM",
[6] = "PCMSYN",
[7] = "ARTP",
}
setmetatable(commands, {__index = function(self, k) return "(Unknown command!)" end})
local subdis = {
[0] = function(buffer, tree) end, -- Nothing interesting...
[1] = function(buffer, tree)
tree:add(fields.pingdata, buffer())
end,
[2] = function(buffer, tree) end, -- Nothing interesting...
[3] = function(buffer, tree, pinfo)
tree:add(fields.seconds, buffer(0, 4))
tree:add(fields.microseconds, buffer(4, 4))
local freq = buffer(8, 4):uint()
local fr = tree:add(fields.frequency, buffer(8, 4))
tree:add(fields.amplitude, buffer(12, 4))
tree:add(fields.port, buffer(16, 4))
local midi = 12 * math.log(freq / 440.0) / math.log(2) + 69
fr:append_text(" [MIDI pitch approx. " .. midi .. "]")
pinfo.cols.info = tostring(pinfo.cols.info) .. string.format(" freq=%d (MIDI %f) amp=%f dur=%f port=%d", freq, midi, buffer(12,4):float(), buffer(0, 4):uint() + 0.000001 * buffer(4, 4):uint(), buffer(16, 4):uint())
end,
[4] = function(buffer, tree, pinfo)
local pt = tree:add(fields.ports, buffer(0, 4))
if buffer(0,4):uint() == 0 then
pt:append_text(" [probably a request from the broadcaster]")
pinfo.cols.info = tostring(pinfo.cols.info) .. " [request]"
else
pinfo.cols.info = tostring(pinfo.cols.info) .. string.format(" type=%q uid=%q", buffer(4, 4):string(), buffer(8):string())
end
tree:add(fields.type, buffer(4, 4))
tree:add(fields.ident, buffer(8))
end,
[5] = function(buffer, tree)
tree:add(fields.pcm, buffer())
end,
[6] = function(buffer, tree)
tree:add(fields.buffered, buffer(4, 4):uint())
end,
[7] = function(buffer, tree, pinfo)
local voice = buffer(4, 4):uint()
local glob = (voice == 0xffffffff)
tree:add(fields.port, voice)
tree:add(fields.isglobal, glob)
local artp = buffer(8, 4):uint()
local val = buffer(12, 4):float()
local fr = tree:add(fields.artp, artp)
if glob then
fr:append_text(" (Global)")
pinfo.cols.info = tostring(pinfo.cols.info) .. " GART(" .. artp .. ") = " .. val
else
fr:append_text(" (Local)")
pinfo.cols.info = tostring(pinfo.cols.info) .. " LART[" .. voice .. "](" .. artp .. ") = " .. val
end
tree:add(fields.value, val)
end,
}
setmetatable(subdis, {__index = function(self, k) return function(buffer, tree)
tree:add(fields.data, buffer())
end end})
function itlc.dissector(buffer, pinfo, tree)
pinfo.cols.protocol = "ITLC"
local st = tree:add(itlc, buffer(), "ITL Chorus Packet")
local cmd = buffer(0,4):uint()
st:add(fields.command, buffer(0,4), cmd, "Command: " .. commands[cmd] .. "(" .. cmd .. ")")
pinfo.cols.info = commands[cmd]
subdis[cmd](buffer(4):tvb(), st, pinfo)
end
local udp = DissectorTable.get("udp.port")
udp:add(13676, itlc)
udp:add(13677, itlc)
print('ITLC dissector loaded!')
|
