Sends all bytes in one block in a single thread, blocks further sends if one doesn't work until [unblock( message received.

Removed [receive(, [recv(, [timeout( message methods as they are not relevant.


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

1 files changed, 61 insertions, 61 deletions

diff --git a/net/tcpclient-help.pd b/net/tcpclient-help.pd
index 1803d01..ff55c9a 100644
--- a/net/tcpclient-help.pd
+++ b/net/tcpclient-help.pd
@@ -6,15 +6,12 @@
 #X floatatom 282 462 3 0 0 0 - - -;
 #X floatatom 314 462 3 0 0 0 - - -;
 #X text 179 461 from;
-#X msg -175 -7 connect 132.205.142.12 80;
 #X obj 199 387 tcpclient;
-#X obj 239 413 tgl 15 0 empty empty connected 18 7 0 8 -24198 -241291
--1 0 1;
+#X obj 239 413 tgl 15 0 empty empty connected 18 7 0 8 -24198 -13381
+-1 1 1;
 #X msg -88 80 dump \$1;
-#X obj -140 65 tgl 15 0 empty empty empty 0 -6 0 8 -4034 -257985 -1
-1 1;
-#X msg 11 179 receive;
-#X msg 35 203 recv;
+#X obj -140 65 tgl 15 0 empty empty empty 0 -6 0 8 -4034 -13381 -1
+0 1;
 #X text -59 -58 connect with an IP address and port number;
 #X msg -200 -32 connect www.concordia.ca 80;
 #X text -17 79 print received messages to main window in hexdump format
@@ -28,11 +25,7 @@ on;
 #X text -214 374 can receive messages from tcpclient;
 #X text -136 328 is what tcpclient is based on;
 #X text 250 513 Received messages are output as a list of bytes;
-#X text 77 176 get any received data (not useful unless you need it
-faster than once per 20ms);
-#X text 220 225 semicolon-terminated string for netserver or netreceive
-;
-#X msg 59 227 send 49 127 128 51 59;
+#X msg 83 251 send 49 127 128 51 59;
 #X obj -84 352 tcpserver;
 #X text -118 351 and;
 #X text 347 -55 tcpclient can connect to a server and send and receive
@@ -41,68 +34,75 @@ be transmitted or received.;
 #X msg -63 105 send ../doc/5.reference/test.txt;
 #X obj -15 129 openpanel;
 #X msg -15 153 send \$1;
-#X obj -101 114 bng 15 250 50 0 empty empty empty 17 7 0 10 -24198
--241291 -1;
+#X obj -101 114 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -13381
+-1;
 #X text 172 105 send a file;
 #X text 62 128 ...any file;
-#X msg 99 251 71 69 84 32 104 116 116 112 58 47 47 47 105 110 100 101
-120 46 104 116 109 108 13 10;
-#X text 529 257 'send' prefix is optional;
+#X msg 122 274 71 69 84 32 104 116 116 112 58 47 47 47 105 110 100
+101 120 46 104 116 109 108 13 10;
+#X text 545 281 'send' prefix is optional;
 #X obj 199 514 spigot;
-#X obj 238 491 tgl 15 0 empty empty enable_print 18 7 0 8 -24198 -241291
--1 0 1;
+#X obj 238 491 tgl 15 0 empty empty enable_print 18 7 0 8 -24198 -13381
+-1 1 1;
 #X obj 199 543 print >>>;
 #X text 272 24 GET http:///index.phpCRLF;
-#X floatatom 374 433 9 0 0 0 - - -;
-#X text 173 291 set send-buffer size;
-#X obj 374 407 route sent buf;
-#X floatatom 421 457 9 0 0 0 - - -;
-#X text 491 456 Size of the send buffer;
-#X text 448 432 Number of bytes sent (may still be in buffer);
-#X msg 147 315 buf;
-#X text 177 314 get send-buffer size;
-#X msg 123 291 buf 10;
-#X msg 170 338 timeout 100;
-#X text 258 337 set send timeout in microseconds (default is 1000)
-;
+#X floatatom 374 483 9 0 0 0 - - -;
+#X text 196 314 set send-buffer size;
+#X floatatom 424 457 9 0 0 0 - - -;
+#X text 493 456 Size of the send buffer;
+#X msg 170 338 buf;
+#X text 200 337 get send-buffer size;
+#X msg 146 314 buf 10;
 #X msg 194 362 verbosity \$1;
-#X obj 139 347 tgl 15 1 empty empty empty 0 -6 0 8 -4034 -257985 -1
+#X obj 139 347 tgl 15 1 empty empty empty 0 -6 0 8 -4034 -13381 -1
 0 1;
 #X text 289 362 print connection status messages to main window (default)
 ;
 #X msg -136 16 send 71 69 84 32 104 116 116 112 58 47 47 47 105 110
 100 101 120 46 112 104 112 13 10 13 10;
-#X text -208 540 2010/03/01 Martin Peach;
 #X text 271 542 Attempting to print long messages can hang Pd!;
-#X connect 0 0 8 0;
+#X msg 11 179 unblock;
+#X obj 374 407 route sent buf blocked;
+#X text -208 540 2010/03/26 Martin Peach;
+#X msg -175 -7 connect 132.205.142.11 9997;
+#X msg -34 207 hello \;;
+#X obj 59 227 str to_list;
+#X text 158 225 semicolon-terminated strings for netserver or netreceive
+;
+#X text 73 175 if the tcpclient sender blocks for any reason \, it
+must be unblocked manually;
+#X text 444 482 Number of bytes sent;
+#X obj 474 433 print sender_blocked!;
+#X connect 0 0 7 0;
 #X connect 1 0 2 0;
 #X connect 1 1 3 0;
 #X connect 1 2 4 0;
 #X connect 1 3 5 0;
-#X connect 7 0 8 0;
-#X connect 8 0 39 0;
-#X connect 8 1 1 0;
-#X connect 8 2 9 0;
-#X connect 8 3 45 0;
-#X connect 10 0 8 0;
-#X connect 11 0 10 0;
-#X connect 12 0 8 0;
-#X connect 13 0 8 0;
-#X connect 15 0 8 0;
-#X connect 20 0 8 0;
-#X connect 27 0 8 0;
-#X connect 31 0 8 0;
-#X connect 32 0 33 0;
-#X connect 33 0 8 0;
-#X connect 34 0 32 0;
-#X connect 37 0 8 0;
-#X connect 39 0 41 0;
-#X connect 40 0 39 1;
-#X connect 45 0 43 0;
-#X connect 45 1 46 0;
-#X connect 49 0 8 0;
-#X connect 51 0 8 0;
-#X connect 52 0 8 0;
-#X connect 54 0 8 0;
-#X connect 55 0 54 0;
-#X connect 57 0 8 0;
+#X connect 7 0 34 0;
+#X connect 7 1 1 0;
+#X connect 7 2 8 0;
+#X connect 7 3 51 0;
+#X connect 9 0 7 0;
+#X connect 10 0 9 0;
+#X connect 12 0 7 0;
+#X connect 17 0 7 0;
+#X connect 22 0 7 0;
+#X connect 26 0 7 0;
+#X connect 27 0 28 0;
+#X connect 28 0 7 0;
+#X connect 29 0 27 0;
+#X connect 32 0 7 0;
+#X connect 34 0 36 0;
+#X connect 35 0 34 1;
+#X connect 42 0 7 0;
+#X connect 44 0 7 0;
+#X connect 45 0 7 0;
+#X connect 46 0 45 0;
+#X connect 48 0 7 0;
+#X connect 50 0 7 0;
+#X connect 51 0 38 0;
+#X connect 51 1 40 0;
+#X connect 51 2 59 0;
+#X connect 53 0 7 0;
+#X connect 54 0 55 0;
+#X connect 55 0 7 0;