/* $OpenBSD: hpux_net.c,v 1.1 2004/07/09 21:33:45 mickey Exp $ */ /* $NetBSD: hpux_net.c,v 1.14 1997/04/01 19:59:02 scottr Exp $ */ /* * Copyright (c) 1988 University of Utah. * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * the Systems Programming Group of the University of Utah Computer * Science Department. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: Utah $Hdr: hpux_net.c 1.8 93/08/02$ * * @(#)hpux_net.c 8.2 (Berkeley) 9/9/93 */ /* * Network related HP-UX compatibility routines */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include struct hpux_sys_getsockopt_args { syscallarg(int) s; syscallarg(int) level; syscallarg(int) name; syscallarg(caddr_t) val; syscallarg(int *) avalsize; }; int hpux_sys_setsockopt2(struct proc *, void *, register_t *); int hpux_sys_getsockopt(struct proc *, void *, register_t *); void socksetsize(int, struct mbuf *); #define MINBSDIPCCODE 0x3EE #define NUMBSDIPC 32 /* * HPUX netioctl() to BSD syscall map. * Indexed by callno - MINBSDIPCCODE */ struct hpuxtobsdipc { int (*rout)(struct proc *, void *, register_t *); int nargs; } hpuxtobsdipc[NUMBSDIPC] = { { sys_socket, 3 }, /* 3ee */ { sys_listen, 2 }, /* 3ef */ { sys_bind, 3 }, /* 3f0 */ { compat_43_sys_accept, 3 }, /* 3f1 */ { sys_connect, 3 }, /* 3f2 */ { compat_43_sys_recv, 4 }, /* 3f3 */ { compat_43_sys_send, 4 }, /* 3f4 */ { sys_shutdown, 2 }, /* 3f5 */ { compat_43_sys_getsockname, 3 }, /* 3f6 */ { hpux_sys_setsockopt2, 5 }, /* 3f7 */ { sys_sendto, 6 }, /* 3f8 */ { compat_43_sys_recvfrom, 6 }, /* 3f9 */ { compat_43_sys_getpeername, 3 }, /* 3fa */ { NULL, 0 }, /* 3fb */ { NULL, 0 }, /* 3fc */ { NULL, 0 }, /* 3fd */ { NULL, 0 }, /* 3fe */ { NULL, 0 }, /* 3ff */ { NULL, 0 }, /* 400 */ { NULL, 0 }, /* 401 */ { NULL, 0 }, /* 402 */ { NULL, 0 }, /* 403 */ { NULL, 0 }, /* 404 */ { NULL, 0 }, /* 405 */ { NULL, 0 }, /* 406 */ { NULL, 0 }, /* 407 */ { NULL, 0 }, /* 408 */ { NULL, 0 }, /* 409 */ { NULL, 0 }, /* 40a */ { hpux_sys_getsockopt, 5 }, /* 40b */ { NULL, 0 }, /* 40c */ { NULL, 0 }, /* 40d */ }; /* * Single system call entry to BSD style IPC. * Gleened from disassembled libbsdipc.a syscall entries. */ int hpux_sys_netioctl(p, v, retval) struct proc *p; void *v; register_t *retval; { struct hpux_sys_netioctl_args *uap = v; int *args, i; int code; int error; args = SCARG(uap, args); code = SCARG(uap, call) - MINBSDIPCCODE; if (code < 0 || code >= NUMBSDIPC || hpuxtobsdipc[code].rout == NULL) return (EINVAL); if ((i = hpuxtobsdipc[code].nargs * sizeof (int)) && (error = copyin((caddr_t)args, (caddr_t)uap, (u_int)i))) { #ifdef KTRACE if (KTRPOINT(p, KTR_SYSCALL)) ktrsyscall(p, code + MINBSDIPCCODE, hpuxtobsdipc[code].nargs, (register_t *)uap); #endif return (error); } #ifdef KTRACE if (KTRPOINT(p, KTR_SYSCALL)) ktrsyscall(p, code + MINBSDIPCCODE, hpuxtobsdipc[code].nargs, (register_t *)uap); #endif return ((*hpuxtobsdipc[code].rout)(p, uap, retval)); } void socksetsize(size, m) int size; struct mbuf *m; { int tmp; if (size < sizeof(int)) { switch(size) { case 1: tmp = (int) *mtod(m, char *); break; case 2: tmp = (int) *mtod(m, short *); break; case 3: default: /* XXX uh, what if sizeof(int) > 4? */ tmp = (((int) *mtod(m, int *)) >> 8) & 0xffffff; break; } *mtod(m, int *) = tmp; m->m_len = sizeof(int); } else { m->m_len = size; } } /* ARGSUSED */ int hpux_sys_setsockopt2(p, v, retval) struct proc *p; void *v; register_t *retval; { struct hpux_sys_setsockopt_args *uap = v; struct file *fp; struct mbuf *m = NULL; int tmp, error; if ((error = getsock(p->p_fd, SCARG(uap, s), &fp))) return (error); if (SCARG(uap, valsize) > MLEN) { error = EINVAL; goto bad; } if (SCARG(uap, val)) { m = m_get(M_WAIT, MT_SOOPTS); if ((error = copyin(SCARG(uap, val), mtod(m, caddr_t), (u_int)SCARG(uap, valsize)))) { (void) m_free(m); goto bad; } if (SCARG(uap, name) == SO_LINGER) { tmp = *mtod(m, int *); mtod(m, struct linger *)->l_onoff = 1; mtod(m, struct linger *)->l_linger = tmp; m->m_len = sizeof(struct linger); } else socksetsize(SCARG(uap, valsize), m); } else if (SCARG(uap, name) == ~SO_LINGER) { m = m_get(M_WAIT, MT_SOOPTS); SCARG(uap, name) = SO_LINGER; mtod(m, struct linger *)->l_onoff = 0; m->m_len = sizeof(struct linger); } error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level), SCARG(uap, name), m); bad: FRELE(fp); return (error); } /* ARGSUSED */ int hpux_sys_setsockopt(p, v, retval) struct proc *p; void *v; register_t *retval; { struct hpux_sys_setsockopt_args *uap = v; struct file *fp; struct mbuf *m = NULL; int error; if ((error = getsock(p->p_fd, SCARG(uap, s), &fp))) return (error); if (SCARG(uap, valsize) > MLEN) { error = EINVAL; goto bad; } if (SCARG(uap, val)) { m = m_get(M_WAIT, MT_SOOPTS); if ((error = copyin(SCARG(uap, val), mtod(m, caddr_t), (u_int)SCARG(uap, valsize)))) { m_free(m); goto bad; } socksetsize(SCARG(uap, valsize), m); } error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level), SCARG(uap, name), m); bad: FRELE(fp); return (error); } int hpux_sys_getsockopt(p, v, retval) struct proc *p; void *v; register_t *retval; { struct hpux_sys_getsockopt_args *uap = v; struct file *fp; struct mbuf *m = NULL; int valsize, error; if ((error = getsock(p->p_fd, SCARG(uap, s), &fp))) return (error); if (SCARG(uap, val)) { if ((error = copyin((caddr_t)SCARG(uap, avalsize), (caddr_t)&valsize, sizeof (valsize)))) { goto bad; } } else valsize = 0; if ((error = sogetopt((struct socket *)fp->f_data, SCARG(uap, level), SCARG(uap, name), &m))) goto bad; if (SCARG(uap, val) && valsize && m != NULL) { if (SCARG(uap, name) == SO_LINGER) { if (mtod(m, struct linger *)->l_onoff) *mtod(m, int *) = mtod(m, struct linger *)->l_linger; else *mtod(m, int *) = 0; m->m_len = sizeof(int); } if (valsize > m->m_len) valsize = m->m_len; error = copyout(mtod(m, caddr_t), SCARG(uap, val), (u_int)valsize); if (error == 0) error = copyout((caddr_t)&valsize, (caddr_t)SCARG(uap, avalsize), sizeof (valsize)); } bad: FRELE(fp); if (m != NULL) m_free(m); return (error); }