Fix usage note in dns vocab, move tools.dns from basis to extra since dns vocab is in extra
parent
e5dba6b64c
commit
e90fd3b942
|
|
@ -368,7 +368,6 @@ M: SOA rdata>byte-array
|
||||||
: message>query-name ( message -- string )
|
: message>query-name ( message -- string )
|
||||||
query>> first name>> dotted> ;
|
query>> first name>> dotted> ;
|
||||||
|
|
||||||
USE: nested-comments
|
|
||||||
(*
|
(*
|
||||||
M: string resolve-host
|
M: string resolve-host
|
||||||
dup >lower "localhost" = [
|
dup >lower "localhost" = [
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ IN: tools.dns
|
||||||
[ write " has address " write ] [ print ] bi* ;
|
[ write " has address " write ] [ print ] bi* ;
|
||||||
|
|
||||||
: a-message. ( message -- )
|
: a-message. ( message -- )
|
||||||
[ message>query-name ] [ message>names ] bi
|
[ message>query-name ] [ message>a-names ] bi
|
||||||
[ a-line. ] with each ;
|
[ a-line. ] with each ;
|
||||||
|
|
||||||
: mx-line. ( host pair -- )
|
: mx-line. ( host pair -- )
|
||||||
Loading…
Reference in New Issue