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
|
-- test receive support
local LReceive = pd.Class:new():register("lreceive")
function LReceive:initialize(name, atoms)
if type(atoms[1]) ~= "string" then
pd.post("lreceive needs a prefix for the receive names!")
return false
else
self.prefix = atoms[1]
end
if type(atoms[2]) ~= "number" or atoms[2] < 1 then
self.start = 1
else
self.start = math.floor(atoms[2])
end
if type(atoms[3]) ~= "number" or atoms[3] < 1 then
self.count = 1
else
self.count = math.floor(atoms[3])
end
self.receives = { }
self.inlets = 0
self.outlets = 2
return true
end
function LReceive:postinitialize()
local i = 0
while (i < self.count) do
local n = self.start + i
self.receives[i+1] = pd.Receive:new():register(self, self.prefix .. n, "receive_" .. n)
self["receive_" .. n] = function (self, sel, atoms)
self:outlet(2, "float", { n })
self:outlet(1, sel, atoms)
end
i = i + 1
end
end
function LReceive:finalize()
for _,r in ipairs(self.receives) do r:destruct() end
end
|
