Rely on Gnulib for 'select', 'lstat', and 'mkstemp'.
authorMark H Weaver <mhw@netris.org>
Wed, 12 Feb 2014 22:47:13 +0000 (17:47 -0500)
committerMark H Weaver <mhw@netris.org>
Thu, 13 Feb 2014 01:53:29 +0000 (20:53 -0500)
* libguile/iselect.h:
* libguile/threads.c:
* libguile/deprecated.h: Rely on Gnulib for sys/select.h.

* libguile/filesys.c: Rely on Gnulib for 'lstat' and 'mkstemp'.

libguile/deprecated.h
libguile/filesys.c
libguile/iselect.h
libguile/threads.c

index 5f95f27..4d78197 100644 (file)
@@ -742,13 +742,11 @@ SCM_DEPRECATED SCM scm_c_make_keyword (const char *s);
 
 SCM_DEPRECATED unsigned int scm_thread_sleep (unsigned int);
 SCM_DEPRECATED unsigned long scm_thread_usleep (unsigned long);
-#if SCM_HAVE_SYS_SELECT_H
 SCM_DEPRECATED int scm_internal_select (int fds,
                                         fd_set *rfds,
                                         fd_set *wfds,
                                         fd_set *efds,
                                         struct timeval *timeout);
-#endif
 \f
 /* Deprecated because the cuserid call is deprecated.
  */
index 5f6208d..c261928 100644 (file)
@@ -561,7 +561,6 @@ SCM_DEFINE (scm_stat, "stat", 1, 1, 0,
 }
 #undef FUNC_NAME
 
-#ifdef HAVE_LSTAT
 SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0, 
             (SCM str),
            "Similar to @code{stat}, but does not follow symbolic links, i.e.,\n"
@@ -584,7 +583,6 @@ SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0,
   return scm_stat2scm (&stat_temp);
 }
 #undef FUNC_NAME
-#endif /* HAVE_LSTAT */
 
 \f
 #ifdef HAVE_POSIX
@@ -1467,10 +1465,6 @@ SCM_DEFINE (scm_umask, "umask", 0, 1, 0,
 }
 #undef FUNC_NAME
 
-#ifndef HAVE_MKSTEMP
-extern int mkstemp (char *);
-#endif
-
 SCM_DEFINE (scm_mkstemp, "mkstemp!", 1, 0, 0,
            (SCM tmpl),
            "Create a new unique file in the file system and return a new\n"
index 092fb07..1272b8d 100644 (file)
@@ -28,8 +28,6 @@
 /* Needed for FD_SET on some systems.  */
 #include <sys/types.h>
 
-#if SCM_HAVE_SYS_SELECT_H
-
 #include <sys/select.h>
 
 SCM_API int scm_std_select (int fds,
@@ -40,8 +38,6 @@ SCM_API int scm_std_select (int fds,
 
 #define SELECT_TYPE fd_set
 
-#endif /* SCM_HAVE_SYS_SELECT_H */
-
 #endif  /* SCM_ISELECT_H */
 
 /*
index b84ddbd..8fddbce 100644 (file)
@@ -1884,14 +1884,6 @@ do_std_select (void *args)
   return NULL;
 }
 
-#if !SCM_HAVE_SYS_SELECT_H
-static int scm_std_select (int nfds,
-                           fd_set *readfds,
-                           fd_set *writefds,
-                           fd_set *exceptfds,
-                           struct timeval *timeout);
-#endif
-
 int
 scm_std_select (int nfds,
                fd_set *readfds,