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: |
78b0625b9afb18fa28f3d7a4b2441906 |
| User & Date: | bernd 2019-08-30 18:49:02 |
Context
|
2019-08-30
| ||
| 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 | |
|
2019-08-29
| ||
| 12:07 | Bump version number check-in: 219730c82b user: bernd tags: trunk, 0.9.1-20190829 | |
Changes
Changes to addr.fs.
117 118 119 120 121 122 123 124 125 126 127 128 129 130 |
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!
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 ;
|
> |
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!
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 ip.fs.
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!
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 ;
|
| |
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!
\ 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 ;
|