parse-ipv4 ( str -- byte-array )


Vocabulary
ip-parser

Inputs
stra string


Outputs
byte-arraya byte-array


Word description
Parses an IP string that may not have all four address components specified, following these rules:

A0.0.0.A
A.DA.0.0.D
A.B.DA.B.0.D
A.B.C.DA.B.C.D


In addition, this supports components specified as decimal, octal, hexadecimal, and mixed representations, as well as components specified larger than 255 by carry propagation.

Definition
USING: combinators ip-parser.private kernel sequences ;

IN: ip-parser

: parse-ipv4 ( str -- byte-array )
dup split-ipv4 dup length {
{ 1 [ { 0 0 0 } prepend ] }
{ 2 [ 1 cut { 0 0 } glue ] }
{ 3 [ 2 cut { 0 } glue ] }
{ 4 [ ] }
[ 2drop malformed-ipv4 ]
} case ?bubble nip B{ } like ; inline