steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dns: Factor out filtering a and aaaa.

db4
Doug Coleman 2012-10-10 14:59:22 -07:00
parent 106e4d100e
commit 67e63615bd
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/dns/dns.factor
View File

@ -372,9 +372,14 @@ M: TXT rdata>byte-array
: message>names ( message -- names )
answer-section>> [ rdata>> name>> ] map ;
: filter-message-rdata>names ( message quot -- names )
[ answer-section>> [ rdata>> ] map ] dip filter [ name>> ] map ; inline
: message>a-names ( message -- names )
answer-section>>
[ rdata>> ] map [ a? ] filter [ name>> ] map ;
[ a? ] filter-message-rdata>names ;
: message>aaaa-names ( message -- names )
[ aaaa? ] filter-message-rdata>names ;
: message>mxs ( message -- assoc )
answer-section>> [ rdata>> [ preference>> ] [ exchange>> ] bi 2array ] map ;