message>mxs ( message -- assoc )

Vocabulary

dns

Inputs

message

an object

Outputs

assoc

an object

Definition

USING: accessors arrays kernel sequences ;

IN: dns

: message>mxs ( message -- assoc )
    answer-section>> [
        rdata>> dup cname?
        [ name>> 1array ]
        [ [ preference>> ] [ exchange>> ] bi 2array ] if
    ] map ;