implement proxy connection negotiation

pd-tools/include/tpf-client-link.pd

@@ -603,9 +603,126 @@
 #X obj 828 214 s \$0.udp.link.status;
 #X msg 828 191 0;
 #X obj 836 162 r \$0.reset;
-#N canvas 606 101 604 759 negotiate.token 0;
+#N canvas 604 155 836 898 negotiate.token 0;
+#X obj 351 113 r \$0.linkID;
+#X msg 351 133 set /\$1;
+#X obj 424 112 r \$1.receive;
+#X obj 424 179 routeOSC /__;
+#X obj 424 136 routeOSC /*;
+#X obj 80 125 s \$1.send;
+#X obj 95 37 r \$0.peer;
+#X obj 80 59 f;
+#X obj 125 57 r \$0.linkID;
+#X obj 80 80 pack f f;
+#X msg 80 103 /\$1/tpf/requestproxyconnection/\$2;
+#X obj 16 10 r \$0.initiate.server;
+#X obj 424 156 routeOSC /tpf/requestproxyconnection;
+#X obj 16 31 t b b;
+#X obj 16 154 s \$0.udp.link.status;
+#X obj 16 113 del 0;
+#X obj 424 203 b;
+#X obj 449 224 r \$0.udp.link.status;
+#X obj 451 272 r \$0.link;
+#X obj 424 224 f;
+#X obj 424 247 sel 0 4;
+#X obj 424 272 f;
+#X obj 424 294 sel 1;
+#X obj 424 337 s \$0.udp.link.status;
+#X msg 16 135 5;
+#X msg 424 316 6;
+#X obj 357 369 r \$0.tx.switch.s;
+#X obj 382 392 r \$0.udp.link.status;
+#X obj 384 440 r \$0.link;
+#X obj 357 392 f;
+#X obj 357 440 f;
+#X obj 357 462 sel 1;
+#X obj 357 483 t b b;
+#X obj 357 550 s \$0.udp.link.status;
+#X obj 357 509 del 0;
+#X obj 456 521 s \$1.send;
+#X obj 471 433 r \$0.peer;
+#X obj 456 455 f;
+#X obj 501 453 r \$0.linkID;
+#X obj 456 476 pack f f;
+#X msg 456 499 /\$1/tpf/startproxyconnection/\$2;
+#X obj 357 415 sel 6;
+#X obj 14 424 r \$0.linkID;
+#X msg 14 444 set /\$1;
+#X obj 87 423 r \$1.receive;
+#X obj 87 490 routeOSC /__;
+#X obj 87 447 routeOSC /*;
+#X obj 87 467 routeOSC /tpf/startproxyconnection;
+#X msg 357 530 7;
+#X obj 87 511 b;
+#X obj 112 534 r \$0.udp.link.status;
+#X obj 87 534 f;
+#X obj 87 557 sel 5;
+#X obj 114 578 r \$0.link;
+#X obj 87 578 f;
+#X obj 87 601 sel 1;
+#X obj 75 729 s \$0.udp.link.status;
+#X msg 75 707 7;
+#X obj 87 626 t b b;
+#X obj 175 658 print WOULD_NOW_ESTABLISH_PROXY_CONNECTION;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 0 16 0;
+#X connect 4 0 12 0;
+#X connect 6 0 7 1;
+#X connect 7 0 9 0;
+#X connect 8 0 9 1;
+#X connect 9 0 10 0;
+#X connect 10 0 5 0;
+#X connect 11 0 13 0;
+#X connect 12 0 3 0;
+#X connect 13 0 15 0;
+#X connect 13 1 7 0;
+#X connect 15 0 24 0;
+#X connect 16 0 19 0;
+#X connect 17 0 19 1;
+#X connect 18 0 21 1;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 20 1 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 25 0;
+#X connect 24 0 14 0;
+#X connect 25 0 23 0;
+#X connect 26 0 29 0;
+#X connect 27 0 29 1;
+#X connect 28 0 30 1;
+#X connect 29 0 41 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 34 0;
+#X connect 32 1 37 0;
+#X connect 34 0 48 0;
+#X connect 36 0 37 1;
+#X connect 37 0 39 0;
+#X connect 38 0 39 1;
+#X connect 39 0 40 0;
+#X connect 40 0 35 0;
+#X connect 41 0 30 0;
+#X connect 42 0 43 0;
+#X connect 43 0 45 0;
+#X connect 44 0 46 0;
+#X connect 45 0 49 0;
+#X connect 46 0 47 0;
+#X connect 47 0 45 0;
+#X connect 48 0 33 0;
+#X connect 49 0 51 0;
+#X connect 50 0 51 1;
+#X connect 51 0 52 0;
+#X connect 52 0 54 0;
+#X connect 53 0 54 1;
+#X connect 54 0 55 0;
+#X connect 55 0 58 0;
+#X connect 57 0 56 0;
+#X connect 58 0 57 0;
+#X connect 58 1 59 0;
 #X restore 16 144 pd negotiate.token;
-#N canvas 606 101 604 759 negotiate.port 0;
+#N canvas 146 101 604 759 negotiate.port 0;
 #X obj 10 34 r \$1.receive;
 #X obj 10 78 routeOSC /tpf/setpeerport;
 #X obj 10 112 routeOSC /__;
@@ -759,7 +876,6 @@
 #X connect 61 0 29 0;
 #X connect 62 0 27 0;
 #X restore 16 124 pd negotiate.port;
-#X obj 706 325 s \$0.initiate.server;
 #X connect 0 0 4 0;
 #X connect 1 0 2 0;
 #X connect 5 0 4 0;