/*	$NetBSD: sane_socketpair.c,v 1.1.1.1 2009/06/23 10:09:00 tron Exp $	*/

/*++
/* NAME
/*	sane_socketpair 3
/* SUMMARY
/*	sanitize socketpair() error returns
/* SYNOPSIS
/*	#include <sane_socketpair.h>
/*
/*	int	sane_socketpair(domain, type, protocol, result)
/*	int	domain;
/*	int	type;
/*	int	protocol;
/*	int	*result;
/* DESCRIPTION
/*	sane_socketpair() implements the socketpair(2) socket call, and
/*	skips over silly error results such as EINTR.
/* BUGS
/*	Bizarre systems may have other harmless error results. Such
/*	systems encourage programmers to ignore error results, and
/*	penalize programmers who code defensively.
/* LICENSE
/* .ad
/* .fi
/*	The Secure Mailer license must be distributed with this software.
/* AUTHOR(S)
/*	Wietse Venema
/*	IBM T.J. Watson Research
/*	P.O. Box 704
/*	Yorktown Heights, NY 10598, USA
/*--*/

/* System library. */

#include "sys_defs.h"
#include <sys/socket.h>
#include <unistd.h>
#include <errno.h>

/* Utility library. */

#include "msg.h"
#include "sane_socketpair.h"

/* sane_socketpair - sanitize socketpair() error returns */

int     sane_socketpair(int domain, int type, int protocol, int *result)
{
    static int socketpair_ok_errors[] = {
	EINTR,
	0,
    };
    int     count;
    int     err;
    int     ret;

    /*
     * Solaris socketpair() can fail with EINTR.
     */
    while ((ret = socketpair(domain, type, protocol, result)) < 0) {
	for (count = 0; /* void */ ; count++) {
	    if ((err = socketpair_ok_errors[count]) == 0)
		return (ret);
	    if (errno == err) {
		msg_warn("socketpair: %m (trying again)");
		sleep(1);
		break;
	    }
	}
    }
    return (ret);
}