Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Experiment with flow label |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
69d886902f82eb878acbb876ab227948 |
| User & Date: | bernd 2019-08-30 18:53:29.927 |
Context
|
2019-08-30
| ||
| 21:57 | Fix disabling IPv6 check-in: 6ed16db24a user: bernd tags: trunk | |
| 18:53 | Experiment with flow label check-in: 69d886902f user: bernd tags: trunk | |
| 18:49 | Experiment with flow label check-in: 78b0625b9a user: bernd tags: trunk | |
Changes
Changes to addr.fs.
| ︙ | ︙ | |||
117 118 119 120 121 122 123 |
User dest-0key> \ pointer to dest-0key
User dest-0key< \ pointer to obtained dest-0key
: addr>6sock ( -- )
host:key @ dest-0key< !
host:portv6 w@ sockaddr1 port be-w!
host:ipv6 sockaddr1 sin6_addr ip6!
| | | 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 |
User dest-0key> \ pointer to dest-0key
User dest-0key< \ pointer to obtained dest-0key
: addr>6sock ( -- )
host:key @ dest-0key< !
host:portv6 w@ sockaddr1 port be-w!
host:ipv6 sockaddr1 sin6_addr ip6!
flowlabel( rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l! )
host:route $@ !temp-addr ;
: addr>4sock ( -- )
host:key @ dest-0key< !
host:portv4 w@ sockaddr1 port be-w!
host:ipv4 be-ul@ sockaddr1 ipv4!
host:route $@ !temp-addr ;
|
| ︙ | ︙ |
Changes to debugging.fs.
| ︙ | ︙ | |||
80 81 82 83 84 85 86 87 88 89 90 91 92 93 | debug: slurp( \ debug slurp&spit debug: wallet( \ debug wallet stuff debug: qr( \ qr code stuff debug: deprecated( \ deprecated stuff debug: unhandled( \ unhandled commands debug: syncfile( \ synchronous file operations debug: newvault( \ new style vault keys -db profile( \ don't profile by default ) +db ipv6( \ ipv6 should be on by default ) +db ipv4( \ ipv4 should be on by default ) +db ipv64( \ ipv6 over 4 -db newvault( \ new vault disabled for now ) +db syncfile( \ disable async file operations for now ) | > | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | debug: slurp( \ debug slurp&spit debug: wallet( \ debug wallet stuff debug: qr( \ qr code stuff debug: deprecated( \ deprecated stuff debug: unhandled( \ unhandled commands debug: syncfile( \ synchronous file operations debug: newvault( \ new style vault keys debug: flowlabel( \ experiment with flow labels -db profile( \ don't profile by default ) +db ipv6( \ ipv6 should be on by default ) +db ipv4( \ ipv4 should be on by default ) +db ipv64( \ ipv6 over 4 -db newvault( \ new vault disabled for now ) +db syncfile( \ disable async file operations for now ) |
| ︙ | ︙ |
Changes to ip.fs.
| ︙ | ︙ | |||
126 127 128 129 130 131 132 |
>r r@ sin6_addr 12 + be-l!
0 r@ sin6_addr 8 + l!
0 r@ sin6_addr 4 + l!
$0064ff9b r> sin6_addr be-l! ;
: sock-rest ( sockaddr -- addr u ) >r
AF_INET6 r@ family w!
| | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 |
>r r@ sin6_addr 12 + be-l!
0 r@ sin6_addr 8 + l!
0 r@ sin6_addr 4 + l!
$0064ff9b r> sin6_addr be-l! ;
: sock-rest ( sockaddr -- addr u ) >r
AF_INET6 r@ family w!
flowlabel( )else( 0 r@ sin6_flowinfo l! )
0 r@ sin6_scope_id l!
r> sockaddr_in6 ;
: sock-rest4 ( sockaddr -- addr u ) >r
AF_INET r@ family w!
r> sockaddr_in4 ;
|
| ︙ | ︙ |