branch for net release, apply 7.6 to 7.4

[unix-history] / usr / src / sys / net / if.c

/*
* Copyright (c) 1980, 1986 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*
*      @(#)if.c        7.6.1.1 (Berkeley) %G%
*/

#include "param.h"
#include "mbuf.h"
#include "systm.h"
#include "socket.h"
#include "socketvar.h"
#include "protosw.h"
#include "dir.h"
#include "user.h"
#include "kernel.h"
#include "ioctl.h"
#include "errno.h"

#include "if.h"
#include "af.h"

#include "ether.h"

int     ifqmaxlen = IFQ_MAXLEN;

/*
* Network interface utility routines.
*
* Routines with ifa_ifwith* names take sockaddr *'s as
* parameters.
*/

ifinit()
{
       register struct ifnet *ifp;

       for (ifp = ifnet; ifp; ifp = ifp->if_next)
               if (ifp->if_snd.ifq_maxlen == 0)
                       ifp->if_snd.ifq_maxlen = ifqmaxlen;
       if_slowtimo();
}

#ifdef vax
/*
* Call each interface on a Unibus reset.
*/
ifubareset(uban)
       int uban;
{
       register struct ifnet *ifp;

       for (ifp = ifnet; ifp; ifp = ifp->if_next)
               if (ifp->if_reset)
                       (*ifp->if_reset)(ifp->if_unit, uban);
}
#endif

/*
* Attach an interface to the
* list of "active" interfaces.
*/
if_attach(ifp)
       struct ifnet *ifp;
{
       register struct ifnet **p = &ifnet;

       while (*p)
               p = &((*p)->if_next);
       *p = ifp;
}

/*
* Locate an interface based on a complete address.
*/
/*ARGSUSED*/
struct ifaddr *
ifa_ifwithaddr(addr)
       register struct sockaddr *addr;
{
       register struct ifnet *ifp;
       register struct ifaddr *ifa;

#define equal(a1, a2) \
 (bcmp((caddr_t)(a1), (caddr_t)(a2), ((struct sockaddr *)(a1))->sa_len) == 0)
       for (ifp = ifnet; ifp; ifp = ifp->if_next)
           for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next) {
               if (ifa->ifa_addr->sa_family != addr->sa_family)
                       continue;
               if (equal(addr, ifa->ifa_addr))
                       return (ifa);
               if ((ifp->if_flags & IFF_BROADCAST) &&
                   equal(&ifa->ifa_broadaddr, addr))
                       return (ifa);
       }
       return ((struct ifaddr *)0);
}
/*
* Locate the point to point interface with a given destination address.
*/
/*ARGSUSED*/
struct ifaddr *
ifa_ifwithdstaddr(addr)
       register struct sockaddr *addr;
{
       register struct ifnet *ifp;
       register struct ifaddr *ifa;

       for (ifp = ifnet; ifp; ifp = ifp->if_next) 
           if (ifp->if_flags & IFF_POINTOPOINT)
               for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next) {
                       if (ifa->ifa_addr->sa_family != addr->sa_family)
                               continue;
                       if (equal(addr, ifa->ifa_dstaddr))
                               return (ifa);
       }
       return ((struct ifaddr *)0);
}

/*
* Find an interface on a specific network.  If many, choice
* is first found.
*/
struct ifaddr *
ifa_ifwithnet(addr)
       struct sockaddr *addr;
{
       register struct ifnet *ifp;
       register struct ifaddr *ifa;
       register char *cp, *cp2, *cp3;
       register char *cplim;
       u_int af = addr->sa_family;

       if (af >= AF_MAX)
               return (0);
       for (ifp = ifnet; ifp; ifp = ifp->if_next)
           for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next) {
               if (ifa->ifa_addr->sa_family != af || ifa->ifa_netmask == 0)
                       continue;
               cp = addr->sa_data;
               cp2 = ifa->ifa_addr->sa_data;
               cp3 = ifa->ifa_netmask->sa_data;
               cplim = ifa->ifa_netmask->sa_len + (char *)ifa->ifa_netmask;
               for (; cp3 < cplim; cp3++)
                       if ((*cp++ ^ *cp2++) & *cp3)
                               break;
               if (cp3 == cplim)
                       return (ifa);
           }
       return ((struct ifaddr *)0);
}

#ifdef notdef
/*
* Find an interface using a specific address family
*/
struct ifaddr *
ifa_ifwithaf(af)
       register int af;
{
       register struct ifnet *ifp;
       register struct ifaddr *ifa;

       for (ifp = ifnet; ifp; ifp = ifp->if_next)
           for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
               if (ifa->ifa_addr->sa_family == af)
                       return (ifa);
       return ((struct ifaddr *)0);
}
#endif

