diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-18 11:15:16 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-18 11:15:16 +0100 |
commit | cd28785f799d76fc242224b032b67a31346cf539 (patch) | |
tree | 283475743fcbd5c3534b52adcfc541e0d9f9dd1f /libguile/posix.c | |
parent | e75184d5d2cddfc6feea40989e23c609b17a6053 (diff) | |
download | guile-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.c | 24 |
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), |