ipv6-contains? ( ipv6 ipv6-network -- ? )


Vocabulary
ip-parser

Inputs
ipv6an object
ipv6-networkan object


Outputs
?an object


Definition
USING: accessors kernel math math.bitwise strings ;

IN: ip-parser

: ipv6-contains? ( ipv6 ipv6-network -- ? )
[ dup string? [ ipv6-aton ] when ] dip >ipv6-network
[ base>> ] [ bits>> ] bi [ on-bits ] [ 128 swap - shift ] bi
swapd mask = ;