summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-18 11:15:16 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-18 11:15:16 +0100
commitcd28785f799d76fc242224b032b67a31346cf539 (patch)
tree283475743fcbd5c3534b52adcfc541e0d9f9dd1f /libguile/posix.c
parente75184d5d2cddfc6feea40989e23c609b17a6053 (diff)
downloadguile-cd28785f799d76fc242224b032b67a31346cf539.tar.gz
deprecate cuserid
* libguile/posix.c: * libguile/posix.h: * libguile/deprecated.h: * libguile/deprecated.c (scm_cuserid): Deprecate cuserid, as it only returns 8 bytes of a user's login. * doc/ref/posix.texi: Remove cuserid from docs.
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c24
1 files changed, 0 insertions, 24 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index f371cb23e..8301a7e94 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1841,30 +1841,6 @@ SCM_DEFINE (scm_getlogin, "getlogin", 0, 0, 0,
#undef FUNC_NAME
#endif /* HAVE_GETLOGIN */
-#ifdef 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"
- "effective user id of the process. Return @code{#f} if this\n"
- "information cannot be obtained.")
-#define FUNC_NAME s_scm_cuserid
-{
- char buf[L_cuserid];
- char * p;
-
- p = cuserid (buf);
- if (!p || !*p)
- return SCM_BOOL_F;
- return scm_from_locale_string (p);
-}
-#undef FUNC_NAME
-#endif /* HAVE_CUSERID */
-
#if HAVE_GETPRIORITY
SCM_DEFINE (scm_getpriority, "getpriority", 2, 0, 0,
(SCM which, SCM who),