/* Copyright (C) 1992, 93, 94, 95, 96, 97, 98 Free Software Foundation, Inc.   This file is part of the GNU C Library.   The GNU C Library is free software; you can redistribute it and/or   modify it under the terms of the GNU Lesser General Public   License as published by the Free Software Foundation; either   version 2.1 of the License, or (at your option) any later version.   The GNU C Library is distributed in the hope that it will be useful,   but WITHOUT ANY WARRANTY; without even the implied warranty of   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU   Lesser General Public License for more details.   You should have received a copy of the GNU Lesser General Public   License along with the GNU C Library; if not, write to the Free   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA   02111-1307 USA.  */#include <errno.h>#include <sys/socket.h>#include <hurd.h>#include <hurd/socket.h>#include <hurd/fd.h>#include <fcntl.h>/* Create a new socket of type TYPE in domain DOMAIN, using   protocol PROTOCOL.  If PROTOCOL is zero, one is chosen automatically.   Returns a file descriptor for the new socket, or -1 for errors.  */int__socket (domain, type, protocol)     int domain;     int type;     int protocol;{  error_t err;  socket_t sock, server;  /* Find the socket server for DOMAIN.  */  server = _hurd_socket_server (domain, 0);  if (server == MACH_PORT_NULL)    return -1;  err = __socket_create (server, type, protocol, &sock);  if (err == MACH_SEND_INVALID_DEST || err == MIG_SERVER_DIED      || err == MIG_BAD_ID || err == EOPNOTSUPP)    {      /* On the first use of the socket server during the operation,	 allow for the old server port dying.  */      server = _hurd_socket_server (domain, 1);      if (server == MACH_PORT_NULL)	return -1;      err = __socket_create (server, type, protocol, &sock);    }  /* These errors all mean that the server node doesn't support the     socket.defs protocol, which we'll take to mean that the protocol     isn't supported.  */  if (err == MACH_SEND_INVALID_DEST || err == MIG_SERVER_DIED      || err == MIG_BAD_ID || err == EOPNOTSUPP)    err = EPFNOSUPPORT;  if (err)    return __hurd_fail (err);  return _hurd_intern_fd (sock, O_IGNORE_CTTY, 1);}weak_alias (__socket, socket)