/*
 * Copyright (c) 1997-1999 University of Utah and the Flux Group.
 * All rights reserved.
 * 
 * This file is part of the Flux OSKit.  The OSKit is free software, also known
 * as "open source;" you can redistribute it and/or modify it under the terms
 * of the GNU General Public License (GPL), version 2, as published by the Free
 * Software Foundation (FSF).  To explore alternate licensing terms, contact
 * the University of Utah at csl-dist@cs.utah.edu or +1-801-585-3271.
 * 
 * The OSKit is distributed in the hope that it will be useful, but WITHOUT ANY
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GPL for more details.  You should have
 * received a copy of the GPL along with the OSKit; see the file COPYING.  If
 * not, write to the FSF, 59 Temple Place #330, Boston, MA 02111-1307, USA.
 */

/*
 * Copyright (c) 1982, 1986, 1989, 1990, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * 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.
 *
 */

/*
 * bsdnet_accept()
 */
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/errno.h>
#include <sys/kernel.h>
#include <sys/malloc.h>
#include <sys/proc.h>
#include <sys/mbuf.h>
#include <sys/socket.h>
#include <sys/socketvar.h>

#include <oskit/net/freebsd.h>

#include "glue.h"

/*
 * Derived from accept1 in sys/kern/uipc_syscalls.c:
 */

int     
bsdnet_accept(head, name, anamelen, newso)
        struct socket *head;
	struct sockaddr *name;
	oskit_size_t *anamelen;
        struct socket **newso;    
{
	struct socket *so;
	struct sockaddr *sa;
	struct proc p;
        int namelen = 0, error = 0, s;
                        
        if (name) 
		/* that's a copyin actually */
		namelen = *anamelen;

	OSKIT_FREEBSD_CREATE_CURPROC(p);
        s = splnet();
        if ((head->so_options & SO_ACCEPTCONN) == 0) {
                splx(s);
                error = EINVAL;
		goto out;
        }
	if ((head->so_state & SS_NBIO) && head->so_comp.tqh_first == NULL) {
                splx(s);
                error = EWOULDBLOCK;
		goto out;
        }

	while (head->so_comp.tqh_first == NULL && head->so_error == 0) {
                if (head->so_state & SS_CANTRCVMORE) {
                        head->so_error = ECONNABORTED;
                        break;
                }
                error = tsleep((caddr_t)&head->so_timeo, PSOCK | PCATCH,
                    "accept", 0);
                if (error) {
                        splx(s);
			goto out;
                }
        }
        if (head->so_error) {
                error = head->so_error;
                head->so_error = 0;
                splx(s);
		goto out;
        }

	/*
	 * At this point we know that there is at least one connection
	 * ready to be accepted. Remove it from the queue.
	 */
	so = head->so_comp.tqh_first;
	TAILQ_REMOVE(&head->so_comp, so, so_list);
	head->so_qlen--;

	*newso = so;

	so->so_state &= ~SS_COMP;
	so->so_head = NULL;
#ifndef OSKIT
	if (head->so_sigio != NULL)
		fsetown(fgetown(head->so_sigio), &so->so_sigio);
#endif
        sa = 0;
        (void) soaccept(so, &sa);
	if (sa == 0) {
		namelen = 0;
		if (name)
			goto gotnoname;
		return 0;
	}
	if (name) {
		/* check sa_len before it is destroyed */
		if (namelen > sa->sa_len)
			namelen = sa->sa_len;
		error = copyout(sa, (caddr_t)name, (u_int)namelen);
		if (!error)
gotnoname:
		     *anamelen = namelen;	/* copyout actually */
	}
	FREE(sa, M_SONAME);
	splx(s);

out:
	OSKIT_FREEBSD_DESTROY_CURPROC(p);
        return (error);
}