ipv4-contains? ( ipv4 ipv4-network -- ? )


Vocabulary
ip-parser

Inputs
ipv4an object
ipv4-networkan object


Outputs
?an object


Definition
USING: accessors kernel math math.bitwise strings ;

IN: ip-parser

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