those abstractions actually belong to the 'net' section

svn path=/trunk/externals/mrpeach/; revision=14850

1 files changed, 166 insertions, 0 deletions

diff --git a/net/tcpsocket.FUDI.pd b/net/tcpsocket.FUDI.pd
new file mode 100644
index 0000000..74194d3
--- /dev/null
+++ b/net/tcpsocket.FUDI.pd
@@ -0,0 +1,166 @@
+#N canvas 585 75 446 533 10;

+#X obj 50 49 == \$2;

+#X obj 7 28 route in socket;

+#X obj 7 76 spigot;

+#N canvas 622 183 512 335 reset 0;

+#X obj 23 41 route \$2;

+#X obj 23 63 route reset;

+#X obj 23 83 t b b;

+#X msg 55 170 done;

+#X obj 23 113 outlet;

+#X text 161 33 this is used to:;

+#X text 87 114 a) reset the sockethandler on a new connection;

+#X text 88 129 (for instance \, if the previous connection was quitted

+in the middle of a packet).;

+#X text 55 213 b) check for the socketserver \, if a sockethandler

+on specified socket already exists.;

+#X obj 55 191 s \$1.TCPSOCKET;

+#X obj 23 19 r \$1.TCPSOCKET;

+#X connect 0 0 1 0;

+#X connect 1 0 2 0;

+#X connect 2 0 4 0;

+#X connect 2 1 3 0;

+#X connect 3 0 9 0;

+#X connect 10 0 0 0;

+#X restore 46 102 pd reset;

+#X obj 105 279 route socket ip;

+#X obj 41 367 list append;

+#X obj 58 323 list append;

+#X obj 7 299 t a b b b;

+#X obj 7 414 list prepend out;

+#X obj 41 391 list prepend socket.out;

+#X obj 58 345 list prepend ip.out;

+#X obj 7 442 list trim;

+#X text 16 220 the lower part makes [tcpsocketserver] behave like [tcpserver]

+;

+#X obj -2 136 cnv 15 450 70 empty empty empty 20 12 0 14 -204786 -66577

+0;

+#N canvas 385 67 606 479 FUDI 0;

+#X obj 23 6 inlet;

+#X obj 23 400 outlet;

+#N canvas 389 242 191 341 serialize 0;

+#X obj 5 100 t a a;

+#X obj 37 122 list prepend 0;

+#X obj 37 143 s \$0.inbuffer;

+#X obj 5 174 list length;

+#X obj 5 218 until;

+#X obj 5 195 t a b;

+#X obj 5 241 f;

+#X obj 50 244 + 1;

+#X msg 49 218 0;

+#X obj 5 267 tabread \$0.inbuffer;

+#X obj 5 50 inlet;

+#X obj 5 289 outlet;

+#X obj 5 12 table \$0.inbuffer 8192;

+#N canvas 294 258 396 232 list_serialize_raw 0;

+#X obj 13 73 until;

+#X obj 13 97 list append;

+#X obj 13 47 t b a;

+#X obj 13 23 inlet;

+#X obj 13 169 outlet;

+#X obj 13 121 list split 8192;

+#X obj 141 106 b;

+#X text 12 190 cut incoming list into pieces of a maximum of the buffersize.

+;

+#X connect 0 0 1 0;

+#X connect 1 0 5 0;

+#X connect 2 0 0 0;

+#X connect 2 1 1 1;

+#X connect 3 0 2 0;

+#X connect 5 0 4 0;

+#X connect 5 1 1 1;

+#X connect 5 2 6 0;

+#X connect 5 2 4 0;

+#X connect 6 0 0 1;

+#X restore 5 74 pd list_serialize_raw;

+#X connect 0 0 3 0;

+#X connect 0 1 1 0;

+#X connect 1 0 2 0;

+#X connect 3 0 5 0;

+#X connect 4 0 6 0;

+#X connect 5 0 4 0;

+#X connect 5 1 8 0;

+#X connect 6 0 7 0;

+#X connect 6 0 9 0;

+#X connect 7 0 6 1;

+#X connect 8 0 6 1;

+#X connect 9 0 11 0;

+#X connect 10 0 13 0;

+#X connect 13 0 0 0;

+#X restore 23 30 pd serialize;

+#X obj 23 109 t a a;

+#X obj 97 297 list prepend;

+#X obj 195 296 t a;

+#X obj 23 327 list append;

+#X obj 23 350 t a b;

+#X obj 160 56 inlet;

+#X text 210 56 reset;

+#X obj 23 53 sel 10 13;

+#X msg 23 76 32;

+#X obj 23 219 sel 59;

+#X obj 178 264 b;

+#X obj 23 373 list append 10;

+#X obj 23 149 sel 92;

+#X msg 23 171 -1;

+#X obj 62 171 t a a;

+#X msg 62 193 59;

+#X text 119 182 <-;

+#X text 144 176 separate by 59 (semicolon) \, but ignore semicolons

+prepended by 92 (backslash);

+#X connect 0 0 2 0;

+#X connect 2 0 10 0;

+#X connect 3 0 15 0;

+#X connect 3 1 4 0;

+#X connect 4 0 5 0;

+#X connect 4 0 6 1;

+#X connect 5 0 4 1;

+#X connect 6 0 7 0;

+#X connect 7 0 14 0;

+#X connect 7 1 6 1;

+#X connect 7 1 4 1;

+#X connect 8 0 13 0;

+#X connect 10 0 11 0;

+#X connect 10 1 11 0;

+#X connect 10 2 3 0;

+#X connect 11 0 3 0;

+#X connect 12 0 6 0;

+#X connect 13 0 4 1;

+#X connect 13 0 6 1;

+#X connect 14 0 1 0;

+#X connect 15 0 16 0;

+#X connect 15 1 17 0;

+#X connect 16 0 12 1;

+#X connect 17 0 18 0;

+#X connect 17 1 12 0;

+#X connect 18 0 12 1;

+#X restore 7 161 pd FUDI;

+#X text 70 162 <- PUT HERE THE PROTOCOL SPECIFIC DELIMITER CODE;

+#X text 15 197 --------------------------------------------------------

+;

+#X text 12 129 --------------------------------------------------------

+;

+#X obj 7 6 r \$1.TCPSOCKET;

+#X obj 7 465 s \$1.TCPSOCKET;

+#X obj 105 255 r \$1.TCPSOCKET;

+#X text 200 454 Author: Roman Haefeli;

+#X text 50 74 <- only pass stream of own socket;

+#X text 201 474 Version: 2009-02-02;

+#X connect 0 0 2 1;

+#X connect 1 0 2 0;

+#X connect 1 1 0 0;

+#X connect 2 0 14 0;

+#X connect 3 0 14 1;

+#X connect 4 0 5 1;

+#X connect 4 1 6 1;

+#X connect 5 0 9 0;

+#X connect 6 0 10 0;

+#X connect 7 0 8 0;

+#X connect 7 2 5 0;

+#X connect 7 3 6 0;

+#X connect 8 0 11 0;

+#X connect 9 0 11 0;

+#X connect 10 0 11 0;

+#X connect 11 0 19 0;

+#X connect 14 0 7 0;

+#X connect 18 0 1 0;

+#X connect 20 0 4 0;