[corlib] Assume UTC if no $TZ set. Fixes #30360
[mono.git] / eglib / src / gmisc-unix.c
1 /*
2  * gmisc.c: Misc functions with no place to go (right now)
3  *
4  * Author:
5  *   Aaron Bockover (abockover@novell.com)
6  *
7  * (C) 2006 Novell, Inc.
8  *
9  * Permission is hereby granted, free of charge, to any person obtaining
10  * a copy of this software and associated documentation files (the
11  * "Software"), to deal in the Software without restriction, including
12  * without limitation the rights to use, copy, modify, merge, publish,
13  * distribute, sublicense, and/or sell copies of the Software, and to
14  * permit persons to whom the Software is furnished to do so, subject to
15  * the following conditions:
16  *
17  * The above copyright notice and this permission notice shall be
18  * included in all copies or substantial portions of the Software.
19  *
20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24  * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27  */
28
29 #include <config.h>
30 #include <stdlib.h>
31 #include <glib.h>
32 #include <pthread.h>
33
34 #ifdef HAVE_PWD_H
35 #include <pwd.h>
36 #endif
37
38 #ifdef HAVE_UNISTD_H
39 #include <unistd.h>
40 #endif
41
42
43 const gchar *
44 g_getenv(const gchar *variable)
45 {
46         return getenv(variable);
47 }
48
49 gboolean
50 g_setenv(const gchar *variable, const gchar *value, gboolean overwrite)
51 {
52         return setenv(variable, value, overwrite) == 0;
53 }
54
55 void
56 g_unsetenv(const gchar *variable)
57 {
58         unsetenv(variable);
59 }
60
61 gchar*
62 g_win32_getlocale(void)
63 {
64         return NULL;
65 }
66
67 gboolean
68 g_path_is_absolute (const char *filename)
69 {
70         g_return_val_if_fail (filename != NULL, FALSE);
71
72         return (*filename == '/');
73 }
74
75 static pthread_mutex_t pw_lock = PTHREAD_MUTEX_INITIALIZER;
76 static const gchar *home_dir;
77 static const gchar *user_name;
78
79 static void
80 get_pw_data (void)
81 {
82 #ifdef HAVE_GETPWUID_R
83         struct passwd pw;
84         struct passwd *result;
85         char buf [4096];
86 #endif
87
88         if (user_name != NULL)
89                 return;
90
91         pthread_mutex_lock (&pw_lock);
92         if (user_name != NULL) {
93                 pthread_mutex_unlock (&pw_lock);
94                 return;
95         }
96 #ifdef HAVE_GETPWUID_R
97         if (getpwuid_r (getuid (), &pw, buf, 4096, &result) == 0) {
98                 home_dir = g_strdup (pw.pw_dir);
99                 user_name = g_strdup (pw.pw_name);
100         }
101 #endif
102         if (home_dir == NULL)
103                 home_dir = g_getenv ("HOME");
104
105         if (user_name == NULL) {
106                 user_name = g_getenv ("USER");
107                 if (user_name == NULL)
108                         user_name = "somebody";
109         }
110         pthread_mutex_unlock (&pw_lock);
111 }
112
113 /* Give preference to /etc/passwd than HOME */
114 const gchar *
115 g_get_home_dir (void)
116 {
117         get_pw_data ();
118         return home_dir;
119 }
120
121 const char *
122 g_get_user_name (void)
123 {
124         get_pw_data ();
125         return user_name;
126 }
127
128 static const char *tmp_dir;
129
130 static pthread_mutex_t tmp_lock = PTHREAD_MUTEX_INITIALIZER;
131
132 const gchar *
133 g_get_tmp_dir (void)
134 {
135         if (tmp_dir == NULL){
136                 pthread_mutex_lock (&tmp_lock);
137                 if (tmp_dir == NULL){
138                         tmp_dir = g_getenv ("TMPDIR");
139                         if (tmp_dir == NULL){
140                                 tmp_dir = g_getenv ("TMP");
141                                 if (tmp_dir == NULL){
142                                         tmp_dir = g_getenv ("TEMP");
143                                         if (tmp_dir == NULL)
144                                                 tmp_dir = "/tmp";
145                                 }
146                         }
147                 }
148                 pthread_mutex_unlock (&tmp_lock);
149         }
150         return tmp_dir;
151 }
152