diff options
author | Martin Peach <mrpeach@users.sourceforge.net> | 2012-04-19 19:06:41 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2015-10-14 14:28:31 +0200 |
commit | 869a2ec9dc40ec39d6833e1bd8eaeaf630216e5a (patch) | |
tree | 7ff6df607faff24ab0eabb688c57764c1cea6d3d /examples/llist-rdrip.pd_lua | |
parent | df3ab06dfcfa99462c8d063a9ccd5d5160eb351c (diff) |
A version of list-abs' [list-rdrip] in lua
svn path=/trunk/externals/loaders/pdlua/; revision=16128
Diffstat (limited to 'examples/llist-rdrip.pd_lua')
-rw-r--r-- | examples/llist-rdrip.pd_lua | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/examples/llist-rdrip.pd_lua b/examples/llist-rdrip.pd_lua new file mode 100644 index 0000000..5d07dfd --- /dev/null +++ b/examples/llist-rdrip.pd_lua @@ -0,0 +1,39 @@ +--[[ + llist-rdrip + Output a list as a sequence of elements in reverse order + author Martin Peach 20120419 +--]] + +-- Pd class + +local LlistRdrip = pd.Class:new():register("llist-rdrip") +local selectormap = {string = "symbol", number="float", userdata="pointer"} -- for lua/Pd type conversion + +function LlistRdrip:initialize(name, atoms) + self.inlets = 1 + self.outlets = 1 + return true +end + +function LlistRdrip:in_1(sel, atoms) -- anything + --pd.post("sel is " .. sel); + --pd.post("number of atoms is ".. #atoms) + --for i,v in ipairs(atoms) do + -- pd.post(i .. " = " .. v) + --end + if sel == "list" then -- the usual case + for i = #atoms, 1, -1 do + -- map lua types to pd selectors + self:outlet(1, selectormap[type(atoms[i])], {atoms[i]}) + end + elseif sel == "float" or sel == "symbol" or sel == "pointer" or sel == "bang" then -- single element "lists" + self:outlet(1, sel, {atoms[1]}) + else -- messages are lists beginning with a selector + self:outlet(1, selectormap[type(sel)], {sel}) + for i = #atoms , 1 , -1 do + self:outlet(1, selectormap[type(atoms[i])], {atoms[i]}) + end + end +end +-- end of llist-rdrip + |