Home | History | Annotate | Line # | Download | only in kern
uipc_syscalls.c revision 1.66.2.1
      1  1.66.2.1   thorpej /*	$NetBSD: uipc_syscalls.c,v 1.66.2.1 2001/11/12 21:18:59 thorpej Exp $	*/
      2       1.8       cgd 
      3       1.1       cgd /*
      4       1.7   mycroft  * Copyright (c) 1982, 1986, 1989, 1990, 1993
      5       1.7   mycroft  *	The Regents of the University of California.  All rights reserved.
      6       1.1       cgd  *
      7       1.1       cgd  * Redistribution and use in source and binary forms, with or without
      8       1.1       cgd  * modification, are permitted provided that the following conditions
      9       1.1       cgd  * are met:
     10       1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     11       1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     12       1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13       1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     14       1.1       cgd  *    documentation and/or other materials provided with the distribution.
     15       1.1       cgd  * 3. All advertising materials mentioning features or use of this software
     16       1.1       cgd  *    must display the following acknowledgement:
     17       1.1       cgd  *	This product includes software developed by the University of
     18       1.1       cgd  *	California, Berkeley and its contributors.
     19       1.1       cgd  * 4. Neither the name of the University nor the names of its contributors
     20       1.1       cgd  *    may be used to endorse or promote products derived from this software
     21       1.1       cgd  *    without specific prior written permission.
     22       1.1       cgd  *
     23       1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24       1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25       1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26       1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27       1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28       1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29       1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30       1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31       1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32       1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33       1.1       cgd  * SUCH DAMAGE.
     34       1.1       cgd  *
     35      1.29      fvdl  *	@(#)uipc_syscalls.c	8.6 (Berkeley) 2/14/95
     36       1.1       cgd  */
     37  1.66.2.1   thorpej 
     38  1.66.2.1   thorpej #include <sys/cdefs.h>
     39  1.66.2.1   thorpej __KERNEL_RCSID(0, "$NetBSD: uipc_syscalls.c,v 1.66.2.1 2001/11/12 21:18:59 thorpej Exp $");
     40      1.31   thorpej 
     41      1.31   thorpej #include "opt_ktrace.h"
     42      1.60  jdolecek #include "opt_new_pipe.h"
     43      1.55  jdolecek 
     44       1.6   mycroft #include <sys/param.h>
     45       1.9       cgd #include <sys/systm.h>
     46       1.6   mycroft #include <sys/filedesc.h>
     47       1.6   mycroft #include <sys/proc.h>
     48       1.6   mycroft #include <sys/file.h>
     49       1.6   mycroft #include <sys/buf.h>
     50       1.6   mycroft #include <sys/malloc.h>
     51       1.6   mycroft #include <sys/mbuf.h>
     52       1.6   mycroft #include <sys/protosw.h>
     53       1.6   mycroft #include <sys/socket.h>
     54       1.6   mycroft #include <sys/socketvar.h>
     55      1.18  christos #include <sys/signalvar.h>
     56      1.18  christos #include <sys/un.h>
     57       1.1       cgd #ifdef KTRACE
     58       1.6   mycroft #include <sys/ktrace.h>
     59       1.1       cgd #endif
     60       1.1       cgd 
     61       1.9       cgd #include <sys/mount.h>
     62       1.9       cgd #include <sys/syscallargs.h>
     63       1.9       cgd 
     64      1.44   darrenr #include <uvm/uvm_extern.h>
     65      1.44   darrenr 
     66       1.1       cgd /*
     67       1.1       cgd  * System call interface to the socket abstraction.
     68       1.1       cgd  */
     69       1.1       cgd extern	struct fileops socketops;
     70       1.1       cgd 
     71       1.7   mycroft int
     72      1.57     lukem sys_socket(struct proc *p, void *v, register_t *retval)
     73      1.15   thorpej {
     74      1.51  augustss 	struct sys_socket_args /* {
     75      1.57     lukem 		syscallarg(int)	domain;
     76      1.57     lukem 		syscallarg(int)	type;
     77      1.57     lukem 		syscallarg(int)	protocol;
     78      1.15   thorpej 	} */ *uap = v;
     79      1.57     lukem 	struct filedesc	*fdp;
     80      1.57     lukem 	struct socket	*so;
     81      1.57     lukem 	struct file	*fp;
     82      1.57     lukem 	int		fd, error;
     83       1.1       cgd 
     84      1.57     lukem 	fdp = p->p_fd;
     85      1.43   thorpej 	/* falloc() will use the desciptor for us */
     86      1.18  christos 	if ((error = falloc(p, &fp, &fd)) != 0)
     87       1.1       cgd 		return (error);
     88       1.1       cgd 	fp->f_flag = FREAD|FWRITE;
     89       1.1       cgd 	fp->f_type = DTYPE_SOCKET;
     90       1.1       cgd 	fp->f_ops = &socketops;
     91      1.18  christos 	error = socreate(SCARG(uap, domain), &so, SCARG(uap, type),
     92      1.18  christos 			 SCARG(uap, protocol));
     93      1.18  christos 	if (error) {
     94      1.43   thorpej 		FILE_UNUSE(fp, p);
     95      1.50   thorpej 		fdremove(fdp, fd);
     96       1.1       cgd 		ffree(fp);
     97       1.1       cgd 	} else {
     98       1.1       cgd 		fp->f_data = (caddr_t)so;
     99      1.59   thorpej 		FILE_SET_MATURE(fp);
    100      1.43   thorpej 		FILE_UNUSE(fp, p);
    101       1.1       cgd 		*retval = fd;
    102       1.1       cgd 	}
    103       1.1       cgd 	return (error);
    104       1.1       cgd }
    105       1.1       cgd 
    106       1.1       cgd /* ARGSUSED */
    107       1.7   mycroft int
    108      1.57     lukem sys_bind(struct proc *p, void *v, register_t *retval)
    109      1.15   thorpej {
    110      1.51  augustss 	struct sys_bind_args /* {
    111      1.57     lukem 		syscallarg(int)				s;
    112      1.57     lukem 		syscallarg(const struct sockaddr *)	name;
    113      1.57     lukem 		syscallarg(unsigned int)		namelen;
    114      1.15   thorpej 	} */ *uap = v;
    115      1.57     lukem 	struct file	*fp;
    116      1.57     lukem 	struct mbuf	*nam;
    117      1.57     lukem 	int		error;
    118       1.1       cgd 
    119      1.43   thorpej 	/* getsock() will use the descriptor for us */
    120      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    121       1.1       cgd 		return (error);
    122      1.18  christos 	error = sockargs(&nam, SCARG(uap, name), SCARG(uap, namelen),
    123      1.23       cgd 	    MT_SONAME);
    124      1.43   thorpej 	if (error) {
    125      1.43   thorpej 		FILE_UNUSE(fp, p);
    126       1.1       cgd 		return (error);
    127      1.43   thorpej 	}
    128      1.56      fvdl 	error = sobind((struct socket *)fp->f_data, nam, p);
    129       1.1       cgd 	m_freem(nam);
    130      1.43   thorpej 	FILE_UNUSE(fp, p);
    131       1.1       cgd 	return (error);
    132       1.1       cgd }
    133       1.1       cgd 
    134       1.1       cgd /* ARGSUSED */
    135       1.7   mycroft int
    136      1.57     lukem sys_listen(struct proc *p, void *v, register_t *retval)
    137      1.15   thorpej {
    138      1.51  augustss 	struct sys_listen_args /* {
    139      1.57     lukem 		syscallarg(int)	s;
    140      1.57     lukem 		syscallarg(int)	backlog;
    141      1.15   thorpej 	} */ *uap = v;
    142      1.57     lukem 	struct file	*fp;
    143      1.57     lukem 	int		error;
    144       1.1       cgd 
    145      1.43   thorpej 	/* getsock() will use the descriptor for us */
    146      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    147       1.1       cgd 		return (error);
    148      1.43   thorpej 	error = solisten((struct socket *)fp->f_data, SCARG(uap, backlog));
    149      1.43   thorpej 	FILE_UNUSE(fp, p);
    150      1.43   thorpej 	return (error);
    151       1.1       cgd }
    152       1.1       cgd 
    153       1.7   mycroft int
    154      1.57     lukem sys_accept(struct proc *p, void *v, register_t *retval)
    155      1.15   thorpej {
    156      1.51  augustss 	struct sys_accept_args /* {
    157      1.57     lukem 		syscallarg(int)			s;
    158      1.57     lukem 		syscallarg(struct sockaddr *)	name;
    159      1.57     lukem 		syscallarg(unsigned int *)	anamelen;
    160      1.15   thorpej 	} */ *uap = v;
    161      1.57     lukem 	struct filedesc	*fdp;
    162      1.57     lukem 	struct file	*fp;
    163      1.57     lukem 	struct mbuf	*nam;
    164      1.57     lukem 	unsigned int	namelen;
    165      1.57     lukem 	int		error, s, fd;
    166      1.57     lukem 	struct socket	*so;
    167       1.1       cgd 
    168      1.57     lukem 	fdp = p->p_fd;
    169       1.9       cgd 	if (SCARG(uap, name) && (error = copyin((caddr_t)SCARG(uap, anamelen),
    170      1.34     perry 	    (caddr_t)&namelen, sizeof(namelen))))
    171       1.1       cgd 		return (error);
    172      1.44   darrenr 	if (SCARG(uap, name) != NULL &&
    173      1.44   darrenr 	    uvm_useracc((caddr_t)SCARG(uap, name), sizeof(struct sockaddr),
    174      1.44   darrenr 	     B_WRITE) == FALSE)
    175      1.44   darrenr 		return (EFAULT);
    176      1.44   darrenr 
    177      1.43   thorpej 	/* getsock() will use the descriptor for us */
    178      1.49   mycroft 	if ((error = getsock(fdp, SCARG(uap, s), &fp)) != 0)
    179       1.1       cgd 		return (error);
    180      1.14   mycroft 	s = splsoftnet();
    181       1.1       cgd 	so = (struct socket *)fp->f_data;
    182      1.43   thorpej 	FILE_UNUSE(fp, p);
    183      1.44   darrenr 	if (!(so->so_proto->pr_flags & PR_LISTEN)) {
    184      1.44   darrenr 		splx(s);
    185      1.44   darrenr 		return (EOPNOTSUPP);
    186      1.44   darrenr 	}
    187       1.1       cgd 	if ((so->so_options & SO_ACCEPTCONN) == 0) {
    188       1.1       cgd 		splx(s);
    189       1.1       cgd 		return (EINVAL);
    190       1.1       cgd 	}
    191       1.1       cgd 	if ((so->so_state & SS_NBIO) && so->so_qlen == 0) {
    192       1.1       cgd 		splx(s);
    193       1.1       cgd 		return (EWOULDBLOCK);
    194       1.1       cgd 	}
    195       1.1       cgd 	while (so->so_qlen == 0 && so->so_error == 0) {
    196       1.1       cgd 		if (so->so_state & SS_CANTRCVMORE) {
    197       1.1       cgd 			so->so_error = ECONNABORTED;
    198       1.1       cgd 			break;
    199       1.1       cgd 		}
    200      1.18  christos 		error = tsleep((caddr_t)&so->so_timeo, PSOCK | PCATCH,
    201      1.18  christos 			       netcon, 0);
    202      1.18  christos 		if (error) {
    203       1.1       cgd 			splx(s);
    204       1.1       cgd 			return (error);
    205       1.1       cgd 		}
    206       1.1       cgd 	}
    207       1.1       cgd 	if (so->so_error) {
    208       1.1       cgd 		error = so->so_error;
    209       1.1       cgd 		so->so_error = 0;
    210       1.1       cgd 		splx(s);
    211       1.1       cgd 		return (error);
    212       1.1       cgd 	}
    213      1.43   thorpej 	/* falloc() will use the descriptor for us */
    214      1.49   mycroft 	if ((error = falloc(p, &fp, &fd)) != 0) {
    215       1.1       cgd 		splx(s);
    216       1.1       cgd 		return (error);
    217       1.1       cgd 	}
    218      1.49   mycroft 	*retval = fd;
    219      1.27   thorpej 	{ struct socket *aso = so->so_q.tqh_first;
    220       1.1       cgd 	  if (soqremque(aso, 1) == 0)
    221       1.1       cgd 		panic("accept");
    222       1.1       cgd 	  so = aso;
    223       1.1       cgd 	}
    224       1.1       cgd 	fp->f_type = DTYPE_SOCKET;
    225       1.1       cgd 	fp->f_flag = FREAD|FWRITE;
    226       1.1       cgd 	fp->f_ops = &socketops;
    227       1.1       cgd 	fp->f_data = (caddr_t)so;
    228      1.43   thorpej 	FILE_UNUSE(fp, p);
    229       1.1       cgd 	nam = m_get(M_WAIT, MT_SONAME);
    230      1.47  jdolecek 	if ((error = soaccept(so, nam)) == 0 && SCARG(uap, name)) {
    231       1.1       cgd 		if (namelen > nam->m_len)
    232       1.1       cgd 			namelen = nam->m_len;
    233       1.1       cgd 		/* SHOULD COPY OUT A CHAIN HERE */
    234       1.9       cgd 		if ((error = copyout(mtod(nam, caddr_t),
    235      1.48     enami 		    (caddr_t)SCARG(uap, name), namelen)) == 0)
    236      1.47  jdolecek 			error = copyout((caddr_t)&namelen,
    237      1.48     enami 			    (caddr_t)SCARG(uap, anamelen),
    238      1.48     enami 			    sizeof(*SCARG(uap, anamelen)));
    239       1.1       cgd 	}
    240      1.66       wiz 	/* if an error occurred, free the file descriptor */
    241      1.49   mycroft 	if (error) {
    242      1.50   thorpej 		fdremove(fdp, fd);
    243      1.47  jdolecek 		ffree(fp);
    244      1.49   mycroft 	}
    245      1.46   darrenr 	m_freem(nam);
    246      1.46   darrenr 	splx(s);
    247      1.59   thorpej 	FILE_SET_MATURE(fp);
    248      1.46   darrenr 	return (error);
    249       1.1       cgd }
    250       1.1       cgd 
    251       1.1       cgd /* ARGSUSED */
    252       1.7   mycroft int
    253      1.57     lukem sys_connect(struct proc *p, void *v, register_t *retval)
    254      1.15   thorpej {
    255      1.51  augustss 	struct sys_connect_args /* {
    256      1.57     lukem 		syscallarg(int)				s;
    257      1.57     lukem 		syscallarg(const struct sockaddr *)	name;
    258      1.57     lukem 		syscallarg(unsigned int)		namelen;
    259      1.15   thorpej 	} */ *uap = v;
    260      1.57     lukem 	struct file	*fp;
    261      1.57     lukem 	struct socket	*so;
    262      1.57     lukem 	struct mbuf	*nam;
    263      1.57     lukem 	int		error, s;
    264       1.1       cgd 
    265      1.43   thorpej 	/* getsock() will use the descriptor for us */
    266      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    267       1.1       cgd 		return (error);
    268       1.1       cgd 	so = (struct socket *)fp->f_data;
    269      1.62  jdolecek 	if ((so->so_state & SS_NBIO) && (so->so_state & SS_ISCONNECTING)) {
    270      1.62  jdolecek 		error = EALREADY;
    271      1.62  jdolecek 		goto out;
    272      1.62  jdolecek 	}
    273      1.18  christos 	error = sockargs(&nam, SCARG(uap, name), SCARG(uap, namelen),
    274      1.23       cgd 	    MT_SONAME);
    275      1.18  christos 	if (error)
    276      1.62  jdolecek 		goto out;
    277       1.1       cgd 	error = soconnect(so, nam);
    278       1.1       cgd 	if (error)
    279       1.1       cgd 		goto bad;
    280       1.1       cgd 	if ((so->so_state & SS_NBIO) && (so->so_state & SS_ISCONNECTING)) {
    281       1.1       cgd 		m_freem(nam);
    282      1.62  jdolecek 		error = EINPROGRESS;
    283      1.62  jdolecek 		goto out;
    284       1.1       cgd 	}
    285      1.14   mycroft 	s = splsoftnet();
    286      1.18  christos 	while ((so->so_state & SS_ISCONNECTING) && so->so_error == 0) {
    287      1.18  christos 		error = tsleep((caddr_t)&so->so_timeo, PSOCK | PCATCH,
    288      1.18  christos 			       netcon, 0);
    289      1.18  christos 		if (error)
    290       1.1       cgd 			break;
    291      1.18  christos 	}
    292       1.1       cgd 	if (error == 0) {
    293       1.1       cgd 		error = so->so_error;
    294       1.1       cgd 		so->so_error = 0;
    295       1.1       cgd 	}
    296       1.1       cgd 	splx(s);
    297      1.57     lukem  bad:
    298       1.1       cgd 	so->so_state &= ~SS_ISCONNECTING;
    299       1.1       cgd 	m_freem(nam);
    300       1.1       cgd 	if (error == ERESTART)
    301       1.1       cgd 		error = EINTR;
    302      1.62  jdolecek  out:
    303      1.62  jdolecek 	FILE_UNUSE(fp, p);
    304       1.1       cgd 	return (error);
    305       1.1       cgd }
    306       1.1       cgd 
    307       1.7   mycroft int
    308      1.57     lukem sys_socketpair(struct proc *p, void *v, register_t *retval)
    309      1.15   thorpej {
    310      1.51  augustss 	struct sys_socketpair_args /* {
    311      1.57     lukem 		syscallarg(int)		domain;
    312      1.57     lukem 		syscallarg(int)		type;
    313      1.57     lukem 		syscallarg(int)		protocol;
    314      1.57     lukem 		syscallarg(int *)	rsv;
    315      1.15   thorpej 	} */ *uap = v;
    316      1.57     lukem 	struct filedesc	*fdp;
    317      1.57     lukem 	struct file	*fp1, *fp2;
    318      1.57     lukem 	struct socket	*so1, *so2;
    319      1.57     lukem 	int		fd, error, sv[2];
    320       1.1       cgd 
    321      1.57     lukem 	fdp = p->p_fd;
    322      1.18  christos 	error = socreate(SCARG(uap, domain), &so1, SCARG(uap, type),
    323      1.18  christos 			 SCARG(uap, protocol));
    324      1.18  christos 	if (error)
    325       1.1       cgd 		return (error);
    326      1.18  christos 	error = socreate(SCARG(uap, domain), &so2, SCARG(uap, type),
    327      1.18  christos 			 SCARG(uap, protocol));
    328      1.18  christos 	if (error)
    329       1.1       cgd 		goto free1;
    330      1.43   thorpej 	/* falloc() will use the descriptor for us */
    331      1.18  christos 	if ((error = falloc(p, &fp1, &fd)) != 0)
    332       1.1       cgd 		goto free2;
    333       1.1       cgd 	sv[0] = fd;
    334       1.1       cgd 	fp1->f_flag = FREAD|FWRITE;
    335       1.1       cgd 	fp1->f_type = DTYPE_SOCKET;
    336       1.1       cgd 	fp1->f_ops = &socketops;
    337       1.1       cgd 	fp1->f_data = (caddr_t)so1;
    338      1.18  christos 	if ((error = falloc(p, &fp2, &fd)) != 0)
    339       1.1       cgd 		goto free3;
    340       1.1       cgd 	fp2->f_flag = FREAD|FWRITE;
    341       1.1       cgd 	fp2->f_type = DTYPE_SOCKET;
    342       1.1       cgd 	fp2->f_ops = &socketops;
    343       1.1       cgd 	fp2->f_data = (caddr_t)so2;
    344       1.1       cgd 	sv[1] = fd;
    345      1.18  christos 	if ((error = soconnect2(so1, so2)) != 0)
    346       1.1       cgd 		goto free4;
    347       1.9       cgd 	if (SCARG(uap, type) == SOCK_DGRAM) {
    348       1.1       cgd 		/*
    349       1.1       cgd 		 * Datagram socket connection is asymmetric.
    350       1.1       cgd 		 */
    351      1.18  christos 		 if ((error = soconnect2(so2, so1)) != 0)
    352       1.1       cgd 			goto free4;
    353       1.1       cgd 	}
    354       1.9       cgd 	error = copyout((caddr_t)sv, (caddr_t)SCARG(uap, rsv),
    355      1.34     perry 	    2 * sizeof(int));
    356      1.59   thorpej 	FILE_SET_MATURE(fp1);
    357      1.59   thorpej 	FILE_SET_MATURE(fp2);
    358      1.43   thorpej 	FILE_UNUSE(fp1, p);
    359      1.43   thorpej 	FILE_UNUSE(fp2, p);
    360       1.1       cgd 	return (error);
    361      1.57     lukem  free4:
    362      1.43   thorpej 	FILE_UNUSE(fp2, p);
    363       1.1       cgd 	ffree(fp2);
    364      1.50   thorpej 	fdremove(fdp, sv[1]);
    365      1.57     lukem  free3:
    366      1.43   thorpej 	FILE_UNUSE(fp1, p);
    367       1.1       cgd 	ffree(fp1);
    368      1.50   thorpej 	fdremove(fdp, sv[0]);
    369      1.57     lukem  free2:
    370       1.1       cgd 	(void)soclose(so2);
    371      1.57     lukem  free1:
    372       1.1       cgd 	(void)soclose(so1);
    373       1.1       cgd 	return (error);
    374       1.1       cgd }
    375       1.1       cgd 
    376       1.7   mycroft int
    377      1.57     lukem sys_sendto(struct proc *p, void *v, register_t *retval)
    378      1.15   thorpej {
    379      1.51  augustss 	struct sys_sendto_args /* {
    380      1.57     lukem 		syscallarg(int)				s;
    381      1.57     lukem 		syscallarg(const void *)		buf;
    382      1.57     lukem 		syscallarg(size_t)			len;
    383      1.57     lukem 		syscallarg(int)				flags;
    384      1.57     lukem 		syscallarg(const struct sockaddr *)	to;
    385      1.57     lukem 		syscallarg(unsigned int)		tolen;
    386      1.15   thorpej 	} */ *uap = v;
    387      1.57     lukem 	struct msghdr	msg;
    388      1.57     lukem 	struct iovec	aiov;
    389       1.1       cgd 
    390      1.23       cgd 	msg.msg_name = (caddr_t)SCARG(uap, to);		/* XXX kills const */
    391       1.9       cgd 	msg.msg_namelen = SCARG(uap, tolen);
    392       1.1       cgd 	msg.msg_iov = &aiov;
    393       1.1       cgd 	msg.msg_iovlen = 1;
    394       1.1       cgd 	msg.msg_control = 0;
    395       1.1       cgd 	msg.msg_flags = 0;
    396      1.23       cgd 	aiov.iov_base = (char *)SCARG(uap, buf);	/* XXX kills const */
    397       1.9       cgd 	aiov.iov_len = SCARG(uap, len);
    398      1.63  jdolecek 	return (sendit(p, SCARG(uap, s), &msg, SCARG(uap, flags), retval));
    399       1.1       cgd }
    400       1.1       cgd 
    401       1.7   mycroft int
    402      1.57     lukem sys_sendmsg(struct proc *p, void *v, register_t *retval)
    403      1.15   thorpej {
    404      1.51  augustss 	struct sys_sendmsg_args /* {
    405      1.57     lukem 		syscallarg(int)				s;
    406      1.57     lukem 		syscallarg(const struct msghdr *)	msg;
    407      1.57     lukem 		syscallarg(int)				flags;
    408      1.15   thorpej 	} */ *uap = v;
    409      1.57     lukem 	struct msghdr	msg;
    410      1.57     lukem 	struct iovec	aiov[UIO_SMALLIOV], *iov;
    411      1.57     lukem 	int		error;
    412       1.1       cgd 
    413      1.34     perry 	error = copyin(SCARG(uap, msg), (caddr_t)&msg, sizeof(msg));
    414      1.18  christos 	if (error)
    415       1.1       cgd 		return (error);
    416      1.41    kleink 	if ((unsigned int)msg.msg_iovlen > UIO_SMALLIOV) {
    417      1.41    kleink 		if ((unsigned int)msg.msg_iovlen > IOV_MAX)
    418       1.1       cgd 			return (EMSGSIZE);
    419      1.54   thorpej 		iov = malloc(sizeof(struct iovec) * msg.msg_iovlen,
    420      1.54   thorpej 		    M_IOV, M_WAITOK);
    421      1.39   mycroft 	} else
    422       1.1       cgd 		iov = aiov;
    423      1.41    kleink 	if ((unsigned int)msg.msg_iovlen > 0) {
    424      1.39   mycroft 		error = copyin((caddr_t)msg.msg_iov, (caddr_t)iov,
    425      1.39   mycroft 		    (size_t)(msg.msg_iovlen * sizeof(struct iovec)));
    426      1.39   mycroft 		if (error)
    427      1.39   mycroft 			goto done;
    428      1.39   mycroft 	}
    429       1.1       cgd 	msg.msg_iov = iov;
    430       1.1       cgd 	msg.msg_flags = 0;
    431      1.63  jdolecek 	error = sendit(p, SCARG(uap, s), &msg, SCARG(uap, flags), retval);
    432       1.1       cgd done:
    433       1.1       cgd 	if (iov != aiov)
    434      1.54   thorpej 		free(iov, M_IOV);
    435       1.1       cgd 	return (error);
    436       1.1       cgd }
    437       1.1       cgd 
    438       1.7   mycroft int
    439      1.63  jdolecek sendit(struct proc *p, int s, struct msghdr *mp, int flags, register_t *retsize)
    440       1.1       cgd {
    441      1.57     lukem 	struct file	*fp;
    442      1.57     lukem 	struct uio	auio;
    443      1.57     lukem 	struct iovec	*iov;
    444      1.57     lukem 	int		i, len, error;
    445      1.57     lukem 	struct mbuf	*to, *control;
    446      1.57     lukem 	struct socket	*so;
    447       1.1       cgd #ifdef KTRACE
    448      1.57     lukem 	struct iovec	*ktriov;
    449       1.1       cgd #endif
    450       1.1       cgd 
    451      1.57     lukem #ifdef KTRACE
    452      1.57     lukem 	ktriov = NULL;
    453      1.57     lukem #endif
    454      1.43   thorpej 	/* getsock() will use the descriptor for us */
    455      1.18  christos 	if ((error = getsock(p->p_fd, s, &fp)) != 0)
    456       1.1       cgd 		return (error);
    457       1.1       cgd 	auio.uio_iov = mp->msg_iov;
    458       1.1       cgd 	auio.uio_iovcnt = mp->msg_iovlen;
    459       1.1       cgd 	auio.uio_segflg = UIO_USERSPACE;
    460       1.1       cgd 	auio.uio_rw = UIO_WRITE;
    461       1.1       cgd 	auio.uio_procp = p;
    462       1.1       cgd 	auio.uio_offset = 0;			/* XXX */
    463       1.1       cgd 	auio.uio_resid = 0;
    464       1.1       cgd 	iov = mp->msg_iov;
    465       1.1       cgd 	for (i = 0; i < mp->msg_iovlen; i++, iov++) {
    466      1.18  christos #if 0
    467      1.18  christos 		/* cannot happen; iov_len is unsigned */
    468      1.43   thorpej 		if (iov->iov_len < 0) {
    469      1.43   thorpej 			error = EINVAL;
    470      1.43   thorpej 			goto out;
    471      1.43   thorpej 		}
    472      1.18  christos #endif
    473      1.33   thorpej 		/*
    474      1.33   thorpej 		 * Writes return ssize_t because -1 is returned on error.
    475      1.33   thorpej 		 * Therefore, we must restrict the length to SSIZE_MAX to
    476      1.33   thorpej 		 * avoid garbage return values.
    477      1.33   thorpej 		 */
    478      1.33   thorpej 		auio.uio_resid += iov->iov_len;
    479      1.43   thorpej 		if (iov->iov_len > SSIZE_MAX || auio.uio_resid > SSIZE_MAX) {
    480      1.43   thorpej 			error = EINVAL;
    481      1.43   thorpej 			goto out;
    482      1.43   thorpej 		}
    483       1.1       cgd 	}
    484       1.1       cgd 	if (mp->msg_name) {
    485      1.63  jdolecek 		error = sockargs(&to, mp->msg_name, mp->msg_namelen,
    486      1.18  christos 				 MT_SONAME);
    487      1.63  jdolecek 		if (error)
    488      1.63  jdolecek 			goto out;
    489       1.1       cgd 	} else
    490       1.1       cgd 		to = 0;
    491       1.1       cgd 	if (mp->msg_control) {
    492      1.65  jdolecek 		if (mp->msg_controllen < sizeof(struct cmsghdr)) {
    493       1.1       cgd 			error = EINVAL;
    494       1.1       cgd 			goto bad;
    495       1.1       cgd 		}
    496      1.18  christos 		error = sockargs(&control, mp->msg_control,
    497      1.18  christos 				 mp->msg_controllen, MT_CONTROL);
    498      1.18  christos 		if (error)
    499       1.1       cgd 			goto bad;
    500       1.1       cgd 	} else
    501       1.1       cgd 		control = 0;
    502       1.1       cgd #ifdef KTRACE
    503       1.1       cgd 	if (KTRPOINT(p, KTR_GENIO)) {
    504      1.34     perry 		int iovlen = auio.uio_iovcnt * sizeof(struct iovec);
    505       1.1       cgd 
    506      1.54   thorpej 		ktriov = malloc(iovlen, M_TEMP, M_WAITOK);
    507      1.36     perry 		memcpy((caddr_t)ktriov, (caddr_t)auio.uio_iov, iovlen);
    508       1.1       cgd 	}
    509       1.1       cgd #endif
    510       1.1       cgd 	len = auio.uio_resid;
    511      1.30      matt 	so = (struct socket *)fp->f_data;
    512      1.30      matt 	error = (*so->so_send)(so, to, &auio, NULL, control, flags);
    513      1.18  christos 	if (error) {
    514       1.1       cgd 		if (auio.uio_resid != len && (error == ERESTART ||
    515       1.1       cgd 		    error == EINTR || error == EWOULDBLOCK))
    516       1.1       cgd 			error = 0;
    517       1.1       cgd 		if (error == EPIPE)
    518       1.1       cgd 			psignal(p, SIGPIPE);
    519       1.1       cgd 	}
    520       1.1       cgd 	if (error == 0)
    521       1.1       cgd 		*retsize = len - auio.uio_resid;
    522       1.1       cgd #ifdef KTRACE
    523       1.1       cgd 	if (ktriov != NULL) {
    524       1.1       cgd 		if (error == 0)
    525      1.52  sommerfe 			ktrgenio(p, s, UIO_WRITE, ktriov, *retsize, error);
    526      1.54   thorpej 		free(ktriov, M_TEMP);
    527       1.1       cgd 	}
    528       1.1       cgd #endif
    529      1.43   thorpej  bad:
    530       1.1       cgd 	if (to)
    531       1.1       cgd 		m_freem(to);
    532      1.43   thorpej  out:
    533      1.43   thorpej 	FILE_UNUSE(fp, p);
    534       1.1       cgd 	return (error);
    535       1.1       cgd }
    536       1.1       cgd 
    537       1.7   mycroft int
    538      1.57     lukem sys_recvfrom(struct proc *p, void *v, register_t *retval)
    539      1.15   thorpej {
    540      1.51  augustss 	struct sys_recvfrom_args /* {
    541      1.57     lukem 		syscallarg(int)			s;
    542      1.57     lukem 		syscallarg(void *)		buf;
    543      1.57     lukem 		syscallarg(size_t)		len;
    544      1.57     lukem 		syscallarg(int)			flags;
    545      1.57     lukem 		syscallarg(struct sockaddr *)	from;
    546      1.57     lukem 		syscallarg(unsigned int *)	fromlenaddr;
    547      1.15   thorpej 	} */ *uap = v;
    548      1.57     lukem 	struct msghdr	msg;
    549      1.57     lukem 	struct iovec	aiov;
    550      1.57     lukem 	int		error;
    551       1.1       cgd 
    552       1.9       cgd 	if (SCARG(uap, fromlenaddr)) {
    553      1.18  christos 		error = copyin((caddr_t)SCARG(uap, fromlenaddr),
    554      1.18  christos 			       (caddr_t)&msg.msg_namelen,
    555      1.34     perry 			       sizeof(msg.msg_namelen));
    556      1.18  christos 		if (error)
    557       1.1       cgd 			return (error);
    558       1.1       cgd 	} else
    559       1.1       cgd 		msg.msg_namelen = 0;
    560      1.23       cgd 	msg.msg_name = (caddr_t)SCARG(uap, from);
    561       1.1       cgd 	msg.msg_iov = &aiov;
    562       1.1       cgd 	msg.msg_iovlen = 1;
    563       1.9       cgd 	aiov.iov_base = SCARG(uap, buf);
    564       1.9       cgd 	aiov.iov_len = SCARG(uap, len);
    565       1.1       cgd 	msg.msg_control = 0;
    566       1.9       cgd 	msg.msg_flags = SCARG(uap, flags);
    567       1.9       cgd 	return (recvit(p, SCARG(uap, s), &msg,
    568      1.63  jdolecek 		       (caddr_t)SCARG(uap, fromlenaddr), retval));
    569       1.1       cgd }
    570       1.1       cgd 
    571       1.7   mycroft int
    572      1.57     lukem sys_recvmsg(struct proc *p, void *v, register_t *retval)
    573      1.15   thorpej {
    574      1.51  augustss 	struct sys_recvmsg_args /* {
    575      1.57     lukem 		syscallarg(int)			s;
    576      1.57     lukem 		syscallarg(struct msghdr *)	msg;
    577      1.57     lukem 		syscallarg(int)			flags;
    578      1.15   thorpej 	} */ *uap = v;
    579      1.57     lukem 	struct msghdr	msg;
    580      1.57     lukem 	struct iovec	aiov[UIO_SMALLIOV], *uiov, *iov;
    581      1.57     lukem 	int		error;
    582       1.1       cgd 
    583      1.18  christos 	error = copyin((caddr_t)SCARG(uap, msg), (caddr_t)&msg,
    584      1.34     perry 		       sizeof(msg));
    585      1.18  christos 	if (error)
    586       1.1       cgd 		return (error);
    587      1.41    kleink 	if ((unsigned int)msg.msg_iovlen > UIO_SMALLIOV) {
    588      1.41    kleink 		if ((unsigned int)msg.msg_iovlen > IOV_MAX)
    589       1.1       cgd 			return (EMSGSIZE);
    590      1.54   thorpej 		iov = malloc(sizeof(struct iovec) * msg.msg_iovlen,
    591      1.54   thorpej 		    M_IOV, M_WAITOK);
    592      1.39   mycroft 	} else
    593       1.1       cgd 		iov = aiov;
    594      1.41    kleink 	if ((unsigned int)msg.msg_iovlen > 0) {
    595      1.39   mycroft 		error = copyin((caddr_t)msg.msg_iov, (caddr_t)iov,
    596      1.39   mycroft 		    (size_t)(msg.msg_iovlen * sizeof(struct iovec)));
    597      1.39   mycroft 		if (error)
    598      1.39   mycroft 			goto done;
    599      1.39   mycroft 	}
    600      1.39   mycroft 	uiov = msg.msg_iov;
    601      1.39   mycroft 	msg.msg_iov = iov;
    602       1.9       cgd 	msg.msg_flags = SCARG(uap, flags);
    603      1.63  jdolecek 	if ((error = recvit(p, SCARG(uap, s), &msg, (caddr_t)0, retval)) == 0) {
    604       1.1       cgd 		msg.msg_iov = uiov;
    605       1.9       cgd 		error = copyout((caddr_t)&msg, (caddr_t)SCARG(uap, msg),
    606       1.9       cgd 		    sizeof(msg));
    607       1.1       cgd 	}
    608       1.1       cgd done:
    609       1.1       cgd 	if (iov != aiov)
    610      1.54   thorpej 		free(iov, M_IOV);
    611       1.1       cgd 	return (error);
    612       1.1       cgd }
    613       1.1       cgd 
    614       1.7   mycroft int
    615      1.57     lukem recvit(struct proc *p, int s, struct msghdr *mp, caddr_t namelenp,
    616      1.63  jdolecek 	register_t *retsize)
    617       1.1       cgd {
    618      1.57     lukem 	struct file	*fp;
    619      1.57     lukem 	struct uio	auio;
    620      1.57     lukem 	struct iovec	*iov;
    621      1.57     lukem 	int		i, len, error;
    622      1.57     lukem 	struct mbuf	*from, *control;
    623      1.57     lukem 	struct socket	*so;
    624      1.57     lukem #ifdef KTRACE
    625      1.57     lukem 	struct iovec	*ktriov;
    626      1.57     lukem #endif
    627      1.57     lukem 
    628      1.57     lukem 	from = 0;
    629      1.57     lukem 	control = 0;
    630       1.1       cgd #ifdef KTRACE
    631      1.57     lukem 	ktriov = NULL;
    632       1.1       cgd #endif
    633       1.1       cgd 
    634      1.43   thorpej 	/* getsock() will use the descriptor for us */
    635      1.18  christos 	if ((error = getsock(p->p_fd, s, &fp)) != 0)
    636       1.1       cgd 		return (error);
    637       1.1       cgd 	auio.uio_iov = mp->msg_iov;
    638       1.1       cgd 	auio.uio_iovcnt = mp->msg_iovlen;
    639       1.1       cgd 	auio.uio_segflg = UIO_USERSPACE;
    640       1.1       cgd 	auio.uio_rw = UIO_READ;
    641       1.1       cgd 	auio.uio_procp = p;
    642       1.1       cgd 	auio.uio_offset = 0;			/* XXX */
    643       1.1       cgd 	auio.uio_resid = 0;
    644       1.1       cgd 	iov = mp->msg_iov;
    645       1.1       cgd 	for (i = 0; i < mp->msg_iovlen; i++, iov++) {
    646      1.18  christos #if 0
    647      1.18  christos 		/* cannot happen iov_len is unsigned */
    648      1.43   thorpej 		if (iov->iov_len < 0) {
    649      1.43   thorpej 			error = EINVAL;
    650      1.43   thorpej 			goto out1;
    651      1.43   thorpej 		}
    652      1.18  christos #endif
    653      1.33   thorpej 		/*
    654      1.33   thorpej 		 * Reads return ssize_t because -1 is returned on error.
    655      1.33   thorpej 		 * Therefore we must restrict the length to SSIZE_MAX to
    656      1.33   thorpej 		 * avoid garbage return values.
    657      1.33   thorpej 		 */
    658      1.33   thorpej 		auio.uio_resid += iov->iov_len;
    659      1.43   thorpej 		if (iov->iov_len > SSIZE_MAX || auio.uio_resid > SSIZE_MAX) {
    660      1.43   thorpej 			error = EINVAL;
    661      1.43   thorpej 			goto out1;
    662      1.43   thorpej 		}
    663       1.1       cgd 	}
    664       1.1       cgd #ifdef KTRACE
    665       1.1       cgd 	if (KTRPOINT(p, KTR_GENIO)) {
    666      1.34     perry 		int iovlen = auio.uio_iovcnt * sizeof(struct iovec);
    667       1.1       cgd 
    668      1.54   thorpej 		ktriov = malloc(iovlen, M_TEMP, M_WAITOK);
    669      1.36     perry 		memcpy((caddr_t)ktriov, (caddr_t)auio.uio_iov, iovlen);
    670       1.1       cgd 	}
    671       1.1       cgd #endif
    672       1.1       cgd 	len = auio.uio_resid;
    673      1.30      matt 	so = (struct socket *)fp->f_data;
    674      1.30      matt 	error = (*so->so_receive)(so, &from, &auio, NULL,
    675      1.30      matt 			  mp->msg_control ? &control : NULL, &mp->msg_flags);
    676      1.18  christos 	if (error) {
    677       1.1       cgd 		if (auio.uio_resid != len && (error == ERESTART ||
    678       1.1       cgd 		    error == EINTR || error == EWOULDBLOCK))
    679       1.1       cgd 			error = 0;
    680       1.1       cgd 	}
    681       1.1       cgd #ifdef KTRACE
    682       1.1       cgd 	if (ktriov != NULL) {
    683       1.1       cgd 		if (error == 0)
    684      1.52  sommerfe 			ktrgenio(p, s, UIO_READ, ktriov,
    685      1.52  sommerfe 			    len - auio.uio_resid, error);
    686      1.54   thorpej 		free(ktriov, M_TEMP);
    687       1.1       cgd 	}
    688       1.1       cgd #endif
    689       1.1       cgd 	if (error)
    690       1.1       cgd 		goto out;
    691       1.1       cgd 	*retsize = len - auio.uio_resid;
    692       1.1       cgd 	if (mp->msg_name) {
    693       1.1       cgd 		len = mp->msg_namelen;
    694       1.1       cgd 		if (len <= 0 || from == 0)
    695       1.1       cgd 			len = 0;
    696       1.1       cgd 		else {
    697       1.1       cgd 			if (len > from->m_len)
    698       1.1       cgd 				len = from->m_len;
    699       1.1       cgd 			/* else if len < from->m_len ??? */
    700      1.63  jdolecek 			error = copyout(mtod(from, caddr_t),
    701      1.18  christos 					(caddr_t)mp->msg_name, (unsigned)len);
    702      1.63  jdolecek 			if (error)
    703      1.63  jdolecek 				goto out;
    704       1.1       cgd 		}
    705       1.1       cgd 		mp->msg_namelen = len;
    706       1.1       cgd 		if (namelenp &&
    707      1.65  jdolecek 		    (error = copyout((caddr_t)&len, namelenp, sizeof(int))))
    708       1.1       cgd 			goto out;
    709       1.1       cgd 	}
    710       1.1       cgd 	if (mp->msg_control) {
    711       1.1       cgd 		len = mp->msg_controllen;
    712       1.1       cgd 		if (len <= 0 || control == 0)
    713       1.1       cgd 			len = 0;
    714       1.1       cgd 		else {
    715      1.26   thorpej 			struct mbuf *m = control;
    716      1.26   thorpej 			caddr_t p = (caddr_t)mp->msg_control;
    717      1.26   thorpej 
    718      1.28   thorpej 			do {
    719      1.26   thorpej 				i = m->m_len;
    720      1.26   thorpej 				if (len < i) {
    721      1.26   thorpej 					mp->msg_flags |= MSG_CTRUNC;
    722      1.26   thorpej 					i = len;
    723      1.26   thorpej 				}
    724      1.26   thorpej 				error = copyout(mtod(m, caddr_t), p,
    725      1.26   thorpej 				    (unsigned)i);
    726      1.28   thorpej 				if (m->m_next)
    727      1.28   thorpej 					i = ALIGN(i);
    728      1.26   thorpej 				p += i;
    729      1.26   thorpej 				len -= i;
    730      1.26   thorpej 				if (error != 0 || len <= 0)
    731      1.26   thorpej 					break;
    732      1.28   thorpej 			} while ((m = m->m_next) != NULL);
    733      1.26   thorpej 			len = p - (caddr_t)mp->msg_control;
    734       1.1       cgd 		}
    735       1.1       cgd 		mp->msg_controllen = len;
    736       1.1       cgd 	}
    737      1.43   thorpej  out:
    738       1.1       cgd 	if (from)
    739       1.1       cgd 		m_freem(from);
    740       1.1       cgd 	if (control)
    741       1.1       cgd 		m_freem(control);
    742      1.43   thorpej  out1:
    743      1.43   thorpej 	FILE_UNUSE(fp, p);
    744       1.1       cgd 	return (error);
    745       1.1       cgd }
    746       1.1       cgd 
    747       1.1       cgd /* ARGSUSED */
    748       1.7   mycroft int
    749      1.57     lukem sys_shutdown(struct proc *p, void *v, register_t *retval)
    750      1.15   thorpej {
    751      1.51  augustss 	struct sys_shutdown_args /* {
    752      1.57     lukem 		syscallarg(int)	s;
    753      1.57     lukem 		syscallarg(int)	how;
    754      1.15   thorpej 	} */ *uap = v;
    755      1.57     lukem 	struct file	*fp;
    756      1.57     lukem 	int		error;
    757       1.1       cgd 
    758      1.43   thorpej 	/* getsock() will use the descriptor for us */
    759      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    760       1.1       cgd 		return (error);
    761      1.43   thorpej 	error = soshutdown((struct socket *)fp->f_data, SCARG(uap, how));
    762      1.43   thorpej 	FILE_UNUSE(fp, p);
    763      1.43   thorpej 	return (error);
    764       1.1       cgd }
    765       1.1       cgd 
    766       1.1       cgd /* ARGSUSED */
    767       1.7   mycroft int
    768      1.57     lukem sys_setsockopt(struct proc *p, void *v, register_t *retval)
    769      1.15   thorpej {
    770      1.51  augustss 	struct sys_setsockopt_args /* {
    771      1.57     lukem 		syscallarg(int)			s;
    772      1.57     lukem 		syscallarg(int)			level;
    773      1.57     lukem 		syscallarg(int)			name;
    774      1.57     lukem 		syscallarg(const void *)	val;
    775      1.57     lukem 		syscallarg(unsigned int)	valsize;
    776      1.15   thorpej 	} */ *uap = v;
    777      1.57     lukem 	struct file	*fp;
    778      1.57     lukem 	struct mbuf	*m;
    779      1.57     lukem 	int		error;
    780       1.1       cgd 
    781      1.57     lukem 	m = NULL;
    782      1.43   thorpej 	/* getsock() will use the descriptor for us */
    783      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    784       1.1       cgd 		return (error);
    785      1.43   thorpej 	if (SCARG(uap, valsize) > MLEN) {
    786      1.43   thorpej 		error = EINVAL;
    787      1.43   thorpej 		goto out;
    788      1.43   thorpej 	}
    789       1.9       cgd 	if (SCARG(uap, val)) {
    790       1.1       cgd 		m = m_get(M_WAIT, MT_SOOPTS);
    791      1.18  christos 		error = copyin(SCARG(uap, val), mtod(m, caddr_t),
    792      1.41    kleink 			       SCARG(uap, valsize));
    793      1.18  christos 		if (error) {
    794       1.1       cgd 			(void) m_free(m);
    795      1.43   thorpej 			goto out;
    796       1.1       cgd 		}
    797       1.9       cgd 		m->m_len = SCARG(uap, valsize);
    798       1.1       cgd 	}
    799      1.43   thorpej 	error = sosetopt((struct socket *)fp->f_data, SCARG(uap, level),
    800      1.43   thorpej 			 SCARG(uap, name), m);
    801      1.43   thorpej  out:
    802      1.43   thorpej 	FILE_UNUSE(fp, p);
    803      1.43   thorpej 	return (error);
    804       1.1       cgd }
    805       1.1       cgd 
    806       1.1       cgd /* ARGSUSED */
    807       1.7   mycroft int
    808      1.57     lukem sys_getsockopt(struct proc *p, void *v, register_t *retval)
    809      1.15   thorpej {
    810      1.51  augustss 	struct sys_getsockopt_args /* {
    811      1.57     lukem 		syscallarg(int)			s;
    812      1.57     lukem 		syscallarg(int)			level;
    813      1.57     lukem 		syscallarg(int)			name;
    814      1.57     lukem 		syscallarg(void *)		val;
    815      1.57     lukem 		syscallarg(unsigned int *)	avalsize;
    816      1.15   thorpej 	} */ *uap = v;
    817      1.57     lukem 	struct file	*fp;
    818      1.57     lukem 	struct mbuf	*m, *m0;
    819      1.57     lukem 	unsigned int	op, i, valsize;
    820      1.57     lukem 	int		error;
    821       1.1       cgd 
    822      1.57     lukem 	m = NULL;
    823      1.43   thorpej 	/* getsock() will use the descriptor for us */
    824      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, s), &fp)) != 0)
    825       1.1       cgd 		return (error);
    826       1.9       cgd 	if (SCARG(uap, val)) {
    827      1.18  christos 		error = copyin((caddr_t)SCARG(uap, avalsize),
    828      1.34     perry 			       (caddr_t)&valsize, sizeof(valsize));
    829      1.18  christos 		if (error)
    830      1.43   thorpej 			goto out;
    831       1.1       cgd 	} else
    832       1.1       cgd 		valsize = 0;
    833       1.9       cgd 	if ((error = sogetopt((struct socket *)fp->f_data, SCARG(uap, level),
    834       1.9       cgd 	    SCARG(uap, name), &m)) == 0 && SCARG(uap, val) && valsize &&
    835       1.9       cgd 	    m != NULL) {
    836      1.45    itojun 		op = 0;
    837      1.45    itojun 		while (m && !error && op < valsize) {
    838      1.45    itojun 			i = min(m->m_len, (valsize - op));
    839      1.45    itojun 			error = copyout(mtod(m, caddr_t), SCARG(uap, val), i);
    840      1.45    itojun 			op += i;
    841      1.45    itojun 			SCARG(uap, val) = ((u_int8_t *)SCARG(uap, val)) + i;
    842      1.45    itojun 			m0 = m;
    843      1.45    itojun 			MFREE(m0, m);
    844      1.45    itojun 		}
    845      1.45    itojun 		valsize = op;
    846       1.1       cgd 		if (error == 0)
    847      1.45    itojun 			error = copyout(&valsize,
    848      1.45    itojun 					SCARG(uap, avalsize), sizeof(valsize));
    849       1.1       cgd 	}
    850       1.1       cgd 	if (m != NULL)
    851       1.1       cgd 		(void) m_free(m);
    852      1.43   thorpej  out:
    853      1.43   thorpej 	FILE_UNUSE(fp, p);
    854       1.1       cgd 	return (error);
    855       1.1       cgd }
    856       1.1       cgd 
    857      1.60  jdolecek #ifndef NEW_PIPE
    858       1.1       cgd /* ARGSUSED */
    859       1.7   mycroft int
    860      1.57     lukem sys_pipe(struct proc *p, void *v, register_t *retval)
    861       1.1       cgd {
    862      1.57     lukem 	struct filedesc	*fdp;
    863      1.57     lukem 	struct file	*rf, *wf;
    864      1.57     lukem 	struct socket	*rso, *wso;
    865      1.57     lukem 	int		fd, error;
    866       1.1       cgd 
    867      1.57     lukem 	fdp = p->p_fd;
    868      1.32     lukem 	if ((error = socreate(AF_LOCAL, &rso, SOCK_STREAM, 0)) != 0)
    869       1.1       cgd 		return (error);
    870      1.32     lukem 	if ((error = socreate(AF_LOCAL, &wso, SOCK_STREAM, 0)) != 0)
    871       1.1       cgd 		goto free1;
    872      1.58      manu 	/* remember this socket pair implements a pipe */
    873      1.58      manu 	wso->so_state |= SS_ISAPIPE;
    874      1.58      manu 	rso->so_state |= SS_ISAPIPE;
    875      1.43   thorpej 	/* falloc() will use the descriptor for us */
    876      1.18  christos 	if ((error = falloc(p, &rf, &fd)) != 0)
    877       1.1       cgd 		goto free2;
    878       1.1       cgd 	retval[0] = fd;
    879       1.1       cgd 	rf->f_flag = FREAD;
    880       1.1       cgd 	rf->f_type = DTYPE_SOCKET;
    881       1.1       cgd 	rf->f_ops = &socketops;
    882       1.1       cgd 	rf->f_data = (caddr_t)rso;
    883      1.18  christos 	if ((error = falloc(p, &wf, &fd)) != 0)
    884       1.1       cgd 		goto free3;
    885       1.1       cgd 	wf->f_flag = FWRITE;
    886       1.1       cgd 	wf->f_type = DTYPE_SOCKET;
    887       1.1       cgd 	wf->f_ops = &socketops;
    888       1.1       cgd 	wf->f_data = (caddr_t)wso;
    889       1.1       cgd 	retval[1] = fd;
    890      1.18  christos 	if ((error = unp_connect2(wso, rso)) != 0)
    891       1.1       cgd 		goto free4;
    892      1.59   thorpej 	FILE_SET_MATURE(rf);
    893      1.59   thorpej 	FILE_SET_MATURE(wf);
    894      1.43   thorpej 	FILE_UNUSE(rf, p);
    895      1.43   thorpej 	FILE_UNUSE(wf, p);
    896       1.1       cgd 	return (0);
    897      1.57     lukem  free4:
    898      1.43   thorpej 	FILE_UNUSE(wf, p);
    899       1.1       cgd 	ffree(wf);
    900      1.50   thorpej 	fdremove(fdp, retval[1]);
    901      1.57     lukem  free3:
    902      1.43   thorpej 	FILE_UNUSE(rf, p);
    903       1.1       cgd 	ffree(rf);
    904      1.50   thorpej 	fdremove(fdp, retval[0]);
    905      1.57     lukem  free2:
    906       1.1       cgd 	(void)soclose(wso);
    907      1.57     lukem  free1:
    908       1.1       cgd 	(void)soclose(rso);
    909       1.1       cgd 	return (error);
    910       1.1       cgd }
    911      1.60  jdolecek #endif /* !NEW_PIPE */
    912       1.1       cgd 
    913       1.1       cgd /*
    914       1.1       cgd  * Get socket name.
    915       1.1       cgd  */
    916      1.13  christos /* ARGSUSED */
    917       1.7   mycroft int
    918      1.57     lukem sys_getsockname(struct proc *p, void *v, register_t *retval)
    919      1.15   thorpej {
    920      1.51  augustss 	struct sys_getsockname_args /* {
    921      1.57     lukem 		syscallarg(int)			fdes;
    922      1.57     lukem 		syscallarg(struct sockaddr *)	asa;
    923      1.57     lukem 		syscallarg(unsigned int *)	alen;
    924      1.15   thorpej 	} */ *uap = v;
    925      1.57     lukem 	struct file	*fp;
    926      1.57     lukem 	struct socket	*so;
    927      1.57     lukem 	struct mbuf	*m;
    928      1.57     lukem 	unsigned int	len;
    929      1.57     lukem 	int		error;
    930       1.1       cgd 
    931      1.43   thorpej 	/* getsock() will use the descriptor for us */
    932      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, fdes), &fp)) != 0)
    933       1.1       cgd 		return (error);
    934      1.34     perry 	error = copyin((caddr_t)SCARG(uap, alen), (caddr_t)&len, sizeof(len));
    935      1.18  christos 	if (error)
    936      1.43   thorpej 		goto out;
    937       1.1       cgd 	so = (struct socket *)fp->f_data;
    938       1.1       cgd 	m = m_getclr(M_WAIT, MT_SONAME);
    939      1.21   mycroft 	error = (*so->so_proto->pr_usrreq)(so, PRU_SOCKADDR, (struct mbuf *)0,
    940      1.21   mycroft 	    m, (struct mbuf *)0, (struct proc *)0);
    941      1.18  christos 	if (error)
    942       1.1       cgd 		goto bad;
    943       1.1       cgd 	if (len > m->m_len)
    944       1.1       cgd 		len = m->m_len;
    945      1.41    kleink 	error = copyout(mtod(m, caddr_t), (caddr_t)SCARG(uap, asa), len);
    946       1.1       cgd 	if (error == 0)
    947       1.9       cgd 		error = copyout((caddr_t)&len, (caddr_t)SCARG(uap, alen),
    948      1.34     perry 		    sizeof(len));
    949      1.43   thorpej  bad:
    950       1.1       cgd 	m_freem(m);
    951      1.43   thorpej  out:
    952      1.43   thorpej 	FILE_UNUSE(fp, p);
    953       1.1       cgd 	return (error);
    954       1.1       cgd }
    955       1.1       cgd 
    956       1.1       cgd /*
    957       1.1       cgd  * Get name of peer for connected socket.
    958       1.1       cgd  */
    959      1.13  christos /* ARGSUSED */
    960       1.7   mycroft int
    961      1.57     lukem sys_getpeername(struct proc *p, void *v, register_t *retval)
    962      1.15   thorpej {
    963      1.51  augustss 	struct sys_getpeername_args /* {
    964      1.57     lukem 		syscallarg(int)			fdes;
    965      1.57     lukem 		syscallarg(struct sockaddr *)	asa;
    966      1.57     lukem 		syscallarg(unsigned int *)	alen;
    967      1.15   thorpej 	} */ *uap = v;
    968      1.57     lukem 	struct file	*fp;
    969      1.57     lukem 	struct socket	*so;
    970      1.57     lukem 	struct mbuf	*m;
    971      1.57     lukem 	unsigned int	len;
    972      1.57     lukem 	int		error;
    973       1.1       cgd 
    974      1.43   thorpej 	/* getsock() will use the descriptor for us */
    975      1.18  christos 	if ((error = getsock(p->p_fd, SCARG(uap, fdes), &fp)) != 0)
    976       1.1       cgd 		return (error);
    977       1.1       cgd 	so = (struct socket *)fp->f_data;
    978      1.43   thorpej 	if ((so->so_state & (SS_ISCONNECTED|SS_ISCONFIRMING)) == 0) {
    979      1.43   thorpej 		error = ENOTCONN;
    980      1.43   thorpej 		goto out;
    981      1.43   thorpej 	}
    982      1.34     perry 	error = copyin((caddr_t)SCARG(uap, alen), (caddr_t)&len, sizeof(len));
    983      1.18  christos 	if (error)
    984      1.43   thorpej 		goto out;
    985       1.1       cgd 	m = m_getclr(M_WAIT, MT_SONAME);
    986      1.21   mycroft 	error = (*so->so_proto->pr_usrreq)(so, PRU_PEERADDR, (struct mbuf *)0,
    987      1.21   mycroft 	    m, (struct mbuf *)0, (struct proc *)0);
    988      1.18  christos 	if (error)
    989       1.1       cgd 		goto bad;
    990       1.1       cgd 	if (len > m->m_len)
    991       1.1       cgd 		len = m->m_len;
    992      1.41    kleink 	error = copyout(mtod(m, caddr_t), (caddr_t)SCARG(uap, asa), len);
    993      1.18  christos 	if (error)
    994       1.1       cgd 		goto bad;
    995      1.34     perry 	error = copyout((caddr_t)&len, (caddr_t)SCARG(uap, alen), sizeof(len));
    996      1.43   thorpej  bad:
    997       1.1       cgd 	m_freem(m);
    998      1.43   thorpej  out:
    999      1.43   thorpej 	FILE_UNUSE(fp, p);
   1000       1.1       cgd 	return (error);
   1001       1.1       cgd }
   1002       1.1       cgd 
   1003      1.24   thorpej /*
   1004      1.24   thorpej  * XXX In a perfect world, we wouldn't pass around socket control
   1005      1.24   thorpej  * XXX arguments in mbufs, and this could go away.
   1006      1.24   thorpej  */
   1007       1.7   mycroft int
   1008      1.64      matt sockargs(struct mbuf **mp, const void *buf, size_t buflen, int type)
   1009       1.1       cgd {
   1010      1.57     lukem 	struct sockaddr	*sa;
   1011      1.57     lukem 	struct mbuf	*m;
   1012      1.57     lukem 	int		error;
   1013       1.1       cgd 
   1014      1.24   thorpej 	/*
   1015      1.25   thorpej 	 * We can't allow socket names > UCHAR_MAX in length, since that
   1016      1.64      matt 	 * will overflow sa_len.  Control data more than a page size in
   1017      1.64      matt 	 * length is just too much.
   1018      1.24   thorpej 	 */
   1019      1.64      matt 	if (buflen > (type == MT_SONAME ? UCHAR_MAX : PAGE_SIZE))
   1020      1.24   thorpej 		return (EINVAL);
   1021      1.24   thorpej 
   1022      1.24   thorpej 	/* Allocate an mbuf to hold the arguments. */
   1023      1.24   thorpej 	m = m_get(M_WAIT, type);
   1024      1.64      matt 	if (buflen > MLEN) {
   1025      1.24   thorpej 		/*
   1026      1.24   thorpej 		 * Won't fit into a regular mbuf, so we allocate just
   1027      1.24   thorpej 		 * enough external storage to hold the argument.
   1028      1.24   thorpej 		 */
   1029      1.24   thorpej 		MEXTMALLOC(m, buflen, M_WAITOK);
   1030       1.1       cgd 	}
   1031       1.1       cgd 	m->m_len = buflen;
   1032      1.64      matt 	error = copyin(buf, mtod(m, caddr_t), buflen);
   1033       1.1       cgd 	if (error) {
   1034       1.1       cgd 		(void) m_free(m);
   1035       1.7   mycroft 		return (error);
   1036       1.1       cgd 	}
   1037       1.1       cgd 	*mp = m;
   1038       1.1       cgd 	if (type == MT_SONAME) {
   1039       1.7   mycroft 		sa = mtod(m, struct sockaddr *);
   1040      1.65  jdolecek #if BYTE_ORDER != BIG_ENDIAN
   1041      1.65  jdolecek 		/*
   1042      1.65  jdolecek 		 * 4.3BSD compat thing - need to stay, since bind(2),
   1043      1.65  jdolecek 		 * connect(2), sendto(2) were not versioned for COMPAT_43.
   1044      1.65  jdolecek 		 */
   1045       1.1       cgd 		if (sa->sa_family == 0 && sa->sa_len < AF_MAX)
   1046       1.1       cgd 			sa->sa_family = sa->sa_len;
   1047       1.1       cgd #endif
   1048       1.1       cgd 		sa->sa_len = buflen;
   1049       1.1       cgd 	}
   1050       1.1       cgd 	return (0);
   1051       1.1       cgd }
   1052       1.1       cgd 
   1053       1.7   mycroft int
   1054      1.57     lukem getsock(struct filedesc *fdp, int fdes, struct file **fpp)
   1055       1.1       cgd {
   1056      1.57     lukem 	struct file	*fp;
   1057       1.1       cgd 
   1058      1.59   thorpej 	if ((fp = fd_getfile(fdp, fdes)) == NULL)
   1059       1.1       cgd 		return (EBADF);
   1060      1.43   thorpej 
   1061      1.43   thorpej 	FILE_USE(fp);
   1062      1.43   thorpej 
   1063      1.43   thorpej 	if (fp->f_type != DTYPE_SOCKET) {
   1064      1.43   thorpej 		FILE_UNUSE(fp, NULL);
   1065       1.1       cgd 		return (ENOTSOCK);
   1066      1.43   thorpej 	}
   1067       1.1       cgd 	*fpp = fp;
   1068       1.1       cgd 	return (0);
   1069       1.1       cgd }
   1070