Add unit test for AggregateException.GetBaseException that works on .net but is broke...
[mono.git] / eglib / src / gmisc-win32.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 <stdlib.h>
30 #include <glib.h>
31
32 #include <windows.h>
33 #include <direct.h>
34 #include <io.h>
35
36 const gchar *
37 g_getenv(const gchar *variable)
38 {
39         gunichar2 *var, *buffer;
40         gchar* val = NULL;
41         gint32 buffer_size = 1024;
42         gint32 retval;
43         var = u8to16(variable); 
44         buffer = g_malloc(buffer_size*sizeof(gunichar2));
45         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
46         if (retval != 0) {
47                 if (retval > buffer_size) {
48                         g_free (buffer);
49                         buffer_size = retval;
50                         buffer = g_malloc(buffer_size*sizeof(gunichar2));
51                         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
52                 }
53                 val = u16to8 (buffer);
54         } else {
55                 if (GetLastError () != ERROR_ENVVAR_NOT_FOUND){
56                         val = g_malloc (1);
57                         *val = 0;
58                 }
59         }
60         g_free(var);
61         g_free(buffer);
62         return val; 
63 }
64
65 gboolean
66 g_setenv(const gchar *variable, const gchar *value, gboolean overwrite)
67 {
68         gunichar2 *var, *val;
69         gboolean result;
70         var = u8to16(variable); 
71         val = u8to16(value);
72         result = (SetEnvironmentVariableW(var, val) != 0) ? TRUE : FALSE;
73         g_free(var);
74         g_free(val);
75         return result;
76 }
77
78 void
79 g_unsetenv(const gchar *variable)
80 {
81         gunichar2 *var;
82         var = u8to16(variable); 
83         SetEnvironmentVariableW(var, L"");
84         g_free(var);
85 }
86
87 gchar*
88 g_win32_getlocale(void)
89 {
90         /* FIXME: Use GetThreadLocale
91          * and convert LCID to standard 
92          * string form, "en_US" */
93         return strdup ("en_US");
94 }
95
96 gboolean
97 g_path_is_absolute (const char *filename)
98 {
99         g_return_val_if_fail (filename != NULL, FALSE);
100
101         if (filename[0] != '\0' && filename[1] != '\0') {
102                 if (filename[1] == ':' && filename[2] != '\0' &&
103                         (filename[2] == '\\' || filename[2] == '/'))
104                         return TRUE;
105                 /* UNC paths */
106                 else if (filename[0] == '\\' && filename[1] == '\\' && 
107                         filename[2] != '\0')
108                         return TRUE;
109         }
110
111         return FALSE;
112 }
113
114 const gchar *
115 g_get_home_dir (void)
116 {
117         /* FIXME */
118         const gchar *drive = g_getenv ("HOMEDRIVE");
119         const gchar *path = g_getenv ("HOMEPATH");
120         gchar *home_dir = NULL;
121         
122         if (drive && path) {
123                 home_dir = g_malloc(strlen(drive) + strlen(path) +1);
124                 if (home_dir) {
125                         sprintf(home_dir, "%s%s", drive, path);
126                 }
127         }
128
129         return home_dir;
130 }
131
132 const char *
133 g_get_user_name (void)
134 {
135         const char * retName = g_getenv ("USER");
136         if (!retName)
137                 retName = g_getenv ("USERNAME");
138         return retName;
139 }
140
141 static const char *tmp_dir;
142
143 const gchar *
144 g_get_tmp_dir (void)
145 {
146         if (tmp_dir == NULL){
147                 if (tmp_dir == NULL){
148                         tmp_dir = g_getenv ("TMPDIR");
149                         if (tmp_dir == NULL){
150                                 tmp_dir = g_getenv ("TMP");
151                                 if (tmp_dir == NULL){
152                                         tmp_dir = g_getenv ("TEMP");
153                                         if (tmp_dir == NULL)
154                                                 tmp_dir = "C:\\temp";
155                                 }
156                         }
157                 }
158         }
159         return tmp_dir;
160 }
161