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

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

db4
Doug Coleman 2011-04-10 12:38:00 -05:00
parent 405745ca79
commit 82a88ba57a
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/dns/dns.factor
View File

@ -344,18 +344,14 @@ M: TXT rdata>byte-array
[ [
binary <byte-reader> [ binary <byte-reader> [
[ [
read1 [ read1 [ read , t ] [ f ] if*
read , t
] [
f
] if*
] loop ] loop
] with-input-stream ] with-input-stream
] { } make [ >string ] map ] { } make [ utf8 decode ] map
] map ; ] map ;
: TXT. ( domain -- ) : 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 ) : reverse-lookup ( reversed-ip -- message )
PTR IN <query> dns-query ; PTR IN <query> dns-query ;