ipv6>arpa ( string -- string )

Vocabulary

dns

Inputs

string

an object

Outputs

string

an object

Definition

USING: arrays kernel math math.bitwise math.parser sequences ;

IN: dns

: ipv6>arpa ( string -- string )
    ipv6>byte-array
    [ [ -4 shift 4 bits ] [ 4 bits ] bi 2array ] { } map-as
    B{ } concat-as reverse [ >hex ] { } map-as "." join
    ipv6-arpa-suffix append ;