/*
* Mark an interface down and notify protocols of
* the transition.
* NOTE: must be called at splnet or eqivalent.
*/
if_down(ifp)
       register struct ifnet *ifp;
{
       register struct ifaddr *ifa;

       ifp->if_flags &= ~IFF_UP;
       for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
               pfctlinput(PRC_IFDOWN, ifa->ifa_addr);
       if_qflush(&ifp->if_snd);
}

/*
* Flush an interface queue.
*/
if_qflush(ifq)
       register struct ifqueue *ifq;
{
       register struct mbuf *m, *n;

       n = ifq->ifq_head;
       while (m = n) {
               n = m->m_act;
               m_freem(m);
       }
       ifq->ifq_head = 0;
       ifq->ifq_tail = 0;
       ifq->ifq_len = 0;
}

/*
* Handle interface watchdog timer routines.  Called
* from softclock, we decrement timers (if set) and
* call the appropriate interface routine on expiration.
*/
if_slowtimo()
{
       register struct ifnet *ifp;
       int s = splimp();

       for (ifp = ifnet; ifp; ifp = ifp->if_next) {
               if (ifp->if_timer == 0 || --ifp->if_timer)
                       continue;
               if (ifp->if_watchdog)
                       (*ifp->if_watchdog)(ifp->if_unit);
       }
       splx(s);
       timeout(if_slowtimo, (caddr_t)0, hz / IFNET_SLOWHZ);
}

/*
* Map interface name to
* interface structure pointer.
*/
struct ifnet *
ifunit(name)
       register char *name;
{
       register char *cp;
       register struct ifnet *ifp;
       int unit;
       unsigned len;
       char *ep, c;

       for (cp = name; cp < name + IFNAMSIZ && *cp; cp++)
               if (*cp >= '0' && *cp <= '9')
                       break;
       if (*cp == '\0' || cp == name + IFNAMSIZ)
               return ((struct ifnet *)0);
       /*
        * Save first char of unit, and pointer to it,
        * so we can put a null there to avoid matching
        * initial substrings of interface names.
        */
       len = cp - name + 1;
       c = *cp;
       ep = cp;
       for (unit = 0; *cp >= '0' && *cp <= '9'; )
               unit = unit * 10 + *cp++ - '0';
       *ep = 0;
       for (ifp = ifnet; ifp; ifp = ifp->if_next) {
               if (bcmp(ifp->if_name, name, len))
                       continue;
               if (unit == ifp->if_unit)
                       break;
       }
       *ep = c;
       return (ifp);
}

/*
* Interface ioctls.
*/
ifioctl(so, cmd, data)
       struct socket *so;
       int cmd;
       caddr_t data;
{
       register struct ifnet *ifp;
       register struct ifreq *ifr;

       switch (cmd) {

       case SIOCGIFCONF:
       case OSIOCGIFCONF:
               return (ifconf(cmd, data));

#if defined(INET) && NETHER > 0
       case SIOCSARP:
       case SIOCDARP:
               if (!suser())
                       return (u.u_error);
               /* FALL THROUGH */
       case SIOCGARP:
       case OSIOCGARP:
               return (arpioctl(cmd, data));
#endif
       }
       ifr = (struct ifreq *)data;
       ifp = ifunit(ifr->ifr_name);
       if (ifp == 0)
               return (ENXIO);
       switch (cmd) {

       case SIOCGIFFLAGS:
               ifr->ifr_flags = ifp->if_flags;
               break;

       case SIOCGIFMETRIC:
               ifr->ifr_metric = ifp->if_metric;
               break;

       case SIOCSIFFLAGS:
               if (!suser())
                       return (u.u_error);
               if (ifp->if_flags & IFF_UP && (ifr->ifr_flags & IFF_UP) == 0) {
                       int s = splimp();
                       if_down(ifp);
                       splx(s);
               }
               ifp->if_flags = (ifp->if_flags & IFF_CANTCHANGE) |
                       (ifr->ifr_flags &~ IFF_CANTCHANGE);
               if (ifp->if_ioctl)
                       (void) (*ifp->if_ioctl)(ifp, cmd, data);
               break;

       case SIOCSIFMETRIC:
               if (!suser())
                       return (u.u_error);
               ifp->if_metric = ifr->ifr_metric;
               break;

       default:
               if (so->so_proto == 0)
                       return (EOPNOTSUPP);
#ifndef COMPAT_43
               return ((*so->so_proto->pr_usrreq)(so, PRU_CONTROL,
                       cmd, data, ifp));
#else
           {
               int error, ocmd = cmd;

               switch (cmd) {

               case SIOCSIFDSTADDR:
               case SIOCSIFADDR:
               case SIOCSIFBRDADDR:
               case SIOCSIFNETMASK:
#if BYTE_ORDER != BIG_ENDIAN
                       if (ifr->ifr_addr.sa_family == 0 &&
                           ifr->ifr_addr.sa_len < 16) {
                               ifr->ifr_addr.sa_family = ifr->ifr_addr.sa_len;
                               ifr->ifr_addr.sa_len = 16;
                       }
#else
                       if (ifr->ifr_addr.sa_len == 0)
                               ifr->ifr_addr.sa_len = 16;
#endif
                       break;

               case OSIOCGIFADDR:
                       cmd = SIOCGIFADDR;
                       break;

               case OSIOCGIFDSTADDR:
                       cmd = SIOCGIFDSTADDR;
                       break;

               case OSIOCGIFBRDADDR:
                       cmd = SIOCGIFBRDADDR;
                       break;

               case OSIOCGIFNETMASK:
                       cmd = SIOCGIFNETMASK;
               }
               error =  ((*so->so_proto->pr_usrreq)(so, PRU_CONTROL,
                                                           cmd, data, ifp));
               switch (ocmd) {

               case OSIOCGIFADDR:
               case OSIOCGIFDSTADDR:
               case OSIOCGIFBRDADDR:
               case OSIOCGIFNETMASK:
                       *(u_short *)&ifr->ifr_addr = ifr->ifr_addr.sa_family;
               }
               return (error);

           }
#endif
       }
       return (0);
}

