split-ipv6 ( string -- seq )

Vocabulary

ip-parser.private

Inputs

string

an object

Outputs

seq

an object

Definition

USING: ip-parser kernel sequences splitting ;

IN: ip-parser.private

: split-ipv6 ( string -- seq )
    ":" split 46 over last member? [ unclip-last ] [ f ] if
    [ [ ipv6-component ] map ]
    [ [ parse-ipv4 append ] unless-empty ] bi* ;