message>header ( message -- n )

Vocabulary

dns

Inputs

message

an object

Outputs

n

an object

Definition

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

IN: dns

: message>header ( message -- n )
    [
        {
            [ qr>> 15 shift ]
            [ opcode>> enum>number 11 shift ]
            [ aa>> 10 shift ]
            [ tc>> 9 shift ]
            [ rd>> 8 shift ]
            [ ra>> 7 shift ]
            [ z>> 4 shift ]
            [ rcode>> enum>number 0 shift ]
        } cleave
    ] sum-outputs ;