summaryrefslogtreecommitdiff
path: root/lib/write.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-11-30 17:48:06 +0100
committerLudovic Courtès <ludo@gnu.org>2008-11-30 18:11:47 +0100
commit9b36a80c79c6c26e8e3016eb5d88ea86f66de368 (patch)
treeda03e867d45c2fe705f6fbcb7e727be1a93e5fd4 /lib/write.c
parentaa7a939cbfffcb9afefee45ec51834971e4e9787 (diff)
downloadguile-9b36a80c79c6c26e8e3016eb5d88ea86f66de368.tar.gz
Use Gnulib's `full-write' and `full-read' modules.
Diffstat (limited to 'lib/write.c')
-rw-r--r--lib/write.c62
1 files changed, 62 insertions, 0 deletions
diff --git a/lib/write.c b/lib/write.c
new file mode 100644
index 000000000..8476a4458
--- /dev/null
+++ b/lib/write.c
@@ -0,0 +1,62 @@
+/* POSIX compatible write() function.
+ Copyright (C) 2008 Free Software Foundation, Inc.
+ Written by Bruno Haible <bruno@clisp.org>, 2008.
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU Lesser General Public License as published by
+ the Free Software Foundation; either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include <config.h>
+
+/* Specification. */
+#include <unistd.h>
+
+/* Replace this function only if module 'sigpipe' is requested. */
+#if GNULIB_SIGPIPE
+
+/* On native Windows platforms, SIGPIPE does not exist. When write() is
+ called on a pipe with no readers, WriteFile() fails with error
+ GetLastError() = ERROR_NO_DATA, and write() in consequence fails with
+ error EINVAL. */
+
+# if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
+
+# include <errno.h>
+# include <signal.h>
+# include <io.h>
+
+# define WIN32_LEAN_AND_MEAN /* avoid including junk */
+# include <windows.h>
+
+ssize_t
+rpl_write (int fd, const void *buf, size_t count)
+#undef write
+{
+ ssize_t ret = write (fd, buf, count);
+
+ if (ret < 0)
+ {
+ if (GetLastError () == ERROR_NO_DATA
+ && GetFileType (_get_osfhandle (fd)) == FILE_TYPE_PIPE)
+ {
+ /* Try to raise signal SIGPIPE. */
+ raise (SIGPIPE);
+ /* If it is currently blocked or ignored, change errno from EINVAL
+ to EPIPE. */
+ errno = EPIPE;
+ }
+ }
+ return ret;
+}
+
+# endif
+#endif