/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

#include "nspr.h"
#include "prio.h"
#include "prinit.h"
#include "prprf.h"
#include "obsolete/probslet.h"

#include "plerror.h"

#ifdef XP_UNIX
#include <sys/socket.h> /* SO_REUSEPORT */
#endif

static PRFileDesc* err = NULL;
static PRBool failed = PR_FALSE;

static void
Failed(const char* msg1, const char* msg2)
{
    if (NULL != msg1) {
        PR_fprintf(err, "%s ", msg1);
    }
    PL_FPrintError(err, msg2);
    failed = PR_TRUE;
} /* Failed */

static PRSockOption
Incr(PRSockOption* option)
{
    PRIntn val = ((PRIntn)*option) + 1;
    *option = (PRSockOption)val;
    return (PRSockOption)val;
} /* Incr */

int
main(int argc, char** argv)
{
    PRStatus rv;
    PRFileDesc* udp = PR_NewUDPSocket();
    PRFileDesc* tcp = PR_NewTCPSocket();
    const char* tag[] = {
        "PR_SockOpt_Nonblocking",    /* nonblocking io */
        "PR_SockOpt_Linger",         /* linger on close if data present */
        "PR_SockOpt_Reuseaddr",      /* allow local address reuse */
        "PR_SockOpt_Keepalive",      /* keep connections alive */
        "PR_SockOpt_RecvBufferSize", /* receive buffer size */
        "PR_SockOpt_SendBufferSize", /* send buffer size */

        "PR_SockOpt_IpTimeToLive",    /* time to live */
        "PR_SockOpt_IpTypeOfService", /* type of service and precedence */

        "PR_SockOpt_AddMember",       /* add an IP group membership */
        "PR_SockOpt_DropMember",      /* drop an IP group membership */
        "PR_SockOpt_McastInterface",  /* multicast interface address */
        "PR_SockOpt_McastTimeToLive", /* multicast timetolive */
        "PR_SockOpt_McastLoopback",   /* multicast loopback */

        "PR_SockOpt_NoDelay",    /* don't delay send to coalesce packets */
        "PR_SockOpt_MaxSegment", /* maximum segment size */
        "PR_SockOpt_Broadcast",  /* Enable broadcast */
        "PR_SockOpt_Reuseport",  /* allow local address & port reuse */
        "PR_SockOpt_DontFrag",   /* do not fragment */
        "PR_SockOpt_Last"
    };

    err = PR_GetSpecialFD(PR_StandardError);

    if (NULL == udp) {
        Failed("PR_NewUDPSocket()", NULL);
    } else if (NULL == tcp) {
        Failed("PR_NewTCPSocket()", NULL);
    } else {
        PRSockOption option;
        PRUint32 segment = 1024;
        PRNetAddr addr;

        rv = PR_InitializeNetAddr(PR_IpAddrAny, 0, &addr);
        if (PR_FAILURE == rv) {
            Failed("PR_InitializeNetAddr()", NULL);
        }
        rv = PR_Bind(udp, &addr);
        if (PR_FAILURE == rv) {
            Failed("PR_Bind()", NULL);
        }
        for (option = PR_SockOpt_Linger; option < PR_SockOpt_Last; Incr(&option)) {
            PRSocketOptionData data;
            PRFileDesc* fd = tcp;
            data.option = option;
            switch (option) {
                case PR_SockOpt_Nonblocking:
                    data.value.non_blocking = PR_TRUE;
                    break;
                case PR_SockOpt_Linger:
                    data.value.linger.polarity = PR_TRUE;
                    data.value.linger.linger = PR_SecondsToInterval(2);
                    break;
                case PR_SockOpt_Reuseaddr:
                    data.value.reuse_addr = PR_TRUE;
                    break;
                case PR_SockOpt_Keepalive:
                    data.value.keep_alive = PR_TRUE;
                    break;
                case PR_SockOpt_RecvBufferSize:
                    data.value.recv_buffer_size = segment;
                    break;
                case PR_SockOpt_SendBufferSize:
                    data.value.send_buffer_size = segment;
                    break;
                case PR_SockOpt_IpTimeToLive:
                    data.value.ip_ttl = 64;
                    break;
                case PR_SockOpt_IpTypeOfService:
                    data.value.tos = 0;
                    break;
                case PR_SockOpt_McastTimeToLive:
                    fd = udp;
                    data.value.mcast_ttl = 4;
                    break;
                case PR_SockOpt_McastLoopback:
                    fd = udp;
                    data.value.mcast_loopback = PR_TRUE;
                    break;
                case PR_SockOpt_NoDelay:
                    data.value.no_delay = PR_TRUE;
                    break;
#ifndef WIN32
                case PR_SockOpt_MaxSegment:
                    data.value.max_segment = segment;
                    break;
#endif
                case PR_SockOpt_Broadcast:
                    fd = udp;
                    data.value.broadcast = PR_TRUE;
                    break;
#ifdef SO_REUSEPORT
                case PR_SockOpt_Reuseport:
                    data.value.reuse_port = PR_TRUE;
                    break;
#endif
                case PR_SockOpt_DontFrag:
                    data.value.dont_fragment = PR_TRUE;
                    break;

                default:
                    continue;
            }

            /*
             * TCP_MAXSEG can only be read, not set
             */
            if (option != PR_SockOpt_MaxSegment) {
#ifdef WIN32
                if (option != PR_SockOpt_McastLoopback)
#endif
                {
                    rv = PR_SetSocketOption(fd, &data);
                    if (PR_FAILURE == rv) {
                        Failed("PR_SetSocketOption()", tag[option]);
                    }
                }
            }

            rv = PR_GetSocketOption(fd, &data);
            if (PR_FAILURE == rv) {
                Failed("PR_GetSocketOption()", tag[option]);
            }
        }
        PR_Close(udp);
        PR_Close(tcp);
    }
    PR_fprintf(err, "%s\n", (failed) ? "FAILED" : "PASSED");
    return (failed) ? 1 : 0;
} /* main */

/* sockopt.c */