blob: 74194d30d5fcd3342f73d1744affe3e47e23f22f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
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;
|
