list-grow is a different manifestation of list-extend that more closely matches how i usually end up using list-extend, list-part and list-part2 are two stabs at allowing lists of lists to be serialized with delimiters (seeds of a library for serializing data-structures into sssad)

svn path=/trunk/abstractions/sfruit/; revision=11139

1 files changed, 92 insertions, 0 deletions

diff --git a/sfruit/list-part2.pd b/sfruit/list-part2.pd
new file mode 100644
index 0000000..7fe97df
--- /dev/null
+++ b/sfruit/list-part2.pd
@@ -0,0 +1,92 @@
+#N canvas 253 257 481 530 10;
+#X obj 123 127 list-find;
+#X obj 123 84 list append \$1;
+#X obj 123 14 inlet;
+#X obj 124 384 list;
+#X obj 124 358 t b a;
+#X obj 124 453 outlet;
+#N canvas 0 22 450 300 list-grow 0;
+#X obj 80 40 inlet;
+#X obj 248 208 outlet;
+#X obj 248 39 inlet;
+#X obj 248 114 list prepend;
+#X obj 248 177 spigot;
+#X obj 80 77 route clear;
+#X msg 182 142 1;
+#X msg 143 142 0;
+#X obj 362 67 == 0;
+#X obj 317 63 t a;
+#X obj 317 92 spigot 1;
+#X obj 286 39 t b;
+#X obj 143 118 t b b b b;
+#X connect 0 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 9 0;
+#X connect 4 0 1 0;
+#X connect 5 0 11 0;
+#X connect 5 1 12 0;
+#X connect 6 0 4 1;
+#X connect 6 0 8 0;
+#X connect 7 0 4 1;
+#X connect 7 0 8 0;
+#X connect 8 0 10 1;
+#X connect 9 0 10 0;
+#X connect 10 0 3 1;
+#X connect 11 0 3 1;
+#X connect 12 0 11 0;
+#X connect 12 1 7 0;
+#X connect 12 2 3 0;
+#X connect 12 3 6 0;
+#X restore 124 186 pd list-grow;
+#X obj 124 162 t b;
+#X msg 62 14 a b c d | e f g h i | j k | l m n o p q r s | t u v;
+#X msg 246 86 |;
+#X obj 295 178 \$2;
+#X obj 329 178 \$2;
+#X obj 124 318 list-slice;
+#X obj 124 212 list prepend 0;
+#X obj 329 205 + 1;
+#X obj 125 419 list-slice;
+#X obj 160 383 unpack f f;
+#X obj 295 119 inlet;
+#X obj 295 148 t a a;
+#X msg 353 119 0;
+#X obj 173 484 print;
+#X msg 386 121 2;
+#X obj 227 348 print;
+#X obj 124 263 list append;
+#X obj 123 47 t b a a a;
+#X obj 157 235 list length;
+#X connect 0 0 6 1;
+#X connect 0 1 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 24 0;
+#X connect 3 0 15 0;
+#X connect 4 0 3 0;
+#X connect 4 1 16 0;
+#X connect 6 0 13 0;
+#X connect 7 0 6 0;
+#X connect 8 0 24 0;
+#X connect 9 0 1 1;
+#X connect 10 0 12 1;
+#X connect 11 0 14 0;
+#X connect 12 0 4 0;
+#X connect 12 0 22 0;
+#X connect 13 0 23 0;
+#X connect 14 0 12 2;
+#X connect 15 0 5 0;
+#X connect 15 0 20 0;
+#X connect 16 0 15 1;
+#X connect 16 1 15 2;
+#X connect 17 0 18 0;
+#X connect 18 0 10 0;
+#X connect 18 1 11 0;
+#X connect 19 0 18 0;
+#X connect 21 0 18 0;
+#X connect 23 0 12 0;
+#X connect 24 0 1 0;
+#X connect 24 1 0 1;
+#X connect 24 2 25 0;
+#X connect 24 3 3 1;
+#X connect 25 0 23 1;