sockets/base-sockets.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
  24 (in-package #:net.sockets)
  25
  26 ;;;;;;;;;;;;;;;
  27 ;;;         ;;;
  28 ;;; Sockets ;;;
  29 ;;;         ;;;
  30 ;;;;;;;;;;;;;;;
  31
  32 (defclass socket ()
  33   ((fd       :reader socket-fd)
  34    (address  :initarg :address  :reader socket-address :type netaddr)
  35    (family   :initarg :family   :reader socket-family)
  36    (protocol :initarg :protocol :reader socket-protocol)))
  37
  38 (defgeneric socket-non-blocking-mode (socket))
  39 (defgeneric (setf socket-non-blocking-mode) (value socket))
  40
  41 (defgeneric socket-close (socket)
  42   (:method-combination progn :most-specific-last))
  43
  44 (defgeneric socket-open-p (socket))
  45
  46 (defgeneric local-name (socket))
  47
  48 (defgeneric remote-name (socket))
  49
  50 (defgeneric get-socket-option (socket option-name &key))
  51
  52 (defgeneric set-socket-option (socket option-name &key))
  53
  54 (defclass stream-socket (socket)
  55   ((lisp-stream :reader socket-lisp-stream))
  56   (:default-initargs :type :stream))
  57
  58 (defgeneric socket-send (buffer socket &key
  59                          dont-route dont-wait no-signal
  60                          out-of-band &allow-other-keys))
  61
  62 (defgeneric socket-receive (buffer socket &key
  63                             out-of-band peek wait-all
  64                             dont-wait &allow-other-keys))
  65
  66 (defclass datagram-socket (socket) ()
  67   (:default-initargs :type :datagram))
  68
  69 (defgeneric socket-unconnect (socket))
  70
  71 (defclass internet-socket (socket)
  72   ((port :reader port :type '(unsigned-byte 16)))
  73   (:default-initargs :family (if *ipv6* :ipv6 :ipv4)))
  74
  75 (defclass unix-socket (socket) ()
  76   (:default-initargs :family :unix))
  77
  78 (defclass active-socket (socket) ())
  79
  80 (defgeneric socket-connect (socket address &key &allow-other-keys))
  81
  82 (defgeneric socket-shutdown (socket direction))
  83
  84 (defclass passive-socket (socket) ())
  85
  86 (defgeneric socket-bind-address (socket address &key))
  87
  88 (defgeneric socket-listen (socket &key backlog))
  89
  90 (defgeneric socket-accept-connection (passive-socket &key wait))
  91
  92 (defclass socket-stream-internet-active (active-socket stream-socket internet-socket) ())
  93
  94 (defclass socket-stream-internet-passive (passive-socket stream-socket internet-socket) ())
  95
  96 (defclass socket-datagram-internet-active (active-socket datagram-socket internet-socket) ())
  97
  98 (defclass socket-datagram-internet-passive (passive-socket datagram-socket internet-socket) ())
  99
 100 (defclass socket-stream-unix-active (active-socket stream-socket unix-socket) ())
 101
 102 (defclass socket-stream-unix-passive (passive-socket stream-socket unix-socket) ())
 103
 104 (defclass socket-datagram-unix-active (active-socket datagram-socket unix-socket) ())
 105
 106 (defclass socket-datagram-unix-passive (passive-socket datagram-socket unix-socket) ())