src/sockets/dns/common.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- DNS client constants.
   4 ;;;
   5
   6 (in-package :iolib.sockets)
   7
   8 (defconstant +dns-max-datagram-size+ 4096)
   9
  10 (defconstant +opcode-standard+ 0)
  11
  12 ;;; Query types
  13
  14 (defconstant (+query-type-map+ :test 'equal)
  15   '((:a . 1) (:ns . 2) (:cname . 5) (:soa . 6)
  16     (:wks . 11) (:ptr . 12) (:hinfo . 13) (:mx . 15)
  17     (:txt . 16) (:aaaa . 28) (:srv . 33) (:any . 255)))
  18
  19 (defun query-type-number (id)
  20   (cdr (assoc id +query-type-map+)))
  21
  22 (defun query-type-id (number)
  23   (car (rassoc number +query-type-map+)))
  24
  25 (defun dns-record-type-p (id)
  26   (query-type-number id))
  27
  28 ;;; Query classes
  29
  30 (defconstant (+query-class-map+ :test 'equal)
  31   '((:in . 1) (:any . 255)))
  32
  33 (defun query-class-number (id)
  34   (cdr (assoc id +query-class-map+)))
  35
  36 (defun query-class-id (number)
  37   (car (rassoc number +query-class-map+)))
  38
  39 ;;; Error codes
  40
  41 (defconstant (+rcode-map+ :test 'equal)
  42   '((:no-error . 0) (:format-error . 1)
  43     (:server-failure . 2) (:name-error . 3)
  44     (:not-implemented . 4) (:refused . 5)))
  45
  46 (defun rcode-number (id)
  47   (cdr (assoc id +rcode-map+)))
  48
  49 (defun rcode-id (number)
  50   (car (rassoc number +rcode-map+)))