FreeBSD/Linux Kernel Cross Reference
sys/netnatm/natm.c
1 /*-
2 * Copyright (c) 2005-2006 Robert N. M. Watson
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 *
26 * Copyright (c) 1996 Charles D. Cranor and Washington University.
27 * All rights reserved.
28 *
29 * Redistribution and use in source and binary forms, with or without
30 * modification, are permitted provided that the following conditions
31 * are met:
32 * 1. Redistributions of source code must retain the above copyright
33 * notice, this list of conditions and the following disclaimer.
34 * 2. Redistributions in binary form must reproduce the above copyright
35 * notice, this list of conditions and the following disclaimer in the
36 * documentation and/or other materials provided with the distribution.
37 * 3. All advertising materials mentioning features or use of this software
38 * must display the following acknowledgement:
39 * This product includes software developed by Charles D. Cranor and
40 * Washington University.
41 * 4. The name of the author may not be used to endorse or promote products
42 * derived from this software without specific prior written permission.
43 *
44 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
45 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
46 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
47 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
48 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
49 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
50 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
51 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
52 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
53 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
54 *
55 * $NetBSD: natm.c,v 1.5 1996/11/09 03:26:26 chuck Exp $
56 */
57
58 /*
59 * natm.c: Native mode ATM access (both aal0 and aal5).
60 */
61
62 #include <sys/cdefs.h>
63 __FBSDID("$FreeBSD: releng/11.2/sys/netnatm/natm.c 257176 2013-10-26 17:58:36Z glebius $");
64
65 #include <sys/param.h>
66 #include <sys/conf.h>
67 #include <sys/kernel.h>
68 #include <sys/lock.h>
69 #include <sys/malloc.h>
70 #include <sys/mbuf.h>
71 #include <sys/protosw.h>
72 #include <sys/signalvar.h>
73 #include <sys/socket.h>
74 #include <sys/socketvar.h>
75 #include <sys/sockio.h>
76 #include <sys/sx.h>
77 #include <sys/systm.h>
78 #include <sys/sysctl.h>
79
80 #include <net/if.h>
81 #include <net/if_var.h>
82 #include <net/if_atm.h>
83 #include <net/netisr.h>
84
85 #include <netinet/in.h>
86
87 #include <netnatm/natm.h>
88
89 static const u_long natm5_sendspace = 16*1024;
90 static const u_long natm5_recvspace = 16*1024;
91
92 static const u_long natm0_sendspace = 16*1024;
93 static const u_long natm0_recvspace = 16*1024;
94
95 /*
96 * netnatm global subsystem lock, protects all global data structures in
97 * netnatm.
98 */
99 struct mtx natm_mtx;
100
101 /*
102 * User socket requests.
103 */
104 static int natm_usr_attach(struct socket *, int, struct thread *);
105 static void natm_usr_detach(struct socket *);
106 static int natm_usr_connect(struct socket *, struct sockaddr *,
107 struct thread *);
108 static int natm_usr_disconnect(struct socket *);
109 static int natm_usr_shutdown(struct socket *);
110 static int natm_usr_send(struct socket *, int, struct mbuf *,
111 struct sockaddr *, struct mbuf *, struct thread *);
112 static int natm_usr_peeraddr(struct socket *, struct sockaddr **);
113 static int natm_usr_control(struct socket *, u_long, caddr_t,
114 struct ifnet *, struct thread *);
115 static void natm_usr_abort(struct socket *);
116 static int natm_usr_bind(struct socket *, struct sockaddr *,
117 struct thread *);
118 static int natm_usr_sockaddr(struct socket *, struct sockaddr **);
119
120 static int
121 natm_usr_attach(struct socket *so, int proto, struct thread *p)
122 {
123 struct natmpcb *npcb;
124 int error = 0;
125
126 npcb = (struct natmpcb *)so->so_pcb;
127 KASSERT(npcb == NULL, ("natm_usr_attach: so_pcb != NULL"));
128
129 if (so->so_snd.sb_hiwat == 0 || so->so_rcv.sb_hiwat == 0) {
130 if (proto == PROTO_NATMAAL5)
131 error = soreserve(so, natm5_sendspace,
132 natm5_recvspace);
133 else
134 error = soreserve(so, natm0_sendspace,
135 natm0_recvspace);
136 if (error)
137 return (error);
138 }
139 so->so_pcb = npcb = npcb_alloc(M_WAITOK);
140 npcb->npcb_socket = so;
141 return (error);
142 }
143
144 static void
145 natm_usr_detach(struct socket *so)
146 {
147 struct natmpcb *npcb;
148
149 npcb = (struct natmpcb *)so->so_pcb;
150 KASSERT(npcb != NULL, ("natm_usr_detach: npcb == NULL"));
151
152 NATM_LOCK();
153 npcb_free(npcb, NPCB_DESTROY); /* drain */
154 so->so_pcb = NULL;
155 NATM_UNLOCK();
156 }
157
158 static int
159 natm_usr_connect(struct socket *so, struct sockaddr *nam, struct thread *p)
160 {
161 struct natmpcb *npcb;
162 struct sockaddr_natm *snatm;
163 struct atmio_openvcc op;
164 struct ifnet *ifp;
165 int error = 0;
166 int proto = so->so_proto->pr_protocol;
167
168 npcb = (struct natmpcb *)so->so_pcb;
169 KASSERT(npcb != NULL, ("natm_usr_connect: npcb == NULL"));
170
171 /*
172 * Validate nam and npcb.
173 */
174 NATM_LOCK();
175 snatm = (struct sockaddr_natm *)nam;
176 if (snatm->snatm_len != sizeof(*snatm) ||
177 (npcb->npcb_flags & NPCB_FREE) == 0) {
178 NATM_UNLOCK();
179 return (EINVAL);
180 }
181 if (snatm->snatm_family != AF_NATM) {
182 NATM_UNLOCK();
183 return (EAFNOSUPPORT);
184 }
185
186 snatm->snatm_if[IFNAMSIZ - 1] = '\0'; /* XXX ensure null termination
187 since ifunit() uses strcmp */
188
189 /*
190 * Convert interface string to ifp, validate.
191 */
192 ifp = ifunit(snatm->snatm_if);
193 if (ifp == NULL || (ifp->if_drv_flags & IFF_DRV_RUNNING) == 0) {
194 NATM_UNLOCK();
195 return (ENXIO);
196 }
197 if (ifp->if_output != atm_output) {
198 NATM_UNLOCK();
199 return (EAFNOSUPPORT);
200 }
201
202 /*
203 * Register us with the NATM PCB layer.
204 */
205 if (npcb_add(npcb, ifp, snatm->snatm_vci, snatm->snatm_vpi) != npcb) {
206 NATM_UNLOCK();
207 return (EADDRINUSE);
208 }
209
210 /*
211 * Open the channel.
212 *
213 * XXXRW: Eventually desirable to hold mutex over ioctl?
214 */
215 bzero(&op, sizeof(op));
216 op.rxhand = npcb;
217 op.param.flags = ATMIO_FLAG_PVC;
218 op.param.vpi = npcb->npcb_vpi;
219 op.param.vci = npcb->npcb_vci;
220 op.param.rmtu = op.param.tmtu = ifp->if_mtu;
221 op.param.aal = (proto == PROTO_NATMAAL5) ? ATMIO_AAL_5 : ATMIO_AAL_0;
222 op.param.traffic = ATMIO_TRAFFIC_UBR;
223 NATM_UNLOCK();
224
225 if (ifp->if_ioctl == NULL ||
226 ifp->if_ioctl(ifp, SIOCATMOPENVCC, (caddr_t)&op) != 0)
227 return (EIO);
228 soisconnected(so);
229 return (error);
230 }
231
232 static int
233 natm_usr_disconnect(struct socket *so)
234 {
235 struct natmpcb *npcb;
236 struct atmio_closevcc cl;
237 struct ifnet *ifp;
238 int error = 0;
239
240 npcb = (struct natmpcb *)so->so_pcb;
241 KASSERT(npcb != NULL, ("natm_usr_disconnect: npcb == NULL"));
242
243 NATM_LOCK();
244 if ((npcb->npcb_flags & NPCB_CONNECTED) == 0) {
245 NATM_UNLOCK();
246 printf("natm: disconnected check\n");
247 return (EIO);
248 }
249 ifp = npcb->npcb_ifp;
250
251 /*
252 * Disable rx.
253 *
254 * XXXRW: Eventually desirable to hold mutex over ioctl?
255 */
256 cl.vpi = npcb->npcb_vpi;
257 cl.vci = npcb->npcb_vci;
258 NATM_UNLOCK();
259 if (ifp->if_ioctl != NULL)
260 ifp->if_ioctl(ifp, SIOCATMCLOSEVCC, (caddr_t)&cl);
261 soisdisconnected(so);
262 return (error);
263 }
264
265 static int
266 natm_usr_shutdown(struct socket *so)
267 {
268
269 socantsendmore(so);
270 return (0);
271 }
272
273 static int
274 natm_usr_send(struct socket *so, int flags, struct mbuf *m,
275 struct sockaddr *nam, struct mbuf *control, struct thread *p)
276 {
277 struct natmpcb *npcb;
278 struct atm_pseudohdr *aph;
279 int error = 0;
280 int proto = so->so_proto->pr_protocol;
281
282 npcb = (struct natmpcb *)so->so_pcb;
283 KASSERT(npcb != NULL, ("natm_usr_send: npcb == NULL"));
284
285 NATM_LOCK();
286 if (control && control->m_len) {
287 NATM_UNLOCK();
288 m_freem(control);
289 m_freem(m);
290 return (EINVAL);
291 }
292
293 /*
294 * Send the data. We must put an atm_pseudohdr on first.
295 */
296 M_PREPEND(m, sizeof(*aph), M_NOWAIT);
297 if (m == NULL) {
298 NATM_UNLOCK();
299 m_freem(control);
300 return (ENOBUFS);
301 }
302 aph = mtod(m, struct atm_pseudohdr *);
303 ATM_PH_VPI(aph) = npcb->npcb_vpi;
304 ATM_PH_SETVCI(aph, npcb->npcb_vci);
305 ATM_PH_FLAGS(aph) = (proto == PROTO_NATMAAL5) ? ATM_PH_AAL5 : 0;
306 error = atm_output(npcb->npcb_ifp, m, NULL, NULL);
307 NATM_UNLOCK();
308 return (error);
309 }
310
311 static int
312 natm_usr_peeraddr(struct socket *so, struct sockaddr **nam)
313 {
314 struct natmpcb *npcb;
315 struct sockaddr_natm *snatm, ssnatm;
316
317 npcb = (struct natmpcb *)so->so_pcb;
318 KASSERT(npcb != NULL, ("natm_usr_peeraddr: npcb == NULL"));
319
320 NATM_LOCK();
321 snatm = &ssnatm;
322 bzero(snatm, sizeof(*snatm));
323 snatm->snatm_len = sizeof(*snatm);
324 snatm->snatm_family = AF_NATM;
325 strlcpy(snatm->snatm_if, npcb->npcb_ifp->if_xname,
326 sizeof(snatm->snatm_if));
327 snatm->snatm_vci = npcb->npcb_vci;
328 snatm->snatm_vpi = npcb->npcb_vpi;
329 NATM_UNLOCK();
330 *nam = sodupsockaddr((struct sockaddr *)snatm, M_WAITOK);
331 return (0);
332 }
333
334 static int
335 natm_usr_control(struct socket *so, u_long cmd, caddr_t arg,
336 struct ifnet *ifp, struct thread *p)
337 {
338 struct natmpcb *npcb;
339
340 npcb = (struct natmpcb *)so->so_pcb;
341 KASSERT(npcb != NULL, ("natm_usr_control: npcb == NULL"));
342
343 switch (cmd) {
344 case SIOCSIFADDR:
345 case SIOCSIFBRDADDR:
346 case SIOCSIFDSTADDR:
347 case SIOCSIFNETMASK:
348 /*
349 * Although we should pass any non-ATM ioctl requests
350 * down to driver, we filter some legacy INET requests.
351 * Drivers trust SIOCSIFADDR et al to come from an already
352 * privileged layer, and do not perform any credentials
353 * checks or input validation.
354 */
355 return (EINVAL);
356 }
357
358 if (ifp == NULL || ifp->if_ioctl == NULL)
359 return (EOPNOTSUPP);
360 return ((*ifp->if_ioctl)(ifp, cmd, arg));
361 }
362
363 static void
364 natm_usr_abort(struct socket *so)
365 {
366
367 }
368
369 static void
370 natm_usr_close(struct socket *so)
371 {
372
373 }
374
375 static int
376 natm_usr_bind(struct socket *so, struct sockaddr *nam, struct thread *p)
377 {
378
379 return (EOPNOTSUPP);
380 }
381
382 static int
383 natm_usr_sockaddr(struct socket *so, struct sockaddr **nam)
384 {
385
386 return (EOPNOTSUPP);
387 }
388
389 /* xxx - should be const */
390 struct pr_usrreqs natm_usrreqs = {
391 .pru_abort = natm_usr_abort,
392 .pru_attach = natm_usr_attach,
393 .pru_bind = natm_usr_bind,
394 .pru_connect = natm_usr_connect,
395 .pru_control = natm_usr_control,
396 .pru_detach = natm_usr_detach,
397 .pru_disconnect = natm_usr_disconnect,
398 .pru_peeraddr = natm_usr_peeraddr,
399 .pru_send = natm_usr_send,
400 .pru_shutdown = natm_usr_shutdown,
401 .pru_sockaddr = natm_usr_sockaddr,
402 .pru_close = natm_usr_close,
403 };
404
405 /*
406 * natmintr: interrupt
407 *
408 * Note: we expect a socket pointer in rcvif rather than an interface
409 * pointer. We can get the interface pointer from the so's PCB if we really
410 * need it.
411 */
412 void
413 natmintr(struct mbuf *m)
414 {
415 struct socket *so;
416 struct natmpcb *npcb;
417
418 #ifdef DIAGNOSTIC
419 M_ASSERTPKTHDR(m);
420 #endif
421
422 NATM_LOCK();
423 npcb = (struct natmpcb *)m->m_pkthdr.rcvif; /* XXX: overloaded */
424 so = npcb->npcb_socket;
425
426 npcb->npcb_inq--;
427
428 if (npcb->npcb_flags & NPCB_DRAIN) {
429 if (npcb->npcb_inq == 0)
430 free(npcb, M_PCB); /* done! */
431 NATM_UNLOCK();
432 m_freem(m);
433 return;
434 }
435
436 if (npcb->npcb_flags & NPCB_FREE) {
437 NATM_UNLOCK();
438 m_freem(m); /* drop */
439 return;
440 }
441
442 #ifdef NEED_TO_RESTORE_IFP
443 m->m_pkthdr.rcvif = npcb->npcb_ifp;
444 #else
445 #ifdef DIAGNOSTIC
446 m->m_pkthdr.rcvif = NULL; /* null it out to be safe */
447 #endif
448 #endif
449
450 if (sbspace(&so->so_rcv) > m->m_pkthdr.len) {
451 #ifdef NATM_STAT
452 natm_sookcnt++;
453 natm_sookbytes += m->m_pkthdr.len;
454 #endif
455 sbappendrecord(&so->so_rcv, m);
456 sorwakeup(so);
457 NATM_UNLOCK();
458 } else {
459 #ifdef NATM_STAT
460 natm_sodropcnt++;
461 natm_sodropbytes += m->m_pkthdr.len;
462 #endif
463 NATM_UNLOCK();
464 m_freem(m);
465 }
466 }
467
468 /*
469 * natm0_sysctl: not used, but here in case we want to add something
470 * later...
471 */
472 int
473 natm0_sysctl(SYSCTL_HANDLER_ARGS)
474 {
475
476 /* All sysctl names at this level are terminal. */
477 return (ENOENT);
478 }
479
480 /*
481 * natm5_sysctl: not used, but here in case we want to add something
482 * later...
483 */
484 int
485 natm5_sysctl(SYSCTL_HANDLER_ARGS)
486 {
487
488 /* All sysctl names at this level are terminal. */
489 return (ENOENT);
490 }
Cache object: 5ac25bd76699ed3077471cd23e411eeb
|