Home | History | Annotate | Line # | Download | only in netinet6
in6.c revision 1.23
      1  1.23   itojun /*	$NetBSD: in6.c,v 1.23 2000/03/02 07:14:52 itojun Exp $	*/
      2  1.23   itojun /*	$KAME: in6.c,v 1.56 2000/03/02 07:11:00 itojun Exp $	*/
      3   1.3  thorpej 
      4   1.2   itojun /*
      5   1.2   itojun  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
      6   1.2   itojun  * All rights reserved.
      7  1.18   itojun  *
      8   1.2   itojun  * Redistribution and use in source and binary forms, with or without
      9   1.2   itojun  * modification, are permitted provided that the following conditions
     10   1.2   itojun  * are met:
     11   1.2   itojun  * 1. Redistributions of source code must retain the above copyright
     12   1.2   itojun  *    notice, this list of conditions and the following disclaimer.
     13   1.2   itojun  * 2. Redistributions in binary form must reproduce the above copyright
     14   1.2   itojun  *    notice, this list of conditions and the following disclaimer in the
     15   1.2   itojun  *    documentation and/or other materials provided with the distribution.
     16   1.2   itojun  * 3. Neither the name of the project nor the names of its contributors
     17   1.2   itojun  *    may be used to endorse or promote products derived from this software
     18   1.2   itojun  *    without specific prior written permission.
     19  1.18   itojun  *
     20   1.2   itojun  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
     21   1.2   itojun  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     22   1.2   itojun  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     23   1.2   itojun  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
     24   1.2   itojun  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     25   1.2   itojun  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     26   1.2   itojun  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     27   1.2   itojun  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     28   1.2   itojun  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     29   1.2   itojun  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     30   1.2   itojun  * SUCH DAMAGE.
     31   1.2   itojun  */
     32   1.2   itojun 
     33   1.2   itojun /*
     34   1.2   itojun  * Copyright (c) 1982, 1986, 1991, 1993
     35   1.2   itojun  *	The Regents of the University of California.  All rights reserved.
     36   1.2   itojun  *
     37   1.2   itojun  * Redistribution and use in source and binary forms, with or without
     38   1.2   itojun  * modification, are permitted provided that the following conditions
     39   1.2   itojun  * are met:
     40   1.2   itojun  * 1. Redistributions of source code must retain the above copyright
     41   1.2   itojun  *    notice, this list of conditions and the following disclaimer.
     42   1.2   itojun  * 2. Redistributions in binary form must reproduce the above copyright
     43   1.2   itojun  *    notice, this list of conditions and the following disclaimer in the
     44   1.2   itojun  *    documentation and/or other materials provided with the distribution.
     45   1.2   itojun  * 3. All advertising materials mentioning features or use of this software
     46   1.2   itojun  *    must display the following acknowledgement:
     47   1.2   itojun  *	This product includes software developed by the University of
     48   1.2   itojun  *	California, Berkeley and its contributors.
     49   1.2   itojun  * 4. Neither the name of the University nor the names of its contributors
     50   1.2   itojun  *    may be used to endorse or promote products derived from this software
     51   1.2   itojun  *    without specific prior written permission.
     52   1.2   itojun  *
     53   1.2   itojun  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     54   1.2   itojun  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     55   1.2   itojun  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     56   1.2   itojun  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     57   1.2   itojun  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     58   1.2   itojun  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     59   1.2   itojun  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     60   1.2   itojun  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     61   1.2   itojun  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     62   1.2   itojun  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     63   1.2   itojun  * SUCH DAMAGE.
     64   1.2   itojun  *
     65   1.2   itojun  *	@(#)in.c	8.2 (Berkeley) 11/15/93
     66   1.2   itojun  */
     67   1.2   itojun 
     68   1.2   itojun #include "opt_inet.h"
     69   1.2   itojun 
     70   1.2   itojun #include <sys/param.h>
     71   1.2   itojun #include <sys/ioctl.h>
     72   1.2   itojun #include <sys/errno.h>
     73   1.2   itojun #include <sys/malloc.h>
     74   1.2   itojun #include <sys/socket.h>
     75   1.2   itojun #include <sys/socketvar.h>
     76   1.2   itojun #include <sys/sockio.h>
     77   1.2   itojun #include <sys/systm.h>
     78   1.2   itojun #include <sys/proc.h>
     79   1.2   itojun #include <sys/time.h>
     80   1.2   itojun #include <sys/kernel.h>
     81   1.8   itojun #include <sys/syslog.h>
     82   1.2   itojun 
     83   1.2   itojun #include <net/if.h>
     84   1.2   itojun #include <net/if_types.h>
     85   1.2   itojun #include <net/route.h>
     86   1.2   itojun #include "gif.h"
     87   1.2   itojun #if NGIF > 0
     88   1.2   itojun #include <net/if_gif.h>
     89   1.2   itojun #endif
     90   1.2   itojun #include <net/if_dl.h>
     91   1.2   itojun 
     92   1.2   itojun #include <netinet/in.h>
     93   1.2   itojun #include <netinet/in_var.h>
     94   1.2   itojun #include <net/if_ether.h>
     95   1.2   itojun 
     96   1.2   itojun #include <netinet6/nd6.h>
     97  1.16   itojun #include <netinet/ip6.h>
     98   1.8   itojun #include <netinet6/ip6_var.h>
     99   1.2   itojun #include <netinet6/mld6_var.h>
    100   1.2   itojun #include <netinet6/ip6_mroute.h>
    101   1.2   itojun #include <netinet6/in6_ifattach.h>
    102   1.2   itojun 
    103   1.8   itojun #include <net/net_osdep.h>
    104   1.8   itojun 
    105  1.20   itojun /* enable backward compatibility code for obsoleted ioctls */
    106  1.20   itojun #define COMPAT_IN6IFIOCTL
    107  1.20   itojun 
    108   1.2   itojun /*
    109   1.2   itojun  * Definitions of some costant IP6 addresses.
    110   1.2   itojun  */
    111   1.2   itojun const struct in6_addr in6addr_any = IN6ADDR_ANY_INIT;
    112   1.2   itojun const struct in6_addr in6addr_loopback = IN6ADDR_LOOPBACK_INIT;
    113   1.2   itojun const struct in6_addr in6addr_nodelocal_allnodes =
    114   1.2   itojun 	IN6ADDR_NODELOCAL_ALLNODES_INIT;
    115   1.2   itojun const struct in6_addr in6addr_linklocal_allnodes =
    116   1.2   itojun 	IN6ADDR_LINKLOCAL_ALLNODES_INIT;
    117   1.2   itojun const struct in6_addr in6addr_linklocal_allrouters =
    118   1.2   itojun 	IN6ADDR_LINKLOCAL_ALLROUTERS_INIT;
    119   1.2   itojun 
    120   1.2   itojun const struct in6_addr in6mask0 = IN6MASK0;
    121   1.2   itojun const struct in6_addr in6mask32 = IN6MASK32;
    122   1.2   itojun const struct in6_addr in6mask64 = IN6MASK64;
    123   1.2   itojun const struct in6_addr in6mask96 = IN6MASK96;
    124   1.2   itojun const struct in6_addr in6mask128 = IN6MASK128;
    125   1.2   itojun 
    126   1.2   itojun static int in6_lifaddr_ioctl __P((struct socket *, u_long, caddr_t,
    127   1.2   itojun 	struct ifnet *, struct proc *));
    128   1.2   itojun 
    129   1.2   itojun /*
    130   1.2   itojun  * This structure is used to keep track of in6_multi chains which belong to
    131   1.2   itojun  * deleted interface addresses.
    132   1.2   itojun  */
    133   1.2   itojun static LIST_HEAD(, multi6_kludge) in6_mk; /* XXX BSS initialization */
    134   1.2   itojun 
    135   1.2   itojun struct multi6_kludge {
    136   1.2   itojun 	LIST_ENTRY(multi6_kludge) mk_entry;
    137   1.2   itojun 	struct ifnet *mk_ifp;
    138   1.2   itojun 	struct in6_multihead mk_head;
    139   1.2   itojun };
    140   1.2   itojun 
    141   1.2   itojun /*
    142   1.2   itojun  * Check if the loopback entry will be automatically generated.
    143   1.2   itojun  *   if 0 returned, will not be automatically generated.
    144   1.2   itojun  *   if 1 returned, will be automatically generated.
    145   1.2   itojun  */
    146   1.2   itojun static int
    147   1.2   itojun in6_is_ifloop_auto(struct ifaddr *ifa)
    148   1.2   itojun {
    149   1.2   itojun #define SIN6(s) ((struct sockaddr_in6 *)s)
    150   1.2   itojun 	/*
    151   1.2   itojun 	 * If RTF_CLONING is unset, or (IFF_LOOPBACK | IFF_POINTOPOINT),
    152   1.2   itojun 	 * or netmask is all0 or all1, then cloning will not happen,
    153   1.2   itojun 	 * then we can't rely on its loopback entry generation.
    154   1.2   itojun 	 */
    155   1.2   itojun 	if ((ifa->ifa_flags & RTF_CLONING) == 0 ||
    156   1.2   itojun 	    (ifa->ifa_ifp->if_flags & (IFF_LOOPBACK | IFF_POINTOPOINT)) ||
    157   1.2   itojun 	    (SIN6(ifa->ifa_netmask)->sin6_len == sizeof(struct sockaddr_in6)
    158   1.2   itojun 	     &&
    159   1.2   itojun 	     IN6_ARE_ADDR_EQUAL(&SIN6(ifa->ifa_netmask)->sin6_addr,
    160   1.2   itojun 				&in6mask128)) ||
    161   1.2   itojun 	    ((struct sockaddr_in6 *)ifa->ifa_netmask)->sin6_len == 0)
    162   1.2   itojun 		return 0;
    163   1.2   itojun 	else
    164   1.2   itojun 		return 1;
    165   1.2   itojun #undef SIN6
    166   1.2   itojun }
    167   1.2   itojun 
    168   1.2   itojun /*
    169   1.2   itojun  * Subroutine for in6_ifaddloop() and in6_ifremloop().
    170   1.2   itojun  * This routine does actual work.
    171   1.2   itojun  */
    172   1.2   itojun static void
    173   1.2   itojun in6_ifloop_request(int cmd, struct ifaddr *ifa)
    174   1.2   itojun {
    175   1.2   itojun 	struct sockaddr_in6 lo_sa;
    176   1.2   itojun 	struct sockaddr_in6 all1_sa;
    177   1.2   itojun 	struct rtentry *nrt = NULL;
    178   1.2   itojun 
    179   1.2   itojun 	bzero(&lo_sa, sizeof(lo_sa));
    180   1.2   itojun 	bzero(&all1_sa, sizeof(all1_sa));
    181   1.2   itojun 	lo_sa.sin6_family = AF_INET6;
    182   1.2   itojun 	lo_sa.sin6_len = sizeof(struct sockaddr_in6);
    183   1.2   itojun 	all1_sa = lo_sa;
    184   1.2   itojun 	lo_sa.sin6_addr = in6addr_loopback;
    185   1.2   itojun 	all1_sa.sin6_addr = in6mask128;
    186   1.2   itojun 
    187   1.2   itojun 	/* So we add or remove static loopback entry, here. */
    188   1.2   itojun 	rtrequest(cmd, ifa->ifa_addr,
    189   1.2   itojun 		  (struct sockaddr *)&lo_sa,
    190   1.2   itojun 		  (struct sockaddr *)&all1_sa,
    191   1.2   itojun 		  RTF_UP|RTF_HOST, &nrt);
    192   1.2   itojun 
    193   1.2   itojun 	/*
    194   1.2   itojun 	 * Make sure rt_ifa be equal to IFA, the second argument of the
    195   1.2   itojun 	 * function.
    196   1.2   itojun 	 * We need this because when we refer rt_ifa->ia6_flags in ip6_input,
    197   1.2   itojun 	 * we assume that the rt_ifa points to the address instead of the
    198   1.2   itojun 	 * loopback address.
    199   1.2   itojun 	 */
    200   1.2   itojun 	if (cmd == RTM_ADD && nrt && ifa != nrt->rt_ifa) {
    201  1.10  thorpej 		IFAFREE(nrt->rt_ifa);
    202  1.10  thorpej 		IFAREF(ifa);
    203   1.2   itojun 		nrt->rt_ifa = ifa;
    204   1.2   itojun 	}
    205   1.2   itojun 	if (nrt)
    206   1.2   itojun 		nrt->rt_refcnt--;
    207   1.2   itojun }
    208   1.2   itojun 
    209   1.2   itojun /*
    210   1.2   itojun  * Add ownaddr as loopback rtentry, if necessary(ex. on p2p link).
    211   1.2   itojun  * Because, KAME needs loopback rtentry for ownaddr check in
    212   1.2   itojun  * ip6_input().
    213   1.2   itojun  */
    214   1.2   itojun static void
    215   1.2   itojun in6_ifaddloop(struct ifaddr *ifa)
    216   1.2   itojun {
    217   1.2   itojun 	if (!in6_is_ifloop_auto(ifa)) {
    218   1.2   itojun 		struct rtentry *rt;
    219   1.2   itojun 
    220   1.2   itojun 		/* If there is no loopback entry, allocate one. */
    221   1.9   itojun 		rt = rtalloc1(ifa->ifa_addr, 0);
    222   1.2   itojun 		if (rt == 0 || (rt->rt_ifp->if_flags & IFF_LOOPBACK) == 0)
    223   1.2   itojun 			in6_ifloop_request(RTM_ADD, ifa);
    224   1.2   itojun 		if (rt)
    225   1.2   itojun 			rt->rt_refcnt--;
    226   1.2   itojun 	}
    227   1.2   itojun }
    228   1.2   itojun 
    229   1.2   itojun /*
    230   1.2   itojun  * Remove loopback rtentry of ownaddr generated by in6_ifaddloop(),
    231   1.2   itojun  * if it exists.
    232   1.2   itojun  */
    233   1.2   itojun static void
    234   1.2   itojun in6_ifremloop(struct ifaddr *ifa)
    235   1.2   itojun {
    236   1.2   itojun 	if (!in6_is_ifloop_auto(ifa)) {
    237   1.2   itojun 		struct in6_ifaddr *ia;
    238   1.2   itojun 		int ia_count = 0;
    239   1.2   itojun 
    240   1.2   itojun 		/* If only one ifa for the loopback entry, delete it. */
    241   1.2   itojun 		for (ia = in6_ifaddr; ia; ia = ia->ia_next) {
    242   1.8   itojun 			if (IN6_ARE_ADDR_EQUAL(IFA_IN6(ifa),
    243   1.2   itojun 					       &ia->ia_addr.sin6_addr)) {
    244   1.2   itojun 				ia_count++;
    245   1.2   itojun 				if (ia_count > 1)
    246   1.2   itojun 					break;
    247   1.2   itojun 			}
    248   1.2   itojun 		}
    249   1.2   itojun 		if (ia_count == 1)
    250   1.2   itojun 			in6_ifloop_request(RTM_DELETE, ifa);
    251   1.2   itojun 	}
    252   1.2   itojun }
    253   1.2   itojun 
    254   1.2   itojun int
    255   1.8   itojun in6_ifindex2scopeid(idx)
    256   1.8   itojun 	int idx;
    257   1.8   itojun {
    258   1.8   itojun 	struct ifnet *ifp;
    259   1.8   itojun 	struct ifaddr *ifa;
    260   1.8   itojun 	struct sockaddr_in6 *sin6;
    261   1.8   itojun 
    262   1.8   itojun 	if (idx < 0 || if_index < idx)
    263   1.8   itojun 		return -1;
    264   1.8   itojun 	ifp = ifindex2ifnet[idx];
    265   1.8   itojun 
    266   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
    267   1.8   itojun 	{
    268   1.8   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
    269   1.8   itojun 			continue;
    270   1.8   itojun 		sin6 = (struct sockaddr_in6 *)ifa->ifa_addr;
    271   1.8   itojun 		if (IN6_IS_ADDR_SITELOCAL(&sin6->sin6_addr))
    272   1.8   itojun 			return sin6->sin6_scope_id & 0xffff;
    273   1.8   itojun 	}
    274   1.8   itojun 
    275   1.8   itojun 	return -1;
    276   1.8   itojun }
    277   1.8   itojun 
    278   1.8   itojun int
    279   1.2   itojun in6_mask2len(mask)
    280   1.2   itojun 	struct in6_addr *mask;
    281   1.2   itojun {
    282   1.2   itojun 	int x, y;
    283   1.2   itojun 
    284   1.2   itojun 	for (x = 0; x < sizeof(*mask); x++) {
    285   1.2   itojun 		if (mask->s6_addr8[x] != 0xff)
    286   1.2   itojun 			break;
    287   1.2   itojun 	}
    288   1.2   itojun 	y = 0;
    289   1.2   itojun 	if (x < sizeof(*mask)) {
    290   1.2   itojun 		for (y = 0; y < 8; y++) {
    291   1.2   itojun 			if ((mask->s6_addr8[x] & (0x80 >> y)) == 0)
    292   1.2   itojun 				break;
    293   1.2   itojun 		}
    294   1.2   itojun 	}
    295   1.2   itojun 	return x * 8 + y;
    296   1.2   itojun }
    297   1.2   itojun 
    298   1.2   itojun void
    299   1.2   itojun in6_len2mask(mask, len)
    300   1.2   itojun 	struct in6_addr *mask;
    301   1.2   itojun 	int len;
    302   1.2   itojun {
    303   1.2   itojun 	int i;
    304   1.2   itojun 
    305   1.2   itojun 	bzero(mask, sizeof(*mask));
    306   1.2   itojun 	for (i = 0; i < len / 8; i++)
    307   1.2   itojun 		mask->s6_addr8[i] = 0xff;
    308   1.2   itojun 	if (len % 8)
    309   1.2   itojun 		mask->s6_addr8[i] = (0xff00 >> (len % 8)) & 0xff;
    310   1.2   itojun }
    311   1.2   itojun 
    312   1.2   itojun #define ifa2ia6(ifa)	((struct in6_ifaddr *)(ifa))
    313  1.19   itojun #define ia62ifa(ia6)	(&((ia6)->ia_ifa))
    314   1.2   itojun 
    315   1.2   itojun int
    316   1.2   itojun in6_control(so, cmd, data, ifp, p)
    317   1.2   itojun 	struct	socket *so;
    318   1.2   itojun 	u_long cmd;
    319   1.2   itojun 	caddr_t	data;
    320   1.2   itojun 	struct ifnet *ifp;
    321   1.2   itojun 	struct proc *p;
    322   1.2   itojun {
    323   1.2   itojun 	struct	in6_ifreq *ifr = (struct in6_ifreq *)data;
    324   1.2   itojun 	struct	in6_ifaddr *ia, *oia;
    325   1.2   itojun 	struct	in6_aliasreq *ifra = (struct in6_aliasreq *)data;
    326  1.20   itojun 	struct	sockaddr_in6 oldaddr;
    327  1.20   itojun #ifdef COMPAT_IN6IFIOCTL
    328  1.20   itojun 	struct sockaddr_in6 net;
    329  1.20   itojun #endif
    330   1.2   itojun 	int	error = 0, hostIsNew, prefixIsNew;
    331   1.8   itojun 	time_t time_second = (time_t)time.tv_sec;
    332   1.8   itojun 	int privileged;
    333   1.8   itojun 
    334   1.8   itojun 	privileged = 0;
    335   1.8   itojun 	if (p && !suser(p->p_ucred, &p->p_acflag))
    336   1.8   itojun 		privileged++;
    337   1.2   itojun 
    338   1.2   itojun 	/*
    339   1.2   itojun 	 * xxx should prevent processes for link-local addresses?
    340   1.2   itojun 	 */
    341   1.2   itojun #if NGIF > 0
    342   1.2   itojun 	if (ifp && ifp->if_type == IFT_GIF) {
    343   1.2   itojun 		switch (cmd) {
    344   1.2   itojun 		case SIOCSIFPHYADDR_IN6:
    345   1.8   itojun 			if (!privileged)
    346   1.2   itojun 				return(EPERM);
    347   1.2   itojun 			/*fall through*/
    348   1.2   itojun 		case SIOCGIFPSRCADDR_IN6:
    349   1.2   itojun 		case SIOCGIFPDSTADDR_IN6:
    350   1.2   itojun 			return gif_ioctl(ifp, cmd, data);
    351   1.2   itojun 		}
    352   1.2   itojun 	}
    353   1.2   itojun #endif
    354   1.2   itojun 	switch (cmd) {
    355   1.2   itojun 	case SIOCGETSGCNT_IN6:
    356   1.2   itojun 	case SIOCGETMIFCNT_IN6:
    357   1.2   itojun 		return (mrt6_ioctl(cmd, data));
    358   1.2   itojun 	}
    359   1.2   itojun 
    360  1.20   itojun 	if (ifp == NULL)
    361   1.2   itojun 		return(EOPNOTSUPP);
    362   1.2   itojun 
    363   1.2   itojun 	switch (cmd) {
    364   1.2   itojun 	case SIOCSNDFLUSH_IN6:
    365   1.2   itojun 	case SIOCSPFXFLUSH_IN6:
    366   1.2   itojun 	case SIOCSRTRFLUSH_IN6:
    367   1.8   itojun 	case SIOCSDEFIFACE_IN6:
    368   1.8   itojun 		if (!privileged)
    369   1.2   itojun 			return(EPERM);
    370   1.2   itojun 		/*fall through*/
    371   1.2   itojun 	case SIOCGIFINFO_IN6:
    372   1.2   itojun 	case SIOCGDRLST_IN6:
    373   1.2   itojun 	case SIOCGPRLST_IN6:
    374   1.2   itojun 	case SIOCGNBRINFO_IN6:
    375   1.8   itojun 	case SIOCGDEFIFACE_IN6:
    376   1.2   itojun 		return(nd6_ioctl(cmd, data, ifp));
    377   1.2   itojun 	}
    378   1.2   itojun 
    379   1.2   itojun 	switch (cmd) {
    380   1.2   itojun 	case SIOCSIFPREFIX_IN6:
    381   1.2   itojun 	case SIOCDIFPREFIX_IN6:
    382   1.2   itojun 	case SIOCAIFPREFIX_IN6:
    383   1.2   itojun 	case SIOCCIFPREFIX_IN6:
    384   1.2   itojun 	case SIOCSGIFPREFIX_IN6:
    385   1.8   itojun 		if (!privileged)
    386   1.2   itojun 			return(EPERM);
    387   1.2   itojun 		/*fall through*/
    388   1.2   itojun 	case SIOCGIFPREFIX_IN6:
    389   1.8   itojun 		return(in6_prefix_ioctl(so, cmd, data, ifp));
    390   1.2   itojun 	}
    391   1.2   itojun 
    392   1.2   itojun 	switch (cmd) {
    393   1.2   itojun 	case SIOCALIFADDR:
    394   1.2   itojun 	case SIOCDLIFADDR:
    395   1.8   itojun 		if (!privileged)
    396   1.2   itojun 			return(EPERM);
    397   1.2   itojun 		/*fall through*/
    398   1.2   itojun 	case SIOCGLIFADDR:
    399   1.2   itojun 		return in6_lifaddr_ioctl(so, cmd, data, ifp, p);
    400   1.2   itojun 	}
    401   1.2   itojun 
    402   1.2   itojun 	/*
    403   1.2   itojun 	 * Find address for this interface, if it exists.
    404   1.2   itojun 	 */
    405  1.20   itojun 	if (ifra->ifra_addr.sin6_family == AF_INET6) { /* XXX */
    406   1.8   itojun 		struct sockaddr_in6 *sa6 =
    407   1.8   itojun 			(struct sockaddr_in6 *)&ifra->ifra_addr;
    408   1.8   itojun 
    409   1.8   itojun 		if (IN6_IS_ADDR_LINKLOCAL(&sa6->sin6_addr)) {
    410   1.8   itojun 			if (sa6->sin6_addr.s6_addr16[1] == 0) {
    411   1.2   itojun 				/* interface ID is not embedded by the user */
    412   1.8   itojun 				sa6->sin6_addr.s6_addr16[1] =
    413   1.8   itojun 					htons(ifp->if_index);
    414   1.2   itojun 			}
    415  1.20   itojun 			else if (sa6->sin6_addr.s6_addr16[1] !=
    416  1.20   itojun 				    htons(ifp->if_index)) {
    417  1.20   itojun 				return(EINVAL);	/* ifid is contradict */
    418  1.20   itojun 			}
    419   1.8   itojun 			if (sa6->sin6_scope_id) {
    420   1.8   itojun 				if (sa6->sin6_scope_id !=
    421   1.8   itojun 				    (u_int32_t)ifp->if_index)
    422   1.8   itojun 					return(EINVAL);
    423   1.8   itojun 				sa6->sin6_scope_id = 0; /* XXX: good way? */
    424   1.8   itojun 			}
    425   1.2   itojun 		}
    426  1.20   itojun 		ia = in6ifa_ifpwithaddr(ifp, &ifra->ifra_addr.sin6_addr);
    427   1.2   itojun 	}
    428   1.2   itojun 
    429   1.2   itojun 	switch (cmd) {
    430   1.2   itojun 
    431   1.2   itojun 	case SIOCDIFADDR_IN6:
    432  1.20   itojun 		/*
    433  1.20   itojun 		 * for IPv4, we look for existing in6_ifaddr here to allow
    434  1.20   itojun 		 * "ifconfig if0 delete" to remove first IPv4 address on the
    435  1.20   itojun 		 * interface.  For IPv6, as the spec allow multiple interface
    436  1.20   itojun 		 * address from the day one, we consider "remove the first one"
    437  1.20   itojun 		 * semantics to be not preferrable.
    438  1.20   itojun 		 */
    439  1.20   itojun 		if (ia == NULL)
    440   1.2   itojun 			return(EADDRNOTAVAIL);
    441   1.2   itojun 		/* FALLTHROUGH */
    442   1.2   itojun 	case SIOCAIFADDR_IN6:
    443   1.2   itojun 	case SIOCSIFADDR_IN6:
    444  1.20   itojun #ifdef COMPAT_IN6IFIOCTL
    445  1.20   itojun 	case SIOCSIFDSTADDR_IN6:
    446   1.2   itojun 	case SIOCSIFNETMASK_IN6:
    447  1.20   itojun 		/*
    448  1.20   itojun 		 * Since IPv6 allows a node to assign multiple addresses
    449  1.20   itojun 		 * on a single interface, SIOCSIFxxx ioctls are not suitable
    450  1.20   itojun 		 * and should be unused.
    451  1.20   itojun 		 */
    452  1.20   itojun #endif
    453  1.20   itojun 		if (ifra->ifra_addr.sin6_family != AF_INET6)
    454  1.20   itojun 			return(EAFNOSUPPORT);
    455   1.8   itojun 		if (!privileged)
    456   1.2   itojun 			return(EPERM);
    457  1.20   itojun 		if (ia == NULL) {
    458   1.2   itojun 			ia = (struct in6_ifaddr *)
    459   1.2   itojun 				malloc(sizeof(*ia), M_IFADDR, M_WAITOK);
    460   1.2   itojun 			if (ia == NULL)
    461   1.2   itojun 				return (ENOBUFS);
    462   1.2   itojun 			bzero((caddr_t)ia, sizeof(*ia));
    463  1.20   itojun 			/* Initialize the address and masks */
    464   1.2   itojun 			ia->ia_ifa.ifa_addr = (struct sockaddr *)&ia->ia_addr;
    465  1.20   itojun 			ia->ia_addr.sin6_family = AF_INET6;
    466  1.20   itojun 			ia->ia_addr.sin6_len = sizeof(ia->ia_addr);
    467  1.20   itojun 			if (ifp->if_flags & IFF_POINTOPOINT) {
    468  1.23   itojun 				ia->ia_ifa.ifa_dstaddr
    469  1.23   itojun 					= (struct sockaddr *)&ia->ia_dstaddr;
    470  1.20   itojun 				ia->ia_dstaddr.sin6_family = AF_INET6;
    471  1.20   itojun 				ia->ia_dstaddr.sin6_len = sizeof(ia->ia_dstaddr);
    472  1.23   itojun 			} else {
    473  1.23   itojun 				ia->ia_ifa.ifa_dstaddr = NULL;
    474  1.23   itojun 				bzero(&ia->ia_dstaddr, sizeof(ia->ia_dstaddr));
    475  1.20   itojun 			}
    476   1.2   itojun 			ia->ia_ifa.ifa_netmask
    477   1.2   itojun 				= (struct sockaddr *)&ia->ia_prefixmask;
    478   1.2   itojun 
    479   1.2   itojun 			ia->ia_ifp = ifp;
    480   1.2   itojun 			if ((oia = in6_ifaddr) != NULL) {
    481   1.2   itojun 				for ( ; oia->ia_next; oia = oia->ia_next)
    482   1.2   itojun 					continue;
    483   1.2   itojun 				oia->ia_next = ia;
    484   1.2   itojun 			} else
    485   1.2   itojun 				in6_ifaddr = ia;
    486  1.10  thorpej 			IFAREF(&ia->ia_ifa);
    487  1.10  thorpej 
    488  1.15   itojun 			TAILQ_INSERT_TAIL(&ifp->if_addrlist, &ia->ia_ifa,
    489  1.15   itojun 			    ifa_list);
    490  1.10  thorpej 			IFAREF(&ia->ia_ifa);
    491   1.2   itojun 		}
    492   1.2   itojun 
    493   1.2   itojun 		if (cmd == SIOCAIFADDR_IN6) {
    494   1.2   itojun 			/* sanity for overflow - beware unsigned */
    495   1.2   itojun 			struct in6_addrlifetime *lt;
    496   1.2   itojun 			lt = &ifra->ifra_lifetime;
    497   1.2   itojun 			if (lt->ia6t_vltime != ND6_INFINITE_LIFETIME
    498   1.2   itojun 			 && lt->ia6t_vltime + time_second < time_second) {
    499   1.2   itojun 				return EINVAL;
    500   1.2   itojun 			}
    501   1.2   itojun 			if (lt->ia6t_pltime != ND6_INFINITE_LIFETIME
    502   1.2   itojun 			 && lt->ia6t_pltime + time_second < time_second) {
    503   1.2   itojun 				return EINVAL;
    504   1.2   itojun 			}
    505   1.2   itojun 		}
    506   1.2   itojun 		break;
    507   1.2   itojun 
    508   1.2   itojun 	case SIOCGIFADDR_IN6:
    509   1.2   itojun 		/* This interface is basically deprecated. use SIOCGIFCONF. */
    510   1.2   itojun 		/* fall through */
    511   1.2   itojun 	case SIOCGIFAFLAG_IN6:
    512   1.2   itojun 	case SIOCGIFNETMASK_IN6:
    513   1.2   itojun 	case SIOCGIFDSTADDR_IN6:
    514   1.8   itojun 	case SIOCGIFALIFETIME_IN6:
    515   1.2   itojun 		/* must think again about its semantics */
    516  1.20   itojun 		if (ia == NULL)
    517   1.2   itojun 			return(EADDRNOTAVAIL);
    518   1.2   itojun 		break;
    519   1.2   itojun 	case SIOCSIFALIFETIME_IN6:
    520   1.2   itojun 	    {
    521   1.2   itojun 		struct in6_addrlifetime *lt;
    522   1.2   itojun 
    523   1.8   itojun 		if (!privileged)
    524   1.2   itojun 			return(EPERM);
    525  1.20   itojun 		if (ia == NULL)
    526   1.2   itojun 			return(EADDRNOTAVAIL);
    527   1.2   itojun 		/* sanity for overflow - beware unsigned */
    528   1.2   itojun 		lt = &ifr->ifr_ifru.ifru_lifetime;
    529   1.2   itojun 		if (lt->ia6t_vltime != ND6_INFINITE_LIFETIME
    530   1.2   itojun 		 && lt->ia6t_vltime + time_second < time_second) {
    531   1.2   itojun 			return EINVAL;
    532   1.2   itojun 		}
    533   1.2   itojun 		if (lt->ia6t_pltime != ND6_INFINITE_LIFETIME
    534   1.2   itojun 		 && lt->ia6t_pltime + time_second < time_second) {
    535   1.2   itojun 			return EINVAL;
    536   1.2   itojun 		}
    537   1.2   itojun 		break;
    538   1.2   itojun 	    }
    539   1.2   itojun 	}
    540   1.2   itojun 
    541   1.2   itojun 	switch (cmd) {
    542   1.2   itojun 
    543   1.2   itojun 	case SIOCGIFADDR_IN6:
    544   1.2   itojun 		ifr->ifr_addr = ia->ia_addr;
    545   1.2   itojun 		break;
    546   1.2   itojun 
    547   1.2   itojun 	case SIOCGIFDSTADDR_IN6:
    548   1.2   itojun 		if ((ifp->if_flags & IFF_POINTOPOINT) == 0)
    549   1.2   itojun 			return(EINVAL);
    550   1.2   itojun 		ifr->ifr_dstaddr = ia->ia_dstaddr;
    551   1.2   itojun 		break;
    552   1.2   itojun 
    553   1.2   itojun 	case SIOCGIFNETMASK_IN6:
    554   1.2   itojun 		ifr->ifr_addr = ia->ia_prefixmask;
    555   1.2   itojun 		break;
    556   1.2   itojun 
    557   1.2   itojun 	case SIOCGIFAFLAG_IN6:
    558   1.2   itojun 		ifr->ifr_ifru.ifru_flags6 = ia->ia6_flags;
    559   1.2   itojun 		break;
    560  1.18   itojun 
    561   1.8   itojun 	case SIOCGIFSTAT_IN6:
    562   1.8   itojun 		if (ifp == NULL)
    563   1.8   itojun 			return EINVAL;
    564   1.8   itojun 		if (in6_ifstat == NULL || ifp->if_index >= in6_ifstatmax
    565   1.8   itojun 		 || in6_ifstat[ifp->if_index] == NULL) {
    566   1.8   itojun 			/* return EAFNOSUPPORT? */
    567   1.8   itojun 			bzero(&ifr->ifr_ifru.ifru_stat,
    568   1.8   itojun 				sizeof(ifr->ifr_ifru.ifru_stat));
    569   1.8   itojun 		} else
    570   1.8   itojun 			ifr->ifr_ifru.ifru_stat = *in6_ifstat[ifp->if_index];
    571   1.8   itojun 		break;
    572   1.8   itojun 
    573   1.8   itojun 	case SIOCGIFSTAT_ICMP6:
    574   1.8   itojun 		if (ifp == NULL)
    575   1.8   itojun 			return EINVAL;
    576   1.8   itojun 		if (icmp6_ifstat == NULL || ifp->if_index >= icmp6_ifstatmax ||
    577   1.8   itojun 		    icmp6_ifstat[ifp->if_index] == NULL) {
    578   1.8   itojun 			/* return EAFNOSUPPORT? */
    579   1.8   itojun 			bzero(&ifr->ifr_ifru.ifru_stat,
    580   1.8   itojun 				sizeof(ifr->ifr_ifru.ifru_icmp6stat));
    581   1.8   itojun 		} else
    582   1.8   itojun 			ifr->ifr_ifru.ifru_icmp6stat =
    583   1.8   itojun 				*icmp6_ifstat[ifp->if_index];
    584   1.8   itojun 		break;
    585   1.8   itojun 
    586  1.20   itojun #ifdef COMPAT_IN6IFIOCTL		/* should be unused */
    587   1.2   itojun 	case SIOCSIFDSTADDR_IN6:
    588   1.2   itojun 		if ((ifp->if_flags & IFF_POINTOPOINT) == 0)
    589   1.2   itojun 			return(EINVAL);
    590   1.2   itojun 		oldaddr = ia->ia_dstaddr;
    591   1.2   itojun 		ia->ia_dstaddr = ifr->ifr_dstaddr;
    592   1.2   itojun 
    593   1.2   itojun 		/* link-local index check */
    594   1.2   itojun 		if (IN6_IS_ADDR_LINKLOCAL(&ia->ia_dstaddr.sin6_addr)) {
    595   1.2   itojun 			if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] == 0) {
    596   1.2   itojun 				/* interface ID is not embedded by the user */
    597   1.2   itojun 				ia->ia_dstaddr.sin6_addr.s6_addr16[1]
    598   1.2   itojun 					= htons(ifp->if_index);
    599   1.2   itojun 			}
    600  1.20   itojun 			else if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] !=
    601   1.2   itojun 				    htons(ifp->if_index)) {
    602  1.20   itojun 				ia->ia_dstaddr = oldaddr;
    603  1.20   itojun 				return(EINVAL);	/* ifid is contradict */
    604  1.20   itojun 			}
    605   1.2   itojun 		}
    606   1.2   itojun 
    607   1.2   itojun 		if (ifp->if_ioctl && (error = (ifp->if_ioctl)
    608   1.2   itojun 				      (ifp, SIOCSIFDSTADDR, (caddr_t)ia))) {
    609   1.2   itojun 			ia->ia_dstaddr = oldaddr;
    610   1.2   itojun 			return(error);
    611   1.2   itojun 		}
    612   1.2   itojun 		if (ia->ia_flags & IFA_ROUTE) {
    613   1.2   itojun 			ia->ia_ifa.ifa_dstaddr = (struct sockaddr *)&oldaddr;
    614   1.2   itojun 			rtinit(&(ia->ia_ifa), (int)RTM_DELETE, RTF_HOST);
    615   1.2   itojun 			ia->ia_ifa.ifa_dstaddr =
    616   1.2   itojun 				(struct sockaddr *)&ia->ia_dstaddr;
    617   1.2   itojun 			rtinit(&(ia->ia_ifa), (int)RTM_ADD, RTF_HOST|RTF_UP);
    618   1.2   itojun 		}
    619   1.2   itojun 		break;
    620   1.2   itojun 
    621  1.20   itojun #endif
    622   1.2   itojun 	case SIOCGIFALIFETIME_IN6:
    623   1.2   itojun 		ifr->ifr_ifru.ifru_lifetime = ia->ia6_lifetime;
    624   1.2   itojun 		break;
    625   1.2   itojun 
    626   1.2   itojun 	case SIOCSIFALIFETIME_IN6:
    627   1.2   itojun 		ia->ia6_lifetime = ifr->ifr_ifru.ifru_lifetime;
    628   1.2   itojun 		/* for sanity */
    629   1.2   itojun 		if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME) {
    630   1.2   itojun 			ia->ia6_lifetime.ia6t_expire =
    631   1.2   itojun 				time_second + ia->ia6_lifetime.ia6t_vltime;
    632   1.2   itojun 		} else
    633   1.2   itojun 			ia->ia6_lifetime.ia6t_expire = 0;
    634   1.2   itojun 		if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME) {
    635   1.2   itojun 			ia->ia6_lifetime.ia6t_preferred =
    636   1.2   itojun 				time_second + ia->ia6_lifetime.ia6t_pltime;
    637   1.2   itojun 		} else
    638   1.2   itojun 			ia->ia6_lifetime.ia6t_preferred = 0;
    639   1.2   itojun 		break;
    640   1.2   itojun 
    641   1.2   itojun 	case SIOCSIFADDR_IN6:
    642   1.2   itojun 		return(in6_ifinit(ifp, ia, &ifr->ifr_addr, 1));
    643   1.2   itojun 
    644  1.20   itojun #ifdef COMPAT_IN6IFIOCTL		/* XXX should be unused */
    645   1.2   itojun 	case SIOCSIFNETMASK_IN6:
    646   1.2   itojun 		ia->ia_prefixmask = ifr->ifr_addr;
    647   1.2   itojun 		bzero(&net, sizeof(net));
    648   1.2   itojun 		net.sin6_len = sizeof(struct sockaddr_in6);
    649   1.2   itojun 		net.sin6_family = AF_INET6;
    650   1.2   itojun 		net.sin6_port = htons(0);
    651   1.2   itojun 		net.sin6_flowinfo = htonl(0);
    652   1.2   itojun 		net.sin6_addr.s6_addr32[0]
    653   1.2   itojun 			= ia->ia_addr.sin6_addr.s6_addr32[0] &
    654   1.2   itojun 				ia->ia_prefixmask.sin6_addr.s6_addr32[0];
    655   1.2   itojun 		net.sin6_addr.s6_addr32[1]
    656   1.2   itojun 			= ia->ia_addr.sin6_addr.s6_addr32[1] &
    657   1.2   itojun 				ia->ia_prefixmask.sin6_addr.s6_addr32[1];
    658   1.2   itojun 		net.sin6_addr.s6_addr32[2]
    659   1.2   itojun 			= ia->ia_addr.sin6_addr.s6_addr32[2] &
    660   1.2   itojun 				ia->ia_prefixmask.sin6_addr.s6_addr32[2];
    661   1.2   itojun 		net.sin6_addr.s6_addr32[3]
    662   1.2   itojun 			= ia->ia_addr.sin6_addr.s6_addr32[3] &
    663   1.2   itojun 				ia->ia_prefixmask.sin6_addr.s6_addr32[3];
    664   1.2   itojun 		ia->ia_net = net;
    665   1.2   itojun 		break;
    666  1.20   itojun #endif
    667   1.2   itojun 
    668   1.2   itojun 	case SIOCAIFADDR_IN6:
    669   1.2   itojun 		prefixIsNew = 0;
    670   1.2   itojun 		hostIsNew = 1;
    671   1.2   itojun 
    672   1.2   itojun 		if (ifra->ifra_addr.sin6_len == 0) {
    673   1.2   itojun 			ifra->ifra_addr = ia->ia_addr;
    674   1.2   itojun 			hostIsNew = 0;
    675   1.2   itojun 		} else if (IN6_ARE_ADDR_EQUAL(&ifra->ifra_addr.sin6_addr,
    676   1.2   itojun 					      &ia->ia_addr.sin6_addr))
    677   1.2   itojun 			hostIsNew = 0;
    678   1.2   itojun 
    679  1.20   itojun 		/* Validate address families: */
    680  1.20   itojun 		/*
    681  1.20   itojun 		 * The destination address for a p2p link must have a family
    682  1.20   itojun 		 * of AF_UNSPEC or AF_INET6.
    683  1.20   itojun 		 */
    684  1.20   itojun 		if ((ifp->if_flags & IFF_POINTOPOINT) != 0 &&
    685  1.20   itojun 		    ifra->ifra_dstaddr.sin6_family != AF_INET6 &&
    686  1.20   itojun 		    ifra->ifra_dstaddr.sin6_family != AF_UNSPEC)
    687  1.20   itojun 			return(EAFNOSUPPORT);
    688  1.20   itojun 		/*
    689  1.20   itojun 		 * The prefixmask must have a family of AF_UNSPEC or AF_INET6.
    690  1.20   itojun 		 */
    691  1.20   itojun 		if (ifra->ifra_prefixmask.sin6_family != AF_INET6 &&
    692  1.20   itojun 		    ifra->ifra_prefixmask.sin6_family != AF_UNSPEC)
    693  1.20   itojun 			return(EAFNOSUPPORT);
    694  1.20   itojun 
    695   1.2   itojun 		if (ifra->ifra_prefixmask.sin6_len) {
    696   1.2   itojun 			in6_ifscrub(ifp, ia);
    697   1.2   itojun 			ia->ia_prefixmask = ifra->ifra_prefixmask;
    698   1.2   itojun 			prefixIsNew = 1;
    699   1.2   itojun 		}
    700   1.2   itojun 		if ((ifp->if_flags & IFF_POINTOPOINT) &&
    701   1.2   itojun 		    (ifra->ifra_dstaddr.sin6_family == AF_INET6)) {
    702   1.2   itojun 			in6_ifscrub(ifp, ia);
    703  1.17   itojun 			oldaddr = ia->ia_dstaddr;
    704   1.2   itojun 			ia->ia_dstaddr = ifra->ifra_dstaddr;
    705   1.2   itojun 			/* link-local index check: should be a separate function? */
    706   1.2   itojun 			if (IN6_IS_ADDR_LINKLOCAL(&ia->ia_dstaddr.sin6_addr)) {
    707   1.2   itojun 				if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] == 0) {
    708   1.2   itojun 					/*
    709   1.2   itojun 					 * interface ID is not embedded by
    710   1.2   itojun 					 * the user
    711   1.2   itojun 					 */
    712   1.2   itojun 					ia->ia_dstaddr.sin6_addr.s6_addr16[1]
    713   1.2   itojun 						= htons(ifp->if_index);
    714  1.20   itojun 				} else if (ia->ia_dstaddr.sin6_addr.s6_addr16[1] !=
    715  1.20   itojun 					    htons(ifp->if_index)) {
    716  1.20   itojun 					ia->ia_dstaddr = oldaddr;
    717  1.20   itojun 					return(EINVAL);	/* ifid is contradict */
    718   1.2   itojun 				}
    719   1.2   itojun 			}
    720   1.2   itojun 			prefixIsNew = 1; /* We lie; but effect's the same */
    721   1.2   itojun 		}
    722  1.20   itojun 		if (hostIsNew || prefixIsNew)
    723   1.2   itojun 			error = in6_ifinit(ifp, ia, &ifra->ifra_addr, 0);
    724  1.20   itojun 		if (hostIsNew && (ifp->if_flags & IFF_MULTICAST)) {
    725   1.2   itojun 			int error_local = 0;
    726   1.2   itojun 
    727   1.2   itojun 			/*
    728   1.2   itojun 			 * join solicited multicast addr for new host id
    729   1.2   itojun 			 */
    730   1.2   itojun 			struct in6_addr llsol;
    731   1.2   itojun 			bzero(&llsol, sizeof(struct in6_addr));
    732   1.2   itojun 			llsol.s6_addr16[0] = htons(0xff02);
    733   1.2   itojun 			llsol.s6_addr16[1] = htons(ifp->if_index);
    734   1.2   itojun 			llsol.s6_addr32[1] = 0;
    735   1.2   itojun 			llsol.s6_addr32[2] = htonl(1);
    736   1.2   itojun 			llsol.s6_addr32[3] =
    737   1.2   itojun 				ifra->ifra_addr.sin6_addr.s6_addr32[3];
    738   1.2   itojun 			llsol.s6_addr8[12] = 0xff;
    739   1.2   itojun 			(void)in6_addmulti(&llsol, ifp, &error_local);
    740   1.2   itojun 			if (error == 0)
    741   1.2   itojun 				error = error_local;
    742   1.2   itojun 		}
    743   1.2   itojun 
    744   1.2   itojun 		ia->ia6_flags = ifra->ifra_flags;
    745   1.2   itojun 		ia->ia6_flags &= ~IN6_IFF_DUPLICATED;	/*safety*/
    746   1.2   itojun 
    747   1.2   itojun 		ia->ia6_lifetime = ifra->ifra_lifetime;
    748   1.2   itojun 		/* for sanity */
    749   1.2   itojun 		if (ia->ia6_lifetime.ia6t_vltime != ND6_INFINITE_LIFETIME) {
    750   1.2   itojun 			ia->ia6_lifetime.ia6t_expire =
    751   1.2   itojun 				time_second + ia->ia6_lifetime.ia6t_vltime;
    752   1.2   itojun 		} else
    753   1.2   itojun 			ia->ia6_lifetime.ia6t_expire = 0;
    754   1.2   itojun 		if (ia->ia6_lifetime.ia6t_pltime != ND6_INFINITE_LIFETIME) {
    755   1.2   itojun 			ia->ia6_lifetime.ia6t_preferred =
    756   1.2   itojun 				time_second + ia->ia6_lifetime.ia6t_pltime;
    757   1.2   itojun 		} else
    758   1.2   itojun 			ia->ia6_lifetime.ia6t_preferred = 0;
    759   1.2   itojun 
    760   1.2   itojun 		/*
    761  1.18   itojun 		 * Perform DAD, if needed.
    762   1.2   itojun 		 * XXX It may be of use, if we can administratively
    763   1.2   itojun 		 * disable DAD.
    764   1.2   itojun 		 */
    765   1.2   itojun 		switch (ifp->if_type) {
    766   1.6       is 		case IFT_ARCNET:
    767   1.2   itojun 		case IFT_ETHER:
    768   1.2   itojun 		case IFT_FDDI:
    769   1.2   itojun #if 0
    770   1.2   itojun 		case IFT_ATM:
    771   1.2   itojun 		case IFT_SLIP:
    772   1.2   itojun 		case IFT_PPP:
    773   1.2   itojun #endif
    774   1.2   itojun 			ia->ia6_flags |= IN6_IFF_TENTATIVE;
    775  1.15   itojun 			nd6_dad_start(&ia->ia_ifa, NULL);
    776   1.2   itojun 			break;
    777   1.8   itojun 		case IFT_FAITH:
    778   1.2   itojun 		case IFT_GIF:
    779   1.2   itojun 		case IFT_LOOP:
    780   1.2   itojun 		default:
    781   1.2   itojun 			break;
    782   1.2   itojun 		}
    783   1.2   itojun 
    784   1.8   itojun 		if (hostIsNew) {
    785   1.8   itojun 			int iilen;
    786   1.8   itojun 			int error_local = 0;
    787   1.8   itojun 
    788   1.8   itojun 			iilen = (sizeof(ia->ia_prefixmask.sin6_addr) << 3) -
    789   1.8   itojun 				in6_mask2len(&ia->ia_prefixmask.sin6_addr);
    790   1.8   itojun 			error_local = in6_prefix_add_ifid(iilen, ia);
    791   1.8   itojun 			if (error == 0)
    792   1.8   itojun 				error = error_local;
    793   1.8   itojun 		}
    794   1.8   itojun 
    795   1.2   itojun 		return(error);
    796   1.2   itojun 
    797   1.2   itojun 	case SIOCDIFADDR_IN6:
    798  1.10  thorpej 		in6_purgeaddr(&ia->ia_ifa, ifp);
    799   1.2   itojun 		break;
    800   1.2   itojun 
    801   1.2   itojun 	default:
    802  1.20   itojun 		if (ifp == NULL || ifp->if_ioctl == 0)
    803   1.2   itojun 			return(EOPNOTSUPP);
    804   1.2   itojun 		return((*ifp->if_ioctl)(ifp, cmd, data));
    805   1.2   itojun 	}
    806   1.2   itojun 	return(0);
    807   1.2   itojun }
    808   1.2   itojun 
    809  1.10  thorpej void
    810  1.10  thorpej in6_purgeaddr(ifa, ifp)
    811  1.10  thorpej 	struct ifaddr *ifa;
    812  1.10  thorpej 	struct ifnet *ifp;
    813  1.10  thorpej {
    814  1.10  thorpej 	struct in6_ifaddr *oia, *ia = (void *) ifa;
    815  1.10  thorpej 
    816  1.10  thorpej 	in6_ifscrub(ifp, ia);
    817  1.10  thorpej 
    818  1.10  thorpej 	if (ifp->if_flags & IFF_MULTICAST) {
    819  1.10  thorpej 		/*
    820  1.10  thorpej 		 * delete solicited multicast addr for deleting host id
    821  1.10  thorpej 		 */
    822  1.10  thorpej 		struct in6_multi *in6m;
    823  1.10  thorpej 		struct in6_addr llsol;
    824  1.10  thorpej 		bzero(&llsol, sizeof(struct in6_addr));
    825  1.10  thorpej 		llsol.s6_addr16[0] = htons(0xff02);
    826  1.10  thorpej 		llsol.s6_addr16[1] = htons(ifp->if_index);
    827  1.10  thorpej 		llsol.s6_addr32[1] = 0;
    828  1.10  thorpej 		llsol.s6_addr32[2] = htonl(1);
    829  1.10  thorpej 		llsol.s6_addr32[3] =
    830  1.10  thorpej 			ia->ia_addr.sin6_addr.s6_addr32[3];
    831  1.10  thorpej 		llsol.s6_addr8[12] = 0xff;
    832  1.10  thorpej 
    833  1.10  thorpej 		IN6_LOOKUP_MULTI(llsol, ifp, in6m);
    834  1.10  thorpej 		if (in6m)
    835  1.10  thorpej 			in6_delmulti(in6m);
    836  1.10  thorpej 	}
    837  1.10  thorpej 
    838  1.10  thorpej 	TAILQ_REMOVE(&ifp->if_addrlist, &ia->ia_ifa, ifa_list);
    839  1.10  thorpej 	IFAFREE(&ia->ia_ifa);
    840  1.10  thorpej 
    841  1.10  thorpej 	oia = ia;
    842  1.10  thorpej 	if (oia == (ia = in6_ifaddr))
    843  1.10  thorpej 		in6_ifaddr = ia->ia_next;
    844  1.10  thorpej 	else {
    845  1.10  thorpej 		while (ia->ia_next && (ia->ia_next != oia))
    846  1.10  thorpej 			ia = ia->ia_next;
    847  1.10  thorpej 		if (ia->ia_next)
    848  1.10  thorpej 			ia->ia_next = oia->ia_next;
    849  1.10  thorpej 		else
    850  1.10  thorpej 			printf("Didn't unlink in6_ifaddr from list\n");
    851  1.10  thorpej 	}
    852  1.10  thorpej 	{
    853  1.10  thorpej 		int iilen;
    854  1.10  thorpej 
    855  1.10  thorpej 		iilen = (sizeof(oia->ia_prefixmask.sin6_addr) << 3) -
    856  1.10  thorpej 			in6_mask2len(&oia->ia_prefixmask.sin6_addr);
    857  1.10  thorpej 		in6_prefix_remove_ifid(iilen, oia);
    858  1.10  thorpej 	}
    859  1.10  thorpej 	if (oia->ia6_multiaddrs.lh_first != NULL) {
    860  1.10  thorpej 		/*
    861  1.10  thorpej 		 * XXX thorpej (at) netbsd.org -- if the interface is going
    862  1.10  thorpej 		 * XXX away, don't save the multicast entries, delete them!
    863  1.10  thorpej 		 */
    864  1.10  thorpej 		if (oia->ia_ifa.ifa_ifp->if_output == if_nulloutput) {
    865  1.10  thorpej 			struct in6_multi *in6m;
    866  1.10  thorpej 
    867  1.10  thorpej 			while ((in6m =
    868  1.10  thorpej 			    LIST_FIRST(&oia->ia6_multiaddrs)) != NULL)
    869  1.10  thorpej 				in6_delmulti(in6m);
    870  1.10  thorpej 		} else
    871  1.10  thorpej 			in6_savemkludge(oia);
    872  1.10  thorpej 	}
    873  1.10  thorpej 
    874  1.10  thorpej 	IFAFREE(&oia->ia_ifa);
    875  1.14  thorpej }
    876  1.11   itojun 
    877  1.14  thorpej void
    878  1.14  thorpej in6_purgeif(ifp)
    879  1.14  thorpej 	struct ifnet *ifp;
    880  1.14  thorpej {
    881  1.14  thorpej 	struct ifaddr *ifa, *nifa;
    882  1.11   itojun 
    883  1.14  thorpej 	for (ifa = TAILQ_FIRST(&ifp->if_addrlist); ifa != NULL; ifa = nifa) {
    884  1.14  thorpej 		nifa = TAILQ_NEXT(ifa, ifa_list);
    885  1.14  thorpej 		if (ifa->ifa_addr->sa_family != AF_INET6)
    886  1.14  thorpej 			continue;
    887  1.14  thorpej 		in6_purgeaddr(ifa, ifp);
    888  1.11   itojun 	}
    889  1.14  thorpej 
    890  1.14  thorpej 	in6_ifdetach(ifp);
    891  1.10  thorpej }
    892  1.10  thorpej 
    893   1.2   itojun /*
    894   1.2   itojun  * SIOC[GAD]LIFADDR.
    895   1.2   itojun  *	SIOCGLIFADDR: get first address. (???)
    896   1.2   itojun  *	SIOCGLIFADDR with IFLR_PREFIX:
    897   1.2   itojun  *		get first address that matches the specified prefix.
    898   1.2   itojun  *	SIOCALIFADDR: add the specified address.
    899   1.2   itojun  *	SIOCALIFADDR with IFLR_PREFIX:
    900   1.2   itojun  *		add the specified prefix, filling hostid part from
    901   1.2   itojun  *		the first link-local address.  prefixlen must be <= 64.
    902   1.2   itojun  *	SIOCDLIFADDR: delete the specified address.
    903   1.2   itojun  *	SIOCDLIFADDR with IFLR_PREFIX:
    904   1.2   itojun  *		delete the first address that matches the specified prefix.
    905   1.2   itojun  * return values:
    906   1.2   itojun  *	EINVAL on invalid parameters
    907   1.2   itojun  *	EADDRNOTAVAIL on prefix match failed/specified address not found
    908   1.2   itojun  *	other values may be returned from in6_ioctl()
    909   1.2   itojun  *
    910   1.2   itojun  * NOTE: SIOCALIFADDR(with IFLR_PREFIX set) allows prefixlen less than 64.
    911   1.2   itojun  * this is to accomodate address naming scheme other than RFC2374,
    912   1.2   itojun  * in the future.
    913   1.2   itojun  * RFC2373 defines interface id to be 64bit, but it allows non-RFC2374
    914   1.2   itojun  * address encoding scheme. (see figure on page 8)
    915   1.2   itojun  */
    916   1.2   itojun static int
    917   1.2   itojun in6_lifaddr_ioctl(so, cmd, data, ifp, p)
    918   1.2   itojun 	struct socket *so;
    919   1.2   itojun 	u_long cmd;
    920   1.2   itojun 	caddr_t	data;
    921   1.2   itojun 	struct ifnet *ifp;
    922   1.2   itojun 	struct proc *p;
    923   1.2   itojun {
    924   1.2   itojun 	struct if_laddrreq *iflr = (struct if_laddrreq *)data;
    925   1.2   itojun 	struct ifaddr *ifa;
    926   1.8   itojun 	struct sockaddr *sa;
    927   1.2   itojun 
    928   1.2   itojun 	/* sanity checks */
    929   1.2   itojun 	if (!data || !ifp) {
    930   1.2   itojun 		panic("invalid argument to in6_lifaddr_ioctl");
    931   1.2   itojun 		/*NOTRECHED*/
    932   1.2   itojun 	}
    933   1.2   itojun 
    934   1.2   itojun 	switch (cmd) {
    935   1.2   itojun 	case SIOCGLIFADDR:
    936   1.2   itojun 		/* address must be specified on GET with IFLR_PREFIX */
    937   1.2   itojun 		if ((iflr->flags & IFLR_PREFIX) == 0)
    938   1.2   itojun 			break;
    939   1.2   itojun 		/*FALLTHROUGH*/
    940   1.2   itojun 	case SIOCALIFADDR:
    941   1.2   itojun 	case SIOCDLIFADDR:
    942   1.2   itojun 		/* address must be specified on ADD and DELETE */
    943   1.8   itojun 		sa = (struct sockaddr *)&iflr->addr;
    944   1.8   itojun 		if (sa->sa_family != AF_INET6)
    945   1.2   itojun 			return EINVAL;
    946   1.8   itojun 		if (sa->sa_len != sizeof(struct sockaddr_in6))
    947   1.2   itojun 			return EINVAL;
    948   1.2   itojun 		/* XXX need improvement */
    949   1.8   itojun 		sa = (struct sockaddr *)&iflr->dstaddr;
    950   1.8   itojun 		if (sa->sa_family && sa->sa_family != AF_INET6)
    951   1.2   itojun 			return EINVAL;
    952   1.8   itojun 		if (sa->sa_len && sa->sa_len != sizeof(struct sockaddr_in6))
    953   1.2   itojun 			return EINVAL;
    954   1.2   itojun 		break;
    955   1.2   itojun 	default: /*shouldn't happen*/
    956   1.2   itojun #if 0
    957   1.2   itojun 		panic("invalid cmd to in6_lifaddr_ioctl");
    958   1.2   itojun 		/*NOTREACHED*/
    959   1.2   itojun #else
    960   1.2   itojun 		return EOPNOTSUPP;
    961   1.2   itojun #endif
    962   1.2   itojun 	}
    963   1.2   itojun 	if (sizeof(struct in6_addr) * 8 < iflr->prefixlen)
    964   1.2   itojun 		return EINVAL;
    965   1.2   itojun 
    966   1.2   itojun 	switch (cmd) {
    967   1.2   itojun 	case SIOCALIFADDR:
    968   1.2   itojun 	    {
    969   1.2   itojun 		struct in6_aliasreq ifra;
    970   1.2   itojun 		struct in6_addr *hostid = NULL;
    971   1.2   itojun 		int prefixlen;
    972   1.2   itojun 
    973   1.2   itojun 		if ((iflr->flags & IFLR_PREFIX) != 0) {
    974   1.2   itojun 			struct sockaddr_in6 *sin6;
    975   1.2   itojun 
    976   1.2   itojun 			/*
    977   1.2   itojun 			 * hostid is to fill in the hostid part of the
    978   1.2   itojun 			 * address.  hostid points to the first link-local
    979   1.2   itojun 			 * address attached to the interface.
    980   1.2   itojun 			 */
    981  1.21   itojun 			ifa = (struct ifaddr *)in6ifa_ifpforlinklocal(ifp, 0);
    982   1.2   itojun 			if (!ifa)
    983   1.2   itojun 				return EADDRNOTAVAIL;
    984   1.8   itojun 			hostid = IFA_IN6(ifa);
    985   1.2   itojun 
    986   1.2   itojun 		 	/* prefixlen must be <= 64. */
    987   1.2   itojun 			if (64 < iflr->prefixlen)
    988   1.2   itojun 				return EINVAL;
    989   1.2   itojun 			prefixlen = iflr->prefixlen;
    990   1.2   itojun 
    991   1.2   itojun 			/* hostid part must be zero. */
    992   1.2   itojun 			sin6 = (struct sockaddr_in6 *)&iflr->addr;
    993   1.2   itojun 			if (sin6->sin6_addr.s6_addr32[2] != 0
    994   1.2   itojun 			 || sin6->sin6_addr.s6_addr32[3] != 0) {
    995   1.2   itojun 				return EINVAL;
    996   1.2   itojun 			}
    997   1.2   itojun 		} else
    998   1.2   itojun 			prefixlen = iflr->prefixlen;
    999   1.2   itojun 
   1000   1.2   itojun 		/* copy args to in6_aliasreq, perform ioctl(SIOCAIFADDR_IN6). */
   1001   1.2   itojun 		bzero(&ifra, sizeof(ifra));
   1002   1.2   itojun 		bcopy(iflr->iflr_name, ifra.ifra_name,
   1003   1.2   itojun 			sizeof(ifra.ifra_name));
   1004   1.2   itojun 
   1005   1.8   itojun 		bcopy(&iflr->addr, &ifra.ifra_addr,
   1006   1.8   itojun 			((struct sockaddr *)&iflr->addr)->sa_len);
   1007   1.2   itojun 		if (hostid) {
   1008   1.2   itojun 			/* fill in hostid part */
   1009   1.2   itojun 			ifra.ifra_addr.sin6_addr.s6_addr32[2] =
   1010   1.2   itojun 				hostid->s6_addr32[2];
   1011   1.2   itojun 			ifra.ifra_addr.sin6_addr.s6_addr32[3] =
   1012   1.2   itojun 				hostid->s6_addr32[3];
   1013   1.2   itojun 		}
   1014   1.2   itojun 
   1015   1.8   itojun 		if (((struct sockaddr *)&iflr->dstaddr)->sa_family) {	/*XXX*/
   1016   1.2   itojun 			bcopy(&iflr->dstaddr, &ifra.ifra_dstaddr,
   1017   1.8   itojun 				((struct sockaddr *)&iflr->dstaddr)->sa_len);
   1018   1.2   itojun 			if (hostid) {
   1019   1.2   itojun 				ifra.ifra_dstaddr.sin6_addr.s6_addr32[2] =
   1020   1.2   itojun 					hostid->s6_addr32[2];
   1021   1.2   itojun 				ifra.ifra_dstaddr.sin6_addr.s6_addr32[3] =
   1022   1.2   itojun 					hostid->s6_addr32[3];
   1023   1.2   itojun 			}
   1024   1.2   itojun 		}
   1025   1.2   itojun 
   1026   1.2   itojun 		ifra.ifra_prefixmask.sin6_family = AF_INET6;
   1027   1.2   itojun 		ifra.ifra_prefixmask.sin6_len = sizeof(struct sockaddr_in6);
   1028   1.2   itojun 		in6_len2mask(&ifra.ifra_prefixmask.sin6_addr, prefixlen);
   1029   1.2   itojun 
   1030   1.2   itojun 		ifra.ifra_flags = iflr->flags & ~IFLR_PREFIX;
   1031   1.2   itojun 		return in6_control(so, SIOCAIFADDR_IN6, (caddr_t)&ifra, ifp, p);
   1032   1.2   itojun 	    }
   1033   1.2   itojun 	case SIOCGLIFADDR:
   1034   1.2   itojun 	case SIOCDLIFADDR:
   1035   1.2   itojun 	    {
   1036   1.2   itojun 		struct in6_ifaddr *ia;
   1037   1.2   itojun 		struct in6_addr mask, candidate, match;
   1038   1.2   itojun 		struct sockaddr_in6 *sin6;
   1039   1.2   itojun 		int cmp;
   1040   1.2   itojun 
   1041   1.2   itojun 		bzero(&mask, sizeof(mask));
   1042   1.2   itojun 		if (iflr->flags & IFLR_PREFIX) {
   1043   1.2   itojun 			/* lookup a prefix rather than address. */
   1044   1.2   itojun 			in6_len2mask(&mask, iflr->prefixlen);
   1045   1.2   itojun 
   1046   1.2   itojun 			sin6 = (struct sockaddr_in6 *)&iflr->addr;
   1047   1.2   itojun 			bcopy(&sin6->sin6_addr, &match, sizeof(match));
   1048   1.2   itojun 			match.s6_addr32[0] &= mask.s6_addr32[0];
   1049   1.2   itojun 			match.s6_addr32[1] &= mask.s6_addr32[1];
   1050   1.2   itojun 			match.s6_addr32[2] &= mask.s6_addr32[2];
   1051   1.2   itojun 			match.s6_addr32[3] &= mask.s6_addr32[3];
   1052   1.2   itojun 
   1053   1.2   itojun 			/* if you set extra bits, that's wrong */
   1054   1.2   itojun 			if (bcmp(&match, &sin6->sin6_addr, sizeof(match)))
   1055   1.2   itojun 				return EINVAL;
   1056   1.2   itojun 
   1057   1.2   itojun 			cmp = 1;
   1058   1.2   itojun 		} else {
   1059   1.2   itojun 			if (cmd == SIOCGLIFADDR) {
   1060   1.2   itojun 				/* on getting an address, take the 1st match */
   1061   1.2   itojun 				cmp = 0;	/*XXX*/
   1062   1.2   itojun 			} else {
   1063   1.2   itojun 				/* on deleting an address, do exact match */
   1064   1.2   itojun 				in6_len2mask(&mask, 128);
   1065   1.2   itojun 				sin6 = (struct sockaddr_in6 *)&iflr->addr;
   1066   1.2   itojun 				bcopy(&sin6->sin6_addr, &match, sizeof(match));
   1067   1.2   itojun 
   1068   1.2   itojun 				cmp = 1;
   1069   1.2   itojun 			}
   1070   1.2   itojun 		}
   1071   1.2   itojun 
   1072   1.2   itojun 		for (ifa = ifp->if_addrlist.tqh_first;
   1073   1.2   itojun 		     ifa;
   1074   1.8   itojun 		     ifa = ifa->ifa_list.tqe_next)
   1075   1.8   itojun 		{
   1076   1.2   itojun 			if (ifa->ifa_addr->sa_family != AF_INET6)
   1077   1.2   itojun 				continue;
   1078   1.2   itojun 			if (!cmp)
   1079   1.2   itojun 				break;
   1080   1.8   itojun 			bcopy(IFA_IN6(ifa), &candidate, sizeof(candidate));
   1081   1.2   itojun 			candidate.s6_addr32[0] &= mask.s6_addr32[0];
   1082   1.2   itojun 			candidate.s6_addr32[1] &= mask.s6_addr32[1];
   1083   1.2   itojun 			candidate.s6_addr32[2] &= mask.s6_addr32[2];
   1084   1.2   itojun 			candidate.s6_addr32[3] &= mask.s6_addr32[3];
   1085   1.2   itojun 			if (IN6_ARE_ADDR_EQUAL(&candidate, &match))
   1086   1.2   itojun 				break;
   1087   1.2   itojun 		}
   1088   1.2   itojun 		if (!ifa)
   1089   1.2   itojun 			return EADDRNOTAVAIL;
   1090   1.2   itojun 		ia = ifa2ia6(ifa);
   1091   1.2   itojun 
   1092   1.2   itojun 		if (cmd == SIOCGLIFADDR) {
   1093   1.2   itojun 			/* fill in the if_laddrreq structure */
   1094   1.2   itojun 			bcopy(&ia->ia_addr, &iflr->addr, ia->ia_addr.sin6_len);
   1095   1.2   itojun 
   1096   1.2   itojun 			if ((ifp->if_flags & IFF_POINTOPOINT) != 0) {
   1097   1.2   itojun 				bcopy(&ia->ia_dstaddr, &iflr->dstaddr,
   1098   1.2   itojun 					ia->ia_dstaddr.sin6_len);
   1099   1.2   itojun 			} else
   1100   1.2   itojun 				bzero(&iflr->dstaddr, sizeof(iflr->dstaddr));
   1101   1.2   itojun 
   1102   1.2   itojun 			iflr->prefixlen =
   1103   1.2   itojun 				in6_mask2len(&ia->ia_prefixmask.sin6_addr);
   1104   1.2   itojun 
   1105   1.2   itojun 			iflr->flags = ia->ia6_flags;	/*XXX*/
   1106   1.2   itojun 
   1107   1.2   itojun 			return 0;
   1108   1.2   itojun 		} else {
   1109   1.2   itojun 			struct in6_aliasreq ifra;
   1110   1.2   itojun 
   1111   1.2   itojun 			/* fill in6_aliasreq and do ioctl(SIOCDIFADDR_IN6) */
   1112   1.2   itojun 			bzero(&ifra, sizeof(ifra));
   1113   1.2   itojun 			bcopy(iflr->iflr_name, ifra.ifra_name,
   1114   1.2   itojun 				sizeof(ifra.ifra_name));
   1115   1.2   itojun 
   1116   1.2   itojun 			bcopy(&ia->ia_addr, &ifra.ifra_addr,
   1117   1.2   itojun 				ia->ia_addr.sin6_len);
   1118   1.2   itojun 			if ((ifp->if_flags & IFF_POINTOPOINT) != 0) {
   1119   1.2   itojun 				bcopy(&ia->ia_dstaddr, &ifra.ifra_dstaddr,
   1120   1.2   itojun 					ia->ia_dstaddr.sin6_len);
   1121  1.23   itojun 			} else {
   1122  1.23   itojun 				bzero(&ifra.ifra_dstaddr,
   1123  1.23   itojun 				    sizeof(ifra.ifra_dstaddr));
   1124   1.2   itojun 			}
   1125   1.2   itojun 			bcopy(&ia->ia_prefixmask, &ifra.ifra_dstaddr,
   1126   1.2   itojun 				ia->ia_prefixmask.sin6_len);
   1127   1.2   itojun 
   1128   1.2   itojun 			ifra.ifra_flags = ia->ia6_flags;
   1129   1.2   itojun 			return in6_control(so, SIOCDIFADDR_IN6, (caddr_t)&ifra,
   1130   1.2   itojun 				ifp, p);
   1131   1.2   itojun 		}
   1132   1.2   itojun 	    }
   1133   1.2   itojun 	}
   1134   1.2   itojun 
   1135   1.2   itojun 	return EOPNOTSUPP;	/*just for safety*/
   1136   1.2   itojun }
   1137   1.2   itojun 
   1138   1.2   itojun /*
   1139   1.2   itojun  * Delete any existing route for an interface.
   1140   1.2   itojun  */
   1141   1.2   itojun void
   1142   1.2   itojun in6_ifscrub(ifp, ia)
   1143   1.2   itojun 	register struct ifnet *ifp;
   1144   1.2   itojun 	register struct in6_ifaddr *ia;
   1145   1.2   itojun {
   1146   1.2   itojun 	if ((ia->ia_flags & IFA_ROUTE) == 0)
   1147   1.2   itojun 		return;
   1148   1.2   itojun 	if (ifp->if_flags & (IFF_LOOPBACK | IFF_POINTOPOINT))
   1149   1.2   itojun 		rtinit(&(ia->ia_ifa), (int)RTM_DELETE, RTF_HOST);
   1150   1.2   itojun 	else
   1151   1.2   itojun 		rtinit(&(ia->ia_ifa), (int)RTM_DELETE, 0);
   1152   1.2   itojun 	ia->ia_flags &= ~IFA_ROUTE;
   1153   1.2   itojun 
   1154   1.2   itojun 	/* Remove ownaddr's loopback rtentry, if it exists. */
   1155   1.2   itojun 	in6_ifremloop(&(ia->ia_ifa));
   1156   1.2   itojun }
   1157   1.2   itojun 
   1158   1.2   itojun /*
   1159   1.2   itojun  * Initialize an interface's intetnet6 address
   1160   1.2   itojun  * and routing table entry.
   1161   1.2   itojun  */
   1162   1.2   itojun int
   1163   1.2   itojun in6_ifinit(ifp, ia, sin6, scrub)
   1164   1.2   itojun 	struct ifnet *ifp;
   1165   1.2   itojun 	struct in6_ifaddr *ia;
   1166   1.2   itojun 	struct sockaddr_in6 *sin6;
   1167   1.2   itojun 	int scrub;
   1168   1.2   itojun {
   1169   1.2   itojun 	struct	sockaddr_in6 oldaddr;
   1170   1.2   itojun 	int	error, flags = RTF_UP;
   1171   1.2   itojun 	int	s = splimp();
   1172   1.2   itojun 
   1173   1.2   itojun 	oldaddr = ia->ia_addr;
   1174   1.2   itojun 	ia->ia_addr = *sin6;
   1175   1.2   itojun 	/*
   1176   1.2   itojun 	 * Give the interface a chance to initialize
   1177   1.2   itojun 	 * if this is its first address,
   1178   1.2   itojun 	 * and to validate the address if necessary.
   1179   1.2   itojun 	 */
   1180   1.2   itojun 	if (ifp->if_ioctl &&
   1181   1.2   itojun 	   (error = (*ifp->if_ioctl)(ifp, SIOCSIFADDR, (caddr_t)ia))) {
   1182   1.2   itojun 		splx(s);
   1183   1.2   itojun 		ia->ia_addr = oldaddr;
   1184   1.2   itojun 		return(error);
   1185   1.2   itojun 	}
   1186   1.2   itojun 
   1187   1.2   itojun 	switch (ifp->if_type) {
   1188   1.7       is 	case IFT_ARCNET:
   1189   1.2   itojun 	case IFT_ETHER:
   1190   1.2   itojun 	case IFT_FDDI:
   1191   1.2   itojun 		ia->ia_ifa.ifa_rtrequest = nd6_rtrequest;
   1192   1.2   itojun 		ia->ia_ifa.ifa_flags |= RTF_CLONING;
   1193   1.2   itojun 		break;
   1194   1.2   itojun 	case IFT_PPP:
   1195   1.2   itojun 		ia->ia_ifa.ifa_rtrequest = nd6_p2p_rtrequest;
   1196   1.2   itojun 		ia->ia_ifa.ifa_flags |= RTF_CLONING;
   1197   1.2   itojun 		break;
   1198   1.2   itojun 	}
   1199   1.2   itojun 
   1200   1.2   itojun 	splx(s);
   1201   1.2   itojun 	if (scrub) {
   1202   1.2   itojun 		ia->ia_ifa.ifa_addr = (struct sockaddr *)&oldaddr;
   1203   1.2   itojun 		in6_ifscrub(ifp, ia);
   1204   1.2   itojun 		ia->ia_ifa.ifa_addr = (struct sockaddr *)&ia->ia_addr;
   1205   1.2   itojun 	}
   1206  1.18   itojun 	/* xxx
   1207   1.2   itojun 	 * in_socktrim
   1208   1.2   itojun 	 */
   1209   1.2   itojun 	/*
   1210   1.2   itojun 	 * Add route for the network.
   1211   1.2   itojun 	 */
   1212   1.2   itojun 	ia->ia_ifa.ifa_metric = ifp->if_metric;
   1213   1.2   itojun 	if (ifp->if_flags & IFF_LOOPBACK) {
   1214   1.2   itojun 		ia->ia_ifa.ifa_dstaddr = ia->ia_ifa.ifa_addr;
   1215   1.2   itojun 		flags |= RTF_HOST;
   1216   1.2   itojun 	} else if (ifp->if_flags & IFF_POINTOPOINT) {
   1217   1.2   itojun 		if (ia->ia_dstaddr.sin6_family != AF_INET6)
   1218   1.2   itojun 			return(0);
   1219   1.2   itojun 		flags |= RTF_HOST;
   1220   1.2   itojun 	}
   1221   1.2   itojun 	if ((error = rtinit(&(ia->ia_ifa), (int)RTM_ADD, flags)) == 0)
   1222   1.2   itojun 		ia->ia_flags |= IFA_ROUTE;
   1223   1.2   itojun 
   1224   1.2   itojun 	/* Add ownaddr as loopback rtentry, if necessary(ex. on p2p link). */
   1225   1.2   itojun 	in6_ifaddloop(&(ia->ia_ifa));
   1226   1.2   itojun 
   1227   1.2   itojun 	if (ifp->if_flags & IFF_MULTICAST)
   1228   1.2   itojun 		in6_restoremkludge(ia, ifp);
   1229   1.2   itojun 
   1230   1.2   itojun 	return(error);
   1231   1.2   itojun }
   1232   1.2   itojun 
   1233   1.2   itojun /*
   1234   1.2   itojun  * Multicast address kludge:
   1235   1.2   itojun  * If there were any multicast addresses attached to this interface address,
   1236   1.2   itojun  * either move them to another address on this interface, or save them until
   1237   1.2   itojun  * such time as this interface is reconfigured for IPv6.
   1238   1.2   itojun  */
   1239   1.2   itojun void
   1240   1.2   itojun in6_savemkludge(oia)
   1241   1.2   itojun 	struct in6_ifaddr *oia;
   1242   1.2   itojun {
   1243   1.2   itojun 	struct in6_ifaddr *ia;
   1244   1.2   itojun 	struct in6_multi *in6m, *next;
   1245   1.2   itojun 
   1246   1.2   itojun 	IFP_TO_IA6(oia->ia_ifp, ia);
   1247   1.2   itojun 	if (ia) {	/* there is another address */
   1248   1.2   itojun 		for (in6m = oia->ia6_multiaddrs.lh_first; in6m; in6m = next){
   1249   1.2   itojun 			next = in6m->in6m_entry.le_next;
   1250   1.2   itojun 			IFAFREE(&in6m->in6m_ia->ia_ifa);
   1251  1.10  thorpej 			IFAREF(&ia->ia_ifa);
   1252   1.2   itojun 			in6m->in6m_ia = ia;
   1253   1.2   itojun 			LIST_INSERT_HEAD(&ia->ia6_multiaddrs, in6m, in6m_entry);
   1254   1.2   itojun 		}
   1255   1.2   itojun 	} else {	/* last address on this if deleted, save */
   1256   1.2   itojun 		struct multi6_kludge *mk;
   1257   1.2   itojun 
   1258   1.2   itojun 		mk = malloc(sizeof(*mk), M_IPMADDR, M_WAITOK);
   1259   1.2   itojun 
   1260   1.2   itojun 		LIST_INIT(&mk->mk_head);
   1261   1.2   itojun 		mk->mk_ifp = oia->ia_ifp;
   1262   1.2   itojun 
   1263   1.2   itojun 		for (in6m = oia->ia6_multiaddrs.lh_first; in6m; in6m = next){
   1264   1.2   itojun 			next = in6m->in6m_entry.le_next;
   1265  1.12   itojun 			IFAFREE(&in6m->in6m_ia->ia_ifa); /* release reference */
   1266  1.12   itojun 			in6m->in6m_ia = NULL;
   1267   1.2   itojun 			LIST_INSERT_HEAD(&mk->mk_head, in6m, in6m_entry);
   1268   1.2   itojun 		}
   1269   1.2   itojun 
   1270   1.2   itojun 		if (mk->mk_head.lh_first != NULL) {
   1271   1.2   itojun 			LIST_INSERT_HEAD(&in6_mk, mk, mk_entry);
   1272   1.2   itojun 		}
   1273   1.2   itojun 		else {
   1274   1.2   itojun 			FREE(mk, M_IPMADDR);
   1275   1.2   itojun 		}
   1276   1.2   itojun 	}
   1277   1.2   itojun }
   1278   1.2   itojun 
   1279   1.2   itojun /*
   1280   1.2   itojun  * Continuation of multicast address hack:
   1281   1.2   itojun  * If there was a multicast group list previously saved for this interface,
   1282   1.2   itojun  * then we re-attach it to the first address configured on the i/f.
   1283   1.2   itojun  */
   1284   1.2   itojun void
   1285   1.2   itojun in6_restoremkludge(ia, ifp)
   1286   1.2   itojun 	struct in6_ifaddr *ia;
   1287   1.2   itojun 	struct ifnet *ifp;
   1288   1.2   itojun {
   1289   1.2   itojun 	struct multi6_kludge *mk;
   1290   1.2   itojun 
   1291   1.2   itojun 	for (mk = in6_mk.lh_first; mk; mk = mk->mk_entry.le_next) {
   1292   1.2   itojun 		if (mk->mk_ifp == ifp) {
   1293   1.2   itojun 			struct in6_multi *in6m, *next;
   1294   1.2   itojun 
   1295   1.2   itojun 			for (in6m = mk->mk_head.lh_first; in6m; in6m = next){
   1296   1.2   itojun 				next = in6m->in6m_entry.le_next;
   1297  1.12   itojun 				in6m->in6m_ia = ia;
   1298  1.12   itojun 				IFAREF(&ia->ia_ifa);	/* gain a reference */
   1299   1.2   itojun 				LIST_INSERT_HEAD(&ia->ia6_multiaddrs,
   1300   1.2   itojun 						 in6m, in6m_entry);
   1301   1.2   itojun 			}
   1302   1.2   itojun 			LIST_REMOVE(mk, mk_entry);
   1303   1.2   itojun 			free(mk, M_IPMADDR);
   1304   1.2   itojun 			break;
   1305   1.2   itojun 		}
   1306   1.2   itojun 	}
   1307   1.2   itojun }
   1308   1.2   itojun 
   1309  1.12   itojun void
   1310  1.12   itojun in6_purgemkludge(ifp)
   1311  1.12   itojun 	struct ifnet *ifp;
   1312  1.12   itojun {
   1313  1.12   itojun 	struct multi6_kludge *mk;
   1314  1.13   itojun 	struct in6_multi *in6m;
   1315  1.12   itojun 
   1316  1.12   itojun 	for (mk = in6_mk.lh_first; mk; mk = mk->mk_entry.le_next) {
   1317  1.12   itojun 		if (mk->mk_ifp != ifp)
   1318  1.12   itojun 			continue;
   1319  1.12   itojun 
   1320  1.13   itojun 		/* leave from all multicast groups joined */
   1321  1.13   itojun 		while ((in6m = LIST_FIRST(&mk->mk_head)) != NULL)
   1322  1.12   itojun 			in6_delmulti(in6m);
   1323  1.12   itojun 		LIST_REMOVE(mk, mk_entry);
   1324  1.12   itojun 		free(mk, M_IPMADDR);
   1325  1.12   itojun 		break;
   1326  1.12   itojun 	}
   1327  1.12   itojun }
   1328  1.12   itojun 
   1329   1.2   itojun /*
   1330  1.18   itojun  * Add an address to the list of IP6 multicast addresses for a
   1331   1.2   itojun  * given interface.
   1332   1.2   itojun  */
   1333   1.2   itojun struct	in6_multi *
   1334   1.2   itojun in6_addmulti(maddr6, ifp, errorp)
   1335   1.2   itojun 	register struct in6_addr *maddr6;
   1336   1.2   itojun 	register struct ifnet *ifp;
   1337   1.2   itojun 	int *errorp;
   1338   1.2   itojun {
   1339   1.2   itojun 	struct	in6_ifaddr *ia;
   1340   1.2   itojun 	struct	in6_ifreq ifr;
   1341   1.2   itojun 	struct	in6_multi *in6m;
   1342   1.4   itojun 	int	s = splsoftnet();
   1343   1.2   itojun 
   1344   1.2   itojun 	*errorp = 0;
   1345   1.2   itojun 	/*
   1346   1.2   itojun 	 * See if address already in list.
   1347   1.2   itojun 	 */
   1348   1.2   itojun 	IN6_LOOKUP_MULTI(*maddr6, ifp, in6m);
   1349   1.2   itojun 	if (in6m != NULL) {
   1350   1.2   itojun 		/*
   1351   1.2   itojun 		 * Found it; just increment the refrence count.
   1352   1.2   itojun 		 */
   1353   1.2   itojun 		in6m->in6m_refcount++;
   1354   1.2   itojun 	} else {
   1355   1.2   itojun 		/*
   1356   1.2   itojun 		 * New address; allocate a new multicast record
   1357   1.2   itojun 		 * and link it into the interface's multicast list.
   1358   1.2   itojun 		 */
   1359   1.2   itojun 		in6m = (struct in6_multi *)
   1360   1.2   itojun 			malloc(sizeof(*in6m), M_IPMADDR, M_NOWAIT);
   1361   1.2   itojun 		if (in6m == NULL) {
   1362   1.2   itojun 			splx(s);
   1363   1.2   itojun 			*errorp = ENOBUFS;
   1364   1.2   itojun 			return(NULL);
   1365   1.2   itojun 		}
   1366   1.2   itojun 		in6m->in6m_addr = *maddr6;
   1367   1.2   itojun 		in6m->in6m_ifp = ifp;
   1368   1.2   itojun 		in6m->in6m_refcount = 1;
   1369   1.2   itojun 		IFP_TO_IA6(ifp, ia);
   1370   1.2   itojun 		if (ia == NULL) {
   1371   1.2   itojun 			free(in6m, M_IPMADDR);
   1372   1.2   itojun 			splx(s);
   1373   1.2   itojun 			*errorp = EADDRNOTAVAIL; /* appropriate? */
   1374   1.2   itojun 			return(NULL);
   1375   1.2   itojun 		}
   1376   1.2   itojun 		in6m->in6m_ia = ia;
   1377  1.10  thorpej 		IFAREF(&ia->ia_ifa);	/* gain a reference */
   1378   1.2   itojun 		LIST_INSERT_HEAD(&ia->ia6_multiaddrs, in6m, in6m_entry);
   1379   1.2   itojun 
   1380   1.2   itojun 		/*
   1381   1.2   itojun 		 * Ask the network driver to update its multicast reception
   1382   1.2   itojun 		 * filter appropriately for the new address.
   1383   1.2   itojun 		 */
   1384   1.2   itojun 		bzero(&ifr.ifr_addr, sizeof(struct sockaddr_in6));
   1385   1.2   itojun 		ifr.ifr_addr.sin6_len = sizeof(struct sockaddr_in6);
   1386   1.2   itojun 		ifr.ifr_addr.sin6_family = AF_INET6;
   1387   1.2   itojun 		ifr.ifr_addr.sin6_addr = *maddr6;
   1388   1.2   itojun 		if (ifp->if_ioctl == NULL)
   1389   1.2   itojun 			*errorp = ENXIO; /* XXX: appropriate? */
   1390   1.2   itojun 		else
   1391   1.2   itojun 			*errorp = (*ifp->if_ioctl)(ifp, SIOCADDMULTI,
   1392   1.2   itojun 						    (caddr_t)&ifr);
   1393   1.2   itojun 		if (*errorp) {
   1394   1.2   itojun 			LIST_REMOVE(in6m, in6m_entry);
   1395   1.2   itojun 			free(in6m, M_IPMADDR);
   1396   1.2   itojun 			splx(s);
   1397   1.2   itojun 			return(NULL);
   1398   1.2   itojun 		}
   1399   1.2   itojun 		/*
   1400   1.2   itojun 		 * Let MLD6 know that we have joined a new IP6 multicast
   1401   1.2   itojun 		 * group.
   1402   1.2   itojun 		 */
   1403   1.2   itojun 		mld6_start_listening(in6m);
   1404   1.2   itojun 	}
   1405   1.2   itojun 	splx(s);
   1406   1.2   itojun 	return(in6m);
   1407   1.2   itojun }
   1408   1.2   itojun 
   1409   1.2   itojun /*
   1410   1.2   itojun  * Delete a multicast address record.
   1411   1.2   itojun  */
   1412   1.2   itojun void
   1413   1.2   itojun in6_delmulti(in6m)
   1414   1.2   itojun 	struct in6_multi *in6m;
   1415   1.2   itojun {
   1416   1.2   itojun 	struct	in6_ifreq ifr;
   1417   1.4   itojun 	int	s = splsoftnet();
   1418   1.2   itojun 
   1419   1.2   itojun 	if (--in6m->in6m_refcount == 0) {
   1420   1.2   itojun 		/*
   1421   1.2   itojun 		 * No remaining claims to this record; let MLD6 know
   1422   1.2   itojun 		 * that we are leaving the multicast group.
   1423   1.2   itojun 		 */
   1424   1.2   itojun 		mld6_stop_listening(in6m);
   1425   1.2   itojun 
   1426   1.2   itojun 		/*
   1427   1.2   itojun 		 * Unlink from list.
   1428   1.2   itojun 		 */
   1429   1.2   itojun 		LIST_REMOVE(in6m, in6m_entry);
   1430  1.12   itojun 		if (in6m->in6m_ia)
   1431  1.12   itojun 			IFAFREE(&in6m->in6m_ia->ia_ifa); /* release reference */
   1432   1.2   itojun 
   1433   1.2   itojun 		/*
   1434  1.18   itojun 		 * Notify the network driver to update its multicast
   1435   1.2   itojun 		 * reception filter.
   1436   1.2   itojun 		 */
   1437   1.2   itojun 		bzero(&ifr.ifr_addr, sizeof(struct sockaddr_in6));
   1438   1.2   itojun 		ifr.ifr_addr.sin6_len = sizeof(struct sockaddr_in6);
   1439   1.2   itojun 		ifr.ifr_addr.sin6_family = AF_INET6;
   1440   1.2   itojun 		ifr.ifr_addr.sin6_addr = in6m->in6m_addr;
   1441   1.2   itojun 		(*in6m->in6m_ifp->if_ioctl)(in6m->in6m_ifp,
   1442   1.2   itojun 					    SIOCDELMULTI, (caddr_t)&ifr);
   1443   1.2   itojun 		free(in6m, M_IPMADDR);
   1444   1.2   itojun 	}
   1445   1.2   itojun 	splx(s);
   1446   1.2   itojun }
   1447   1.2   itojun 
   1448   1.2   itojun /*
   1449   1.2   itojun  * Find an IPv6 interface link-local address specific to an interface.
   1450   1.2   itojun  */
   1451   1.2   itojun struct in6_ifaddr *
   1452  1.21   itojun in6ifa_ifpforlinklocal(ifp, ignoreflags)
   1453   1.2   itojun 	struct ifnet *ifp;
   1454  1.21   itojun 	int ignoreflags;
   1455   1.2   itojun {
   1456   1.2   itojun 	register struct ifaddr *ifa;
   1457   1.2   itojun 
   1458   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   1459   1.8   itojun 	{
   1460   1.2   itojun 		if (ifa->ifa_addr == NULL)
   1461   1.2   itojun 			continue;	/* just for safety */
   1462   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
   1463   1.2   itojun 			continue;
   1464  1.21   itojun 		if (IN6_IS_ADDR_LINKLOCAL(IFA_IN6(ifa))) {
   1465  1.21   itojun 			if ((((struct in6_ifaddr *)ifa)->ia6_flags &
   1466  1.21   itojun 			     ignoreflags) != 0)
   1467  1.21   itojun 				continue;
   1468   1.2   itojun 			break;
   1469  1.21   itojun 		}
   1470   1.2   itojun 	}
   1471   1.2   itojun 
   1472   1.2   itojun 	return((struct in6_ifaddr *)ifa);
   1473   1.2   itojun }
   1474   1.2   itojun 
   1475   1.2   itojun 
   1476   1.2   itojun /*
   1477   1.2   itojun  * find the internet address corresponding to a given interface and address.
   1478   1.2   itojun  */
   1479   1.2   itojun struct in6_ifaddr *
   1480   1.2   itojun in6ifa_ifpwithaddr(ifp, addr)
   1481   1.2   itojun 	struct ifnet *ifp;
   1482   1.2   itojun 	struct in6_addr *addr;
   1483   1.2   itojun {
   1484   1.2   itojun 	register struct ifaddr *ifa;
   1485   1.2   itojun 
   1486   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   1487   1.8   itojun 	{
   1488   1.2   itojun 		if (ifa->ifa_addr == NULL)
   1489   1.2   itojun 			continue;	/* just for safety */
   1490   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
   1491   1.2   itojun 			continue;
   1492   1.8   itojun 		if (IN6_ARE_ADDR_EQUAL(addr, IFA_IN6(ifa)))
   1493   1.2   itojun 			break;
   1494   1.2   itojun 	}
   1495   1.2   itojun 
   1496   1.2   itojun 	return((struct in6_ifaddr *)ifa);
   1497   1.2   itojun }
   1498   1.2   itojun 
   1499   1.2   itojun /*
   1500   1.2   itojun  * Convert IP6 address to printable (loggable) representation.
   1501   1.2   itojun  */
   1502   1.2   itojun static char digits[] = "0123456789abcdef";
   1503   1.2   itojun static int ip6round = 0;
   1504   1.2   itojun char *
   1505   1.2   itojun ip6_sprintf(addr)
   1506   1.2   itojun register struct in6_addr *addr;
   1507   1.2   itojun {
   1508   1.2   itojun 	static char ip6buf[8][48];
   1509   1.2   itojun 	register int i;
   1510   1.2   itojun 	register char *cp;
   1511   1.2   itojun 	register u_short *a = (u_short *)addr;
   1512   1.2   itojun 	register u_char *d;
   1513   1.2   itojun 	int dcolon = 0;
   1514   1.2   itojun 
   1515   1.2   itojun 	ip6round = (ip6round + 1) & 7;
   1516   1.2   itojun 	cp = ip6buf[ip6round];
   1517   1.2   itojun 
   1518   1.2   itojun 	for (i = 0; i < 8; i++) {
   1519   1.2   itojun 		if (dcolon == 1) {
   1520   1.2   itojun 			if (*a == 0) {
   1521   1.2   itojun 				if (i == 7)
   1522   1.2   itojun 					*cp++ = ':';
   1523   1.2   itojun 				a++;
   1524   1.2   itojun 				continue;
   1525   1.2   itojun 			} else
   1526   1.2   itojun 				dcolon = 2;
   1527   1.2   itojun 		}
   1528   1.2   itojun 		if (*a == 0) {
   1529   1.2   itojun 			if (dcolon == 0 && *(a + 1) == 0) {
   1530   1.2   itojun 				if (i == 0)
   1531   1.2   itojun 					*cp++ = ':';
   1532   1.2   itojun 				*cp++ = ':';
   1533   1.2   itojun 				dcolon = 1;
   1534   1.2   itojun 			} else {
   1535   1.2   itojun 				*cp++ = '0';
   1536   1.2   itojun 				*cp++ = ':';
   1537   1.2   itojun 			}
   1538   1.2   itojun 			a++;
   1539   1.2   itojun 			continue;
   1540   1.2   itojun 		}
   1541   1.2   itojun 		d = (u_char *)a;
   1542   1.2   itojun 		*cp++ = digits[*d >> 4];
   1543   1.2   itojun 		*cp++ = digits[*d++ & 0xf];
   1544   1.2   itojun 		*cp++ = digits[*d >> 4];
   1545   1.2   itojun 		*cp++ = digits[*d & 0xf];
   1546   1.2   itojun 		*cp++ = ':';
   1547   1.2   itojun 		a++;
   1548   1.2   itojun 	}
   1549   1.2   itojun 	*--cp = 0;
   1550   1.2   itojun 	return(ip6buf[ip6round]);
   1551   1.2   itojun }
   1552   1.2   itojun 
   1553   1.2   itojun int
   1554   1.2   itojun in6_localaddr(in6)
   1555   1.2   itojun 	struct in6_addr *in6;
   1556   1.2   itojun {
   1557   1.2   itojun 	struct in6_ifaddr *ia;
   1558   1.2   itojun 
   1559   1.2   itojun 	if (IN6_IS_ADDR_LOOPBACK(in6) || IN6_IS_ADDR_LINKLOCAL(in6))
   1560   1.2   itojun 		return 1;
   1561   1.2   itojun 
   1562   1.2   itojun 	for (ia = in6_ifaddr; ia; ia = ia->ia_next)
   1563   1.2   itojun 		if (IN6_ARE_MASKED_ADDR_EQUAL(in6, &ia->ia_addr.sin6_addr,
   1564   1.2   itojun 					      &ia->ia_prefixmask.sin6_addr))
   1565   1.2   itojun 			return 1;
   1566   1.2   itojun 
   1567   1.2   itojun 	return (0);
   1568   1.2   itojun }
   1569   1.2   itojun 
   1570   1.2   itojun /*
   1571   1.2   itojun  * Get a scope of the address. Node-local, link-local, site-local or global.
   1572   1.2   itojun  */
   1573   1.2   itojun int
   1574   1.2   itojun in6_addrscope (addr)
   1575   1.2   itojun struct in6_addr *addr;
   1576   1.2   itojun {
   1577   1.2   itojun 	int scope;
   1578   1.2   itojun 
   1579   1.2   itojun 	if (addr->s6_addr8[0] == 0xfe) {
   1580   1.2   itojun 		scope = addr->s6_addr8[1] & 0xc0;
   1581   1.2   itojun 
   1582   1.2   itojun 		switch (scope) {
   1583   1.2   itojun 		case 0x80:
   1584   1.2   itojun 			return IPV6_ADDR_SCOPE_LINKLOCAL;
   1585   1.2   itojun 			break;
   1586   1.2   itojun 		case 0xc0:
   1587   1.2   itojun 			return IPV6_ADDR_SCOPE_SITELOCAL;
   1588   1.2   itojun 			break;
   1589   1.2   itojun 		default:
   1590   1.2   itojun 			return IPV6_ADDR_SCOPE_GLOBAL; /* just in case */
   1591   1.2   itojun 			break;
   1592   1.2   itojun 		}
   1593   1.2   itojun 	}
   1594   1.2   itojun 
   1595   1.2   itojun 
   1596   1.2   itojun 	if (addr->s6_addr8[0] == 0xff) {
   1597   1.2   itojun 		scope = addr->s6_addr8[1] & 0x0f;
   1598   1.2   itojun 
   1599  1.18   itojun 		/*
   1600   1.2   itojun 		 * due to other scope such as reserved,
   1601   1.2   itojun 		 * return scope doesn't work.
   1602   1.2   itojun 		 */
   1603   1.2   itojun 		switch (scope) {
   1604   1.2   itojun 		case IPV6_ADDR_SCOPE_NODELOCAL:
   1605   1.2   itojun 			return IPV6_ADDR_SCOPE_NODELOCAL;
   1606   1.2   itojun 			break;
   1607   1.2   itojun 		case IPV6_ADDR_SCOPE_LINKLOCAL:
   1608   1.2   itojun 			return IPV6_ADDR_SCOPE_LINKLOCAL;
   1609   1.2   itojun 			break;
   1610   1.2   itojun 		case IPV6_ADDR_SCOPE_SITELOCAL:
   1611   1.2   itojun 			return IPV6_ADDR_SCOPE_SITELOCAL;
   1612   1.2   itojun 			break;
   1613   1.2   itojun 		default:
   1614   1.2   itojun 			return IPV6_ADDR_SCOPE_GLOBAL;
   1615   1.2   itojun 			break;
   1616   1.2   itojun 		}
   1617   1.2   itojun 	}
   1618   1.2   itojun 
   1619   1.2   itojun 	if (bcmp(&in6addr_loopback, addr, sizeof(addr) - 1) == 0) {
   1620   1.2   itojun 		if (addr->s6_addr8[15] == 1) /* loopback */
   1621   1.2   itojun 			return IPV6_ADDR_SCOPE_NODELOCAL;
   1622   1.2   itojun 		if (addr->s6_addr8[15] == 0) /* unspecified */
   1623   1.2   itojun 			return IPV6_ADDR_SCOPE_LINKLOCAL;
   1624   1.2   itojun 	}
   1625   1.2   itojun 
   1626   1.2   itojun 	return IPV6_ADDR_SCOPE_GLOBAL;
   1627   1.2   itojun }
   1628   1.2   itojun 
   1629  1.21   itojun int
   1630  1.21   itojun in6_addr2scopeid(ifp, addr)
   1631  1.21   itojun 	struct ifnet *ifp;	/* must not be NULL */
   1632  1.21   itojun 	struct in6_addr *addr;	/* must not be NULL */
   1633  1.21   itojun {
   1634  1.21   itojun 	int scope = in6_addrscope(addr);
   1635  1.21   itojun 
   1636  1.21   itojun 	switch(scope) {
   1637  1.21   itojun 	case IPV6_ADDR_SCOPE_NODELOCAL:
   1638  1.21   itojun 		return(-1);	/* XXX: is this an appropriate value? */
   1639  1.21   itojun 
   1640  1.21   itojun 	case IPV6_ADDR_SCOPE_LINKLOCAL:
   1641  1.21   itojun 		/* XXX: we do not distinguish between a link and an I/F. */
   1642  1.21   itojun 		return(ifp->if_index);
   1643  1.21   itojun 
   1644  1.21   itojun 	case IPV6_ADDR_SCOPE_SITELOCAL:
   1645  1.21   itojun 		return(0);	/* XXX: invalid. */
   1646  1.21   itojun 
   1647  1.21   itojun 	default:
   1648  1.21   itojun 		return(0);	/* XXX: treat as global. */
   1649  1.21   itojun 	}
   1650  1.21   itojun }
   1651  1.21   itojun 
   1652   1.2   itojun /*
   1653   1.2   itojun  * return length of part which dst and src are equal
   1654   1.2   itojun  * hard coding...
   1655   1.2   itojun  */
   1656   1.2   itojun 
   1657   1.2   itojun int
   1658   1.2   itojun in6_matchlen(src, dst)
   1659   1.2   itojun struct in6_addr *src, *dst;
   1660   1.2   itojun {
   1661   1.2   itojun 	int match = 0;
   1662   1.2   itojun 	u_char *s = (u_char *)src, *d = (u_char *)dst;
   1663   1.2   itojun 	u_char *lim = s + 16, r;
   1664   1.2   itojun 
   1665   1.2   itojun 	while (s < lim)
   1666   1.2   itojun 		if ((r = (*d++ ^ *s++)) != 0) {
   1667   1.2   itojun 			while (r < 128) {
   1668   1.2   itojun 				match++;
   1669   1.2   itojun 				r <<= 1;
   1670   1.2   itojun 			}
   1671   1.2   itojun 			break;
   1672   1.2   itojun 		} else
   1673   1.2   itojun 			match += 8;
   1674   1.2   itojun 	return match;
   1675   1.2   itojun }
   1676   1.2   itojun 
   1677   1.8   itojun int
   1678   1.8   itojun in6_are_prefix_equal(p1, p2, len)
   1679   1.8   itojun 	struct in6_addr *p1, *p2;
   1680   1.8   itojun 	int len;
   1681   1.8   itojun {
   1682   1.8   itojun 	int bytelen, bitlen;
   1683   1.8   itojun 
   1684   1.8   itojun 	/* sanity check */
   1685   1.8   itojun 	if (0 > len || len > 128) {
   1686   1.8   itojun 		log(LOG_ERR, "in6_are_prefix_equal: invalid prefix length(%d)\n",
   1687   1.8   itojun 		    len);
   1688   1.8   itojun 		return(0);
   1689   1.8   itojun 	}
   1690   1.8   itojun 
   1691   1.8   itojun 	bytelen = len / 8;
   1692   1.8   itojun 	bitlen = len % 8;
   1693   1.8   itojun 
   1694   1.8   itojun 	if (bcmp(&p1->s6_addr, &p2->s6_addr, bytelen))
   1695   1.8   itojun 		return(0);
   1696   1.8   itojun 	if (p1->s6_addr[bytelen] >> (8 - bitlen) !=
   1697   1.8   itojun 	    p2->s6_addr[bytelen] >> (8 - bitlen))
   1698   1.8   itojun 		return(0);
   1699   1.8   itojun 
   1700   1.8   itojun 	return(1);
   1701   1.8   itojun }
   1702   1.8   itojun 
   1703   1.8   itojun void
   1704   1.8   itojun in6_prefixlen2mask(maskp, len)
   1705   1.8   itojun 	struct in6_addr *maskp;
   1706   1.8   itojun 	int len;
   1707   1.8   itojun {
   1708   1.8   itojun 	u_char maskarray[8] = {0x80, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc, 0xfe, 0xff};
   1709   1.8   itojun 	int bytelen, bitlen, i;
   1710   1.8   itojun 
   1711   1.8   itojun 	/* sanity check */
   1712   1.8   itojun 	if (0 > len || len > 128) {
   1713   1.8   itojun 		log(LOG_ERR, "in6_prefixlen2mask: invalid prefix length(%d)\n",
   1714   1.8   itojun 		    len);
   1715   1.8   itojun 		return;
   1716   1.8   itojun 	}
   1717   1.8   itojun 
   1718   1.8   itojun 	bzero(maskp, sizeof(*maskp));
   1719   1.8   itojun 	bytelen = len / 8;
   1720   1.8   itojun 	bitlen = len % 8;
   1721   1.8   itojun 	for (i = 0; i < bytelen; i++)
   1722   1.8   itojun 		maskp->s6_addr[i] = 0xff;
   1723   1.8   itojun 	if (bitlen)
   1724   1.8   itojun 		maskp->s6_addr[bytelen] = maskarray[bitlen - 1];
   1725   1.8   itojun }
   1726   1.8   itojun 
   1727   1.2   itojun /*
   1728   1.2   itojun  * return the best address out of the same scope
   1729   1.2   itojun  */
   1730   1.2   itojun struct in6_ifaddr *
   1731  1.21   itojun in6_ifawithscope(oifp, dst)
   1732  1.21   itojun 	register struct ifnet *oifp;
   1733   1.2   itojun 	register struct in6_addr *dst;
   1734   1.2   itojun {
   1735  1.21   itojun 	int dst_scope =	in6_addrscope(dst), src_scope, best_scope;
   1736  1.21   itojun 	int blen = -1;
   1737   1.2   itojun 	struct ifaddr *ifa;
   1738  1.21   itojun 	struct ifnet *ifp;
   1739  1.21   itojun 	struct in6_ifaddr *ifa_best = NULL;
   1740  1.21   itojun 
   1741  1.21   itojun 	if (oifp == NULL) {
   1742  1.21   itojun 		printf("in6_ifawithscope: output interface is not specified\n");
   1743  1.21   itojun 		return(NULL);
   1744  1.21   itojun 	}
   1745   1.2   itojun 
   1746   1.2   itojun 	/*
   1747  1.21   itojun 	 * We search for all addresses on all interfaces from the beginning.
   1748  1.21   itojun 	 * Comparing an interface with the outgoing interface will be done
   1749  1.21   itojun 	 * only at the final stage of tiebreaking.
   1750   1.2   itojun 	 */
   1751  1.21   itojun 	for (ifp = TAILQ_FIRST(&ifnet); ifp; ifp = TAILQ_NEXT(ifp, if_list))
   1752   1.8   itojun 	{
   1753  1.21   itojun 		/*
   1754  1.21   itojun 		 * We can never take an address that breaks the scope zone
   1755  1.21   itojun 		 * of the destination.
   1756  1.21   itojun 		 */
   1757  1.21   itojun 		if (in6_addr2scopeid(ifp, dst) != in6_addr2scopeid(oifp, dst))
   1758   1.2   itojun 			continue;
   1759   1.2   itojun 
   1760  1.21   itojun 		for (ifa = ifp->if_addrlist.tqh_first; ifa;
   1761  1.21   itojun 		     ifa = ifa->ifa_list.tqe_next)
   1762  1.21   itojun 		{
   1763  1.21   itojun 			int tlen = -1, dscopecmp, bscopecmp, matchcmp;
   1764  1.21   itojun 
   1765  1.21   itojun 			if (ifa->ifa_addr->sa_family != AF_INET6)
   1766  1.21   itojun 				continue;
   1767  1.21   itojun 
   1768  1.21   itojun 			src_scope = in6_addrscope(IFA_IN6(ifa));
   1769  1.21   itojun 
   1770  1.21   itojun #ifdef ADDRSELECT_DEBUG		/* should be removed after stabilization */
   1771  1.21   itojun 			dscopecmp = IN6_ARE_SCOPE_CMP(src_scope, dst_scope);
   1772  1.21   itojun 			printf("in6_ifawithscope: dst=%s bestaddr=%s, "
   1773  1.21   itojun 			       "newaddr=%s, scope=%x, dcmp=%d, bcmp=%d, "
   1774  1.21   itojun 			       "matchlen=%d, flgs=%x\n",
   1775  1.21   itojun 			       ip6_sprintf(dst),
   1776  1.21   itojun 			       ifa_best ? ip6_sprintf(&ifa_best->ia_addr.sin6_addr) : "none",
   1777  1.21   itojun 			       ip6_sprintf(IFA_IN6(ifa)), src_scope,
   1778  1.21   itojun 			       dscopecmp,
   1779  1.21   itojun 			       ifa_best ? IN6_ARE_SCOPE_CMP(src_scope, best_scope) : -1,
   1780  1.21   itojun 			       in6_matchlen(IFA_IN6(ifa), dst),
   1781  1.21   itojun 			       ((struct in6_ifaddr *)ifa)->ia6_flags);
   1782  1.21   itojun #endif
   1783  1.21   itojun 
   1784  1.21   itojun 			/*
   1785  1.21   itojun 			 * Don't use an address before completing DAD
   1786  1.21   itojun 			 * nor a duplicated address.
   1787  1.21   itojun 			 */
   1788  1.21   itojun 			if (((struct in6_ifaddr *)ifa)->ia6_flags &
   1789  1.21   itojun 			    IN6_IFF_NOTREADY)
   1790  1.21   itojun 				continue;
   1791  1.21   itojun 
   1792  1.21   itojun 			/* XXX: is there any case to allow anycasts? */
   1793  1.21   itojun 			if (((struct in6_ifaddr *)ifa)->ia6_flags &
   1794  1.21   itojun 			    IN6_IFF_ANYCAST)
   1795  1.21   itojun 				continue;
   1796  1.21   itojun 
   1797  1.21   itojun 			if (((struct in6_ifaddr *)ifa)->ia6_flags &
   1798  1.21   itojun 			    IN6_IFF_DETACHED)
   1799  1.21   itojun 				continue;
   1800  1.21   itojun 
   1801  1.21   itojun 			/*
   1802  1.21   itojun 			 * If this is the first address we find,
   1803  1.21   itojun 			 * keep it anyway.
   1804  1.21   itojun 			 */
   1805  1.21   itojun 			if (ifa_best == NULL)
   1806  1.21   itojun 				goto replace;
   1807  1.21   itojun 
   1808  1.21   itojun 			/*
   1809  1.21   itojun 			 * ifa_best is never NULL beyond this line except
   1810  1.21   itojun 			 * within the block labeled "replace".
   1811  1.21   itojun 			 */
   1812  1.21   itojun 
   1813  1.21   itojun 			/*
   1814  1.21   itojun 			 * If ifa_best has a smaller scope than dst and
   1815  1.21   itojun 			 * the current address has a larger one than
   1816  1.21   itojun 			 * (or equal to) dst, always replace ifa_best.
   1817  1.21   itojun 			 * Also, if the current address has a smaller scope
   1818  1.21   itojun 			 * than dst, ignore it unless ifa_best also has a
   1819  1.21   itojun 			 * smaller scope.
   1820  1.21   itojun 			 */
   1821  1.21   itojun 			if (IN6_ARE_SCOPE_CMP(best_scope, dst_scope) < 0 &&
   1822  1.21   itojun 			    IN6_ARE_SCOPE_CMP(src_scope, dst_scope) >= 0)
   1823  1.21   itojun 				goto replace;
   1824  1.21   itojun 			if (IN6_ARE_SCOPE_CMP(src_scope, dst_scope) < 0 &&
   1825  1.21   itojun 			    IN6_ARE_SCOPE_CMP(best_scope, dst_scope) >= 0)
   1826  1.21   itojun 				continue;
   1827  1.21   itojun 
   1828  1.21   itojun 			/*
   1829  1.21   itojun 			 * A deprecated address SHOULD NOT be used in new
   1830  1.21   itojun 			 * communications if an alternate (non-deprecated)
   1831  1.21   itojun 			 * address is available and has sufficient scope.
   1832  1.21   itojun 			 * RFC 2462, Section 5.5.4.
   1833  1.21   itojun 			 */
   1834  1.21   itojun 			if (((struct in6_ifaddr *)ifa)->ia6_flags &
   1835  1.21   itojun 			    IN6_IFF_DEPRECATED) {
   1836  1.21   itojun 				/*
   1837  1.21   itojun 				 * Ignore any deprecated addresses if
   1838  1.21   itojun 				 * specified by configuration.
   1839  1.21   itojun 				 */
   1840  1.21   itojun 				if (!ip6_use_deprecated)
   1841  1.21   itojun 					continue;
   1842  1.21   itojun 
   1843  1.21   itojun 				/*
   1844  1.21   itojun 				 * If we have already found a non-deprecated
   1845  1.21   itojun 				 * candidate, just ignore deprecated addresses.
   1846  1.21   itojun 				 */
   1847  1.21   itojun 				if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED)
   1848  1.21   itojun 				    == 0)
   1849  1.21   itojun 					continue;
   1850  1.21   itojun 			}
   1851  1.21   itojun 
   1852  1.21   itojun 			/*
   1853  1.21   itojun 			 * A non-deprecated address is always preferred
   1854  1.21   itojun 			 * to a deprecated one regardless of scopes and
   1855  1.21   itojun 			 * address matching.
   1856  1.21   itojun 			 */
   1857  1.21   itojun 			if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED) &&
   1858  1.21   itojun 			    (((struct in6_ifaddr *)ifa)->ia6_flags &
   1859  1.21   itojun 			     IN6_IFF_DEPRECATED) == 0)
   1860  1.21   itojun 				goto replace;
   1861  1.21   itojun 
   1862  1.21   itojun 			/*
   1863  1.21   itojun 			 * At this point, we have two cases:
   1864  1.21   itojun 			 * 1. we are looking at a non-deprecated address,
   1865  1.21   itojun 			 *    and ifa_best is also non-deprecated.
   1866  1.21   itojun 			 * 2. we are looking at a deprecated address,
   1867  1.21   itojun 			 *    and ifa_best is also deprecated.
   1868  1.21   itojun 			 * Also, we do not have to consider a case where
   1869  1.21   itojun 			 * the scope of if_best is larger(smaller) than dst and
   1870  1.21   itojun 			 * the scope of the current address is smaller(larger)
   1871  1.21   itojun 			 * than dst. Such a case has already been covered.
   1872  1.21   itojun 			 * Tiebreaking is done according to the following
   1873  1.21   itojun 			 * items:
   1874  1.21   itojun 			 * - the scope comparison between the address and
   1875  1.21   itojun 			 *   dst (dscopecmp)
   1876  1.21   itojun 			 * - the scope comparison between the address and
   1877  1.21   itojun 			 *   ifa_best (bscopecmp)
   1878  1.21   itojun 			 * - if the address match dst longer than ifa_best
   1879  1.21   itojun 			 *   (matchcmp)
   1880  1.21   itojun 			 * - if the address is on the outgoing I/F (outI/F)
   1881  1.21   itojun 			 *
   1882  1.21   itojun 			 * Roughly speaking, the selection policy is
   1883  1.21   itojun 			 * - the most important item is scope. The same scope
   1884  1.21   itojun 			 *   is best. Then search for a larger scope.
   1885  1.21   itojun 			 *   Smaller scopes are the last resort.
   1886  1.21   itojun 			 * - A deprecated address is chosen only when we have
   1887  1.21   itojun 			 *   no address that has an enough scope, but is
   1888  1.21   itojun 			 *   prefered to any addresses of smaller scopes.
   1889  1.21   itojun 			 * - Longest address match against dst is considered
   1890  1.21   itojun 			 *   only for addresses that has the same scope of dst.
   1891  1.21   itojun 			 * - If there is no other reasons to choose one,
   1892  1.21   itojun 			 *   addresses on the outgoing I/F are preferred.
   1893  1.21   itojun 			 *
   1894  1.21   itojun 			 * The precise decision table is as follows:
   1895  1.21   itojun 			 * dscopecmp bscopecmp matchcmp outI/F | replace?
   1896  1.21   itojun 			 *    !equal     equal      N/A    Yes |      Yes (1)
   1897  1.21   itojun 			 *    !equal     equal      N/A     No |       No (2)
   1898  1.21   itojun 			 *    larger    larger      N/A    N/A |       No (3)
   1899  1.21   itojun 			 *    larger   smaller      N/A    N/A |      Yes (4)
   1900  1.21   itojun 			 *   smaller    larger      N/A    N/A |      Yes (5)
   1901  1.21   itojun 			 *   smaller   smaller      N/A    N/A |       No (6)
   1902  1.21   itojun 			 *     equal   smaller      N/A    N/A |      Yes (7)
   1903  1.21   itojun 			 *     equal    larger       (already done)
   1904  1.21   itojun 			 *     equal     equal   larger    N/A |      Yes (8)
   1905  1.21   itojun 			 *     equal     equal  smaller    N/A |       No (9)
   1906  1.21   itojun 			 *     equal     equal    equal    Yes |      Yes (a)
   1907  1.21   itojun 			 *     eaual     eqaul    equal     No |       No (b)
   1908  1.21   itojun 			 */
   1909  1.21   itojun 			dscopecmp = IN6_ARE_SCOPE_CMP(src_scope, dst_scope);
   1910  1.21   itojun 			bscopecmp = IN6_ARE_SCOPE_CMP(src_scope, best_scope);
   1911  1.21   itojun 
   1912  1.21   itojun 			if (dscopecmp && bscopecmp == 0) {
   1913  1.21   itojun 				if (oifp == ifp) /* (1) */
   1914  1.21   itojun 					goto replace;
   1915  1.21   itojun 				continue; /* (2) */
   1916  1.21   itojun 			}
   1917  1.21   itojun 			if (dscopecmp > 0) {
   1918  1.21   itojun 				if (bscopecmp > 0) /* (3) */
   1919  1.21   itojun 					continue;
   1920  1.21   itojun 				goto replace; /* (4) */
   1921  1.21   itojun 			}
   1922  1.21   itojun 			if (dscopecmp < 0) {
   1923  1.21   itojun 				if (bscopecmp > 0) /* (5) */
   1924  1.21   itojun 					goto replace;
   1925  1.21   itojun 				continue; /* (6) */
   1926  1.21   itojun 			}
   1927  1.21   itojun 
   1928  1.21   itojun 			/* now dscopecmp must be 0 */
   1929  1.21   itojun 			if (bscopecmp < 0)
   1930  1.21   itojun 				goto replace; /* (7) */
   1931  1.21   itojun 
   1932   1.2   itojun 			/*
   1933  1.21   itojun 			 * At last both dscopecmp and bscopecmp must be 0.
   1934  1.21   itojun 			 * We need address matching against dst for
   1935  1.21   itojun 			 * tiebreaking.
   1936   1.2   itojun 			 */
   1937  1.21   itojun 			tlen = in6_matchlen(IFA_IN6(ifa), dst);
   1938  1.21   itojun 			matchcmp = tlen - blen;
   1939  1.21   itojun 			if (matchcmp > 0) /* (8) */
   1940  1.21   itojun 				goto replace;
   1941  1.21   itojun 			if (matchcmp < 0) /* (9) */
   1942  1.21   itojun 				continue;
   1943  1.21   itojun 			if (oifp == ifp) /* (a) */
   1944  1.21   itojun 				goto replace;
   1945  1.21   itojun 			continue; /* (b) */
   1946  1.21   itojun 
   1947  1.21   itojun 		  replace:
   1948  1.21   itojun 			ifa_best = (struct in6_ifaddr *)ifa;
   1949  1.21   itojun 			blen = tlen >= 0 ? tlen :
   1950  1.21   itojun 				in6_matchlen(IFA_IN6(ifa), dst);
   1951  1.21   itojun 			best_scope = in6_addrscope(&ifa_best->ia_addr.sin6_addr);
   1952   1.2   itojun 		}
   1953   1.2   itojun 	}
   1954   1.2   itojun 
   1955  1.21   itojun 	/* count statistics for future improvements */
   1956  1.21   itojun 	if (ifa_best == NULL)
   1957  1.21   itojun 		ip6stat.ip6s_sources_none++;
   1958  1.21   itojun 	else {
   1959  1.21   itojun 		if (oifp == ifa_best->ia_ifp)
   1960  1.21   itojun 			ip6stat.ip6s_sources_sameif[best_scope]++;
   1961  1.21   itojun 		else
   1962  1.21   itojun 			ip6stat.ip6s_sources_otherif[best_scope]++;
   1963  1.21   itojun 
   1964  1.21   itojun 		if (best_scope == dst_scope)
   1965  1.21   itojun 			ip6stat.ip6s_sources_samescope[best_scope]++;
   1966  1.21   itojun 		else
   1967  1.21   itojun 			ip6stat.ip6s_sources_otherscope[best_scope]++;
   1968  1.21   itojun 
   1969  1.21   itojun 		if ((ifa_best->ia6_flags & IN6_IFF_DEPRECATED) != 0)
   1970  1.21   itojun 			ip6stat.ip6s_sources_deprecated[best_scope]++;
   1971   1.2   itojun 	}
   1972   1.2   itojun 
   1973  1.21   itojun 	return(ifa_best);
   1974   1.2   itojun }
   1975   1.2   itojun 
   1976   1.2   itojun /*
   1977   1.2   itojun  * return the best address out of the same scope. if no address was
   1978   1.2   itojun  * found, return the first valid address from designated IF.
   1979   1.2   itojun  */
   1980   1.2   itojun 
   1981   1.2   itojun struct in6_ifaddr *
   1982   1.2   itojun in6_ifawithifp(ifp, dst)
   1983   1.2   itojun 	register struct ifnet *ifp;
   1984   1.2   itojun 	register struct in6_addr *dst;
   1985   1.2   itojun {
   1986   1.2   itojun 	int dst_scope =	in6_addrscope(dst), blen = -1, tlen;
   1987   1.2   itojun 	struct ifaddr *ifa;
   1988   1.2   itojun 	struct in6_ifaddr *besta = 0;
   1989   1.8   itojun 	struct in6_ifaddr *dep[2];	/*last-resort: deprecated*/
   1990   1.8   itojun 
   1991   1.8   itojun 	dep[0] = dep[1] = NULL;
   1992   1.2   itojun 
   1993   1.2   itojun 	/*
   1994  1.18   itojun 	 * We first look for addresses in the same scope.
   1995   1.2   itojun 	 * If there is one, return it.
   1996   1.2   itojun 	 * If two or more, return one which matches the dst longest.
   1997   1.2   itojun 	 * If none, return one of global addresses assigned other ifs.
   1998   1.2   itojun 	 */
   1999   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   2000   1.8   itojun 	{
   2001   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
   2002   1.2   itojun 			continue;
   2003   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_ANYCAST)
   2004   1.2   itojun 			continue; /* XXX: is there any case to allow anycast? */
   2005   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_NOTREADY)
   2006   1.2   itojun 			continue; /* don't use this interface */
   2007   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DETACHED)
   2008   1.2   itojun 			continue;
   2009   1.8   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
   2010   1.8   itojun 			if (ip6_use_deprecated)
   2011   1.8   itojun 				dep[0] = (struct in6_ifaddr *)ifa;
   2012   1.2   itojun 			continue;
   2013   1.8   itojun 		}
   2014   1.2   itojun 
   2015   1.8   itojun 		if (dst_scope == in6_addrscope(IFA_IN6(ifa))) {
   2016   1.2   itojun 			/*
   2017   1.2   itojun 			 * call in6_matchlen() as few as possible
   2018   1.2   itojun 			 */
   2019   1.2   itojun 			if (besta) {
   2020   1.2   itojun 				if (blen == -1)
   2021   1.2   itojun 					blen = in6_matchlen(&besta->ia_addr.sin6_addr, dst);
   2022   1.8   itojun 				tlen = in6_matchlen(IFA_IN6(ifa), dst);
   2023   1.2   itojun 				if (tlen > blen) {
   2024   1.2   itojun 					blen = tlen;
   2025   1.2   itojun 					besta = (struct in6_ifaddr *)ifa;
   2026   1.2   itojun 				}
   2027  1.18   itojun 			} else
   2028   1.2   itojun 				besta = (struct in6_ifaddr *)ifa;
   2029   1.2   itojun 		}
   2030   1.2   itojun 	}
   2031   1.2   itojun 	if (besta)
   2032   1.2   itojun 		return(besta);
   2033   1.2   itojun 
   2034   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   2035   1.8   itojun 	{
   2036   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
   2037   1.2   itojun 			continue;
   2038   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_ANYCAST)
   2039   1.2   itojun 			continue; /* XXX: is there any case to allow anycast? */
   2040   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_NOTREADY)
   2041   1.2   itojun 			continue; /* don't use this interface */
   2042   1.2   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DETACHED)
   2043   1.2   itojun 			continue;
   2044   1.8   itojun 		if (((struct in6_ifaddr *)ifa)->ia6_flags & IN6_IFF_DEPRECATED) {
   2045   1.8   itojun 			if (ip6_use_deprecated)
   2046   1.8   itojun 				dep[1] = (struct in6_ifaddr *)ifa;
   2047   1.2   itojun 			continue;
   2048   1.8   itojun 		}
   2049   1.2   itojun 
   2050   1.2   itojun 		return (struct in6_ifaddr *)ifa;
   2051   1.2   itojun 	}
   2052   1.2   itojun 
   2053   1.8   itojun 	/* use the last-resort values, that are, deprecated addresses */
   2054   1.8   itojun 	if (dep[0])
   2055   1.8   itojun 		return dep[0];
   2056   1.8   itojun 	if (dep[1])
   2057   1.8   itojun 		return dep[1];
   2058   1.8   itojun 
   2059   1.2   itojun 	return NULL;
   2060   1.2   itojun }
   2061   1.2   itojun 
   2062   1.2   itojun /*
   2063   1.2   itojun  * perform DAD when interface becomes IFF_UP.
   2064   1.2   itojun  */
   2065   1.2   itojun void
   2066   1.2   itojun in6_if_up(ifp)
   2067   1.2   itojun 	struct ifnet *ifp;
   2068   1.2   itojun {
   2069   1.2   itojun 	struct ifaddr *ifa;
   2070   1.2   itojun 	struct in6_ifaddr *ia;
   2071   1.2   itojun 	struct sockaddr_dl *sdl;
   2072   1.2   itojun 	int type;
   2073   1.2   itojun 	struct ether_addr ea;
   2074   1.2   itojun 	int off;
   2075   1.2   itojun 	int dad_delay;		/* delay ticks before DAD output */
   2076   1.2   itojun 
   2077   1.2   itojun 	bzero(&ea, sizeof(ea));
   2078   1.2   itojun 	sdl = NULL;
   2079   1.2   itojun 
   2080   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   2081   1.8   itojun 	{
   2082   1.2   itojun 		if (ifa->ifa_addr->sa_family == AF_INET6
   2083   1.2   itojun 		 && IN6_IS_ADDR_LINKLOCAL(&((struct sockaddr_in6 *)ifa->ifa_addr)->sin6_addr)) {
   2084   1.2   itojun 			goto dad;
   2085   1.2   itojun 		}
   2086   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_LINK)
   2087   1.2   itojun 			continue;
   2088   1.2   itojun 		sdl = (struct sockaddr_dl *)ifa->ifa_addr;
   2089   1.2   itojun 		break;
   2090   1.2   itojun 	}
   2091   1.2   itojun 
   2092   1.2   itojun 	switch (ifp->if_type) {
   2093   1.8   itojun 	case IFT_LOOP:
   2094   1.8   itojun 		in6_ifattach(ifp, IN6_IFT_LOOP, NULL, 1);
   2095   1.8   itojun 		break;
   2096   1.2   itojun 	case IFT_SLIP:
   2097   1.2   itojun 	case IFT_PPP:
   2098   1.2   itojun 	case IFT_GIF:
   2099   1.2   itojun 	case IFT_FAITH:
   2100   1.2   itojun 		type = IN6_IFT_P2P;
   2101   1.2   itojun 		in6_ifattach(ifp, type, 0, 1);
   2102   1.2   itojun 		break;
   2103   1.2   itojun 	case IFT_ETHER:
   2104   1.2   itojun 	case IFT_FDDI:
   2105   1.2   itojun 	case IFT_ATM:
   2106   1.2   itojun 		type = IN6_IFT_802;
   2107   1.2   itojun 		if (sdl == NULL)
   2108   1.2   itojun 			break;
   2109   1.2   itojun 		off = sdl->sdl_nlen;
   2110   1.2   itojun 		if (bcmp(&sdl->sdl_data[off], &ea, sizeof(ea)) != 0)
   2111   1.6       is 			in6_ifattach(ifp, type, LLADDR(sdl), 0);
   2112   1.6       is 		break;
   2113   1.6       is 	case IFT_ARCNET:
   2114   1.6       is 		type = IN6_IFT_ARCNET;
   2115   1.6       is 		if (sdl == NULL)
   2116   1.6       is 			break;
   2117   1.6       is 		off = sdl->sdl_nlen;
   2118   1.6       is 		if (sdl->sdl_data[off] != 0)	/* XXX ?: */
   2119   1.2   itojun 			in6_ifattach(ifp, type, LLADDR(sdl), 0);
   2120   1.2   itojun 		break;
   2121   1.2   itojun 	default:
   2122   1.2   itojun 		break;
   2123   1.2   itojun 	}
   2124   1.2   itojun 
   2125   1.2   itojun dad:
   2126   1.2   itojun 	dad_delay = 0;
   2127   1.8   itojun 	for (ifa = ifp->if_addrlist.tqh_first; ifa; ifa = ifa->ifa_list.tqe_next)
   2128   1.8   itojun 	{
   2129   1.2   itojun 		if (ifa->ifa_addr->sa_family != AF_INET6)
   2130   1.2   itojun 			continue;
   2131   1.2   itojun 		ia = (struct in6_ifaddr *)ifa;
   2132   1.2   itojun 		if (ia->ia6_flags & IN6_IFF_TENTATIVE)
   2133   1.2   itojun 			nd6_dad_start(ifa, &dad_delay);
   2134   1.2   itojun 	}
   2135   1.2   itojun }
   2136   1.2   itojun 
   2137   1.2   itojun /*
   2138   1.2   itojun  * Calculate max IPv6 MTU through all the interfaces and store it
   2139   1.2   itojun  * to in6_maxmtu.
   2140   1.2   itojun  */
   2141   1.2   itojun void
   2142   1.2   itojun in6_setmaxmtu()
   2143   1.2   itojun {
   2144   1.2   itojun 	unsigned long maxmtu = 0;
   2145   1.2   itojun 	struct ifnet *ifp;
   2146   1.2   itojun 
   2147   1.8   itojun 	for (ifp = TAILQ_FIRST(&ifnet); ifp; ifp = TAILQ_NEXT(ifp, if_list))
   2148   1.8   itojun 	{
   2149   1.2   itojun 		if ((ifp->if_flags & IFF_LOOPBACK) == 0 &&
   2150   1.2   itojun 		    nd_ifinfo[ifp->if_index].linkmtu > maxmtu)
   2151   1.2   itojun 			maxmtu =  nd_ifinfo[ifp->if_index].linkmtu;
   2152   1.2   itojun 	}
   2153   1.2   itojun 	if (maxmtu)	/* update only when maxmtu is positive */
   2154   1.2   itojun 		in6_maxmtu = maxmtu;
   2155   1.2   itojun }
   2156