/*-
 * Copyright (c) 2007 Robert N. M. Watson
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
 */

#include <sys/select.h>
#include <sys/socket.h>
#include <sys/stat.h>

#include <netinet/in.h>

#include <arpa/inet.h>

#include <err.h>
#include <errno.h>
#include <fcntl.h>
#include <limits.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

#define PORT1   10001
#define PORT2   10002

static void
try_0send(const char *test, int fd)
{
        ssize_t len;
        char ch;

        ch = 0;
        len = send(fd, &ch, 0, 0);
        if (len < 0)
                err(1, "%s: try_0send", test);
        if (len != 0)
                errx(1, "%s: try_0send: returned %zd", test, len);
}

static void
try_0write(const char *test, int fd)
{
        ssize_t len;
        char ch;

        ch = 0;
        len = write(fd, &ch, 0);
        if (len < 0)
                err(1, "%s: try_0write", test);
        if (len != 0)
                errx(1, "%s: try_0write: returned %zd", test, len);
}

static void
setup_udp(const char *test, int *fdp, int port1, int port2)
{
        struct sockaddr_in sin;
        int sock1, sock2;

        bzero(&sin, sizeof(sin));
        sin.sin_len = sizeof(sin);
        sin.sin_family = AF_INET;
        sin.sin_addr.s_addr = htonl(INADDR_LOOPBACK);

        sin.sin_port = htons(port1);
        sock1 = socket(PF_INET, SOCK_DGRAM, 0);
        if (sock1 < 0)
                err(1, "%s: setup_udp: socket", test);
        if (bind(sock1, (struct sockaddr *)&sin, sizeof(sin)) < 0)
                err(1, "%s: setup_udp: bind(%s, %d)", test,
                    inet_ntoa(sin.sin_addr), PORT1);
        sin.sin_port = htons(port2);
        if (connect(sock1, (struct sockaddr *)&sin, sizeof(sin)) < 0)
                err(1, "%s: setup_udp: connect(%s, %d)", test,
                    inet_ntoa(sin.sin_addr), PORT2);

        sock2 = socket(PF_INET, SOCK_DGRAM, 0);
        if (sock2 < 0)
                err(1, "%s: setup_udp: socket", test);
        if (bind(sock2, (struct sockaddr *)&sin, sizeof(sin)) < 0)
                err(1, "%s: setup_udp: bind(%s, %d)", test,
                    inet_ntoa(sin.sin_addr), PORT2);
        sin.sin_port = htons(port1);
        if (connect(sock2, (struct sockaddr *)&sin, sizeof(sin)) < 0)
                err(1, "%s: setup_udp: connect(%s, %d)", test,
                    inet_ntoa(sin.sin_addr), PORT1);

        fdp[0] = sock1;
        fdp[1] = sock2;
}

static void
setup_tcp(const char *test, int *fdp, int port)
{
        fd_set writefds, exceptfds;
        struct sockaddr_in sin;
        int ret, sock1, sock2, sock3;
        struct timeval tv;

        bzero(&sin, sizeof(sin));
        sin.sin_len = sizeof(sin);
        sin.sin_family = AF_INET;
        sin.sin_addr.s_addr = htonl(INADDR_LOOPBACK);

        /*
         * First set up the listen socket.
         */
        sin.sin_port = htons(port);
        sock1 = socket(PF_INET, SOCK_STREAM, 0);
        if (sock1 < 0)
                err(1, "%s: setup_tcp: socket", test);
        if (bind(sock1, (struct sockaddr *)&sin, sizeof(sin)) < 0)
                err(1, "%s: bind(%s, %d)", test, inet_ntoa(sin.sin_addr),
                    PORT1);
        if (listen(sock1, -1) < 0)
                err(1, "%s: listen", test);

        /*
         * Now connect to it, non-blocking so that we don't deadlock against
         * ourselves.
         */
        sock2 = socket(PF_INET, SOCK_STREAM, 0);
        if (sock2 < 0)
                err(1, "%s: setup_tcp: socket", test);
        if (fcntl(sock2, F_SETFL, O_NONBLOCK) < 0)
                err(1, "%s: setup_tcp: fcntl(O_NONBLOCK)", test);
        if (connect(sock2, (struct sockaddr *)&sin, sizeof(sin)) < 0 &&
            errno != EINPROGRESS)
                err(1, "%s: setup_tcp: connect(%s, %d)", test,
                    inet_ntoa(sin.sin_addr), PORT1);

        /*
         * Now pick up the connection after sleeping a moment to make sure
         * there's been time for some packets to go back and forth.
         */
        if (sleep(1) != 0)
                err(1, "%s: sleep(1)", test);
        sock3 = accept(sock1, NULL, NULL);
        if (sock3 < 0)
                err(1, "%s: accept", test);
        if (sleep(1) != 0)
                err(1, "%s: sleep(1)", test);

        FD_ZERO(&writefds);
        FD_SET(sock2, &writefds);
        FD_ZERO(&exceptfds);
        FD_SET(sock2, &exceptfds);
        tv.tv_sec = 1;
        tv.tv_usec = 0;
        ret = select(sock2 + 1, NULL, &writefds, &exceptfds, &tv);
        if (ret < 0)
                err(1, "%s: setup_tcp: select", test);
        if (FD_ISSET(sock2, &exceptfds))
                errx(1, "%s: setup_tcp: select: exception", test);
        if (!FD_ISSET(sock2, &writefds))
                errx(1, "%s: setup_tcp: select: not writable", test);

        close(sock1);
        fdp[0] = sock2;
        fdp[1] = sock3;
}

