sys/net/if_atmsubr.c

   1 /*      $NetBSD: if_atmsubr.c,v 1.10 1997/03/11 23:19:51 chuck Exp $       */
   2
   3 /*-
   4  *
   5  * Copyright (c) 1996 Charles D. Cranor and Washington University.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. All advertising materials mentioning features or use of this software
  17  *    must display the following acknowledgement:
  18  *      This product includes software developed by Charles D. Cranor and
  19  *      Washington University.
  20  * 4. The name of the author may not be used to endorse or promote products
  21  *    derived from this software without specific prior written permission.
  22  *
  23  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  24  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  25  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  26  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  27  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  28  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  29  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  30  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  31  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  32  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  33  *
  34  * if_atmsubr.c
  35  */
  36
  37 #include <sys/cdefs.h>
  38 __FBSDID("$FreeBSD$");
  39
  40 #include "opt_inet.h"
  41 #include "opt_inet6.h"
  42 #include "opt_mac.h"
  43 #include "opt_natm.h"
  44
  45 #include <sys/param.h>
  46 #include <sys/systm.h>
  47 #include <sys/kernel.h>
  48 #include <sys/module.h>
  49 #include <sys/mac.h>
  50 #include <sys/mbuf.h>
  51 #include <sys/socket.h>
  52 #include <sys/sockio.h>
  53 #include <sys/errno.h>
  54 #include <sys/sysctl.h>
  55 #include <sys/malloc.h>
  56
  57 #include <net/if.h>
  58 #include <net/netisr.h>
  59 #include <net/route.h>
  60 #include <net/if_dl.h>
  61 #include <net/if_types.h>
  62 #include <net/if_atm.h>
  63
  64 #include <netinet/in.h>
  65 #include <netinet/if_atm.h>
  66 #include <netinet/if_ether.h> /* XXX: for ETHERTYPE_* */
  67 #if defined(INET) || defined(INET6)
  68 #include <netinet/in_var.h>
  69 #endif
  70 #ifdef NATM
  71 #include <netnatm/natm.h>
  72 #endif
  73
  74 /*
  75  * Netgraph interface functions.
  76  * These need not be protected by a lock, because ng_atm nodes are persitent.
  77  * The ng_atm module can be unloaded only if all ATM interfaces have been
  78  * unloaded, so nobody should be in the code paths accessing these function
  79  * pointers.
  80  */
  81 void    (*ng_atm_attach_p)(struct ifnet *);
  82 void    (*ng_atm_detach_p)(struct ifnet *);
  83 int     (*ng_atm_output_p)(struct ifnet *, struct mbuf **);
  84 void    (*ng_atm_input_p)(struct ifnet *, struct mbuf **,
  85             struct atm_pseudohdr *, void *);
  86 void    (*ng_atm_input_orphan_p)(struct ifnet *, struct mbuf *,
  87             struct atm_pseudohdr *, void *);
  88 void    (*ng_atm_event_p)(struct ifnet *, uint32_t, void *);
  89
  90 /*
  91  * Harp pseudo interface hooks
  92  */
  93 void    (*atm_harp_input_p)(struct ifnet *ifp, struct mbuf **m,
  94             struct atm_pseudohdr *ah, void *rxhand);
  95 void    (*atm_harp_attach_p)(struct ifnet *);
  96 void    (*atm_harp_detach_p)(struct ifnet *);
  97 void    (*atm_harp_event_p)(struct ifnet *, uint32_t, void *);
  98
  99 SYSCTL_NODE(_hw, OID_AUTO, atm, CTLFLAG_RW, 0, "ATM hardware");
 100
 101 #ifndef ETHERTYPE_IPV6
 102 #define ETHERTYPE_IPV6  0x86dd
 103 #endif
 104
 105 #define senderr(e) do { error = (e); goto bad; } while (0)
 106
 107 /*
 108  * atm_output: ATM output routine
 109  *   inputs:
 110  *     "ifp" = ATM interface to output to
 111  *     "m0" = the packet to output
 112  *     "dst" = the sockaddr to send to (either IP addr, or raw VPI/VCI)
 113  *     "rt0" = the route to use
 114  *   returns: error code   [0 == ok]
 115  *
 116  *   note: special semantic: if (dst == NULL) then we assume "m" already
 117  *              has an atm_pseudohdr on it and just send it directly.
 118  *              [for native mode ATM output]   if dst is null, then
 119  *              rt0 must also be NULL.
 120  */
 121 int
 122 atm_output(struct ifnet *ifp, struct mbuf *m0, struct sockaddr *dst,
 123     struct rtentry *rt0)
 124 {
 125         u_int16_t etype = 0;                    /* if using LLC/SNAP */
 126         int error = 0, sz;
 127         struct atm_pseudohdr atmdst, *ad;
 128         struct mbuf *m = m0;
 129         struct atmllc *atmllc;
 130         struct atmllc *llc_hdr = NULL;
 131         u_int32_t atm_flags;
 132
 133 #ifdef MAC
 134         error = mac_check_ifnet_transmit(ifp, m);
 135         if (error)
 136                 senderr(error);
 137 #endif
 138
 139         if ((ifp->if_flags & (IFF_UP | IFF_RUNNING)) != (IFF_UP | IFF_RUNNING))
 140                 senderr(ENETDOWN);
 141
 142         /*
 143          * check for non-native ATM traffic   (dst != NULL)
 144          */
 145         if (dst) {
 146                 switch (dst->sa_family) {
 147
 148 #if defined(INET) || defined(INET6)
 149                 case AF_INET:
 150                 case AF_INET6:
 151                 {
 152                         struct rtentry *rt;
 153                         /*
 154                          * check route
 155                          */
 156                         error = rt_check(&rt, &rt0, dst);
 157                         if (error)
 158                                 goto bad;
 159
 160                         if (dst->sa_family == AF_INET6)
 161                                 etype = ETHERTYPE_IPV6;
 162                         else
 163                                 etype = ETHERTYPE_IP;
 164                         if (!atmresolve(rt, m, dst, &atmdst)) {
 165                                 m = NULL;
 166                                 /* XXX: atmresolve already free'd it */
 167                                 senderr(EHOSTUNREACH);
 168                                 /* XXX: put ATMARP stuff here */
 169                                 /* XXX: watch who frees m on failure */
 170                         }
 171                 }
 172                         break;
 173 #endif /* INET || INET6 */
 174
 175                 case AF_UNSPEC:
 176                         /*
 177                          * XXX: bpfwrite. assuming dst contains 12 bytes
 178                          * (atm pseudo header (4) + LLC/SNAP (8))
 179                          */
 180                         bcopy(dst->sa_data, &atmdst, sizeof(atmdst));
 181                         llc_hdr = (struct atmllc *)(dst->sa_data +
 182                             sizeof(atmdst));
 183                         break;
 184
 185                 default:
 186 #if (defined(__FreeBSD__) && __FreeBSD_version >= 501113) || \
 187     defined(__NetBSD__) || defined(__OpenBSD__)
 188                         printf("%s: can't handle af%d\n", ifp->if_xname,
 189                             dst->sa_family);
 190 #elif defined(__FreeBSD__) || defined(__bsdi__)
 191                         printf("%s%d: can't handle af%d\n", ifp->if_name,
 192                             ifp->if_unit, dst->sa_family);
 193 #endif
 194                         senderr(EAFNOSUPPORT);
 195                 }
 196
 197                 /*
 198                  * must add atm_pseudohdr to data
 199                  */
 200                 sz = sizeof(atmdst);
 201                 atm_flags = ATM_PH_FLAGS(&atmdst);
 202                 if (atm_flags & ATM_PH_LLCSNAP)
 203                         sz += 8;        /* sizeof snap == 8 */
 204                 M_PREPEND(m, sz, M_DONTWAIT);
 205                 if (m == 0)
 206                         senderr(ENOBUFS);
 207                 ad = mtod(m, struct atm_pseudohdr *);
 208                 *ad = atmdst;
 209                 if (atm_flags & ATM_PH_LLCSNAP) {
 210                         atmllc = (struct atmllc *)(ad + 1);
 211                         if (llc_hdr == NULL) {
 212                                 bcopy(ATMLLC_HDR, atmllc->llchdr,
 213                                       sizeof(atmllc->llchdr));
 214                                 /* note: in host order */
 215                                 ATM_LLC_SETTYPE(atmllc, etype);
 216                         }
 217                         else
 218                                 bcopy(llc_hdr, atmllc, sizeof(struct atmllc));
 219                 }
 220         }
 221
 222         if (ng_atm_output_p != NULL) {
 223                 if ((error = (*ng_atm_output_p)(ifp, &m)) != 0) {
 224                         if (m != NULL)
 225                                 m_freem(m);
 226                         return (error);
 227                 }
 228                 if (m == NULL)
 229                         return (0);
 230         }
 231
 232         /*
 233          * Queue message on interface, and start output if interface
 234          * not yet active.
 235          */
 236         if (!IF_HANDOFF_ADJ(&ifp->if_snd, m, ifp,
 237             -(int)sizeof(struct atm_pseudohdr)))
 238                 return (ENOBUFS);
 239         return (error);
 240
 241 bad:
 242         if (m)
 243                 m_freem(m);
 244         return (error);
 245 }
 246
 247 /*
 248  * Process a received ATM packet;
 249  * the packet is in the mbuf chain m.
 250  */
 251 void
 252 atm_input(struct ifnet *ifp, struct atm_pseudohdr *ah, struct mbuf *m,
 253     void *rxhand)
 254 {
 255         int isr;
 256         u_int16_t etype = ETHERTYPE_IP;         /* default */
 257 #ifdef NATM
 258         int s;
 259 #endif
 260
 261         if ((ifp->if_flags & IFF_UP) == 0) {
 262                 m_freem(m);
 263                 return;
 264         }
 265 #ifdef MAC
 266         mac_create_mbuf_from_ifnet(ifp, m);
 267 #endif
 268         ifp->if_ibytes += m->m_pkthdr.len;
 269
 270         if (ng_atm_input_p != NULL) {
 271                 (*ng_atm_input_p)(ifp, &m, ah, rxhand);
 272                 if (m == NULL)
 273                         return;
 274         }
 275
 276         /* not eaten by ng_atm. Maybe it's a pseudo-harp PDU? */
 277         if (atm_harp_input_p != NULL) {
 278                 (*atm_harp_input_p)(ifp, &m, ah, rxhand);
 279                 if (m == NULL)
 280                         return;
 281         }
 282
 283         if (rxhand) {
 284 #ifdef NATM
 285                 struct natmpcb *npcb = rxhand;
 286
 287                 s = splimp();           /* in case 2 atm cards @ diff lvls */
 288                 npcb->npcb_inq++;       /* count # in queue */
 289                 splx(s);
 290                 isr = NETISR_NATM;
 291                 m->m_pkthdr.rcvif = rxhand; /* XXX: overload */
 292 #else
 293                 printf("atm_input: NATM detected but not "
 294                     "configured in kernel\n");
 295                 goto dropit;
 296 #endif
 297         } else {
 298                 /*
 299                  * handle LLC/SNAP header, if present
 300                  */
 301                 if (ATM_PH_FLAGS(ah) & ATM_PH_LLCSNAP) {
 302                         struct atmllc *alc;
 303
 304                         if (m->m_len < sizeof(*alc) &&
 305                             (m = m_pullup(m, sizeof(*alc))) == 0)
 306                                 return; /* failed */
 307                         alc = mtod(m, struct atmllc *);
 308                         if (bcmp(alc, ATMLLC_HDR, 6)) {
 309 #if (defined(__FreeBSD__) && __FreeBSD_version >= 501113) || \
 310     defined(__NetBSD__) || defined(__OpenBSD__)
 311                                 printf("%s: recv'd invalid LLC/SNAP frame "
 312                                     "[vp=%d,vc=%d]\n", ifp->if_xname,
 313                                     ATM_PH_VPI(ah), ATM_PH_VCI(ah));
 314 #elif defined(__FreeBSD__) || defined(__bsdi__)
 315                                 printf("%s%d: recv'd invalid LLC/SNAP frame "
 316                                     "[vp=%d,vc=%d]\n", ifp->if_name,
 317                                     ifp->if_unit, ATM_PH_VPI(ah),
 318                                     ATM_PH_VCI(ah));
 319 #endif
 320                                 m_freem(m);
 321                                 return;
 322                         }
 323                         etype = ATM_LLC_TYPE(alc);
 324                         m_adj(m, sizeof(*alc));
 325                 }
 326
 327                 switch (etype) {
 328
 329 #ifdef INET
 330                 case ETHERTYPE_IP:
 331                         isr = NETISR_IP;
 332                         break;
 333 #endif
 334
 335 #ifdef INET6
 336                 case ETHERTYPE_IPV6:
 337                         isr = NETISR_IPV6;
 338                         break;
 339 #endif
 340                 default:
 341 #ifndef NATM
 342   dropit:
 343 #endif
 344                         if (ng_atm_input_orphan_p != NULL)
 345                                 (*ng_atm_input_orphan_p)(ifp, m, ah, rxhand);
 346                         else
 347                                 m_freem(m);
 348                         return;
 349                 }
 350         }
 351         netisr_dispatch(isr, m);
 352 }
 353
 354 /*
 355  * Perform common duties while attaching to interface list.
 356  */
 357 void
 358 atm_ifattach(struct ifnet *ifp)
 359 {
 360         struct ifaddr *ifa;
 361         struct sockaddr_dl *sdl;
 362         struct ifatm *ifatm = ifp->if_softc;
 363
 364         ifp->if_type = IFT_ATM;
 365         ifp->if_addrlen = 0;
 366         ifp->if_hdrlen = 0;
 367         if_attach(ifp);
 368         ifp->if_mtu = ATMMTU;
 369         ifp->if_output = atm_output;
 370 #if 0
 371         ifp->if_input = atm_input;
 372 #endif
 373         ifp->if_snd.ifq_maxlen = 50;    /* dummy */
 374
 375 #if defined(__NetBSD__) || defined(__OpenBSD__)
 376         TAILQ_FOREACH(ifa, &ifp->if_addrlist, ifa_list)
 377 #elif defined(__FreeBSD__) && (__FreeBSD__ > 2)
 378         for (ifa = TAILQ_FIRST(&ifp->if_addrhead); ifa;
 379             ifa = TAILQ_NEXT(ifa, ifa_link))
 380 #elif defined(__FreeBSD__) || defined(__bsdi__)
 381         for (ifa = ifp->if_addrlist; ifa; ifa = ifa->ifa_next)
 382 #endif
 383                 if ((sdl = (struct sockaddr_dl *)ifa->ifa_addr) &&
 384                     sdl->sdl_family == AF_LINK) {
 385                         sdl->sdl_type = IFT_ATM;
 386                         sdl->sdl_alen = ifp->if_addrlen;
 387 #ifdef notyet /* if using ATMARP, store hardware address using the next line */
 388                         bcopy(ifp->hw_addr, LLADDR(sdl), ifp->if_addrlen);
 389 #endif
 390                         break;
 391                 }
 392
 393         ifp->if_linkmib = &ifatm->mib;
 394         ifp->if_linkmiblen = sizeof(ifatm->mib);
 395
 396         if(ng_atm_attach_p)
 397                 (*ng_atm_attach_p)(ifp);
 398         if (atm_harp_attach_p)
 399                 (*atm_harp_attach_p)(ifp);
 400 }
 401
 402 /*
 403  * Common stuff for detaching an ATM interface
 404  */
 405 void
 406 atm_ifdetach(struct ifnet *ifp)
 407 {
 408         if (atm_harp_detach_p)
 409                 (*atm_harp_detach_p)(ifp);
 410         if(ng_atm_detach_p)
 411                 (*ng_atm_detach_p)(ifp);
 412         if_detach(ifp);
 413 }
 414
 415 /*
 416  * Support routine for the SIOCATMGVCCS ioctl().
 417  *
 418  * This routine assumes, that the private VCC structures used by the driver
 419  * begin with a struct atmio_vcc.
 420  *
 421  * Return a table of VCCs in a freshly allocated memory area.
 422  * Here we have a problem: we first count, how many vccs we need
 423  * to return. The we allocate the memory and finally fill it in.
 424  * Because we cannot lock while calling malloc, the number of active
 425  * vccs may change while we're in malloc. So we allocate a couple of
 426  * vccs more and if space anyway is not enough re-iterate.
 427  *
 428  * We could use an sx lock for the vcc tables.
 429  */
 430 struct atmio_vcctable *
 431 atm_getvccs(struct atmio_vcc **table, u_int size, u_int start,
 432     struct mtx *lock, int waitok)
 433 {
 434         u_int cid, alloc;
 435         size_t len;
 436         struct atmio_vcctable *vccs;
 437         struct atmio_vcc *v;
 438
 439         alloc = start + 10;
 440         vccs = NULL;
 441
 442         for (;;) {
 443                 len = sizeof(*vccs) + alloc * sizeof(vccs->vccs[0]);
 444                 vccs = reallocf(vccs, len, M_TEMP,
 445                     waitok ? M_WAITOK : M_NOWAIT);
 446                 if (vccs == NULL)
 447                         return (NULL);
 448                 bzero(vccs, len);
 449
 450                 vccs->count = 0;
 451                 v = vccs->vccs;
 452
 453                 mtx_lock(lock);
 454                 for (cid = 0; cid < size; cid++)
 455                         if (table[cid] != NULL) {
 456                                 if (++vccs->count == alloc)
 457                                         /* too many - try again */
 458                                         break;
 459                                 *v++ = *table[cid];
 460                         }
 461                 mtx_unlock(lock);
 462
 463                 if (cid == size)
 464                         break;
 465
 466                 alloc *= 2;
 467         }
 468         return (vccs);
 469 }
 470
 471 /*
 472  * Driver or channel state has changed. Inform whoever is interested
 473  * in these events.
 474  */
 475 void
 476 atm_event(struct ifnet *ifp, u_int event, void *arg)
 477 {
 478         if (ng_atm_event_p != NULL)
 479                 (*ng_atm_event_p)(ifp, event, arg);
 480         if (atm_harp_event_p != NULL)
 481                 (*atm_harp_event_p)(ifp, event, arg);
 482 }
 483
 484 static moduledata_t atm_mod = {
 485         "atm",
 486         NULL,
 487         0
 488 };
 489
 490 DECLARE_MODULE(atm, atm_mod, SI_SUB_PSEUDO, SI_ORDER_ANY);
 491 MODULE_VERSION(atm, 1);