query>byte-array ( query -- byte-array )

Vocabulary

dns

Inputs

query

an object

Outputs

byte-array

an object

Definition

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

IN: dns

: query>byte-array ( query -- byte-array )
    [
        {
            [ name>> >name ]
            [ type>> enum>number 2 >be ]
            [ class>> enum>number 2 >be ]
        } cleave
    ] B{ } append-outputs-as ;