static void
setup_udsstream(const char *test, int *fdp)
{

        if (socketpair(PF_LOCAL, SOCK_STREAM, 0, fdp) < 0)
                err(1, "%s: setup_udsstream: socketpair", test);
}

static void
setup_udsdgram(const char *test, int *fdp)
{

        if (socketpair(PF_LOCAL, SOCK_DGRAM, 0, fdp) < 0)
                err(1, "%s: setup_udsdgram: socketpair", test);
}

static void
setup_pipe(const char *test, int *fdp)
{

        if (pipe(fdp) < 0)
                err(1, "%s: setup_pipe: pipe", test);
}

static void
setup_fifo(const char *test, int *fdp)
{
        char path[] = "0send_fifo.XXXXXXX";
        int fd1, fd2;

        if (mkstemp(path) == -1)
                err(1, "%s: setup_fifo: mktemp", test);
        unlink(path);

        if (mkfifo(path, 0600) < 0)
                err(1, "%s: setup_fifo: mkfifo(%s)", test, path);

        fd1 = open(path, O_RDONLY | O_NONBLOCK);
        if (fd1 < 0)
                err(1, "%s: setup_fifo: open(%s, O_RDONLY)", test, path);

        fd2 = open(path, O_WRONLY | O_NONBLOCK);
        if (fd2 < 0)
                err(1, "%s: setup_fifo: open(%s, O_WRONLY)", test, path);

        fdp[0] = fd2;
        fdp[1] = fd1;
}

static void
close_both(int *fdp)
{

        close(fdp[0]);
        fdp[0] = -1;
        close(fdp[1]);
        fdp[1] = -1;
}

int
main(void)
{
        int fd[2];

        setup_udp("udp_0send", fd, PORT1, PORT2);
        try_0send("udp_0send", fd[0]);
        close_both(fd);

        setup_udp("udp_0write", fd, PORT1 + 10, PORT2 + 10);
        try_0write("udp_0write", fd[0]);
        close_both(fd);

        setup_tcp("tcp_0send", fd, PORT1);
        try_0send("tcp_0send", fd[0]);
        close_both(fd);

        setup_tcp("tcp_0write", fd, PORT1 + 10);
        try_0write("tcp_0write", fd[0]);
        close_both(fd);

        setup_udsstream("udsstream_0send", fd);
        try_0send("udsstream_0send", fd[0]);
        close_both(fd);

        setup_udsstream("udsstream_0write", fd);
        try_0write("udsstream_0write", fd[0]);
        close_both(fd);

        setup_udsdgram("udsdgram_0send", fd);
        try_0send("udsdgram_0send", fd[0]);
        close_both(fd);

        setup_udsdgram("udsdgram_0write", fd);
        try_0write("udsdgram_0write", fd[0]);
        close_both(fd);

        setup_pipe("pipe_0write", fd);
        try_0write("pipd_0write", fd[0]);
        close_both(fd);

        setup_fifo("fifo_0write", fd);
        try_0write("fifo_0write", fd[0]);
        close_both(fd);

        return (0);
}