mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

Work around lack of cuserid(3) declaration on Tru64 5.1b.

Browse source 
* configure.in: Check for a cuserid(3) declaration.

* libguile/posix.c [HAVE_CUSERID][!HAVE_DECL_CUSERID]: Provide a
  declaration.
This commit is contained in:
Ludovic Courtès 2009-04-23 22:24:32 +02:00
parent d2469ca702
commit fbcc27cfef
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
configure.in
View file

@ -736,10 +736,12 @@ AC_CHECK_FUNCS([DINFINITY DQNAN cexp chsize clog clog10 ctermid fesetround ftime
# anyway. # anyway.
# hstrerror - on Tru64 5.1b the symbol is available in libc but the # hstrerror - on Tru64 5.1b the symbol is available in libc but the
# declaration isn't anywhere. # declaration isn't anywhere.
# cuserid - on Tru64 5.1b the declaration is documented to be available
# only with `_XOPEN_SOURCE' or some such.
# #
AC_CHECK_HEADERS(crypt.h netdb.h pthread.h sys/param.h sys/resource.h sys/file.h) AC_CHECK_HEADERS(crypt.h netdb.h pthread.h sys/param.h sys/resource.h sys/file.h)
AC_CHECK_FUNCS(chroot flock getlogin cuserid getpriority setpriority getpass sethostname gethostname) AC_CHECK_FUNCS(chroot flock getlogin cuserid getpriority setpriority getpass sethostname gethostname)
AC_CHECK_DECLS([sethostname, strncasecmp, unsetenv, hstrerror]) AC_CHECK_DECLS([sethostname, strncasecmp, unsetenv, hstrerror, cuserid])
# crypt() may or may not be available, for instance in some countries there # crypt() may or may not be available, for instance in some countries there
# are restrictions on cryptography. # are restrictions on cryptography.

5
libguile/posix.c
View file

@ -1675,6 +1675,11 @@ SCM_DEFINE (scm_getlogin, "getlogin", 0, 0, 0,
#endif /* HAVE_GETLOGIN */ #endif /* HAVE_GETLOGIN */
#if HAVE_CUSERID #if HAVE_CUSERID
# if !HAVE_DECL_CUSERID
extern char *cuserid (char *);
# endif
SCM_DEFINE (scm_cuserid, "cuserid", 0, 0, 0, SCM_DEFINE (scm_cuserid, "cuserid", 0, 0, 0,
(void), (void),
"Return a string containing a user name associated with the\n" "Return a string containing a user name associated with the\n"