pad-ipv6 ( string1 string2 -- seq )


Vocabulary
ip-parser.private

Inputs
string1an object
string2an object


Outputs
seqan object


Definition
USING: byte-arrays ip-parser kernel math sequences ;

IN: ip-parser.private

: pad-ipv6 ( string1 string2 -- seq )
2dup 2length + 8 swap - dup 0 <
[ more-than-8-components ] when <byte-array> glue ;