suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

disable inotify()-based `filesystem-change-evt'

Browse Source 
... until we can track down latency problems with the use of
inotify().
This commit is contained in:
Matthew Flatt 2013-07-14 07:54:57 -06:00
parent 88c5cc7573
commit 5aab8a0137
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/src/racket/src/port.c
View File

@ -5976,10 +5976,19 @@ Scheme_Object *scheme_file_unlock(int argc, Scheme_Object **argv)
/* filesystem change events */ /* filesystem change events */
/*========================================================================*/ /*========================================================================*/
/* removed `defined(HAVE_INOTIFY_SYSCALL)' for now: */
#if defined(HAVE_KQUEUE_SYSCALL) || defined(DOS_FILE_SYSTEM)
# define HAVE_FILESYSTEM_CHANGE_EVTS
#else
# define NO_FILESYSTEM_CHANGE_EVTS
#endif
#ifndef NO_FILESYSTEM_CHANGE_EVTS
static void filesystem_change_evt_fnl(void *fc, void *data) static void filesystem_change_evt_fnl(void *fc, void *data)
{ {
scheme_filesystem_change_evt_cancel((Scheme_Object *)fc, NULL); scheme_filesystem_change_evt_cancel((Scheme_Object *)fc, NULL);
} }
#endif
Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int signal_errs) Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int signal_errs)
{ {
@ -5993,7 +6002,10 @@ Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int
SCHEME_GUARD_FILE_EXISTS); SCHEME_GUARD_FILE_EXISTS);
fd = 0; fd = 0;
#if defined(HAVE_KQUEUE_SYSCALL) #if defined(NO_FILESYSTEM_CHANGE_EVTS)
ok = 0;
errid = -1;
#elif defined(HAVE_KQUEUE_SYSCALL)
do { do {
fd = open(filename, flags | MZ_BINARY, 0666); fd = open(filename, flags | MZ_BINARY, 0666);
} while ((fd == -1) && (errno == EINTR)); } while ((fd == -1) && (errno == EINTR));
@ -6055,10 +6067,6 @@ Scheme_Object *scheme_filesystem_change_evt(Scheme_Object *path, int flags, int
} }
} }
} }
#else
# define NO_FILESYSTEM_CHANGE_EVTS
ok = 0;
errid = -1;
#endif #endif
if (!ok) { if (!ok) {