aboutsummaryrefslogtreecommitdiff
path: root/examples/shared.pd_luax
diff options
context:
space:
mode:
authorMartin Peach <mrpeach@users.sourceforge.net>2011-03-15 20:53:57 +0000
committerMartin Peach <mrpeach@users.sourceforge.net>2011-03-15 20:53:57 +0000
commit267170167d52cab9e97f879d9127a1cf04f6bb58 (patch)
tree00260a90ce6472e34c5eff41602af57595c8830d /examples/shared.pd_luax
This is a version of Claude Heiland-Allen's lua for Pd. The objects are named pdlua and pdluax instead of lua and luax. So far it seems to work on linux.svn2git-root
svn path=/trunk/externals/pdlua/; revision=15030
Diffstat (limited to 'examples/shared.pd_luax')
-rw-r--r--examples/shared.pd_luax33
1 files changed, 33 insertions, 0 deletions
diff --git a/examples/shared.pd_luax b/examples/shared.pd_luax
new file mode 100644
index 0000000..93881fe
--- /dev/null
+++ b/examples/shared.pd_luax
@@ -0,0 +1,33 @@
+if sharedluaxstore == nil then
+ sharedluaxstore = { } -- initialize store only once
+end
+
+return function (self, sel, atoms)
+ if type(atoms[1]) == "string" then
+ if sharedluaxstore[atoms[1]] == nil then
+ sharedluaxstore[atoms[1]] = { sel = "bang", msg = { }, count = 1 }
+ else
+ sharedluaxstore[atoms[1]].count = sharedluaxstore[atoms[1]].count + 1
+ end
+ self.name = atoms[1]
+ self.inlets = 2
+ self.outlets = 1
+ self.in_1_bang = function(self)
+ local s = sharedluaxstore[self.name]
+ self:outlet(1, s.sel, s.msg)
+ end
+ self.in_2 = function(self, s, m)
+ local c = sharedluaxstore[self.name].count
+ sharedluaxstore[self.name] = { sel = s, msg = m, count = c }
+ end
+ self.finalize = function (self)
+ sharedluaxstore[self.name].count = sharedluaxstore[self.name].count - 1
+ if sharedluaxstore[self.name].count == 0 then
+ sharedluaxstore[self.name] = nil
+ end
+ end
+ return true
+ else
+ return false
+ end
+end