/*

 * Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.

 *

 * Licensed under the Apache License 2.0 (the "License").  You may not use

 * this file except in compliance with the License.  You can obtain a copy

 * in the file LICENSE in the source distribution or at

 * https://www.openssl.org/source/license.html

 */

#include <stdio.h>

#include <stdlib.h>

#include "bio_local.h"

#ifndef OPENSSL_NO_SOCK

# define SOCKET_PROTOCOL IPPROTO_TCP

# ifdef SO_MAXCONN

#  define MAX_LISTEN  SO_MAXCONN

# elif defined(SOMAXCONN)

#  define MAX_LISTEN  SOMAXCONN

# else

#  define MAX_LISTEN  32

# endif

# if defined(OPENSSL_SYS_WINDOWS)

static int wsa_init_done = 0;

# endif

# if defined __TANDEM

#  include <unistd.h>

#  include <sys/time.h> /* select */

#  if defined(OPENSSL_TANDEM_FLOSS)

#   include <floss.h(floss_select)>

#  endif

# elif defined _WIN32

#  include <winsock.h> /* for type fd_set */

# else

#  include <unistd.h>

#  if defined __VMS

#   include <sys/socket.h>

#  elif defined _HPUX_SOURCE

#   include <sys/time.h>

#  else

#   include <sys/select.h>

#  endif

# endif

# ifndef OPENSSL_NO_DEPRECATED_1_1_0

int BIO_get_host_ip(const char *str, unsigned char *ip)

{

    BIO_ADDRINFO *res = NULL;

    int ret = 0;

    if (BIO_sock_init() != 1)

        return 0;               /* don't generate another error code here */

    if (BIO_lookup(str, NULL, BIO_LOOKUP_CLIENT, AF_INET, SOCK_STREAM, &res)) {

        size_t l;

        if (BIO_ADDRINFO_family(res) != AF_INET) {

            ERR_raise(ERR_LIB_BIO, BIO_R_GETHOSTBYNAME_ADDR_IS_NOT_AF_INET);

        } else if (BIO_ADDR_rawaddress(BIO_ADDRINFO_address(res), NULL, &l)) {

            /*

             * Because only AF_INET addresses will reach this far, we can assert

             * that l should be 4

             */

            if (ossl_assert(l == 4))

                ret = BIO_ADDR_rawaddress(BIO_ADDRINFO_address(res), ip, &l);

        }

        BIO_ADDRINFO_free(res);

    } else {

        ERR_add_error_data(2, "host=", str);

    }

    return ret;

}

int BIO_get_port(const char *str, unsigned short *port_ptr)

{

    BIO_ADDRINFO *res = NULL;

    int ret = 0;

    if (str == NULL) {

        ERR_raise(ERR_LIB_BIO, BIO_R_NO_PORT_DEFINED);

        return 0;

    }

    if (BIO_sock_init() != 1)

        return 0;               /* don't generate another error code here */

    if (BIO_lookup(NULL, str, BIO_LOOKUP_CLIENT, AF_INET, SOCK_STREAM, &res)) {

        if (BIO_ADDRINFO_family(res) != AF_INET) {

            ERR_raise(ERR_LIB_BIO, BIO_R_ADDRINFO_ADDR_IS_NOT_AF_INET);

        } else {

            *port_ptr = ntohs(BIO_ADDR_rawport(BIO_ADDRINFO_address(res)));

            ret = 1;

        }

        BIO_ADDRINFO_free(res);

    } else {

        ERR_add_error_data(2, "host=", str);

    }

    return ret;

}

# endif

int BIO_sock_error(int sock)

{

    int j = 0, i;

    socklen_t size = sizeof(j);

    /*

     * Note: under Windows the third parameter is of type (char *) whereas

     * under other systems it is (void *) if you don't have a cast it will

     * choke the compiler: if you do have a cast then you can either go for

     * (char *) or (void *).

     */

    i = getsockopt(sock, SOL_SOCKET, SO_ERROR, (void *)&j, &size);

    if (i < 0)

        return get_last_socket_error();

    else

        return j;

}

# ifndef OPENSSL_NO_DEPRECATED_1_1_0

struct hostent *BIO_gethostbyname(const char *name)

{

    /*

     * Caching gethostbyname() results forever is wrong, so we have to let

     * the true gethostbyname() worry about this

     */

    return gethostbyname(name);

}

# endif

int BIO_sock_init(void)

