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

Move the host word from dns to tools.dns

db4
Doug Coleman 2010-10-06 10:27:39 -05:00
parent 1e6ea11ba2
commit 6dcb259b73
3 changed files with 25 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/tools/dns/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

24
basis/tools/dns/dns.factor Normal file
View File

@ -0,0 +1,24 @@
! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: dns io kernel math.parser sequences ;
IN: tools.dns
: a-line. ( host ip -- )
[ write " has address " write ] [ print ] bi* ;
: a-message. ( message -- )
[ message>query-name ] [ message>names ] bi
[ a-line. ] with each ;
: mx-line. ( host pair -- )
[ write " mail is handled by " write ]
[ first2 [ number>string write bl ] [ print ] bi* ] bi* ;
: mx-message. ( message -- )
[ message>query-name ] [ message>mxs ] bi
[ mx-line. ] with each ;
: host ( domain -- )
[ dns-A-query a-message. ]
[ dns-AAAA-query a-message. ]
[ dns-MX-query mx-message. ] tri ;

20
extra/dns/dns.factor
View File

@ -369,26 +369,6 @@ M: SOA rdata>byte-array
: message>query-name ( message -- string )
query>> first name>> dotted> ;
: a-line. ( host ip -- )
[ write " has address " write ] [ print ] bi* ;
: a-message. ( message -- )
[ message>query-name ] [ message>names ] bi
[ a-line. ] with each ;
: mx-line. ( host pair -- )
[ write " mail is handled by " write ]
[ first2 [ number>string write bl ] [ print ] bi* ] bi* ;
: mx-message. ( message -- )
[ message>query-name ] [ message>mxs ] bi
[ mx-line. ] with each ;
: host ( domain -- )
[ dns-A-query a-message. ]
[ dns-AAAA-query a-message. ]
[ dns-MX-query mx-message. ] tri ;
USE: nested-comments
(*
M: string resolve-host