Initial import from FreeBSD RELENG_4:
[dragonfly.git] / sys / net / raw_usrreq.c
1 /*
2  * Copyright (c) 1980, 1986, 1993
3  *      The Regents of the University of California.  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  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  *
33  *      @(#)raw_usrreq.c        8.1 (Berkeley) 6/10/93
34  * $FreeBSD: src/sys/net/raw_usrreq.c,v 1.18 1999/08/28 00:48:28 peter Exp $
35  */
36
37 #include <sys/param.h>
38 #include <sys/systm.h>
39 #include <sys/mbuf.h>
40 #include <sys/proc.h>
41 #include <sys/protosw.h>
42 #include <sys/socket.h>
43 #include <sys/socketvar.h>
44
45 #include <net/raw_cb.h>
46
47 /*
48  * Initialize raw connection block q.
49  */
50 void
51 raw_init()
52 {
53         LIST_INIT(&rawcb_list);
54 }
55
56
57 /*
58  * Raw protocol input routine.  Find the socket
59  * associated with the packet(s) and move them over.  If
60  * nothing exists for this packet, drop it.
61  */
62 /*
63  * Raw protocol interface.
64  */
65 void
66 raw_input(m0, proto, src, dst)
67         struct mbuf *m0;
68         register struct sockproto *proto;
69         struct sockaddr *src, *dst;
70 {
71         register struct rawcb *rp;
72         register struct mbuf *m = m0;
73         register int sockets = 0;
74         struct socket *last;
75
76         last = 0;
77         LIST_FOREACH(rp, &rawcb_list, list) {
78                 if (rp->rcb_proto.sp_family != proto->sp_family)
79                         continue;
80                 if (rp->rcb_proto.sp_protocol  &&
81                     rp->rcb_proto.sp_protocol != proto->sp_protocol)
82                         continue;
83                 /*
84                  * We assume the lower level routines have
85                  * placed the address in a canonical format
86                  * suitable for a structure comparison.
87                  *
88                  * Note that if the lengths are not the same
89                  * the comparison will fail at the first byte.
90                  */
91 #define equal(a1, a2) \
92   (bcmp((caddr_t)(a1), (caddr_t)(a2), a1->sa_len) == 0)
93                 if (rp->rcb_laddr && !equal(rp->rcb_laddr, dst))
94                         continue;
95                 if (rp->rcb_faddr && !equal(rp->rcb_faddr, src))
96                         continue;
97                 if (last) {
98                         struct mbuf *n;
99                         n = m_copy(m, 0, (int)M_COPYALL);
100                         if (n) {
101                                 if (sbappendaddr(&last->so_rcv, src,
102                                     n, (struct mbuf *)0) == 0)
103                                         /* should notify about lost packet */
104                                         m_freem(n);
105                                 else {
106                                         sorwakeup(last);
107                                         sockets++;
108                                 }
109                         }
110                 }
111                 last = rp->rcb_socket;
112         }
113         if (last) {
114                 if (sbappendaddr(&last->so_rcv, src,
115                     m, (struct mbuf *)0) == 0)
116                         m_freem(m);
117                 else {
118                         sorwakeup(last);
119                         sockets++;
120                 }
121         } else
122                 m_freem(m);
123 }
124
125 /*ARGSUSED*/
126 void
127 raw_ctlinput(cmd, arg, dummy)
128         int cmd;
129         struct sockaddr *arg;
130         void *dummy;
131 {
132
133         if (cmd < 0 || cmd > PRC_NCMDS)
134                 return;
135         /* INCOMPLETE */
136 }
137
138 static int
139 raw_uabort(struct socket *so)
140 {
141         struct rawcb *rp = sotorawcb(so);
142
143         if (rp == 0)
144                 return EINVAL;
145         raw_disconnect(rp);
146         sofree(so);
147         soisdisconnected(so);
148         return 0;
149 }
150
151 /* pru_accept is EOPNOTSUPP */
152
153 static int
154 raw_uattach(struct socket *so, int proto, struct proc *p)
155 {
156         struct rawcb *rp = sotorawcb(so);
157         int error;
158
159         if (rp == 0)
160                 return EINVAL;
161         if (p && (error = suser(p)) != 0)
162                 return error;
163         return raw_attach(so, proto);
164 }
165
166 static int
167 raw_ubind(struct socket *so, struct sockaddr *nam, struct proc *p)
168 {
169         return EINVAL;
170 }
171
172 static int
173 raw_uconnect(struct socket *so, struct sockaddr *nam, struct proc *p)
174 {
175         return EINVAL;
176 }
177
178 /* pru_connect2 is EOPNOTSUPP */
179 /* pru_control is EOPNOTSUPP */
180
181 static int
182 raw_udetach(struct socket *so)
183 {
184         struct rawcb *rp = sotorawcb(so);
185
186         if (rp == 0)
187                 return EINVAL;
188
189         raw_detach(rp);
190         return 0;
191 }
192
193 static int
194 raw_udisconnect(struct socket *so)
195 {
196         struct rawcb *rp = sotorawcb(so);
197
198         if (rp == 0)
199                 return EINVAL;
200         if (rp->rcb_faddr == 0) {
201                 return ENOTCONN;
202         }
203         raw_disconnect(rp);
204         soisdisconnected(so);
205         return 0;
206 }
207
208 /* pru_listen is EOPNOTSUPP */
209
210 static int
211 raw_upeeraddr(struct socket *so, struct sockaddr **nam)
212 {
213         struct rawcb *rp = sotorawcb(so);
214
215         if (rp == 0)
216                 return EINVAL;
217         if (rp->rcb_faddr == 0) {
218                 return ENOTCONN;
219         }
220         *nam = dup_sockaddr(rp->rcb_faddr, 1);
221         return 0;
222 }
223
224 /* pru_rcvd is EOPNOTSUPP */
225 /* pru_rcvoob is EOPNOTSUPP */
226
227 static int
228 raw_usend(struct socket *so, int flags, struct mbuf *m,
229           struct sockaddr *nam, struct mbuf *control, struct proc *p)
230 {
231         int error;
232         struct rawcb *rp = sotorawcb(so);
233
234         if (rp == 0) {
235                 error = EINVAL;
236                 goto release;
237         }
238
239         if (flags & PRUS_OOB) {
240                 error = EOPNOTSUPP;
241                 goto release;
242         }
243
244         if (control && control->m_len) {
245                 error = EOPNOTSUPP;
246                 goto release;
247         }
248         if (nam) {
249                 if (rp->rcb_faddr) {
250                         error = EISCONN;
251                         goto release;
252                 }
253                 rp->rcb_faddr = nam;
254         } else if (rp->rcb_faddr == 0) {
255                 error = ENOTCONN;
256                 goto release;
257         }
258         error = (*so->so_proto->pr_output)(m, so);
259         m = NULL;
260         if (nam)
261                 rp->rcb_faddr = 0;
262 release:
263         if (m != NULL)
264                 m_freem(m);
265         return (error);
266 }
267
268 /* pru_sense is null */
269
270 static int
271 raw_ushutdown(struct socket *so)
272 {
273         struct rawcb *rp = sotorawcb(so);
274
275         if (rp == 0)
276                 return EINVAL;
277         socantsendmore(so);
278         return 0;
279 }
280
281 static int
282 raw_usockaddr(struct socket *so, struct sockaddr **nam)
283 {
284         struct rawcb *rp = sotorawcb(so);
285
286         if (rp == 0)
287                 return EINVAL;
288         if (rp->rcb_laddr == 0)
289                 return EINVAL;
290         *nam = dup_sockaddr(rp->rcb_laddr, 1);
291         return 0;
292 }
293
294 struct pr_usrreqs raw_usrreqs = {
295         raw_uabort, pru_accept_notsupp, raw_uattach, raw_ubind, raw_uconnect,
296         pru_connect2_notsupp, pru_control_notsupp, raw_udetach, 
297         raw_udisconnect, pru_listen_notsupp, raw_upeeraddr, pru_rcvd_notsupp,
298         pru_rcvoob_notsupp, raw_usend, pru_sense_null, raw_ushutdown,
299         raw_usockaddr, sosend, soreceive, sopoll
300 };