assuan/assuan-io.c

   1 /* assuan-io.c - Wraps the read and write functions.
   2  *      Copyright (C) 2002, 2004, 2006 Free Software Foundation, Inc.
   3  *
   4  * This file is part of Assuan.
   5  *
   6  * Assuan is free software; you can redistribute it and/or modify it
   7  * under the terms of the GNU Lesser General Public License as
   8  * published by the Free Software Foundation; either version 2.1 of
   9  * the License, or (at your option) any later version.
  10  *
  11  * Assuan is distributed in the hope that it will be useful, but
  12  * WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
  19  * USA.
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25
  26 #include <sys/time.h>
  27 #include <sys/types.h>
  28 #ifdef HAVE_SYS_SOCKET_H
  29 # include <sys/socket.h>
  30 #endif
  31 #include <unistd.h>
  32 #include <errno.h>
  33 #ifdef HAVE_W32_SYSTEM
  34 # include <windows.h>
  35 #else
  36 # include <sys/wait.h>
  37 #endif
  38
  39 #include "assuan-defs.h"
  40
  41
  42 #ifndef HAVE_W32_SYSTEM
  43 pid_t
  44 _assuan_waitpid (pid_t pid, int *status, int options)
  45 {
  46   return waitpid (pid, status, options);
  47 }
  48 #endif
  49
  50
  51 ssize_t
  52 _assuan_simple_read (assuan_context_t ctx, void *buffer, size_t size)
  53 {
  54 #ifdef HAVE_W32_SYSTEM
  55   /* Due to the peculiarities of the W32 API we can't use read for a
  56      network socket and thus we try to use recv first and fallback to
  57      read if recv detects that it is not a network socket.  */
  58   int n;
  59
  60   n = recv (ctx->inbound.fd, buffer, size, 0);
  61   if (n == -1 && WSAGetLastError () == WSAENOTSOCK)
  62     {
  63       DWORD nread = 0;
  64
  65       n = ReadFile ((HANDLE)ctx->inbound.fd, buffer, size, &nread, NULL);
  66       if (!n)
  67         {
  68           switch (GetLastError())
  69             {
  70             case ERROR_BROKEN_PIPE: errno = EPIPE; break;
  71             default: errno = EIO;
  72             }
  73           n = -1;
  74         }
  75       else
  76         n = (int)nread;
  77     }
  78   return n;
  79 #else /*!HAVE_W32_SYSTEM*/
  80   return read (ctx->inbound.fd, buffer, size);
  81 #endif /*!HAVE_W32_SYSTEM*/
  82 }
  83
  84 ssize_t
  85 _assuan_simple_write (assuan_context_t ctx, const void *buffer, size_t size)
  86 {
  87 #ifdef HAVE_W32_SYSTEM
  88   /* Due to the peculiarities of the W32 API we can't use write for a
  89      network socket and thus we try to use send first and fallback to
  90      write if send detects that it is not a network socket.  */
  91   int n;
  92
  93   n = send (ctx->outbound.fd, buffer, size, 0);
  94   if (n == -1 && WSAGetLastError () == WSAENOTSOCK)
  95     {
  96       DWORD nwrite;
  97
  98       n = WriteFile ((HANDLE)ctx->outbound.fd, buffer, size, &nwrite, NULL);
  99       if (!n)
 100         {
 101           switch (GetLastError ())
 102             {
 103             case ERROR_BROKEN_PIPE:
 104             case ERROR_NO_DATA: errno = EPIPE; break;
 105             default:            errno = EIO;   break;
 106             }
 107           n = -1;
 108         }
 109       else
 110         n = (int)nwrite;
 111     }
 112   return n;
 113 #else /*!HAVE_W32_SYSTEM*/
 114   return write (ctx->outbound.fd, buffer, size);
 115 #endif /*!HAVE_W32_SYSTEM*/
 116 }
 117
 118
 119 #ifdef HAVE_W32_SYSTEM
 120 int
 121 _assuan_simple_sendmsg (assuan_context_t ctx, void *msg)
 122 #else
 123 ssize_t
 124 _assuan_simple_sendmsg (assuan_context_t ctx, struct msghdr *msg)
 125 #endif
 126 {
 127 #ifdef HAVE_W32_SYSTEM
 128   return _assuan_error (ASSUAN_Not_Implemented);
 129 #else
 130   int ret;
 131   while ( (ret = sendmsg (ctx->outbound.fd, msg, 0)) == -1 && errno == EINTR)
 132     ;
 133   return ret;
 134 #endif
 135 }
 136
 137
 138 #ifdef HAVE_W32_SYSTEM
 139 int
 140 _assuan_simple_recvmsg (assuan_context_t ctx, void *msg)
 141 #else
 142 ssize_t
 143 _assuan_simple_recvmsg (assuan_context_t ctx, struct msghdr *msg)
 144 #endif
 145 {
 146 #ifdef HAVE_W32_SYSTEM
 147   return _assuan_error (ASSUAN_Not_Implemented);
 148 #else
 149   int ret;
 150   while ( (ret = recvmsg (ctx->inbound.fd, msg, 0)) == -1 && errno == EINTR)
 151     ;
 152   return ret;
 153 #endif
 154 }