aboutsummaryrefslogtreecommitdiff
path: root/examples/list-pak.pd_lua
blob: 5964b335415d8ed769e28453f8f8f281585ab883 (plain)
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
--[[ 

list-pak
    
    Like [pack] for any kind of type. Argument specifies number of inlets. All
    inlets are hot (as in Max' [pak])

    --Written by Frank Barknecht 

--]]

-- Some footils --

-- selectors
local selectors = {"float", "list", "symbol", "bang", "pointer"}

-- check if item x is in table t:
local function contains(t, x)
  for _,v in ipairs(t) do
    if v == x then return true end
  end
  return false
end

-- Pd class

local ListPak = pd.Class:new():register("list-pak")

function ListPak:initialize(name, atoms)
    self.outlets = 1
    self.stored = {}
    if atoms[1] == nil then 
        self.inlets = 1
    elseif type(atoms[1]) == "number" and atoms[1] >= 0 then
        self.inlets = math.max(atoms[1], 1)
    else
        pd.post("list-pak: First arg must be a positive float or empty")
        return false
    end
    for i=1,self.inlets do
        table.insert(self.stored, 0)
    end
    return true
end

function ListPak:in_n(i, sel, atoms)
    if not contains(selectors, sel) then
        -- insert selector
        self.stored[i] =  sel
    else
--        if table.getn(atoms) > 0 then
        if #(atoms) > 0 then
            self.stored[i] =  atoms[1]
        end
    end
    self:outlet(1, "list", self.stored)
end