Check-in [ba53abc389]
Not logged in

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: ba53abc38996f7ed04cb7d43db6340fa8e757111
User & Date: bernd 2019-10-15 21:00:08
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to cmd.fs.

563
564
565
566
567
568
569
570

571
572
573
574
575
576
577
    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  send0-xt ?punch-cmds

	    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!! ;








|
>







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!! ;