{

# ifdef OPENSSL_SYS_WINDOWS

    static struct WSAData wsa_state;

    if (!wsa_init_done) {

        wsa_init_done = 1;

        memset(&wsa_state, 0, sizeof(wsa_state));

        /*

         * Not making wsa_state available to the rest of the code is formally

         * wrong. But the structures we use are [believed to be] invariable

         * among Winsock DLLs, while API availability is [expected to be]

         * probed at run-time with DSO_global_lookup.

         */

        if (WSAStartup(0x0202, &wsa_state) != 0) {

            ERR_raise_data(ERR_LIB_SYS, get_last_socket_error(),

                           "calling wsastartup()");

            ERR_raise(ERR_LIB_BIO, BIO_R_WSASTARTUP);

            return -1;

        }

    }

# endif                         /* OPENSSL_SYS_WINDOWS */

# ifdef WATT32

    extern int _watt_do_exit;

    _watt_do_exit = 0;          /* don't make sock_init() call exit() */

    if (sock_init())

        return -1;

# endif

    return 1;

}

void bio_sock_cleanup_int(void)

{

# ifdef OPENSSL_SYS_WINDOWS

    if (wsa_init_done) {

        wsa_init_done = 0;

        WSACleanup();

    }

# endif

}

int BIO_socket_ioctl(int fd, long type, void *arg)

{

    int i;

#  ifdef __DJGPP__

    i = ioctlsocket(fd, type, (char *)arg);

#  else

#   if defined(OPENSSL_SYS_VMS)

    /*-

     * 2011-02-18 SMS.

     * VMS ioctl() can't tolerate a 64-bit "void *arg", but we

     * observe that all the consumers pass in an "unsigned long *",

     * so we arrange a local copy with a short pointer, and use

     * that, instead.

     */

#    if __INITIAL_POINTER_SIZE == 64

#     define ARG arg_32p

#     pragma pointer_size save

#     pragma pointer_size 32

    unsigned long arg_32;

    unsigned long *arg_32p;

#     pragma pointer_size restore

    arg_32p = &arg_32;

    arg_32 = *((unsigned long *)arg);

#    else                       /* __INITIAL_POINTER_SIZE == 64 */

#     define ARG arg

#    endif                      /* __INITIAL_POINTER_SIZE == 64 [else] */

#   else                        /* defined(OPENSSL_SYS_VMS) */

#    define ARG arg

#   endif                       /* defined(OPENSSL_SYS_VMS) [else] */

    i = ioctlsocket(fd, type, ARG);

#  endif                        /* __DJGPP__ */

    if (i < 0)

        ERR_raise_data(ERR_LIB_SYS, get_last_socket_error(),

                       "calling ioctlsocket()");

    return i;

}

# ifndef OPENSSL_NO_DEPRECATED_1_1_0

int BIO_get_accept_socket(char *host, int bind_mode)

{

    int s = INVALID_SOCKET;

    char *h = NULL, *p = NULL;

    BIO_ADDRINFO *res = NULL;

    if (!BIO_parse_hostserv(host, &h, &p, BIO_PARSE_PRIO_SERV))

        return INVALID_SOCKET;

    if (BIO_sock_init() != 1)

        return INVALID_SOCKET;

    if (BIO_lookup(h, p, BIO_LOOKUP_SERVER, AF_UNSPEC, SOCK_STREAM, &res) != 0)

        goto err;

    if ((s = BIO_socket(BIO_ADDRINFO_family(res), BIO_ADDRINFO_socktype(res),

                        BIO_ADDRINFO_protocol(res), 0)) == INVALID_SOCKET) {

        s = INVALID_SOCKET;

        goto err;

    }

    if (!BIO_listen(s, BIO_ADDRINFO_address(res),

                    bind_mode ? BIO_SOCK_REUSEADDR : 0)) {

        BIO_closesocket(s);

        s = INVALID_SOCKET;

    }

 err:

    BIO_ADDRINFO_free(res);

    OPENSSL_free(h);

    OPENSSL_free(p);

    return s;

}

int BIO_accept(int sock, char **ip_port)

{

    BIO_ADDR res;

    int ret = -1;

    ret = BIO_accept_ex(sock, &res, 0);

    if (ret == (int)INVALID_SOCKET) {

        if (BIO_sock_should_retry(ret)) {

            ret = -2;

            goto end;

        }

        ERR_raise_data(ERR_LIB_SYS, get_last_socket_error(),

                       "calling accept()");

        ERR_raise(ERR_LIB_BIO, BIO_R_ACCEPT_ERROR);

        goto end;

    }

    if (ip_port != NULL) {

        char *host = BIO_ADDR_hostname_string(&res, 1);

        char *port = BIO_ADDR_service_string(&res, 1);

        if (host != NULL && port != NULL)

            *ip_port = OPENSSL_zalloc(strlen(host) + strlen(port) + 2);

        else

            *ip_port = NULL;

        if (*ip_port == NULL) {

            ERR_raise(ERR_LIB_BIO, ERR_R_MALLOC_FAILURE);

            BIO_closesocket(ret);

            ret = (int)INVALID_SOCKET;

        } else {

            strcpy(*ip_port, host);

            strcat(*ip_port, ":");

            strcat(*ip_port, port);

        }

        OPENSSL_free(host);

        OPENSSL_free(port);

    }

 end:

    return ret;

}

