#include <stdio.h>
#include <stdlib.h>
#include <sys/socket.h>
#include <netinet/in.h>

int 
make_socket (unsigned short int port)
@{
  int sock;
  struct sockaddr_in name;

  /* @r{Create the socket.} */
  sock = socket (PF_INET, SOCK_STREAM, 0);
  if (sock < 0)
    @{
      perror ("socket");
      exit (EXIT_FAILURE);
    @}

  /* @r{Give the socket a name.} */
  name.sin_family = AF_INET;
  name.sin_port = htons (port);
  name.sin_addr.s_addr = htonl (INADDR_ANY);
  if (bind (sock, (struct sockaddr *) &name, sizeof (name)) < 0)
    @{
      perror ("bind");
      exit (EXIT_FAILURE);
    @}

  return sock;
@}