/*
* Return interface configuration
* of system.  List may be used
* in later ioctl's (above) to get
* other information.
*/
/*ARGSUSED*/
ifconf(cmd, data)
       int cmd;
       caddr_t data;
{
       register struct ifconf *ifc = (struct ifconf *)data;
       register struct ifnet *ifp = ifnet;
       register struct ifaddr *ifa;
       register char *cp, *ep;
       struct ifreq ifr, *ifrp;
       int space = ifc->ifc_len, error = 0;

       ifrp = ifc->ifc_req;
       ep = ifr.ifr_name + sizeof (ifr.ifr_name) - 2;
       for (; space > sizeof (ifr) && ifp; ifp = ifp->if_next) {
               bcopy(ifp->if_name, ifr.ifr_name, sizeof (ifr.ifr_name) - 2);
               for (cp = ifr.ifr_name; cp < ep && *cp; cp++)
                       ;
               *cp++ = '0' + ifp->if_unit; *cp = '\0';
               if ((ifa = ifp->if_addrlist) == 0) {
                       bzero((caddr_t)&ifr.ifr_addr, sizeof(ifr.ifr_addr));
                       error = copyout((caddr_t)&ifr, (caddr_t)ifrp, sizeof (ifr));
                       if (error)
                               break;
                       space -= sizeof (ifr), ifrp++;
               } else 
                   for ( ; space > sizeof (ifr) && ifa; ifa = ifa->ifa_next) {
                       register struct sockaddr *sa = ifa->ifa_addr;
#ifdef COMPAT_43
                       if (cmd == OSIOCGIFCONF) {
                               struct osockaddr *osa =
                                        (struct osockaddr *)&ifr.ifr_addr;
                               ifr.ifr_addr = *sa;
                               osa->sa_family = sa->sa_family;
                               error = copyout((caddr_t)&ifr, (caddr_t)ifrp,
                                               sizeof (ifr));
                               ifrp++;
                       } else
#endif
                       if (sa->sa_len <= sizeof(*sa)) {
                               ifr.ifr_addr = *sa;
                               error = copyout((caddr_t)&ifr, (caddr_t)ifrp,
                                               sizeof (ifr));
                               ifrp++;
                       } else {
                               space -= sa->sa_len - sizeof(*sa);
                               if (space < sizeof (ifr))
                                       break;
                               error = copyout((caddr_t)&ifr, (caddr_t)ifrp,
                                               sizeof (ifr.ifr_name));
                               if (error == 0)
                                   error = copyout((caddr_t)sa,
                                     (caddr_t)&ifrp->ifr_addr, sa->sa_len);
                               ifrp = (struct ifreq *)
                                       (sa->sa_len + (caddr_t)&ifrp->ifr_addr);
                       }
                       if (error)
                               break;
                       space -= sizeof (ifr);
               }
       }
       ifc->ifc_len -= space;
       return (error);
}