header>message-parts ( n -- qr opcode aa tc rd ra z rcode )


Vocabulary
dns

Inputs
nan object


Outputs
qran object
opcodean object
aaan object
tcan object
rdan object
raan object
zan object
rcodean object


Definition
USING: combinators math ;

IN: dns

: header>message-parts
( n -- qr opcode aa tc rd ra z rcode )
{
[ -15 shift 1 bitand ]
[ -11 shift 7 bitand <dns-opcode> ]
[ -10 shift 1 bitand ]
[ -9 shift 1 bitand ]
[ -8 shift 1 bitand ]
[ -7 shift 1 bitand ]
[ -4 shift 7 bitand ]
[ 15 bitand <dns-rcode> ]
} cleave ;