sockets/conditions.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 (defgeneric error-code (err))
  28 (defmethod error-code ((err system-error))
  29   (et:system-error-code err))
  30
  31 (defgeneric error-identifier (err))
  32 (defmethod error-identifier ((err system-error))
  33   (et:system-error-identifier err))
  34
  35 (defgeneric error-message (err))
  36 (defmethod error-message ((err system-error))
  37   (et:message err))
  38
  39 (defun print-message-if-not-null (condition stream &optional (eof-place :before))
  40   (declare (type stream stream))
  41   (let ((msg (error-message condition)))
  42     (when msg
  43       (when (eql eof-place :before)
  44         (fresh-line stream))
  45       (format stream "~A" msg)
  46       (when (eql eof-place :after)
  47         (fresh-line stream)))))
  48
  49 ;;;;;;;;;;;;;;;;;;;;;;;
  50 ;;;  SOCKET ERRORS  ;;;
  51 ;;;;;;;;;;;;;;;;;;;;;;;
  52
  53 (defparameter *socket-error-map* nil)
  54
  55 (define-condition socket-error (unix-error) ())
  56
  57 (defmacro define-socket-error (name identifier &optional documentation)
  58   `(progn
  59      (export ',name)
  60      (push (cons ,identifier ',name) *socket-error-map*)
  61      (define-condition ,name (socket-error) ()
  62        (:default-initargs :code (unixerr-value ,identifier)
  63                           :identifier ,identifier)
  64        (:documentation ,(or documentation "")))))
  65
  66 (define-socket-error socket-address-in-use-error          :eaddrinuse)
  67 (define-socket-error socket-address-not-available-error   :eaddrnotavail)
  68 (define-socket-error socket-network-down-error            :enetdown)
  69 (define-socket-error socket-network-reset-error           :enetreset)
  70 (define-socket-error socket-network-unreachable-error     :enetunreach)
  71 (define-socket-error socket-no-network-error              :enonet)
  72 (define-socket-error socket-connection-aborted-error      :econnaborted)
  73 (define-socket-error socket-connection-reset-error        :econnreset)
  74 (define-socket-error socket-connection-refused-error      :econnrefused)
  75 (define-socket-error socket-endpoint-shutdown-error       :eshutdown)
  76 (define-socket-error socket-connection-timeout-error      :etimedout)
  77 (define-socket-error socket-no-buffer-space-error         :enobufs)
  78 (define-socket-error socket-host-down-error               :ehostdown)
  79 (define-socket-error socket-host-unreachable-error        :ehostunreach)
  80 (define-socket-error socket-already-connected-error       :eisconn)
  81 (define-socket-error socket-not-connected-error           :enotconn)
  82 (define-socket-error socket-option-not-supported-error    :enoprotoopt)
  83 (define-socket-error socket-operation-not-supported-error :eopnotsupp)
  84
  85 (defun socket-error (unix-error)
  86   (let* ((id (error-identifier unix-error))
  87          (condition (cdr (assoc id *socket-error-map*))))
  88     (if condition
  89         (error condition)
  90         (error unix-error))))
  91
  92 (defmacro with-socket-error-filter (&body body)
  93   `(handler-case
  94        (progn ,@body)
  95      (unix-error (err)
  96        (socket-error err))))