Check-in [78b0625b9a]
Not logged in

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: 78b0625b9afb18fa28f3d7a4b244190655708f31
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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 ;