Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | More improvements on multi-target connects |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ba53abc38996f7ed04cb7d43db6340fa |
User & Date: | bernd 2019-10-15 21:00:08.447 |
Context
2019-10-16
| ||
19:34 | NAT traversal enabler for multiple connections — interface is very ugly, needs fixing\! check-in: a2d9057ebf user: bernd tags: trunk | |
2019-10-15
| ||
21:00 | More improvements on multi-target connects check-in: ba53abc389 user: bernd tags: trunk | |
20:50 | More improvements on multi-target connects check-in: ac0c29a5d7 user: bernd tags: trunk | |
Changes
Changes to cmd.fs.
︙ | ︙ | |||
563 564 565 566 567 568 569 | THEN ; : send-cmd ( addr u dest -- size ) n64-swap { buf# } +send-cmd dest-addr 64@ 64>r set-dest cmd( <info> ." send: " outflag .dest-addr dup buf# net2o:see <default> cr ) max-size^2 1+ 0 DO buf# min-size I lshift u<= IF | | > | 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 | THEN ; : send-cmd ( addr u dest -- size ) n64-swap { buf# } +send-cmd dest-addr 64@ 64>r set-dest cmd( <info> ." send: " outflag .dest-addr dup buf# net2o:see <default> cr ) max-size^2 1+ 0 DO buf# min-size I lshift u<= IF I outflag @ stateless# and IF o IF send0-xt ?punch-cmds ELSE send-cX THEN ELSE send-reply >r over buf# r@ 2! r> send-xt THEN min-size I lshift UNLOOP 64r> dest-addr 64! EXIT THEN LOOP 64r> dest-addr 64! true !!commands!! ; |
︙ | ︙ |