/* Protocol family operations

   Copyright (C) 1995 Free Software Foundation, Inc.

   Written by Miles Bader <miles@gnu.ai.mit.edu>

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License as
   published by the Free Software Foundation; either version 2, or (at
   your option) any later version.

   This program 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
   General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */

/* Create a new socket.  Sock type is, for example, SOCK_STREAM,
   SOCK_DGRAM, or some such.  */
S_socket_create (struct trivfs_protid *cred,
		 int sock_type, int protocol,
		 mach_port_t *port, mach_msg_type_name_t *port_type)
{
  error_t err;
  struct pipe_ops *pipe_ops;
  struct sock *sock;
  struct sock_user *user;

  if (!cred)
    return EOPNOTSUPP;
  
  if (protocol != 0)
    return EPROTONOSUPPORT;
  switch (sock_type)
    {
    case SOCK_STREAM:
      pipe_class = stream_pipe_class; break;
    case SOCK_DGRAM:
      pipe_class = dgram_pipe_class; break;
    default:
      return ESOCKTNOSUPPORT;
    }
  
  err = sock_create (pipe_class, &sock);
  if (!err)
    err = sock_create_port (sock, port);
  *port_type = MACH_MSG_TYPE_MAKE_SEND;
  
  return err;
}