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, 36 insertions, 0 deletions

diff --git a/sfruit/list-grow.pd b/sfruit/list-grow.pd
new file mode 100644
index 0000000..8777492
--- /dev/null
+++ b/sfruit/list-grow.pd
@@ -0,0 +1,36 @@
+#N canvas 62 84 450 300 10;
+#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 text 43 225 this is an attempt at avoiding unnecessary list copies
+a la mathieu's fast list-drip (but i don't actually remember if that
+was the mechanism for speed : )) oh well \, hopefully it's fast;
+#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 13 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 13 0 11 0;
+#X connect 13 1 7 0;
+#X connect 13 2 3 0;
+#X connect 13 3 6 0;