gnulib/import/socket.c

   1 /* socket.c --- wrappers for Windows socket function
   2
   3    Copyright (C) 2008-2022 Free Software Foundation, Inc.
   4
   5    This file is free software: you can redistribute it and/or modify
   6    it under the terms of the GNU Lesser General Public License as
   7    published by the Free Software Foundation; either version 2.1 of the
   8    License, or (at your option) any later version.
   9
  10    This file is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public License
  16    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  17
  18 /* Written by Paolo Bonzini */
  19
  20 #include <config.h>
  21
  22 #define WIN32_LEAN_AND_MEAN
  23 /* Get winsock2.h. */
  24 #include <sys/socket.h>
  25
  26 /* Get set_winsock_errno, FD_TO_SOCKET etc. */
  27 #include "w32sock.h"
  28
  29 #include "sockets.h"
  30
  31 /* Don't assume that UNICODE is defined.  */
  32 #undef WSASocket
  33 #define WSASocket WSASocketW
  34
  35 int
  36 rpl_socket (int domain, int type, int protocol)
  37 {
  38   SOCKET fh;
  39
  40   gl_sockets_startup (SOCKETS_1_1);
  41
  42   /* We have to use WSASocket() to create non-overlapped IO sockets.
  43      Overlapped IO sockets cannot be used with read/write.  */
  44   fh = WSASocket (domain, type, protocol, NULL, 0, 0);
  45
  46   if (fh == INVALID_SOCKET)
  47     {
  48       set_winsock_errno ();
  49       return -1;
  50     }
  51   else
  52     return SOCKET_TO_FD (fh);
  53 }