rr>byte-array ( rr -- byte-array )

Vocabulary

dns

Inputs

rr

an object

Outputs

byte-array

an object

Definition

USING: accessors alien.enums combinators combinators.smart
endian kernel sequences ;

IN: dns

: rr>byte-array ( rr -- byte-array )
    [
        {
            [ name>> >name ]
            [ type>> enum>number 2 >be ]
            [ class>> enum>number 2 >be ]
            [ ttl>> 4 >be ]
            [
                [ rdata>> ] [ type>> ] bi rdata>byte-array
                [ length 2 >be ] [ ] bi append
            ]
        } cleave
    ] B{ } append-outputs-as ;