(parse-name) ( -- )

Vocabulary

dns

Inputs

None

Outputs

None

Definition

USING: io kernel make math math.bitwise ;

IN: dns

: (parse-name) ( -- )
    read1 [
        dup 192 mask? [
            8 shift read1 bitor 16383 bitand seek-absolute
            [ read1 parse-length-bytes , (parse-name) ]
            with-input-seek
        ] [ parse-length-bytes , (parse-name) ] if
    ] unless-zero ;