if_atmsubr.c revision 241394 
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: head/sys/net/if_atmsubr.c 241394 2012-10-10 08:36:38Z kevlo $");
39
40#include "opt_inet.h"
41#include "opt_inet6.h"
42#include "opt_natm.h"
43
44#include <sys/param.h>
45#include <sys/systm.h>
46#include <sys/kernel.h>
47#include <sys/module.h>
48#include <sys/mbuf.h>
49#include <sys/socket.h>
50#include <sys/sockio.h>
51#include <sys/errno.h>
52#include <sys/sysctl.h>
53#include <sys/malloc.h>
54
55#include <net/if.h>
56#include <net/netisr.h>
57#include <net/route.h>
58#include <net/if_dl.h>
59#include <net/if_types.h>
60#include <net/if_atm.h>
61
62#include <netinet/in.h>
63#include <netinet/if_atm.h>
64#include <netinet/if_ether.h> /* XXX: for ETHERTYPE_* */
65#if defined(INET) || defined(INET6)
66#include <netinet/in_var.h>
67#endif
68#ifdef NATM
69#include <netnatm/natm.h>
70#endif
71
72#include <security/mac/mac_framework.h>
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 */
81void	(*ng_atm_attach_p)(struct ifnet *);
82void	(*ng_atm_detach_p)(struct ifnet *);
83int	(*ng_atm_output_p)(struct ifnet *, struct mbuf **);
84void	(*ng_atm_input_p)(struct ifnet *, struct mbuf **,
85	    struct atm_pseudohdr *, void *);
86void	(*ng_atm_input_orphan_p)(struct ifnet *, struct mbuf *,
87	    struct atm_pseudohdr *, void *);
88void	(*ng_atm_event_p)(struct ifnet *, uint32_t, void *);
89
90/*
91 * Harp pseudo interface hooks
92 */
93void	(*atm_harp_input_p)(struct ifnet *ifp, struct mbuf **m,
94	    struct atm_pseudohdr *ah, void *rxhand);
95void	(*atm_harp_attach_p)(struct ifnet *);
96void	(*atm_harp_detach_p)(struct ifnet *);
97void	(*atm_harp_event_p)(struct ifnet *, uint32_t, void *);
98
99SYSCTL_NODE(_hw, OID_AUTO, atm, CTLFLAG_RW, 0, "ATM hardware");
100
101static MALLOC_DEFINE(M_IFATM, "ifatm", "atm interface internals");
102
103#ifndef ETHERTYPE_IPV6
104#define	ETHERTYPE_IPV6	0x86dd
105#endif
106
107#define	senderr(e) do { error = (e); goto bad; } while (0)
108
109/*
110 * atm_output: ATM output routine
111 *   inputs:
112 *     "ifp" = ATM interface to output to
113 *     "m0" = the packet to output
114 *     "dst" = the sockaddr to send to (either IP addr, or raw VPI/VCI)
115 *     "ro" = the route to use
116 *   returns: error code   [0 == ok]
117 *
118 *   note: special semantic: if (dst == NULL) then we assume "m" already
119 *		has an atm_pseudohdr on it and just send it directly.
120 *		[for native mode ATM output]   if dst is null, then
121 *		ro->ro_rt must also be NULL.
122 */
123int
124atm_output(struct ifnet *ifp, struct mbuf *m0, struct sockaddr *dst,
125    struct route *ro)
126{
127	u_int16_t etype = 0;			/* if using LLC/SNAP */
128	int error = 0, sz;
129	struct atm_pseudohdr atmdst, *ad;
130	struct mbuf *m = m0;
131	struct atmllc *atmllc;
132	struct atmllc *llc_hdr = NULL;
133	u_int32_t atm_flags;
134
135#ifdef MAC
136	error = mac_ifnet_check_transmit(ifp, m);
137	if (error)
138		senderr(error);
139#endif
140
141	if (!((ifp->if_flags & IFF_UP) &&
142	    (ifp->if_drv_flags & IFF_DRV_RUNNING)))
143		senderr(ENETDOWN);
144
145	/*
146	 * check for non-native ATM traffic   (dst != NULL)
147	 */
148	if (dst) {
149		switch (dst->sa_family) {
150
151#if defined(INET) || defined(INET6)
152		case AF_INET:
153		case AF_INET6:
154		{
155			if (dst->sa_family == AF_INET6)
156			        etype = ETHERTYPE_IPV6;
157			else
158			        etype = ETHERTYPE_IP;
159			if (!atmresolve(ro->ro_rt, m, dst, &atmdst)) {
160				m = NULL;
161				/* XXX: atmresolve already free'd it */
162				senderr(EHOSTUNREACH);
163				/* XXX: put ATMARP stuff here */
164				/* XXX: watch who frees m on failure */
165			}
166		}
167			break;
168#endif /* INET || INET6 */
169
170		case AF_UNSPEC:
171			/*
172			 * XXX: bpfwrite. assuming dst contains 12 bytes
173			 * (atm pseudo header (4) + LLC/SNAP (8))
174			 */
175			bcopy(dst->sa_data, &atmdst, sizeof(atmdst));
176			llc_hdr = (struct atmllc *)(dst->sa_data +
177			    sizeof(atmdst));
178			break;
179
180		default:
181			printf("%s: can't handle af%d\n", ifp->if_xname,
182			    dst->sa_family);
183			senderr(EAFNOSUPPORT);
184		}
185
186		/*
187		 * must add atm_pseudohdr to data
188		 */
189		sz = sizeof(atmdst);
190		atm_flags = ATM_PH_FLAGS(&atmdst);
191		if (atm_flags & ATM_PH_LLCSNAP)
192			sz += 8;	/* sizeof snap == 8 */
193		M_PREPEND(m, sz, M_DONTWAIT);
194		if (m == 0)
195			senderr(ENOBUFS);
196		ad = mtod(m, struct atm_pseudohdr *);
197		*ad = atmdst;
198		if (atm_flags & ATM_PH_LLCSNAP) {
199			atmllc = (struct atmllc *)(ad + 1);
200			if (llc_hdr == NULL) {
201			        bcopy(ATMLLC_HDR, atmllc->llchdr,
202				      sizeof(atmllc->llchdr));
203				/* note: in host order */
204				ATM_LLC_SETTYPE(atmllc, etype);
205			}
206			else
207			        bcopy(llc_hdr, atmllc, sizeof(struct atmllc));
208		}
209	}
210
211	if (ng_atm_output_p != NULL) {
212		if ((error = (*ng_atm_output_p)(ifp, &m)) != 0) {
213			if (m != NULL)
214				m_freem(m);
215			return (error);
216		}
217		if (m == NULL)
218			return (0);
219	}
220
221	/*
222	 * Queue message on interface, and start output if interface
223	 * not yet active.
224	 */
225	if (!IF_HANDOFF_ADJ(&ifp->if_snd, m, ifp,
226	    -(int)sizeof(struct atm_pseudohdr)))
227		return (ENOBUFS);
228	return (error);
229
230bad:
231	if (m)
232		m_freem(m);
233	return (error);
234}
235
236/*
237 * Process a received ATM packet;
238 * the packet is in the mbuf chain m.
239 */
240void
241atm_input(struct ifnet *ifp, struct atm_pseudohdr *ah, struct mbuf *m,
242    void *rxhand)
243{
244	int isr;
245	u_int16_t etype = ETHERTYPE_IP;		/* default */
246
247	if ((ifp->if_flags & IFF_UP) == 0) {
248		m_freem(m);
249		return;
250	}
251#ifdef MAC
252	mac_ifnet_create_mbuf(ifp, m);
253#endif
254	ifp->if_ibytes += m->m_pkthdr.len;
255
256	if (ng_atm_input_p != NULL) {
257		(*ng_atm_input_p)(ifp, &m, ah, rxhand);
258		if (m == NULL)
259			return;
260	}
261
262	/* not eaten by ng_atm. Maybe it's a pseudo-harp PDU? */
263	if (atm_harp_input_p != NULL) {
264		(*atm_harp_input_p)(ifp, &m, ah, rxhand);
265		if (m == NULL)
266			return;
267	}
268
269	if (rxhand) {
270#ifdef NATM
271		struct natmpcb *npcb;
272
273		/*
274		 * XXXRW: this use of 'rxhand' is not a very good idea, and
275		 * was subject to races even before SMPng due to the release
276		 * of spl here.
277		 */
278		NATM_LOCK();
279		npcb = rxhand;
280		npcb->npcb_inq++;	/* count # in queue */
281		isr = NETISR_NATM;
282		m->m_pkthdr.rcvif = rxhand; /* XXX: overload */
283		NATM_UNLOCK();
284#else
285		printf("atm_input: NATM detected but not "
286		    "configured in kernel\n");
287		goto dropit;
288#endif
289	} else {
290		/*
291		 * handle LLC/SNAP header, if present
292		 */
293		if (ATM_PH_FLAGS(ah) & ATM_PH_LLCSNAP) {
294			struct atmllc *alc;
295
296			if (m->m_len < sizeof(*alc) &&
297			    (m = m_pullup(m, sizeof(*alc))) == 0)
298				return; /* failed */
299			alc = mtod(m, struct atmllc *);
300			if (bcmp(alc, ATMLLC_HDR, 6)) {
301				printf("%s: recv'd invalid LLC/SNAP frame "
302				    "[vp=%d,vc=%d]\n", ifp->if_xname,
303				    ATM_PH_VPI(ah), ATM_PH_VCI(ah));
304				m_freem(m);
305				return;
306			}
307			etype = ATM_LLC_TYPE(alc);
308			m_adj(m, sizeof(*alc));
309		}
310
311		switch (etype) {
312
313#ifdef INET
314		case ETHERTYPE_IP:
315			isr = NETISR_IP;
316			break;
317#endif
318
319#ifdef INET6
320		case ETHERTYPE_IPV6:
321			isr = NETISR_IPV6;
322			break;
323#endif
324		default:
325#ifndef NATM
326  dropit:
327#endif
328			if (ng_atm_input_orphan_p != NULL)
329				(*ng_atm_input_orphan_p)(ifp, m, ah, rxhand);
330			else
331				m_freem(m);
332			return;
333		}
334	}
335	M_SETFIB(m, ifp->if_fib);
336	netisr_dispatch(isr, m);
337}
338
339/*
340 * Perform common duties while attaching to interface list.
341 */
342void
343atm_ifattach(struct ifnet *ifp)
344{
345	struct ifaddr *ifa;
346	struct sockaddr_dl *sdl;
347	struct ifatm *ifatm = ifp->if_l2com;
348
349	ifp->if_addrlen = 0;
350	ifp->if_hdrlen = 0;
351	if_attach(ifp);
352	ifp->if_mtu = ATMMTU;
353	ifp->if_output = atm_output;
354#if 0
355	ifp->if_input = atm_input;
356#endif
357	ifp->if_snd.ifq_maxlen = 50;	/* dummy */
358
359	TAILQ_FOREACH(ifa, &ifp->if_addrhead, ifa_link)
360		if (ifa->ifa_addr->sa_family == AF_LINK) {
361			sdl = (struct sockaddr_dl *)ifa->ifa_addr;
362			sdl->sdl_type = IFT_ATM;
363			sdl->sdl_alen = ifp->if_addrlen;
364#ifdef notyet /* if using ATMARP, store hardware address using the next line */
365			bcopy(ifp->hw_addr, LLADDR(sdl), ifp->if_addrlen);
366#endif
367			break;
368		}
369
370	ifp->if_linkmib = &ifatm->mib;
371	ifp->if_linkmiblen = sizeof(ifatm->mib);
372
373	if(ng_atm_attach_p)
374		(*ng_atm_attach_p)(ifp);
375	if (atm_harp_attach_p)
376		(*atm_harp_attach_p)(ifp);
377}
378
379/*
380 * Common stuff for detaching an ATM interface
381 */
382void
383atm_ifdetach(struct ifnet *ifp)
384{
385	if (atm_harp_detach_p)
386		(*atm_harp_detach_p)(ifp);
387	if(ng_atm_detach_p)
388		(*ng_atm_detach_p)(ifp);
389	if_detach(ifp);
390}
391
392/*
393 * Support routine for the SIOCATMGVCCS ioctl().
394 *
395 * This routine assumes, that the private VCC structures used by the driver
396 * begin with a struct atmio_vcc.
397 *
398 * Return a table of VCCs in a freshly allocated memory area.
399 * Here we have a problem: we first count, how many vccs we need
400 * to return. The we allocate the memory and finally fill it in.
401 * Because we cannot lock while calling malloc, the number of active
402 * vccs may change while we're in malloc. So we allocate a couple of
403 * vccs more and if space anyway is not enough re-iterate.
404 *
405 * We could use an sx lock for the vcc tables.
406 */
407struct atmio_vcctable *
408atm_getvccs(struct atmio_vcc **table, u_int size, u_int start,
409    struct mtx *lock, int waitok)
410{
411	u_int cid, alloc;
412	size_t len;
413	struct atmio_vcctable *vccs;
414	struct atmio_vcc *v;
415
416	alloc = start + 10;
417	vccs = NULL;
418
419	for (;;) {
420		len = sizeof(*vccs) + alloc * sizeof(vccs->vccs[0]);
421		vccs = reallocf(vccs, len, M_TEMP,
422		    waitok ? M_WAITOK : M_NOWAIT);
423		if (vccs == NULL)
424			return (NULL);
425		bzero(vccs, len);
426
427		vccs->count = 0;
428		v = vccs->vccs;
429
430		mtx_lock(lock);
431		for (cid = 0; cid < size; cid++)
432			if (table[cid] != NULL) {
433				if (++vccs->count == alloc)
434					/* too many - try again */
435					break;
436				*v++ = *table[cid];
437			}
438		mtx_unlock(lock);
439
440		if (cid == size)
441			break;
442
443		alloc *= 2;
444	}
445	return (vccs);
446}
447
448/*
449 * Driver or channel state has changed. Inform whoever is interested
450 * in these events.
451 */
452void
453atm_event(struct ifnet *ifp, u_int event, void *arg)
454{
455	if (ng_atm_event_p != NULL)
456		(*ng_atm_event_p)(ifp, event, arg);
457	if (atm_harp_event_p != NULL)
458		(*atm_harp_event_p)(ifp, event, arg);
459}
460
461static void *
462atm_alloc(u_char type, struct ifnet *ifp)
463{
464	struct ifatm	*ifatm;
465
466	ifatm = malloc(sizeof(struct ifatm), M_IFATM, M_WAITOK | M_ZERO);
467	ifatm->ifp = ifp;
468
469	return (ifatm);
470}
471
472static void
473atm_free(void *com, u_char type)
474{
475
476	free(com, M_IFATM);
477}
478
479static int
480atm_modevent(module_t mod, int type, void *data)
481{
482	switch (type) {
483	case MOD_LOAD:
484		if_register_com_alloc(IFT_ATM, atm_alloc, atm_free);
485		break;
486	case MOD_UNLOAD:
487		if_deregister_com_alloc(IFT_ATM);
488		break;
489	default:
490		return (EOPNOTSUPP);
491	}
492
493	return (0);
494}
495
496static moduledata_t atm_mod = {
497        "atm",
498        atm_modevent,
499        0
500};
501
502DECLARE_MODULE(atm, atm_mod, SI_SUB_INIT_IF, SI_ORDER_ANY);
503MODULE_VERSION(atm, 1);
504