ipx_usrreq.c revision 24659
1/* 2 * Copyright (c) 1995, Mike Mitchell 3 * Copyright (c) 1984, 1985, 1986, 1987, 1993 4 * The Regents of the University of California. All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. All advertising materials mentioning features or use of this software 15 * must display the following acknowledgement: 16 * This product includes software developed by the University of 17 * California, Berkeley and its contributors. 18 * 4. Neither the name of the University nor the names of its contributors 19 * may be used to endorse or promote products derived from this software 20 * without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 * 34 * @(#)ipx_usrreq.c 35 * 36 * $Id: ipx_usrreq.c,v 1.11 1997/02/22 09:41:57 peter Exp $ 37 */ 38 39#include <sys/param.h> 40#include <sys/queue.h> 41#include <sys/systm.h> 42#include <sys/kernel.h> 43#include <sys/malloc.h> 44#include <sys/mbuf.h> 45#include <sys/protosw.h> 46#include <sys/socket.h> 47#include <sys/socketvar.h> 48#include <sys/errno.h> 49#include <sys/stat.h> 50#include <sys/sysctl.h> 51 52#include <net/if.h> 53#include <net/route.h> 54 55#include <netinet/in.h> 56 57#include <netipx/ipx.h> 58#include <netipx/ipx_pcb.h> 59#include <netipx/ipx_if.h> 60#include <netipx/ipx_var.h> 61#include <netipx/ipx_error.h> 62#include <netipx/ipx_ip.h> 63 64/* 65 * IPX protocol implementation. 66 */ 67 68int noipxRoute; 69 70int ipxsendspace = IPXSNDQ; 71SYSCTL_INT(_net_ipx_ipx, OID_AUTO, ipxsendspace, CTLFLAG_RW, 72 &ipxsendspace, 0, ""); 73int ipxrecvspace = IPXRCVQ; 74SYSCTL_INT(_net_ipx_ipx, OID_AUTO, ipxrecvspace, CTLFLAG_RW, 75 &ipxrecvspace, 0, ""); 76 77static int ipx_usr_abort(struct socket *so); 78static int ipx_attach(struct socket *so, int proto); 79static int ipx_bind(struct socket *so, struct mbuf *nam); 80static int ipx_connect(struct socket *so, struct mbuf *nam); 81static int ipx_detach(struct socket *so); 82static int ipx_disconnect(struct socket *so); 83static int ipx_send(struct socket *so, int flags, struct mbuf *m, 84 struct mbuf *addr, struct mbuf *control); 85static int ipx_shutdown(struct socket *so); 86static int ripx_attach(struct socket *so, int proto); 87 88struct pr_usrreqs ipx_usrreqs = { 89 ipx_usr_abort, pru_accept_notsupp, ipx_attach, ipx_bind, 90 ipx_connect, pru_connect2_notsupp, ipx_control, ipx_detach, 91 ipx_disconnect, pru_listen_notsupp, ipx_peeraddr, pru_rcvd_notsupp, 92 pru_rcvoob_notsupp, ipx_send, pru_sense_null, ipx_shutdown, 93 ipx_sockaddr 94}; 95 96struct pr_usrreqs ripx_usrreqs = { 97 ipx_usr_abort, pru_accept_notsupp, ripx_attach, ipx_bind, 98 ipx_connect, pru_connect2_notsupp, ipx_control, ipx_detach, 99 ipx_disconnect, pru_listen_notsupp, ipx_peeraddr, pru_rcvd_notsupp, 100 pru_rcvoob_notsupp, ipx_send, pru_sense_null, ipx_shutdown, 101 ipx_sockaddr 102}; 103 104/* 105 * This may also be called for raw listeners. 106 */ 107void 108ipx_input(m, ipxp) 109 struct mbuf *m; 110 register struct ipxpcb *ipxp; 111{ 112 register struct ipx *ipx = mtod(m, struct ipx *); 113 struct ifnet *ifp = m->m_pkthdr.rcvif; 114 struct sockaddr_ipx ipx_ipx; 115 116 if (ipxp==0) 117 panic("No ipxpcb"); 118 /* 119 * Construct sockaddr format source address. 120 * Stuff source address and datagram in user buffer. 121 */ 122 ipx_ipx.sipx_len = sizeof(ipx_ipx); 123 ipx_ipx.sipx_family = AF_IPX; 124 ipx_ipx.sipx_addr = ipx->ipx_sna; 125 ipx_ipx.sipx_zero[0] = '\0'; 126 ipx_ipx.sipx_zero[1] = '\0'; 127 if (ipx_neteqnn(ipx->ipx_sna.x_net, ipx_zeronet) && ifp) { 128 register struct ifaddr *ifa; 129 130 for (ifa = ifp->if_addrhead.tqh_first; ifa; 131 ifa = ifa->ifa_link.tqe_next) { 132 if (ifa->ifa_addr->sa_family == AF_IPX) { 133 ipx_ipx.sipx_addr.x_net = 134 IA_SIPX(ifa)->sipx_addr.x_net; 135 break; 136 } 137 } 138 } 139 ipxp->ipxp_rpt = ipx->ipx_pt; 140 if ( ! (ipxp->ipxp_flags & IPXP_RAWIN) ) { 141 m->m_len -= sizeof (struct ipx); 142 m->m_pkthdr.len -= sizeof (struct ipx); 143 m->m_data += sizeof (struct ipx); 144 } 145 if (sbappendaddr(&ipxp->ipxp_socket->so_rcv, (struct sockaddr *)&ipx_ipx, 146 m, (struct mbuf *)0) == 0) 147 goto bad; 148 sorwakeup(ipxp->ipxp_socket); 149 return; 150bad: 151 m_freem(m); 152} 153 154void 155ipx_abort(ipxp) 156 struct ipxpcb *ipxp; 157{ 158 struct socket *so = ipxp->ipxp_socket; 159 160 ipx_pcbdisconnect(ipxp); 161 soisdisconnected(so); 162} 163/* 164 * Drop connection, reporting 165 * the specified error. 166 */ 167/* struct ipxpcb * DELETE THIS */ 168void 169ipx_drop(ipxp, errno) 170 register struct ipxpcb *ipxp; 171 int errno; 172{ 173 struct socket *so = ipxp->ipxp_socket; 174 175 /* 176 * someday, in the xerox world 177 * we will generate error protocol packets 178 * announcing that the socket has gone away. 179 */ 180 /*if (TCPS_HAVERCVDSYN(tp->t_state)) { 181 tp->t_state = TCPS_CLOSED; 182 (void) tcp_output(tp); 183 }*/ 184 so->so_error = errno; 185 ipx_pcbdisconnect(ipxp); 186 soisdisconnected(so); 187} 188 189int 190ipx_output(ipxp, m0) 191 struct ipxpcb *ipxp; 192 struct mbuf *m0; 193{ 194 register struct mbuf *m; 195 register struct ipx *ipx; 196 register struct socket *so; 197 register int len = 0; 198 register struct route *ro; 199 struct mbuf *mprev = NULL; 200 201 /* 202 * Calculate data length. 203 */ 204 for (m = m0; m; m = m->m_next) { 205 mprev = m; 206 len += m->m_len; 207 } 208 /* 209 * Make sure packet is actually of even length. 210 */ 211 212 if (len & 1) { 213 m = mprev; 214 if ((m->m_flags & M_EXT) == 0 && 215 (m->m_len + m->m_data < &m->m_dat[MLEN])) { 216 m->m_len++; 217 } else { 218 struct mbuf *m1 = m_get(M_DONTWAIT, MT_DATA); 219 220 if (m1 == 0) { 221 m_freem(m0); 222 return (ENOBUFS); 223 } 224 m1->m_len = 1; 225 * mtod(m1, char *) = 0; 226 m->m_next = m1; 227 } 228 m0->m_pkthdr.len++; 229 } 230 231 /* 232 * Fill in mbuf with extended IPX header 233 * and addresses and length put into network format. 234 */ 235 m = m0; 236 if (ipxp->ipxp_flags & IPXP_RAWOUT) { 237 ipx = mtod(m, struct ipx *); 238 } else { 239 M_PREPEND(m, sizeof (struct ipx), M_DONTWAIT); 240 if (m == 0) 241 return (ENOBUFS); 242 ipx = mtod(m, struct ipx *); 243 ipx->ipx_tc = 0; 244 ipx->ipx_pt = ipxp->ipxp_dpt; 245 ipx->ipx_sna = ipxp->ipxp_laddr; 246 ipx->ipx_dna = ipxp->ipxp_faddr; 247 len += sizeof (struct ipx); 248 } 249 250 ipx->ipx_len = htons((u_short)len); 251 252 if (ipxcksum) { 253 ipx->ipx_sum = 0; 254 len = ((len - 1) | 1) + 1; 255 ipx->ipx_sum = ipx_cksum(m, len); 256 } else 257 ipx->ipx_sum = 0xffff; 258 259 /* 260 * Output datagram. 261 */ 262 so = ipxp->ipxp_socket; 263 if (so->so_options & SO_DONTROUTE) 264 return (ipx_outputfl(m, (struct route *)0, 265 (so->so_options & SO_BROADCAST) | IPX_ROUTETOIF)); 266 /* 267 * Use cached route for previous datagram if 268 * possible. If the previous net was the same 269 * and the interface was a broadcast medium, or 270 * if the previous destination was identical, 271 * then we are ok. 272 * 273 * NB: We don't handle broadcasts because that 274 * would require 3 subroutine calls. 275 */ 276 ro = &ipxp->ipxp_route; 277#ifdef ancient_history 278 /* 279 * I think that this will all be handled in ipx_pcbconnect! 280 */ 281 if (ro->ro_rt) { 282 if(ipx_neteq(ipxp->ipxp_lastdst, ipx->ipx_dna)) { 283 /* 284 * This assumes we have no GH type routes 285 */ 286 if (ro->ro_rt->rt_flags & RTF_HOST) { 287 if (!ipx_hosteq(ipxp->ipxp_lastdst, ipx->ipx_dna)) 288 goto re_route; 289 290 } 291 if ((ro->ro_rt->rt_flags & RTF_GATEWAY) == 0) { 292 register struct ipx_addr *dst = 293 &satoipx_addr(ro->ro_dst); 294 dst->x_host = ipx->ipx_dna.x_host; 295 } 296 /* 297 * Otherwise, we go through the same gateway 298 * and dst is already set up. 299 */ 300 } else { 301 re_route: 302 RTFREE(ro->ro_rt); 303 ro->ro_rt = (struct rtentry *)0; 304 } 305 } 306 ipxp->ipxp_lastdst = ipx->ipx_dna; 307#endif /* ancient_history */ 308 if (noipxRoute) 309 ro = 0; 310 return (ipx_outputfl(m, ro, so->so_options & SO_BROADCAST)); 311} 312 313/* ARGSUSED */ 314int 315ipx_ctloutput(req, so, level, name, value) 316 int req, level; 317 struct socket *so; 318 int name; 319 struct mbuf **value; 320{ 321 register struct mbuf *m; 322 struct ipxpcb *ipxp = sotoipxpcb(so); 323 int mask, error = 0; 324 /*extern long ipx_pexseq;*/ /*XXX*//*JRE*/ 325 326 if (ipxp == NULL) 327 return (EINVAL); 328 329 switch (req) { 330 331 case PRCO_GETOPT: 332 if (value==NULL) 333 return (EINVAL); 334 m = m_get(M_DONTWAIT, MT_DATA); 335 if (m==NULL) 336 return (ENOBUFS); 337 switch (name) { 338 339 case SO_ALL_PACKETS: 340 mask = IPXP_ALL_PACKETS; 341 goto get_flags; 342 343 case SO_HEADERS_ON_INPUT: 344 mask = IPXP_RAWIN; 345 goto get_flags; 346 347 case SO_HEADERS_ON_OUTPUT: 348 mask = IPXP_RAWOUT; 349 get_flags: 350 m->m_len = sizeof(short); 351 *mtod(m, short *) = ipxp->ipxp_flags & mask; 352 break; 353 354 case SO_DEFAULT_HEADERS: 355 m->m_len = sizeof(struct ipx); 356 { 357 register struct ipx *ipx = mtod(m, struct ipx *); 358 ipx->ipx_len = 0; 359 ipx->ipx_sum = 0; 360 ipx->ipx_tc = 0; 361 ipx->ipx_pt = ipxp->ipxp_dpt; 362 ipx->ipx_dna = ipxp->ipxp_faddr; 363 ipx->ipx_sna = ipxp->ipxp_laddr; 364 } 365 break; 366 367 case SO_SEQNO: 368 m->m_len = sizeof(long); 369 *mtod(m, long *) = ipx_pexseq++; 370 break; 371 372 default: 373 error = EINVAL; 374 } 375 *value = m; 376 break; 377 378 case PRCO_SETOPT: 379 switch (name) { 380 int *ok; 381 382 case SO_ALL_PACKETS: 383 mask = IPXP_ALL_PACKETS; 384 goto set_head; 385 386 case SO_HEADERS_ON_INPUT: 387 mask = IPXP_RAWIN; 388 goto set_head; 389 390 case SO_HEADERS_ON_OUTPUT: 391 mask = IPXP_RAWOUT; 392 set_head: 393 if (value && *value) { 394 ok = mtod(*value, int *); 395 if (*ok) 396 ipxp->ipxp_flags |= mask; 397 else 398 ipxp->ipxp_flags &= ~mask; 399 } else error = EINVAL; 400 break; 401 402 case SO_DEFAULT_HEADERS: 403 { 404 register struct ipx *ipx 405 = mtod(*value, struct ipx *); 406 ipxp->ipxp_dpt = ipx->ipx_pt; 407 } 408 break; 409#ifdef IPXIP 410 case SO_IPXIP_ROUTE: 411 error = ipxip_route(so, *value); 412 break; 413#endif /* IPXIP */ 414#ifdef IPXTUNNEL 415 case SO_IPXTUNNEL_ROUTE 416 error = ipxtun_route(so, *value); 417 break; 418#endif 419 default: 420 error = EINVAL; 421 } 422 if (value && *value) 423 m_freem(*value); 424 break; 425 } 426 return (error); 427} 428 429static int 430ipx_usr_abort(so) 431 struct socket *so; 432{ 433 int s; 434 struct ipxpcb *ipxp = sotoipxpcb(so); 435 436 s = splnet(); 437 ipx_pcbdetach(ipxp); 438 splx(s); 439 sofree(so); 440 soisdisconnected(so); 441 return (0); 442} 443 444static int 445ipx_attach(so, proto) 446 struct socket *so; 447 int proto; 448{ 449 int error; 450 int s; 451 struct ipxpcb *ipxp = sotoipxpcb(so); 452 453 if (ipxp != NULL) 454 return (EINVAL); 455 s = splnet(); 456 error = ipx_pcballoc(so, &ipxpcb); 457 splx(s); 458 if (error == 0) 459 error = soreserve(so, ipxsendspace, ipxrecvspace); 460 return (error); 461} 462 463static int 464ipx_bind(so, nam) 465 struct socket *so; 466 struct mbuf *nam; 467{ 468 struct ipxpcb *ipxp = sotoipxpcb(so); 469 470 return (ipx_pcbbind(ipxp, nam)); 471} 472 473static int 474ipx_connect(so, nam) 475 struct socket *so; 476 struct mbuf *nam; 477{ 478 int error; 479 int s; 480 struct ipxpcb *ipxp = sotoipxpcb(so); 481 482 if (!ipx_nullhost(ipxp->ipxp_faddr)) 483 return (EISCONN); 484 s = splnet(); 485 error = ipx_pcbconnect(ipxp, nam); 486 splx(s); 487 if (error == 0) 488 soisconnected(so); 489 return (error); 490} 491 492static int 493ipx_detach(so) 494 struct socket *so; 495{ 496 int s; 497 struct ipxpcb *ipxp = sotoipxpcb(so); 498 499 if (ipxp == NULL) 500 return (ENOTCONN); 501 s = splnet(); 502 ipx_pcbdetach(ipxp); 503 splx(s); 504 return (0); 505} 506 507static int 508ipx_disconnect(so) 509 struct socket *so; 510{ 511 int s; 512 struct ipxpcb *ipxp = sotoipxpcb(so); 513 514 if (ipx_nullhost(ipxp->ipxp_faddr)) 515 return (ENOTCONN); 516 s = splnet(); 517 ipx_pcbdisconnect(ipxp); 518 splx(s); 519 soisdisconnected(so); 520 return (0); 521} 522 523int 524ipx_peeraddr(so, nam) 525 struct socket *so; 526 struct mbuf *nam; 527{ 528 struct ipxpcb *ipxp = sotoipxpcb(so); 529 530 ipx_setpeeraddr(ipxp, nam); 531 return (0); 532} 533 534static int 535ipx_send(so, flags, m, nam, control) 536 struct socket *so; 537 int flags; 538 struct mbuf *m; 539 struct mbuf *nam; 540 struct mbuf *control; 541{ 542 int error; 543 struct ipxpcb *ipxp = sotoipxpcb(so); 544 struct ipx_addr laddr; 545 int s = 0; 546 547 if (nam) { 548 laddr = ipxp->ipxp_laddr; 549 if (!ipx_nullhost(ipxp->ipxp_faddr)) { 550 error = EISCONN; 551 goto send_release; 552 } 553 /* 554 * Must block input while temporarily connected. 555 */ 556 s = splnet(); 557 error = ipx_pcbconnect(ipxp, nam); 558 if (error) { 559 splx(s); 560 goto send_release; 561 } 562 } else { 563 if (ipx_nullhost(ipxp->ipxp_faddr)) { 564 error = ENOTCONN; 565 goto send_release; 566 } 567 } 568 error = ipx_output(ipxp, m); 569 m = NULL; 570 if (nam) { 571 ipx_pcbdisconnect(ipxp); 572 splx(s); 573 ipxp->ipxp_laddr.x_host = laddr.x_host; 574 ipxp->ipxp_laddr.x_port = laddr.x_port; 575 } 576 577send_release: 578 if (m != NULL) 579 m_freem(m); 580 return (error); 581} 582 583static int 584ipx_shutdown(so) 585 struct socket *so; 586{ 587 socantsendmore(so); 588 return (0); 589} 590 591int 592ipx_sockaddr(so, nam) 593 struct socket *so; 594 struct mbuf *nam; 595{ 596 struct ipxpcb *ipxp = sotoipxpcb(so); 597 598 ipx_setsockaddr(ipxp, nam); 599 return (0); 600} 601 602static int 603ripx_attach(so, proto) 604 struct socket *so; 605 int proto; 606{ 607 int error = 0; 608 int s; 609 struct ipxpcb *ipxp = sotoipxpcb(so); 610 611 if (!(so->so_state & SS_PRIV) || (ipxp != NULL)) 612 return (EINVAL); 613 s = splnet(); 614 error = ipx_pcballoc(so, &ipxrawpcb); 615 splx(s); 616 if (error) 617 return (error); 618 error = soreserve(so, ipxsendspace, ipxrecvspace); 619 if (error) 620 return (error); 621 ipxp = sotoipxpcb(so); 622 ipxp->ipxp_faddr.x_host = ipx_broadhost; 623 ipxp->ipxp_flags = IPXP_RAWIN | IPXP_RAWOUT; 624 return (error); 625} 626