6d895791fea90677f250711f047f78409c1d1b28
[gpgme.git] / 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           errno = EIO; /* FIXME:  We should have a proper mapping.  */
69           n = -1;
70         }
71       else
72         n = (int)nread;
73     }
74   return n;
75 #else /*!HAVE_W32_SYSTEM*/
76   return read (ctx->inbound.fd, buffer, size);
77 #endif /*!HAVE_W32_SYSTEM*/
78 }
79
80 ssize_t
81 _assuan_simple_write (assuan_context_t ctx, const void *buffer, size_t size)
82 {
83 #ifdef HAVE_W32_SYSTEM
84   /* Due to the peculiarities of the W32 API we can't use write for a
85      network socket and thus we try to use send first and fallback to
86      write if send detects that it is not a network socket.  */
87   int n;
88
89   n = send (ctx->outbound.fd, buffer, size, 0);
90   if (n == -1 && WSAGetLastError () == WSAENOTSOCK)
91     {
92       DWORD nwrite;
93
94       n = WriteFile ((HANDLE)ctx->outbound.fd, buffer, size, &nwrite, NULL);
95       if (!n)
96         {
97           errno = EIO; /* FIXME:  We should have a proper mapping.  */
98           n = -1;
99         }
100       else
101         n = (int)nwrite;
102     }
103   return n;
104 #else /*!HAVE_W32_SYSTEM*/
105   return write (ctx->outbound.fd, buffer, size);
106 #endif /*!HAVE_W32_SYSTEM*/
107 }
108
109
110 #ifdef HAVE_W32_SYSTEM
111 int
112 _assuan_simple_sendmsg (assuan_context_t ctx, void *msg)
113 #else
114 ssize_t
115 _assuan_simple_sendmsg (assuan_context_t ctx, struct msghdr *msg)
116 #endif
117 {
118 #ifdef HAVE_W32_SYSTEM
119   return _assuan_error (ASSUAN_Not_Implemented);
120 #else
121   int ret;
122   while ( (ret = sendmsg (ctx->outbound.fd, msg, 0)) == -1 && errno == EINTR)
123     ;
124   return ret;
125 #endif
126 }
127
128
129 #ifdef HAVE_W32_SYSTEM
130 int
131 _assuan_simple_recvmsg (assuan_context_t ctx, void *msg)
132 #else
133 ssize_t
134 _assuan_simple_recvmsg (assuan_context_t ctx, struct msghdr *msg)
135 #endif
136 {
137 #ifdef HAVE_W32_SYSTEM
138   return _assuan_error (ASSUAN_Not_Implemented);
139 #else
140   int ret;
141   while ( (ret = recvmsg (ctx->inbound.fd, msg, 0)) == -1 && errno == EINTR)
142     ;
143   return ret;
144 #endif
145 }