From 4c5c9354a12a6b2ad75f144e2811b3fa31fbdcf2 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 5 May 2013 03:22:26 +0200 Subject: [PATCH] Introduce class named-address for protocol addresses with an explicit endpoint --- src/sockets/address.lisp | 10 +++++++--- src/sockets/pkgdcl.lisp | 1 + 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/src/sockets/address.lisp b/src/sockets/address.lisp index a45796b..9852543 100644 --- a/src/sockets/address.lisp +++ b/src/sockets/address.lisp @@ -8,10 +8,14 @@ ;;;; Class Definitions (defclass address () - ((name :initarg :name :reader address-name :type vector)) + () (:documentation "Base class for all socket address classes.")) -(defclass inet-address (address) () +(defclass named-address () + ((name :initarg :name :reader address-name :type vector)) + (:documentation "Base class for socket address with a name.")) + +(defclass inet-address (named-address) () (:documentation "Base class for IPv4 and IPv6 addresses.")) (defclass ipv4-address (inet-address) () @@ -24,7 +28,7 @@ ADDRESS-NAME reader.")) can be accessed as vector of type IPV6-ARRAY through the ADDRESS-NAME reader.")) -(defclass local-address (address) +(defclass local-address (named-address) ((abstract :initform nil :initarg :abstract :reader abstract-address-p :type boolean)) (:documentation "UNIX socket address.")) diff --git a/src/sockets/pkgdcl.lisp b/src/sockets/pkgdcl.lisp index a796daf..c1a91d9 100644 --- a/src/sockets/pkgdcl.lisp +++ b/src/sockets/pkgdcl.lisp @@ -58,6 +58,7 @@ ;; Address Classes #:address #:inet-address + #:named-address #:ipv4-address #:ipv6-address #:local-address -- 2.11.4.GIT