/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright (c) 1990, 2010, Oracle and/or its affiliates. All rights reserved.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

#include <sys/types.h>
#include <sys/socket.h>
#include <sys/stropts.h>
#include <sys/stream.h>
#include <sys/socketvar.h>
#include <errno.h>
#include <unistd.h>
#include <stdlib.h>

extern int _so_socket();
extern int _s_netconfig_path();
extern int _setsockopt();

int _socket_create(int, int, int, int);

#pragma weak socket = _socket

int
_socket(int family, int type, int protocol)
{
        return (_socket_create(family, type, protocol, SOV_DEFAULT));
}

/*
 * Used by the BCP library.
 */
int
_socket_bsd(int family, int type, int protocol)
{
        return (_socket_create(family, type, protocol, SOV_SOCKBSD));
}

int
_socket_svr4(int family, int type, int protocol)
{
        return (_socket_create(family, type, protocol, SOV_SOCKSTREAM));
}

int
__xnet_socket(int family, int type, int protocol)
{
        return (_socket_create(family, type, protocol, SOV_XPG4_2));
}

/*
 * Create a socket endpoint for socket() and socketpair().
 * In SunOS 4.X and in SunOS 5.X prior to XPG 4.2 the only error
 * that could be returned due to invalid <family, type, protocol>
 * was EPROTONOSUPPORT. (While the SunOS 4.X source contains EPROTOTYPE
 * error as well that error can only be generated if the kernel is
 * incorrectly configured.)
 * For backwards compatibility only applications that request XPG 4.2
 * (through c89 or XOPEN_SOURCE) will get EPROTOTYPE or EAFNOSUPPORT errors.
 */
int
_socket_create(int family, int type, int protocol, int version)
{
        int fd;

        /*
         * Try creating without knowing the device assuming that
         * the transport provider is registered in /etc/sock2path.d.
         * If none found fall back to using /etc/netconfig to look
         * up the name of the transport device name. This provides
         * backwards compatibility for transport providers that have not
         * yet been converted to using /etc/sock2path.d.
         * XXX When all transport providers use /etc/sock2path.d. this
         * part of the code can be removed.
         */
        fd = _so_socket(family, type, protocol, NULL, version);
        if (fd == -1) {
                char *devpath;
                int saved_errno = errno;
                int prototype = 0;

                switch (saved_errno) {
                case EAFNOSUPPORT:
                case EPROTOTYPE:
                        if (version != SOV_XPG4_2)
                                saved_errno = EPROTONOSUPPORT;
                        break;
                case EPROTONOSUPPORT:
                        break;

                default:
                        errno = saved_errno;
                        return (-1);
                }
                if (_s_netconfig_path(family, type, protocol,
                    &devpath, &prototype) == -1) {
                        errno = saved_errno;
                        return (-1);
                }
                fd = _so_socket(family, type, protocol, devpath, version);
                free(devpath);
                if (fd == -1) {
                        errno = saved_errno;
                        return (-1);
                }
                if (prototype != 0) {
                        if (_setsockopt(fd, SOL_SOCKET, SO_PROTOTYPE,
                            (caddr_t)&prototype, (int)sizeof (prototype)) < 0) {
                                (void) close(fd);
                                /*
                                 * setsockopt often fails with ENOPROTOOPT
                                 * but socket() should fail with
                                 * EPROTONOSUPPORT.
                                 */
                                errno = EPROTONOSUPPORT;
                                return (-1);
                        }
                }
        }
        return (fd);
}