Permalink
Browse files

Decode TXT strings as utf8, use write instead of print.

  • Loading branch information...
erg committed Apr 10, 2011
1 parent 46fa62c commit 8851c187762c18992feba240561ba7d639ca38c5
Showing with 3 additions and 7 deletions.
  1. +3 −7 extra/dns/dns.factor
View
@@ -344,18 +344,14 @@ M: TXT rdata>byte-array
[
binary <byte-reader> [
[
read1 [
read , t
] [
f
] if*
read1 [ read , t ] [ f ] if*
] loop
] with-input-stream
] { } make [ >string ] map
] { } make [ utf8 decode ] map
] map ;
: TXT. ( domain -- )
dns-TXT-query TXT-message>strings [ [ print ] each ] each ;
dns-TXT-query TXT-message>strings [ [ write ] each ] each ;
: reverse-lookup ( reversed-ip -- message )
PTR IN <query> dns-query ;

0 comments on commit 8851c18

Please sign in to comment.