NetBSD/sys/compat/hpux/hpux_net.c

336 lines
8.8 KiB
C

/* $NetBSD: hpux_net.c,v 1.23 2002/06/21 05:48:06 gmcgarry 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. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. 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 <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: hpux_net.c,v 1.23 2002/06/21 05:48:06 gmcgarry Exp $");
#if defined(_KERNEL_OPT)
#include "opt_ktrace.h"
#endif
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/time.h>
#include <sys/errno.h>
#include <sys/proc.h>
#include <sys/file.h>
#include <sys/filedesc.h>
#include <sys/mbuf.h>
#include <sys/mount.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/uio.h>
#include <sys/ktrace.h>
#include <sys/syscallargs.h>
#include <compat/hpux/hpux.h>
#include <compat/hpux/hpux_syscallargs.h>
#include <compat/hpux/hpux_util.h>
struct hpux_sys_setsockopt_args {
syscallarg(int) s;
syscallarg(int) level;
syscallarg(int) name;
syscallarg(caddr_t) val;
syscallarg(int) valsize;
};
struct hpux_sys_getsockopt_args {
syscallarg(int) s;
syscallarg(int) level;
syscallarg(int) name;
syscallarg(caddr_t) val;
syscallarg(int *) avalsize;
};
int hpux_sys_setsockopt __P((struct proc *, void *, register_t *));
int hpux_sys_getsockopt __P((struct proc *, void *, register_t *));
void socksetsize __P((int, struct mbuf *));
#define MINBSDIPCCODE 0x3EE
#define NUMBSDIPC 32
/*
* HPUX netioctl() to BSD syscall map.
* Indexed by callno - MINBSDIPCCODE
*/
struct hpuxtobsdipc {
int (*rout) __P((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_setsockopt, 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, (register_t *)uap);
#endif
return (error);
}
#ifdef KTRACE
if (KTRPOINT(p, KTR_SYSCALL))
ktrsyscall(p, code + MINBSDIPCCODE, (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_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 tmp, error;
/* getsock() will use the descriptor for us */
if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)))
return (error);
if (SCARG(uap, valsize) > MLEN) {
error = EINVAL;
goto out;
}
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 out;
}
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) {
SCARG(uap, name) = SO_LINGER;
m = m_get(M_WAIT, MT_SOOPTS);
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);
out:
FILE_UNUSE(fp, p);
return (error);
}
/* ARGSUSED */
int
hpux_sys_setsockopt2(p, v, retval)
struct proc *p;
void *v;
register_t *retval;
{
struct hpux_sys_setsockopt2_args *uap = v;
struct file *fp;
struct mbuf *m = NULL;
int error;
/* getsock() will use the descriptor for us */
if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)))
return (error);
if (SCARG(uap, valsize) > MLEN) {
error = EINVAL;
goto out;
}
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 out;
}
socksetsize(SCARG(uap, valsize), m);
}
error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
SCARG(uap, name), m);
out:
FILE_UNUSE(fp, p);
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;
/* getsock() will use the descriptor for us */
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 out;
} 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:
if (m != NULL)
(void) m_free(m);
out:
FILE_UNUSE(fp, p);
return (error);
}