Initial import from FreeBSD RELENG_4:
[dragonfly.git] / lib / libcr / gen / getlogin.c
1 /*
2  * Copyright (c) 1988, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  *
33  * $FreeBSD: src/lib/libc/gen/getlogin.c,v 1.4.2.1 2001/03/05 09:06:50 obrien Exp $
34  */
35
36 #if defined(LIBC_SCCS) && !defined(lint)
37 static char sccsid[] = "@(#)getlogin.c  8.1 (Berkeley) 6/4/93";
38 #endif /* LIBC_SCCS and not lint */
39
40 #include <sys/param.h>
41 #include <errno.h>
42 #include <pwd.h>
43 #include <utmp.h>
44 #include <stdio.h>
45 #include <string.h>
46 #include <unistd.h>
47
48 #include <libc_private.h>
49
50 #ifndef _THREAD_SAFE
51 #define THREAD_LOCK()
52 #define THREAD_UNLOCK()
53 #else
54 #include <pthread.h>
55 #include "pthread_private.h"
56 static struct pthread_mutex logname_lock = PTHREAD_MUTEX_STATIC_INITIALIZER;
57 static pthread_mutex_t logname_mutex = &logname_lock;
58 #define THREAD_LOCK()   if (__isthreaded) pthread_mutex_lock(&logname_mutex)
59 #define THREAD_UNLOCK() if (__isthreaded) pthread_mutex_unlock(&logname_mutex)
60 #endif /* _THREAD_SAFE */
61
62 int             _logname_valid;         /* known to setlogin() */
63
64 static char *
65 getlogin_basic(int *status)
66 {
67         static char logname[MAXLOGNAME];
68
69         if (_logname_valid == 0) {
70 #ifdef __NETBSD_SYSCALLS
71                 if (__getlogin(logname, sizeof(logname) - 1) < 0) {
72 #else
73                 if (_getlogin(logname, sizeof(logname)) < 0) {
74 #endif
75                         *status = errno;
76                         return (NULL);
77                 }
78                 _logname_valid = 1;
79         }
80         *status = 0;
81         return (*logname ? logname : NULL);
82 }
83
84 char *
85 getlogin(void)
86 {
87         char    *result;
88         int     status;
89
90         THREAD_LOCK();
91         result = getlogin_basic(&status);
92         THREAD_UNLOCK();
93         return (result);
94 }
95
96 int
97 getlogin_r(char *logname, int namelen)
98 {
99         char    *result;
100         int     len;
101         int     status;
102         
103         THREAD_LOCK();
104         result = getlogin_basic(&status);
105         if (status == 0) {
106                 if ((len = strlen(result) + 1) > namelen)
107                         status = ERANGE;
108                 else
109                         strncpy(logname, result, len);
110         }
111         THREAD_UNLOCK();
112         return (status);
113 }