parse-ipv4 ( str -- byte-array )

Vocabulary
ip-parser

Inputs

str

Outputs

byte-array

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

A	0.0.0.A
A.D	A.0.0.D
A.B.D	A.B.0.D
A.B.C.D	A.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