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 */
/*========================================================================*/
/* 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)
{
scheme_filesystem_change_evt_cancel((Scheme_Object *)fc, NULL);
}
#endif
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);
fd = 0;
#if defined(HAVE_KQUEUE_SYSCALL)
#if defined(NO_FILESYSTEM_CHANGE_EVTS)
ok = 0;
errid = -1;
#elif defined(HAVE_KQUEUE_SYSCALL)
do {
fd = open(filename, flags | MZ_BINARY, 0666);
} 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
if (!ok) {