<message> ( query -- obj )

Vocabulary

dns

Inputs

query

an object

Outputs

obj

an object

Definition

USING: accessors arrays kernel math random sequences ;

IN: dns

: <message> ( query -- obj )
    message new 16 2^ random >>id 0 >>qr QUERY >>opcode 0 >>aa
    0 >>tc 1 >>rd 0 >>ra 0 >>z NO-ERROR >>rcode
    swap dup sequence? [ 1array ] unless >>query
    { } >>answer-section { } >>authority-section
    { } >>additional-section ;