mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Rely on Gnulib for 'select', 'lstat', and 'mkstemp'.

Browse source 
* 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'.
This commit is contained in:
Mark H Weaver 2014-02-12 17:47:13 -05:00
parent f9d4a040b4
commit e1d7a93bb2
4 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/deprecated.h
View 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 int scm_thread_sleep (unsigned int);
SCM_DEPRECATED unsigned long scm_thread_usleep (unsigned long); SCM_DEPRECATED unsigned long scm_thread_usleep (unsigned long);
#if SCM_HAVE_SYS_SELECT_H
SCM_DEPRECATED int scm_internal_select (int fds, SCM_DEPRECATED int scm_internal_select (int fds,
fd_set *rfds, fd_set *rfds,
fd_set *wfds, fd_set *wfds,
fd_set *efds, fd_set *efds,
struct timeval *timeout); struct timeval *timeout);
#endif
/* Deprecated because the cuserid call is deprecated. /* Deprecated because the cuserid call is deprecated.
*/ */

6
libguile/filesys.c
View file

@ -561,7 +561,6 @@ SCM_DEFINE (scm_stat, "stat", 1, 1, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
#ifdef HAVE_LSTAT
SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0, SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0,
(SCM str), (SCM str),
"Similar to @code{stat}, but does not follow symbolic links, i.e.,\n" "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); return scm_stat2scm (&stat_temp);
} }
#undef FUNC_NAME #undef FUNC_NAME
#endif /* HAVE_LSTAT */
#ifdef HAVE_POSIX #ifdef HAVE_POSIX
@ -1467,10 +1465,6 @@ SCM_DEFINE (scm_umask, "umask", 0, 1, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
#ifndef HAVE_MKSTEMP
extern int mkstemp (char *);
#endif
SCM_DEFINE (scm_mkstemp, "mkstemp!", 1, 0, 0, SCM_DEFINE (scm_mkstemp, "mkstemp!", 1, 0, 0,
(SCM tmpl), (SCM tmpl),
"Create a new unique file in the file system and return a new\n" "Create a new unique file in the file system and return a new\n"

4
libguile/iselect.h
View file

@ -28,8 +28,6 @@
/* Needed for FD_SET on some systems. */ /* Needed for FD_SET on some systems. */
#include <sys/types.h> #include <sys/types.h>
#if SCM_HAVE_SYS_SELECT_H
#include <sys/select.h> #include <sys/select.h>
SCM_API int scm_std_select (int fds, 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 #define SELECT_TYPE fd_set
#endif /* SCM_HAVE_SYS_SELECT_H */
#endif /* SCM_ISELECT_H */ #endif /* SCM_ISELECT_H */
/* /*

8
libguile/threads.c
View file

@ -1884,14 +1884,6 @@ do_std_select (void *args)
return NULL; 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 int
scm_std_select (int nfds, scm_std_select (int nfds,
fd_set *readfds, fd_set *readfds,