Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | resend0 cleaned at connect |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
217298f0dab07545a09e6b7ee8d4ab5f |
| User & Date: | bernd 2020-02-03 17:26:30.439 |
Context
|
2020-02-03
| ||
| 18:00 | map finding process updated check-in: 076d2fe71d user: bernd tags: trunk | |
| 17:26 | resend0 cleaned at connect check-in: 217298f0da user: bernd tags: trunk | |
| 17:06 | minimum blocksize check-in: e4211e87dc user: bernd tags: trunk | |
Changes
Changes to cmd.fs.
| ︙ | ︙ | |||
240 241 242 243 244 245 246 |
: cmd-see ( addr u -- addr' u' )
dup show-offset @ = IF ." <<< " THEN
buf-state 2! p@ 64>n net2o-see buf-state 2@ ;
in net2o : (see) ( addr u -- )
buf-state 2@ 2>r
[: ." net2o-code" dest-flags 1+ c@ stateless# and IF '0' emit THEN
| | | 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 |
: cmd-see ( addr u -- addr' u' )
dup show-offset @ = IF ." <<< " THEN
buf-state 2! p@ 64>n net2o-see buf-state 2@ ;
in net2o : (see) ( addr u -- )
buf-state 2@ 2>r
[: ." net2o-code" dest-flags 1+ c@ stateless# and IF '0' emit THEN
dup hex. t-stack $free
[: BEGIN cmd-see dup 0= UNTIL ;] catch
." end-code" cr throw 2drop ;] see-sema c-section
2r> buf-state 2! ;
: >see-table ( -- )
o IF token-table ELSE setup-table THEN @ see:table ! ;
|
| ︙ | ︙ | |||
330 331 332 333 334 335 336 | cmd-buf$ ' new static-a with-allocater code-buf$^ ! ' code-buf$^ cmdbuf: code-buf$ code-buf$ ' cmd$lock to cmdlock :noname cmd$ $@ ; to cmdbuf$ | | | 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 |
cmd-buf$ ' new static-a with-allocater code-buf$^ !
' code-buf$^ cmdbuf: code-buf$
code-buf$
' cmd$lock to cmdlock
:noname cmd$ $@ ; to cmdbuf$
:noname cmd$ $free ; to cmdreset
' true to maxstring \ really maxuint = -1 = true
:noname ( addr u -- ) cmd$ $+! ; to +cmdbuf
:noname ( n -- ) cmd$ $@len + cmd$ $!len ; to -cmdbuf
:noname ( -- 64dest ) 64#0 ; to cmddest
: gen-cmd ( xt -- $addr )
cmdbuf-o @ >r code-buf$ 0 cmd$ !@ >r cmdbuf# @ >r
|
| ︙ | ︙ | |||
357 358 359 360 361 362 363 |
:noname ( -- )
cmd-buf0 new code0-buf^ !
cmd-buf-c new code-buf^ !
cmd-buf$ new code-buf$^ ! ; is alloc-code-bufs
:noname
code0-buf^ @ .dispose
code-buf^ @ .dispose
| | | 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 |
:noname ( -- )
cmd-buf0 new code0-buf^ !
cmd-buf-c new code-buf^ !
cmd-buf$ new code-buf$^ ! ; is alloc-code-bufs
:noname
code0-buf^ @ .dispose
code-buf^ @ .dispose
code-buf$^ @ >o cmd$ $free dispose o> ; is free-code-bufs
\ stuff into code buffers
: do-<req ( -- ) o IF req? @ 0> IF req? on start-req THEN THEN ;
: cmdtmp$ ( 64n -- addr u ) cmdtmp p!+ cmdtmp tuck - ;
: cmd, ( 64n -- ) do-<req cmdtmp$ +cmdbuf ;
|
| ︙ | ︙ | |||
598 599 600 601 602 603 604 |
tag( ." tag: " tag-addr dup hex. 2@ swap hex. hex. forth:cr )
code-vdest r@ reply-dest 64!
r> code-reply dup off to reply-tag ;
in net2o : ok ( tag -- ) \ ." ok" forth:cr
\ timeout( ." ok: " dup hex. forth:cr )
o 0= IF drop EXIT THEN
request( ." request acked: " dup . cr )
| | | 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 |
tag( ." tag: " tag-addr dup hex. 2@ swap hex. hex. forth:cr )
code-vdest r@ reply-dest 64!
r> code-reply dup off to reply-tag ;
in net2o : ok ( tag -- ) \ ." ok" forth:cr
\ timeout( ." ok: " dup hex. forth:cr )
o 0= IF drop EXIT THEN
request( ." request acked: " dup . cr )
resend0 $free
nat( ." ok from: " ret-addr .addr-path space dup .
dup reply[] 2@ d0= IF ." acked" THEN cr )
#0. 2 pick reply[] dup >r 2!
ticks r@ reply-time 64@ 64- ack@ >o
rtd( ." rtdelay ok: " 64dup 64>f .ns cr )
0 timeouts !@ rtd( dup . ) 1 u> IF rtdelay 64@ 64umax
rtd( ." rtdelay t-o: " 64dup 64>f .ns cr ) THEN
|
| ︙ | ︙ |
Changes to connected.fs.
| ︙ | ︙ | |||
590 591 592 593 594 595 596 |
: +resend-cmd ( -- ) resend( ." +resend-cmd" cr )
['] cmd-timeout is timeout-xt o+timeout ;
: +get-time ['] get-tick is other ;
: reqsize! ( ucode udata -- ) to req-datasize to req-codesize ;
: connect-rest ( n -- )
| | | 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 |
: +resend-cmd ( -- ) resend( ." +resend-cmd" cr )
['] cmd-timeout is timeout-xt o+timeout ;
: +get-time ['] get-tick is other ;
: reqsize! ( ucode udata -- ) to req-datasize to req-codesize ;
: connect-rest ( n -- )
clean-request -timeout tskc KEYBYTES erase context! resend0 $free ;
: end-code| ( -- ) ]] end-code client-loop [[ ; immediate compile-only
: connect-request ( -- )
net2o-code0
net2o-version $, version? 0key,
tpkc keysize $, receive-tmpkey
|
| ︙ | ︙ |