Commit a8edbbb8 authored by bernd's avatar bernd

set-head in ack context

parent 2a953fd3
......@@ -148,24 +148,24 @@ drop
net2o.name body> name>string ;
: >net2o-sig ( addr -- addr' u )
net2o.name 3 cells + $@ ;
: .net2o-num ( off -- ) cell/ '<' emit 0 .r '>' emit space ;
: (net2o-see) ( addr -- ) @
: (net2o-see) ( addr index -- ) dup >r + @
dup 0<> IF
net2o.name
dup 2 cells + @ ?dup-IF @ token-table @ t-push token-table ! THEN
body>
ELSE drop ['] net2o-crash THEN .name ;
body> .name
ELSE drop r@ .net2o-num THEN rdrop ;
: .net2o-num ( off -- ) cell/ '<' emit 0 .r '>' emit space ;
: .net2o-name ( n -- ) cells >r
o IF token-table ELSE setup-table THEN $@ r@ u<=
IF drop r> .net2o-num EXIT THEN r> + (net2o-see) ;
IF drop r> .net2o-num EXIT THEN r> (net2o-see) ;
: .net2o-name' ( n -- ) cells >r
o IF token-table ELSE setup-table THEN $@ r@ u<=
IF drop r> .net2o-num EXIT THEN r> + @
IF drop r> .net2o-num EXIT THEN r@ + @
dup 0<> IF
net2o.name body>
ELSE drop ['] net2o-crash THEN .name ;
net2o.name body> .name
ELSE drop r@ .net2o-num THEN rdrop ;
: net2o-see ( cmd -- ) hex[
case
......
......@@ -115,7 +115,7 @@ $20 net2o: ack-addrtime ( utime addr -- ) \ packet at addr received at time
+net2o: set-head ( addr -- ) \ set head
64>n parent @ .data-rmap @ .dest-head umax! ;
+net2o: timeout ( uticks -- ) \ timeout request
parent @ >o net2o:timeout data-map @ .dest-tail @ ulit, set-head o> ;
parent @ >o net2o:timeout data-map @ .dest-tail @ o> ulit, set-head ;
\ profiling, nat traversal
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment