protocols/dns-client/dns-constants.lisp

   1 ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
   2
   3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   4 ;   Copyright (C) 2006 by Stelian Ionescu                                 ;
   5 ;                                                                         ;
   6 ;   This program is free software; you can redistribute it and/or modify  ;
   7 ;   it under the terms of the GNU General Public License as published by  ;
   8 ;   the Free Software Foundation; either version 2 of the License, or     ;
   9 ;   (at your option) any later version.                                   ;
  10 ;                                                                         ;
  11 ;   This program is distributed in the hope that it will be useful,       ;
  12 ;   but WITHOUT ANY WARRANTY; without even the implied warranty of        ;
  13 ;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         ;
  14 ;   GNU General Public License for more details.                          ;
  15 ;                                                                         ;
  16 ;   You should have received a copy of the GNU General Public License     ;
  17 ;   along with this program; if not, write to the                         ;
  18 ;   Free Software Foundation, Inc.,                                       ;
  19 ;   51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA              ;
  20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21
  22 ;; (declaim (optimize (speed 2) (safety 2) (space 1) (debug 2)))
  23 (declaim (optimize (speed 0) (safety 2) (space 0) (debug 2)))
  24
  25 (in-package :net.sockets)
  26
  27 (define-constant +opcode-standard+ 0)
  28
  29 (define-constant +query-type-map
  30   '((:a     .   1)
  31     (:ns    .   2)
  32     (:cname .   5)
  33     (:soa   .   6)
  34     (:wks   .  11)
  35     (:ptr   .  12)
  36     (:hinfo .  13)
  37     (:mx    .  15)
  38     (:txt   .  16)
  39     (:aaaa  .  28)
  40     (:any   . 255)))
  41
  42 (defun query-type-number (id)
  43   (cdr (assoc id +query-type-map)))
  44
  45 (defun query-type-id (number)
  46   (car (rassoc number +query-type-map)))
  47
  48 (defun valid-type-p (id)
  49   (query-type-number id))
  50
  51 (define-constant +query-class-map
  52   '((:in  .   1)
  53     (:any . 255)))
  54
  55 (defun query-class-number (id)
  56   (cdr (assoc id +query-class-map)))
  57
  58 (defun query-class-id (number)
  59   (car (rassoc number +query-class-map)))
  60
  61 (define-constant +rcode-map
  62   '((:no-error        . 0)
  63     (:format-error    . 1)
  64     (:server-failure  . 2)
  65     (:name-error      . 3)
  66     (:not-implemented . 4)
  67     (:refused         . 5)))
  68
  69 (defun rcode-number (id)
  70   (cdr (assoc id +rcode-map)))
  71
  72 (defun rcode-id (number)
  73   (car (rassoc number +rcode-map)))
  74
  75 (define-constant +dns-datagram-size+ 512)