Edit

kc3-lang/kc3/socket/socket.c

Branch :

  • socket/socket.c 
  • /* kc3
 * Copyright from 2022 to 2025 kmx.io <contact@kmx.io>
 *
 * Permission is hereby granted to use this software granted the above
 * copyright notice and this permission paragraph are included in all
 * copies and substantial portions of this software.
 *
 * THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
 * PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
 * AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
 * THIS SOFTWARE.
 */
#include <errno.h>
#include <string.h>

#if defined(WIN32) || defined(WIN64)
# include <winsock2.h>
# include <ws2tcpip.h>
#else
# include <netdb.h>
# include <netinet/in.h>
#endif

#include <unistd.h>
#include <libkc3/kc3.h>
#include "socket.h"
#include "socket_buf.h"


#if (defined(WIN32) || defined(WIN64))
static bool g_socket_init = false;
#endif

void socket_clean (void)
{
#if (defined(WIN32) || defined(WIN64))
  if (g_socket_init) {
    WSACleanup();
    g_socket_init = false;
  }
#endif
}

void socket_close (p_socket s)
{
  assert(s);
  close(*s);
  *s = -1;
}

bool socket_init (void)
{
#if (defined(WIN32) || defined(WIN64))
  static WSADATA wsa_data;
  s64 r;
  if (! g_socket_init) {
    //printf("socket_init: WSAStartup\n");
    if ((r = WSAStartup(MAKEWORD(2,2), &wsa_data))) {
      printf("socket_init: WSAStartup failed with error: %lld\n", r);
      return false;
    }
    g_socket_init = true;
  }
#endif
  return true;
}

p_socket socket_init_accept (p_socket s, p_socket listening)
{
  struct sockaddr   *addr;
  struct sockaddr_in addr_in = {0};
  socklen_t          addr_len;
  sw e;
  s64 tmp;
  assert(s);
  assert(listening);
  addr = (struct sockaddr *) &addr_in;
  addr_len = sizeof(addr_in);
  tmp = accept(*listening, addr, &addr_len);
  if (tmp < 0) {
    e = errno;
    err_write_1("socket_init_accept: ");
    err_inspect_s64(listening);
    err_write_1(": accept: ");
    err_puts(strerror(e));
    assert(! "socket_init_accept: accept");
    return NULL;
  }
  *s = tmp;
  return s;
}

p_socket socket_init_listen (p_socket s, const s_str *host,
                             const s_str *service)
{
  struct addrinfo hints = {0};
  struct addrinfo *res;
  struct addrinfo *res0;
  s32 e;
  const char *error_reason = "error";
  s32 i;
  t_socket sockfd;
  assert(s);
  assert(host);
  if (! socket_init())
    return NULL;
  e = getaddrinfo(host->ptr.pchar, service->ptr.pchar, &hints, &res0);
  if (e) {
    err_write_1("socket_init_listen(");
    err_write_1(host->ptr.pchar);
    err_write_1(", ");
    err_write_1(service->ptr.pchar);
    err_write_1("): getaddrinfo: ");
    err_inspect_s32_decimal(&e);
    err_write_1(" ");
    err_puts((char *) gai_strerror(e));
    assert(! "socket_init_listen: getaddrinfo");
    return NULL;
  }
  e = 0;
  sockfd = -1;
  res = res0;
  while (res) {
    sockfd = socket(res->ai_family, SOCK_STREAM, res->ai_protocol);
    if (sockfd < 0) {
      e = errno;
      error_reason = "socket_init_listen: socket: ";
      goto next;
    }
    i = 1;
    if (setsockopt(sockfd, SOL_SOCKET, SO_REUSEADDR, (void *) &i,
		   sizeof(i)) < 0) {
      error_reason = "setsockopt(SO_REUSEADDR)";
      goto next;
    }
    if (bind(sockfd, res->ai_addr, res->ai_addrlen) < 0) {
      e = errno;
      error_reason = "socket_init_listen: bind: ";
      goto next;
    }
    if (listen(sockfd, SOMAXCONN) < 0) {
      e = errno;
      error_reason = "socket_init_listen: listen: ";
      goto next;
    }
    freeaddrinfo(res0);
    *s = sockfd;
    return s;
  next:
    res = res->ai_next;
  }
  freeaddrinfo(res0);
  err_write_1(error_reason);
  err_puts(strerror(e));
  assert(! "socket_init_listen");
  return NULL;
}