1 ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 ; Copyright (C) 2006 by Stelian Ionescu ;
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. ;
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. ;
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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22 (defun filter-adrinfo-according-to-hints (addrinfo hint-family
23 hint-type hint-protocol
)
24 (labels ((addrinfo-good-p (addr)
25 (and (or (zerop hint-family
) (eql hint-family
(slot addr
'et
::family
)))
26 (or (zerop hint-type
) (eql hint-type
(slot addr
'et
::type
)))
27 (eql hint-protocol
(slot addr
'et
::protocol
))))
29 (filter-addrinfo-recursive (addr list
)
30 (if (sb-alien::null-alien addr
)
32 (filter-addrinfo-recursive
34 (if (addrinfo-good-p addr
)
38 (filter-addrinfo-recursive addrinfo nil
)))