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

added srv parsing

master
Steve Ayerhart 2020-04-21 12:52:51 -05:00 committed by John Benediktsson
parent b9469a4acc
commit e04a6e39f3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/dns/dns.factor
View File

@ -64,6 +64,8 @@ TUPLE: mx preference exchange ;
TUPLE: soa mname rname serial refresh retry expire minimum ; TUPLE: soa mname rname serial refresh retry expire minimum ;
TUPLE: srv priority weight port target ;
TUPLE: a name ; TUPLE: a name ;
CONSTRUCTOR: <a> a ( name -- obj ) ; CONSTRUCTOR: <a> a ( name -- obj ) ;
@ -204,6 +206,13 @@ CONSTANT: ipv6-arpa-suffix ".ip6.arpa"
2 read be> >>preference 2 read be> >>preference
parse-name >>exchange ; parse-name >>exchange ;
: parse-srv ( -- srv )
srv new
2 read be> >>priority
2 read be> >>weight
2 read be> >>port
parse-name >>target ;
GENERIC: parse-rdata ( n type -- obj ) GENERIC: parse-rdata ( n type -- obj )
M: object parse-rdata drop read ; M: object parse-rdata drop read ;
@ -214,6 +223,7 @@ M: MX parse-rdata 2drop parse-mx ;
M: NS parse-rdata 2drop parse-name <ns> ; M: NS parse-rdata 2drop parse-name <ns> ;
M: PTR parse-rdata 2drop parse-name <ptr> ; M: PTR parse-rdata 2drop parse-name <ptr> ;
M: SOA parse-rdata 2drop parse-soa ; M: SOA parse-rdata 2drop parse-soa ;
M: SRV parse-rdata 2drop parse-srv ;
: parse-rr ( -- rr ) : parse-rr ( -- rr )
rr new rr new
@ -342,6 +352,7 @@ M: TXT rdata>byte-array
: dns-MX-query ( name -- message ) MX IN dns-query ; : dns-MX-query ( name -- message ) MX IN dns-query ;
: dns-NS-query ( name -- message ) NS IN dns-query ; : dns-NS-query ( name -- message ) NS IN dns-query ;
: dns-TXT-query ( name -- message ) TXT IN dns-query ; : dns-TXT-query ( name -- message ) TXT IN dns-query ;
: dns-SRV-query ( name -- message ) SRV IN dns-query ;
: read-TXT-strings ( byte-array -- strings ) : read-TXT-strings ( byte-array -- strings )
[ [