* src/syntax.c (find_defun_start): Use syntax-ppss
[emacs.git] / lib / fsync.c
blobc25f1db65757843b61f0fed8617ed6315f023fbf
1 /* Emulate fsync on platforms that lack it, primarily Windows and
2 cross-compilers like MinGW.
4 This is derived from sqlite3 sources.
5 https://www.sqlite.org/src/finfo?name=src/os_win.c
6 https://www.sqlite.org/copyright.html
8 Written by Richard W.M. Jones <rjones.at.redhat.com>
10 Copyright (C) 2008-2017 Free Software Foundation, Inc.
12 This library is free software; you can redistribute it and/or
13 modify it under the terms of the GNU General Public
14 License as published by the Free Software Foundation; either
15 version 3 of the License, or (at your option) any later version.
17 This library is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program. If not, see <https://www.gnu.org/licenses/>. */
25 #include <config.h>
26 #include <unistd.h>
28 #if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
30 /* FlushFileBuffers */
31 # define WIN32_LEAN_AND_MEAN
32 # include <windows.h>
34 # include <errno.h>
36 /* Get _get_osfhandle. */
37 # if GNULIB_MSVC_NOTHROW
38 # include "msvc-nothrow.h"
39 # else
40 # include <io.h>
41 # endif
43 int
44 fsync (int fd)
46 HANDLE h = (HANDLE) _get_osfhandle (fd);
47 DWORD err;
49 if (h == INVALID_HANDLE_VALUE)
51 errno = EBADF;
52 return -1;
55 if (!FlushFileBuffers (h))
57 /* Translate some Windows errors into rough approximations of Unix
58 * errors. MSDN is useless as usual - in this case it doesn't
59 * document the full range of errors.
61 err = GetLastError ();
62 switch (err)
64 case ERROR_ACCESS_DENIED:
65 /* For a read-only handle, fsync should succeed, even though we have
66 no way to sync the access-time changes. */
67 return 0;
69 /* eg. Trying to fsync a tty. */
70 case ERROR_INVALID_HANDLE:
71 errno = EINVAL;
72 break;
74 default:
75 errno = EIO;
77 return -1;
80 return 0;
83 #else /* !Windows */
85 # error "This platform lacks fsync function, and Gnulib doesn't provide a replacement. This is a bug in Gnulib."
87 #endif /* !Windows */