/*
 * Copyright (c) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2000
 *	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: (1) source code distributions
 * retain the above copyright notice and this paragraph in its entirety, (2)
 * distributions including binary code include the above copyright notice and
 * this paragraph in its entirety in the documentation or other materials
 * provided with the distribution, and (3) all advertising materials mentioning
 * features or use of this software display the following acknowledgement:
 * ``This product includes software developed by the University of California,
 * Lawrence Berkeley Laboratory and its contributors.'' 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#include "varattrs.h"

/*
 * Tests for pcap_set_nonblock / pcap_get_nonblock:
 * - idempotency
 * - set/get are symmetric
 * - get returns the same before/after activate
 * - pcap_breakloop works after setting nonblock on and then off
 *
 * Really this is meant to
 * be run manually under strace, to check for extra
 * calls to eventfd or close.
 */
#include <pcap.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

static pcap_t *pd;
static char *program_name = "nonblocktest";
/* Forwards */
static void PCAP_NORETURN usage(void);
static void PCAP_NORETURN error(const char *, ...) PCAP_PRINTFLIKE(1, 2);
static void warning(const char *, ...) PCAP_PRINTFLIKE(1, 2);

/* VARARGS */
static void
error(const char *fmt, ...)
{
	va_list ap;

	(void)fprintf(stderr, "%s: ", program_name);
	va_start(ap, fmt);
	(void)vfprintf(stderr, fmt, ap);
	va_end(ap);
	if (*fmt) {
		fmt += strlen(fmt);
		if (fmt[-1] != '\n')
			(void)fputc('\n', stderr);
	}
	exit(1);
	/* NOTREACHED */
}

/* VARARGS */
static void
warning(const char *fmt, ...)
{
	va_list ap;

	(void)fprintf(stderr, "%s: WARNING: ", program_name);
	va_start(ap, fmt);
	(void)vfprintf(stderr, fmt, ap);
	va_end(ap);
	if (*fmt) {
		fmt += strlen(fmt);
		if (fmt[-1] != '\n')
			(void)fputc('\n', stderr);
	}
}

static void
usage(void)
{
	(void)fprintf(stderr, "Usage: %s [ -i interface ]\n",
	    program_name);
	exit(1);
}

static void
breakme(u_char *user _U_, const struct pcap_pkthdr *h _U_, const u_char *sp _U_)
{
	warning("using pcap_breakloop()");
	pcap_breakloop(pd);
}

int
main(int argc, char **argv)
{
	int status, op, i, ret;
	char *device;
	pcap_if_t *devlist;
	char ebuf[PCAP_ERRBUF_SIZE];

	device = NULL;
	while ((op = getopt(argc, argv, "i:sptnq")) != -1) {
		switch (op) {

		case 'i':
			device = optarg;
			break;

		default:
			usage();
			/* NOTREACHED */
		}
	}
	if (device == NULL) {
		if (pcap_findalldevs(&devlist, ebuf) == -1)
			error("%s", ebuf);
		if (devlist == NULL)
			error("no interfaces available for capture");
		device = strdup(devlist->name);
		warning("listening on %s", device);
		pcap_freealldevs(devlist);
	}
	*ebuf = '\0';
	pd = pcap_create(device, ebuf);
	if (pd == NULL)
		error("%s", ebuf);
	else if (*ebuf)
		warning("%s", ebuf);
	/* set nonblock before activate */
	if (pcap_setnonblock(pd, 1, ebuf) < 0)
		error("pcap_setnonblock failed: %s", ebuf);
	/* getnonblock just returns "not activated yet" */
	ret = pcap_getnonblock(pd, ebuf);
	if (ret != PCAP_ERROR_NOT_ACTIVATED)
		error("pcap_getnonblock unexpectedly succeeded");
	if ((status = pcap_activate(pd)) < 0)
		error("pcap_activate failed");
	ret = pcap_getnonblock(pd, ebuf);
	if (ret != 1)
		error( "pcap_getnonblock did not return nonblocking" );

	/* Set nonblock multiple times, ensure with strace that it's a noop */
	for (i=0; i<10; i++) {
		if (pcap_setnonblock(pd, 1, ebuf) < 0)
			error("pcap_setnonblock failed: %s", ebuf);
		ret = pcap_getnonblock(pd, ebuf);
		if (ret != 1)
			error( "pcap_getnonblock did not return nonblocking" );
	}
	/* Set block multiple times, ensure with strace that it's a noop */
	for (i=0; i<10; i++) {
		if (pcap_setnonblock(pd, 0, ebuf) < 0)
			error("pcap_setnonblock failed: %s", ebuf);
		ret = pcap_getnonblock(pd, ebuf);
		if (ret != 0)
			error( "pcap_getnonblock did not return blocking" );
	}

	/* Now pcap_loop forever, with a callback that
	 * uses pcap_breakloop to get out of forever */
	pcap_loop(pd, -1, breakme, NULL);

        /* Now test that pcap_setnonblock fails if we can't open the
         * eventfd. */
        if (pcap_setnonblock(pd, 1, ebuf) < 0)
                error("pcap_setnonblock failed: %s", ebuf);
        while (1) {
                ret = open("/dev/null", O_RDONLY);
                if (ret < 0)
                        break;
        }
        ret = pcap_setnonblock(pd, 0, ebuf);
        if (ret == 0)
                error("pcap_setnonblock succeeded even though file table is full");
        else
                warning("pcap_setnonblock failed as expected: %s", ebuf);
}