# endif

int BIO_set_tcp_ndelay(int s, int on)

{

    int ret = 0;

# if defined(TCP_NODELAY) && (defined(IPPROTO_TCP) || defined(SOL_TCP))

    int opt;

#  ifdef SOL_TCP

    opt = SOL_TCP;

#  else

#   ifdef IPPROTO_TCP

    opt = IPPROTO_TCP;

#   endif

#  endif

    ret = setsockopt(s, opt, TCP_NODELAY, (char *)&on, sizeof(on));

# endif

    return (ret == 0);

}

int BIO_socket_nbio(int s, int mode)

{

    int ret = -1;

    int l;

    l = mode;

# ifdef FIONBIO

    l = mode;

    ret = BIO_socket_ioctl(s, FIONBIO, &l);

# elif defined(F_GETFL) && defined(F_SETFL) && (defined(O_NONBLOCK) || defined(FNDELAY))

    /* make sure this call always pushes an error level; BIO_socket_ioctl() does so, so we do too. */

    l = fcntl(s, F_GETFL, 0);

    if (l == -1) {

        ERR_raise_data(ERR_LIB_SYS, get_last_sys_error(),

                       "calling fcntl()");

        ret = -1;

    } else {

#  if defined(O_NONBLOCK)

        l &= ~O_NONBLOCK;

#  else

        l &= ~FNDELAY; /* BSD4.x */

#  endif

        if (mode) {

#  if defined(O_NONBLOCK)

            l |= O_NONBLOCK;

#  else

            l |= FNDELAY; /* BSD4.x */

#  endif

        }

        ret = fcntl(s, F_SETFL, l);

        if (ret < 0) {

            ERR_raise_data(ERR_LIB_SYS, get_last_sys_error(),

                           "calling fcntl()");

        }

    }

# else

    /* make sure this call always pushes an error level; BIO_socket_ioctl() does so, so we do too. */

    ERR_raise(ERR_LIB_BIO, ERR_R_PASSED_INVALID_ARGUMENT);

# endif

    return (ret == 0);

}

int BIO_sock_info(int sock,

                  enum BIO_sock_info_type type, union BIO_sock_info_u *info)

{

    switch (type) {

    case BIO_SOCK_INFO_ADDRESS:

        {

            socklen_t addr_len;

            int ret = 0;

            addr_len = sizeof(*info->addr);

            ret = getsockname(sock, BIO_ADDR_sockaddr_noconst(info->addr),

                              &addr_len);

            if (ret == -1) {

                ERR_raise_data(ERR_LIB_SYS, get_last_socket_error(),

                               "calling getsockname()");

                ERR_raise(ERR_LIB_BIO, BIO_R_GETSOCKNAME_ERROR);

                return 0;

            }

            if ((size_t)addr_len > sizeof(*info->addr)) {

                ERR_raise(ERR_LIB_BIO, BIO_R_GETSOCKNAME_TRUNCATED_ADDRESS);

                return 0;

            }

        }

        break;

    default:

        ERR_raise(ERR_LIB_BIO, BIO_R_UNKNOWN_INFO_TYPE);

        return 0;

    }

    return 1;

}

/*

 * Wait on fd at most until max_time; succeed immediately if max_time == 0.

 * If for_read == 0 then assume to wait for writing, else wait for reading.

 * Returns -1 on error, 0 on timeout, and 1 on success.

 */

int BIO_socket_wait(int fd, int for_read, time_t max_time)

{

    fd_set confds;

    struct timeval tv;

    time_t now;

    if (fd < 0 || fd >= FD_SETSIZE)

        return -1;

    if (max_time == 0)

        return 1;

    now = time(NULL);

    if (max_time < now)

        return 0;

    FD_ZERO(&confds);

    openssl_fdset(fd, &confds);

    tv.tv_usec = 0;

    tv.tv_sec = (long)(max_time - now); /* might overflow */

    return select(fd + 1, for_read ? &confds : NULL,

                  for_read ? NULL : &confds, NULL, &tv);

}

#endif /* !defined(OPENSSL_NO_SOCK) */