commit e8bbc4a2b37092eafa697bff6c3ad4f24716665e parent 2697b4ec6deceeea0bc3df73a8c598a2ad35c5aa Author: Tomas Hlavaty <tom@logand.com> Date: Sun, 14 Dec 2014 23:28:49 +0100 more dns $type Diffstat:
| M | dns.lisp | | | 100 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------- |
1 file changed, 73 insertions(+), 27 deletions(-)
diff --git a/dns.lisp b/dns.lisp @@ -115,31 +115,78 @@ (rw:write-u8 writer (length b)) (rw:write-octets writer b))) +;;https://en.wikipedia.org/wiki/List_of_DNS_record_types (rw.wire:defenum $type (:type rw:u16be) - (A . 1) - (NS . 2) - (MD . 3) - (MF . 4) - (CNAME . 5) - (SOA . 6) - (MB . 7) - (MG . 8) - (MR . 9) - (NULL . 10) - (WKS . 11) - (PTR . 12) - (HINFO . 13) - (MINFO . 14) - (MX . 15) - (TXT . 16) - (AAAA . 28) - (SRV . 33) - (OPT . 41) - (IXFR . 251) - (AXFR . 252) - (MAILB . 253) - (MAILA . 254) - (ANY . 255)) + (A . 1) + (NS . 2) + (MD . 3) + (MF . 4) + (CNAME . 5) + (SOA . 6) + (MB . 7) + (MG . 8) + (MR . 9) + (NULL . 10) + (WKS . 11) + (PTR . 12) + (HINFO . 13) + (MINFO . 14) + (MX . 15) + (TXT . 16) + (RP . 17) + (AFSDB . 18) + (X25 . 19) + (ISDN . 20) + (RT . 21) + (NSAP . 22) + (NSAP-PTR . 23) + (SIG . 24) + (KEY . 25) + (PX . 26) + (GPOS . 27) + (AAAA . 28) + (LOC . 29) + (NXT . 30) + (EID . 31) + (NIMLOC . 32) ;; was NB + (SRV . 33) ;; was NBSTAT + (ATMA . 34) + (NAPTR . 35) + (KX . 36) + (CERT . 37) + (A6 . 38) + (DNAME . 39) + (SINK . 40) + (OPT . 41) + (APL . 42) + (DS . 43) + (SSHFP . 44) + (IPSECKEY . 45) + (RRSIG . 46) + (NSEC . 47) + (DNSKEY . 48) + (DHCID . 49) + (NSEC . 50) + (NSEC3PARAM . 51) + (TLSA . 52) + (HIP . 55) + (CDS . 59) + (CDNSKEY . 60) + (SPF . 99) + (UINFO . 100) + (UID . 101) + (GID . 102) + (UNSPEC . 103) + (TKEY . 249) + (TSIG . 250) + (IXFR . 251) + (AXFR . 252) + (MAILB . 253) + (MAILA . 254) + (* . 255) + (CAA . 257) + (TA . 32768) + (DLV . 32769)) (rw.wire:defenum $class (:type rw:u16be) (IN . 1) @@ -198,12 +245,11 @@ (MR $name) (MX $mx) (NS $name) - ;;(NULL) max 65535 octets (PTR $name) (SOA $soa) (SRV $srv) - #+nil(TXT $txt) ;; 1+ char-strings - #+nil(WKS $wks)) + ;;(TXT $txt) ;; 1+ char-strings + ) data :length rw:u16be)) (rw.wire:defstruc $message ()