diff options
author | Martin Peach <mrpeach@users.sourceforge.net> | 2012-04-20 19:03:21 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2015-10-14 14:28:31 +0200 |
commit | 4bab8348d2842245d93833a80f0d4713f973069c (patch) | |
tree | da59b8a15a89f14d97572797024010a7aa6ccc81 /examples | |
parent | 869a2ec9dc40ec39d6833e1bd8eaeaf630216e5a (diff) |
Two objects to serialize symbols and floats.
svn path=/trunk/externals/loaders/pdlua/; revision=16129
Diffstat (limited to 'examples')
-rw-r--r-- | examples/lfloat2bytes-help.pd | 28 | ||||
-rw-r--r-- | examples/lfloat2bytes.pd_lua | 58 | ||||
-rw-r--r-- | examples/lsymbol2bytes-help.pd | 27 | ||||
-rw-r--r-- | examples/lsymbol2bytes.pd_lua | 46 |
4 files changed, 159 insertions, 0 deletions
diff --git a/examples/lfloat2bytes-help.pd b/examples/lfloat2bytes-help.pd new file mode 100644 index 0000000..8ca6d46 --- /dev/null +++ b/examples/lfloat2bytes-help.pd @@ -0,0 +1,28 @@ +#N canvas 494 466 616 332 10; +#X declare -lib pdlua; +#X obj 23 8 import pdlua; +#X obj 86 80 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 161 278 print bytes; +#X text 390 282 by Martin Peach 2012_04_20; +#X msg 39 54 3.14159; +#X floatatom 101 59 5 0 0 0 - - -; +#X obj 86 101 f; +#X obj 126 114 atan; +#X msg 126 90 1; +#X obj 126 140 * 4; +#X floatatom 158 157 12 0 0 0 - - -; +#X text 173 242 The optional argument sets the number of significant +digits (default = 6).; +#X text 173 212 [lfloat2bytes] spits out the characters of a string +representation of a float as bytes.; +#X obj 161 193 lfloat2bytes 12; +#X connect 1 0 6 0; +#X connect 4 0 13 0; +#X connect 5 0 6 1; +#X connect 6 0 13 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 9 0 13 0; +#X connect 13 0 2 0; diff --git a/examples/lfloat2bytes.pd_lua b/examples/lfloat2bytes.pd_lua new file mode 100644 index 0000000..7dc8480 --- /dev/null +++ b/examples/lfloat2bytes.pd_lua @@ -0,0 +1,58 @@ +--[[ + lfloat2bytes + Output a float as a sequence of bytes + author Martin Peach 20120420 +--]] + +-- Pd class + +local lfloat2bytes = pd.Class:new():register("lfloat2bytes") +local digitstr = "%g" -- defaut format string gives up to 6 significant digits + +function lfloat2bytes:initialize(name, atoms) + self.inlets = 1 + self.outlets = 1 + if (#atoms > 0) then + --pd.post(#atoms .. " args") + --pd.post("atom 1: " .. atoms[1]) + --pd.post(type(atoms[1])) + if (type(atoms[1]) ~= "number") then + self:error("lfloat2bytes: Digit count not a number") + elseif (atoms[1] > 0) and (atoms[1] <= 24) then + digitstr = "%0." .. atoms[1] .. "g" + else + self:error("lfloat2bytes: Digit count out of range") + end + end + + return true +end + +-- lfloat2bytes:drip: output characters from buf as floats on [0..255] +function lfloat2bytes:drip(buf) + --pd.post(buf.. " size " .. #buf) + local i = 1, b + local len = #buf + + for i = 1, len do + self:outlet(1, "float", {string.byte(buf, i)}) + end +end + +function lfloat2bytes: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 + local buf + if sel == "float" then -- the usual case + --buf = tostring(atoms[1]) + buf = string.format(digitstr, atoms[1]) + self:drip(buf) + else -- reject non-floats + self:error("lfloat2bytes: input not a float") + end +end +-- end of lfloat2bytes + diff --git a/examples/lsymbol2bytes-help.pd b/examples/lsymbol2bytes-help.pd new file mode 100644 index 0000000..de4fc0f --- /dev/null +++ b/examples/lsymbol2bytes-help.pd @@ -0,0 +1,27 @@ +#N canvas 536 461 616 315 10; +#X declare -lib pdlua; +#X obj 23 8 import pdlua; +#X msg 24 59 what; +#X symbolatom 121 157 10 0 0 0 - - -; +#X obj 91 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X msg 73 108 symbol qwertyuiop; +#X msg 45 80 why not; +#X text 98 79 <- but a message is rejected; +#X text 58 59 <- a lone selector is taken to be a symbol; +#X text 216 181 <- unicode should be handled correctly; +#X msg 146 181 symbol zéyé; +#X msg 121 130 set Who; +#X obj 166 218 lsymbol2bytes; +#X text 258 218 [lsymbol2bytes] spits out the characters of a symbol +as bytes.; +#X obj 166 253 print bytes; +#X text 407 261 by Martin Peach 2012_04_20; +#X connect 1 0 11 0; +#X connect 2 0 11 0; +#X connect 3 0 2 0; +#X connect 4 0 11 0; +#X connect 5 0 11 0; +#X connect 9 0 11 0; +#X connect 10 0 2 0; +#X connect 11 0 13 0; diff --git a/examples/lsymbol2bytes.pd_lua b/examples/lsymbol2bytes.pd_lua new file mode 100644 index 0000000..d024072 --- /dev/null +++ b/examples/lsymbol2bytes.pd_lua @@ -0,0 +1,46 @@ +--[[ + lsymbol2bytes + Output a symbol as a sequence of bytes + author Martin Peach 20120420 +--]] + +-- Pd class + +local Lsymbol2Bytes = pd.Class:new():register("lsymbol2bytes") + +function Lsymbol2Bytes:initialize(name, atoms) + self.inlets = 1 + self.outlets = 1 + return true +end + +-- Lsymbol2Bytes:drip: output possibly multibyte characters from buf and output them as floats on [0..255] +function Lsymbol2Bytes:drip(buf) + --pd.post(buf.. " size " .. #buf) + local i = 1, b + local len = #buf + + for i = 1, len do + self:outlet(1, "float", {string.byte(buf, i)}) + end +end + +function Lsymbol2Bytes: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 + local buf + if sel == "symbol" then -- the usual case + buf = tostring(atoms[1]) + self:drip(buf) + elseif #atoms == 0 then -- a selector + buf = tostring(sel) + self:drip(buf) + else -- reject non-symbols + self:error("lsymbol2bytes: input not a symbol") + end +end +-- end of lsymbol2bytes + |