File: ltabdump.pd_lua

package info (click to toggle)
pd-lua 0.12.23%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,912 kB
  • sloc: ansic: 3,733; lisp: 66; makefile: 64
file content (36 lines) | stat: -rw-r--r-- 824 bytes parent folder | download | duplicates (7)
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
local LTabDump = pd.Class:new():register("ltabdump")

function LTabDump:initialize(sel, atoms)
  self.inlets = 1
  self.outlets = 2
  if type(atoms[1]) == "string" then
    self.name = atoms[1]
  else
    self.name = nil
  end
  return true
end

-- output table length and data
function LTabDump:in_1_bang()
  -- need to sync each time before accessing if ...
  -- ... control-flow has gone outside of our scope
  local t = pd.Table:new():sync(self.name)
  if t ~= nil then
    local l = t:length()
    local a = { }
    local i
    for i = 1,l do
      a[i] = t:get(i-1)
    end
    -- copied above before outlet() to avoid race condition
    self:outlet(2, "float", { l })
    self:outlet(1, "list", a)
  end
end

-- choose a table name, then output
function LTabDump:in_1_symbol(s)
  self.name = s
  self:in_1_bang()
end