1 ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
3 ;; Copyright (C) 2006, 2007 Stelian Ionescu
5 ;; This code is free software; you can redistribute it and/or
6 ;; modify it under the terms of the version 2.1 of
7 ;; the GNU Lesser General Public License as published by
8 ;; the Free Software Foundation, as clarified by the
9 ;; preamble found here:
10 ;; http://opensource.franz.com/preamble.html
12 ;; This program is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU Lesser General
18 ;; Public License along with this library; if not, write to the
19 ;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
20 ;; Boston, MA 02110-1301, USA
22 (in-package :net.sockets
)
24 (defun make-socket (&key
25 (address-family :internet
)
30 (check-type address-family
(member :internet
:local
))
31 (check-type type
(member :stream
:datagram
))
32 (check-type connect
(member :active
:passive
))
33 (check-type ipv6
(member nil t
:ipv6
))
34 (when (eql address-family
:internet
)
35 (setf address-family
(if ipv6
:ipv6
:ipv4
)))
37 (select-socket-type address-family type connect protocol
)))
38 (make-instance socket-class
:family address-family
)))
40 (defun open-client-socket (family type address
&optional port
(ipv6 *ipv6
*))
41 (let* ((addr (ensure-address address family
))
42 (socket (make-socket :address-family family
47 (connect socket addr
:port port
)))
49 (defun open-server-socket (family address
&key
51 backlog
(ipv6 *ipv6
*))
52 (let* ((addr (ensure-address address family
))
53 (socket (make-socket :address-family family
57 (bind-address socket addr
:port port
58 :reuse-address reuse-address
)
59 (socket-listen socket
:backlog backlog
)))
61 (defmacro with-socket
((var &rest args
) &body body
)
62 `(with-open-stream (,var
(make-socket ,@args
)) ,@body
))
64 (defmacro with-client-socket
((var &key family type address port
(ipv6 nil ipv6p
)) &body body
)
65 `(with-open-stream (,var
,(if ipv6p
`(open-client-socket ,family
,type
,address
,port
,ipv6
)
66 `(open-client-socket ,family
,type
,address
,port
)))
69 (defmacro with-server-socket
((var &key address port reuse-address
70 backlog
(ipv6 nil ipv6p
)) &body body
)
71 `(with-open-stream (,var
,(if ipv6p
`(open-server-socket ,address
:port
,port
72 :reuse-address
,reuse-address
75 `(open-server-socket ,address
:port
,port
76 :reuse-address
,reuse-address