mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 13:00:26 +02:00
Work around lack of cuserid(3) declaration on Tru64 5.1b.
* configure.in: Check for a cuserid(3) declaration. * libguile/posix.c [HAVE_CUSERID][!HAVE_DECL_CUSERID]: Provide a declaration.
This commit is contained in:
parent
d2469ca702
commit
fbcc27cfef
2 changed files with 8 additions and 1 deletions
|
@ -736,10 +736,12 @@ AC_CHECK_FUNCS([DINFINITY DQNAN cexp chsize clog clog10 ctermid fesetround ftime
|
|||
# anyway.
|
||||
# hstrerror - on Tru64 5.1b the symbol is available in libc but the
|
||||
# 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_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
|
||||
# are restrictions on cryptography.
|
||||
|
|
|
@ -1675,6 +1675,11 @@ SCM_DEFINE (scm_getlogin, "getlogin", 0, 0, 0,
|
|||
#endif /* HAVE_GETLOGIN */
|
||||
|
||||
#if HAVE_CUSERID
|
||||
|
||||
# if !HAVE_DECL_CUSERID
|
||||
extern char *cuserid (char *);
|
||||
# endif
|
||||
|
||||
SCM_DEFINE (scm_cuserid, "cuserid", 0, 0, 0,
|
||||
(void),
|
||||
"Return a string containing a user name associated with the\n"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue