1 /*
2 * Copyright (c) 2000-2012 Apple Inc. All rights reserved.
3 *
4 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
5 *
6 * This file contains Original Code and/or Modifications of Original Code
7 * as defined in and that are subject to the Apple Public Source License
8 * Version 2.0 (the 'License'). You may not use this file except in
9 * compliance with the License. The rights granted to you under the License
10 * may not be used to create, or enable the creation or redistribution of,
11 * unlawful or unlicensed copies of an Apple operating system, or to
12 * circumvent, violate, or enable the circumvention or violation of, any
13 * terms of an Apple operating system software license agreement.
14 *
15 * Please obtain a copy of the License at
16 * http://www.opensource.apple.com/apsl/ and read it before using this file.
17 *
18 * The Original Code and all software distributed under the License are
19 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
20 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
21 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
22 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
23 * Please see the License for the specific language governing rights and
24 * limitations under the License.
25 *
26 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
27 */
28 /*
29 * Copyright (c) 1980, 1986, 1993
30 * The Regents of the University of California. All rights reserved.
31 *
32 * Redistribution and use in source and binary forms, with or without
33 * modification, are permitted provided that the following conditions
34 * are met:
35 * 1. Redistributions of source code must retain the above copyright
36 * notice, this list of conditions and the following disclaimer.
37 * 2. Redistributions in binary form must reproduce the above copyright
38 * notice, this list of conditions and the following disclaimer in the
39 * documentation and/or other materials provided with the distribution.
40 * 3. All advertising materials mentioning features or use of this software
41 * must display the following acknowledgement:
42 * This product includes software developed by the University of
43 * California, Berkeley and its contributors.
44 * 4. Neither the name of the University nor the names of its contributors
45 * may be used to endorse or promote products derived from this software
46 * without specific prior written permission.
47 *
48 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
49 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
50 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
51 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
52 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
53 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
54 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
55 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
56 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
57 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
58 * SUCH DAMAGE.
59 *
60 * @(#)raw_usrreq.c 8.1 (Berkeley) 6/10/93
61 * $FreeBSD: src/sys/net/raw_usrreq.c,v 1.18 1999/08/28 00:48:28 peter Exp $
62 */
63
64 #include <sys/param.h>
65 #include <sys/systm.h>
66 #include <sys/mbuf.h>
67 #include <sys/proc.h>
68 #include <sys/domain.h>
69 #include <sys/protosw.h>
70 #include <sys/socket.h>
71 #include <sys/socketvar.h>
72 #include <kern/locks.h>
73
74 #include <net/raw_cb.h>
75 #include <net/sockaddr_utils.h>
76
77 static LCK_GRP_DECLARE(raw_mtx_grp, "rawcb");
78 LCK_MTX_DECLARE(raw_mtx, &raw_mtx_grp); /*### global raw cb mutex for now */
79
80
81 /*
82 * Raw protocol input routine. Find the socket
83 * associated with the packet(s) and move them over. If
84 * nothing exists for this packet, drop it.
85 */
86 /*
87 * Raw protocol interface.
88 */
89 void
raw_input(struct mbuf * m0,struct sockproto * proto,struct sockaddr * src,struct sockaddr * dst)90 raw_input(struct mbuf *m0, struct sockproto *proto, struct sockaddr *src,
91 struct sockaddr *dst)
92 {
93 struct rawcb *rp;
94 struct mbuf *m = m0;
95 int sockets = 0;
96 struct socket *last;
97 int error;
98
99 //####LD raw_input is called from many places, input & output path. We have to assume the
100 //####LD socket we'll find and need to append to is unlocked.
101 //####LD calls from the output (locked) path need to make sure the socket is not locked when
102 //####LD we call in raw_input
103 last = NULL;
104 lck_mtx_lock(&raw_mtx);
105 LIST_FOREACH(rp, &rawcb_list, list) {
106 if (rp->rcb_proto.sp_family != proto->sp_family) {
107 continue;
108 }
109 if (rp->rcb_proto.sp_protocol &&
110 rp->rcb_proto.sp_protocol != proto->sp_protocol) {
111 continue;
112 }
113 /*
114 * We assume the lower level routines have
115 * placed the address in a canonical format
116 * suitable for a structure comparison.
117 *
118 * Note that if the lengths are not the same
119 * the comparison will fail at the first byte.
120 */
121 if (rp->rcb_laddr && SOCKADDR_CMP(rp->rcb_laddr, dst, rp->rcb_laddr->sa_len) != 0) {
122 continue;
123 }
124 if (rp->rcb_faddr && SOCKADDR_CMP(rp->rcb_faddr, src, rp->rcb_faddr->sa_len) != 0) {
125 continue;
126 }
127 if (last) {
128 struct mbuf *n;
129 n = m_copy(m, 0, (int)M_COPYALL);
130 if (n) {
131 socket_lock(last, 1);
132 if (sbappendaddr(&last->so_rcv, src,
133 n, (struct mbuf *)0, &error) != 0) {
134 sorwakeup(last);
135 sockets++;
136 }
137 socket_unlock(last, 1);
138 }
139 }
140 last = rp->rcb_socket;
141 }
142 if (last) {
143 socket_lock(last, 1);
144 if (sbappendaddr(&last->so_rcv, src,
145 m, (struct mbuf *)0, &error) != 0) {
146 sorwakeup(last);
147 sockets++;
148 }
149 socket_unlock(last, 1);
150 } else {
151 m_freem(m);
152 }
153 lck_mtx_unlock(&raw_mtx);
154 }
155
156 /*ARGSUSED*/
157 void
raw_ctlinput(int cmd,__unused struct sockaddr * arg,__unused void * dummy,__unused struct ifnet * ifp)158 raw_ctlinput(int cmd, __unused struct sockaddr *arg, __unused void *dummy,
159 __unused struct ifnet *ifp)
160 {
161 if (cmd < 0 || cmd >= PRC_NCMDS) {
162 return;
163 }
164 /* INCOMPLETE */
165 }
166
167 static int
raw_uabort(struct socket * so)168 raw_uabort(struct socket *so)
169 {
170 struct rawcb *rp = sotorawcb(so);
171
172 lck_mtx_t * mutex_held;
173 if (so->so_proto->pr_getlock != NULL) {
174 mutex_held = (*so->so_proto->pr_getlock)(so, 0);
175 } else {
176 mutex_held = so->so_proto->pr_domain->dom_mtx;
177 }
178 LCK_MTX_ASSERT(mutex_held, LCK_MTX_ASSERT_OWNED);
179
180 if (rp == 0) {
181 return EINVAL;
182 }
183 raw_disconnect(rp);
184 sofree(so);
185 soisdisconnected(so);
186 return 0;
187 }
188
189 /* pru_accept is EOPNOTSUPP */
190
191 static int
raw_uattach(struct socket * so,int proto,__unused struct proc * p)192 raw_uattach(struct socket *so, int proto, __unused struct proc *p)
193 {
194 struct rawcb *rp = sotorawcb(so);
195
196 if (rp == 0) {
197 return EINVAL;
198 }
199 if ((so->so_state & SS_PRIV) == 0) {
200 return EPERM;
201 }
202 return raw_attach(so, proto);
203 }
204
205 static int
raw_ubind(__unused struct socket * so,__unused struct sockaddr * nam,__unused struct proc * p)206 raw_ubind(__unused struct socket *so, __unused struct sockaddr *nam, __unused struct proc *p)
207 {
208 return EINVAL;
209 }
210
211 static int
raw_uconnect(__unused struct socket * so,__unused struct sockaddr * nam,__unused struct proc * p)212 raw_uconnect(__unused struct socket *so, __unused struct sockaddr *nam, __unused struct proc *p)
213 {
214 return EINVAL;
215 }
216
217 /* pru_connect2 is EOPNOTSUPP */
218 /* pru_control is EOPNOTSUPP */
219
220 static int
raw_udetach(struct socket * so)221 raw_udetach(struct socket *so)
222 {
223 struct rawcb *rp = sotorawcb(so);
224
225 lck_mtx_t * mutex_held;
226 if (so->so_proto->pr_getlock != NULL) {
227 mutex_held = (*so->so_proto->pr_getlock)(so, 0);
228 } else {
229 mutex_held = so->so_proto->pr_domain->dom_mtx;
230 }
231 LCK_MTX_ASSERT(mutex_held, LCK_MTX_ASSERT_OWNED);
232 if (rp == 0) {
233 return EINVAL;
234 }
235
236 raw_detach_nofree(rp);
237 kfree_type(struct rawcb, rp);
238 return 0;
239 }
240
241 static int
raw_udisconnect(struct socket * so)242 raw_udisconnect(struct socket *so)
243 {
244 struct rawcb *rp = sotorawcb(so);
245
246 if (rp == 0) {
247 return EINVAL;
248 }
249 if (rp->rcb_faddr == 0) {
250 return ENOTCONN;
251 }
252 raw_disconnect(rp);
253 soisdisconnected(so);
254 return 0;
255 }
256
257 /* pru_listen is EOPNOTSUPP */
258
259 static int
raw_upeeraddr(struct socket * so,struct sockaddr ** nam)260 raw_upeeraddr(struct socket *so, struct sockaddr **nam)
261 {
262 struct rawcb *rp = sotorawcb(so);
263
264 if (rp == 0) {
265 return EINVAL;
266 }
267 if (rp->rcb_faddr == 0) {
268 return ENOTCONN;
269 }
270 *nam = dup_sockaddr(rp->rcb_faddr, 1);
271 return 0;
272 }
273
274 /* pru_rcvd is EOPNOTSUPP */
275 /* pru_rcvoob is EOPNOTSUPP */
276
277 static int
raw_usend(struct socket * so,int flags,struct mbuf * m,struct sockaddr * nam,struct mbuf * control,__unused struct proc * p)278 raw_usend(struct socket *so, int flags, struct mbuf *m,
279 struct sockaddr *nam, struct mbuf *control, __unused struct proc *p)
280 {
281 int error;
282 struct rawcb *rp = sotorawcb(so);
283
284 lck_mtx_t * mutex_held;
285 if (so->so_proto->pr_getlock != NULL) {
286 mutex_held = (*so->so_proto->pr_getlock)(so, 0);
287 } else {
288 mutex_held = so->so_proto->pr_domain->dom_mtx;
289 }
290 LCK_MTX_ASSERT(mutex_held, LCK_MTX_ASSERT_OWNED);
291
292 if (rp == 0) {
293 error = EINVAL;
294 goto release;
295 }
296
297 if (flags & PRUS_OOB) {
298 error = EOPNOTSUPP;
299 goto release;
300 }
301
302 if (so->so_proto->pr_output == NULL) {
303 error = EOPNOTSUPP;
304 goto release;
305 }
306
307 if (control != NULL) {
308 m_freem(control);
309 error = EOPNOTSUPP;
310 goto release;
311 }
312 if (nam) {
313 if (rp->rcb_faddr) {
314 error = EISCONN;
315 goto release;
316 }
317 rp->rcb_faddr = nam;
318 } else if (rp->rcb_faddr == 0) {
319 error = ENOTCONN;
320 goto release;
321 }
322 so_update_tx_data_stats(so, 1, m->m_pkthdr.len);
323 error = (*so->so_proto->pr_output)(m, so);
324 m = NULL;
325 if (nam) {
326 rp->rcb_faddr = NULL;
327 }
328 release:
329 if (m != NULL) {
330 m_freem(m);
331 }
332 return error;
333 }
334
335 /* pru_sense is null */
336
337 static int
raw_ushutdown(struct socket * so)338 raw_ushutdown(struct socket *so)
339 {
340 struct rawcb *rp = sotorawcb(so);
341 lck_mtx_t * mutex_held;
342 if (so->so_proto->pr_getlock != NULL) {
343 mutex_held = (*so->so_proto->pr_getlock)(so, 0);
344 } else {
345 mutex_held = so->so_proto->pr_domain->dom_mtx;
346 }
347 LCK_MTX_ASSERT(mutex_held, LCK_MTX_ASSERT_OWNED);
348
349 if (rp == 0) {
350 return EINVAL;
351 }
352 socantsendmore(so);
353 return 0;
354 }
355
356 static int
raw_usockaddr(struct socket * so,struct sockaddr ** nam)357 raw_usockaddr(struct socket *so, struct sockaddr **nam)
358 {
359 struct rawcb *rp = sotorawcb(so);
360
361 if (rp == 0) {
362 return EINVAL;
363 }
364 if (rp->rcb_laddr == 0) {
365 return EINVAL;
366 }
367 *nam = dup_sockaddr(rp->rcb_laddr, 1);
368 return 0;
369 }
370
371 struct pr_usrreqs raw_usrreqs = {
372 .pru_abort = raw_uabort,
373 .pru_attach = raw_uattach,
374 .pru_bind = raw_ubind,
375 .pru_connect = raw_uconnect,
376 .pru_detach = raw_udetach,
377 .pru_disconnect = raw_udisconnect,
378 .pru_peeraddr = raw_upeeraddr,
379 .pru_send = raw_usend,
380 .pru_shutdown = raw_ushutdown,
381 .pru_sockaddr = raw_usockaddr,
382 .pru_sosend = sosend,
383 .pru_soreceive = soreceive,
384 };
385