mono/eglib/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 <config.h>
  30
  31 #include <stdlib.h>
  32 #include <glib.h>
  33
  34 #include <windows.h>
  35 #if _MSC_VER && G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
  36 #include <shlobj.h>
  37 #endif
  38 #include <direct.h>
  39 #include <io.h>
  40 #include <assert.h>
  41
  42 gboolean
  43 g_hasenv (const gchar *variable)
  44 {
  45         return g_getenv (variable) != NULL;
  46 }
  47
  48 gchar *
  49 g_getenv(const gchar *variable)
  50 {
  51         gunichar2 *var, *buffer;
  52         gchar* val = NULL;
  53         gint32 buffer_size = 1024;
  54         gint32 retval;
  55         var = u8to16(variable);
  56         buffer = g_malloc(buffer_size*sizeof(gunichar2));
  57         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
  58         if (retval != 0) {
  59                 if (retval > buffer_size) {
  60                         g_free (buffer);
  61                         buffer_size = retval;
  62                         buffer = g_malloc(buffer_size*sizeof(gunichar2));
  63                         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
  64                 }
  65                 val = u16to8 (buffer);
  66         } else {
  67                 if (GetLastError () != ERROR_ENVVAR_NOT_FOUND){
  68                         val = g_malloc (1);
  69                         *val = 0;
  70                 }
  71         }
  72         g_free(var);
  73         g_free(buffer);
  74         return val;
  75 }
  76
  77 gboolean
  78 g_setenv(const gchar *variable, const gchar *value, gboolean overwrite)
  79 {
  80         gunichar2 *var, *val;
  81         gboolean result;
  82         var = u8to16(variable);
  83         val = u8to16(value);
  84         result = (SetEnvironmentVariableW(var, val) != 0) ? TRUE : FALSE;
  85         g_free(var);
  86         g_free(val);
  87         return result;
  88 }
  89
  90 void
  91 g_unsetenv(const gchar *variable)
  92 {
  93         gunichar2 *var;
  94         var = u8to16(variable);
  95         SetEnvironmentVariableW(var, L"");
  96         g_free(var);
  97 }
  98
  99 #if G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
 100 gchar*
 101 g_win32_getlocale(void)
 102 {
 103         LCID lcid = GetThreadLocale();
 104         gchar buf[19];
 105         gint ccBuf = GetLocaleInfoA(lcid, LOCALE_SISO639LANGNAME, buf, 9);
 106         buf[ccBuf - 1] = '-';
 107         ccBuf += GetLocaleInfoA(lcid, LOCALE_SISO3166CTRYNAME, buf + ccBuf, 9);
 108         return g_strdup (buf);
 109 }
 110 #endif /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) */
 111
 112 gboolean
 113 g_path_is_absolute (const char *filename)
 114 {
 115         g_return_val_if_fail (filename != NULL, FALSE);
 116
 117         if (filename[0] != '\0' && filename[1] != '\0') {
 118                 if (filename[1] == ':' && filename[2] != '\0' &&
 119                         (filename[2] == '\\' || filename[2] == '/'))
 120                         return TRUE;
 121                 /* UNC paths */
 122                 else if (filename[0] == '\\' && filename[1] == '\\' &&
 123                         filename[2] != '\0')
 124                         return TRUE;
 125         }
 126
 127         return FALSE;
 128 }
 129
 130 #if _MSC_VER && G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
 131 static gchar*
 132 g_get_known_folder_path (void)
 133 {
 134         gchar *folder_path = NULL;
 135         PWSTR profile_path = NULL;
 136         HRESULT hr = SHGetKnownFolderPath (&FOLDERID_Profile, KF_FLAG_DEFAULT, NULL, &profile_path);
 137         if (SUCCEEDED(hr)) {
 138                 folder_path = u16to8 (profile_path);
 139                 CoTaskMemFree (profile_path);
 140         }
 141
 142         return folder_path;
 143 }
 144
 145 #else
 146
 147 static inline gchar *
 148 g_get_known_folder_path (void)
 149 {
 150         return NULL;
 151 }
 152 #endif
 153
 154 const gchar *
 155 g_get_home_dir (void)
 156 {
 157         gchar *home_dir = g_get_known_folder_path ();
 158
 159         if (!home_dir) {
 160                 home_dir = (gchar *) g_getenv ("USERPROFILE");
 161         }
 162
 163         if (!home_dir) {
 164                 const gchar *drive = g_getenv ("HOMEDRIVE");
 165                 const gchar *path = g_getenv ("HOMEPATH");
 166
 167                 if (drive && path) {
 168                         home_dir = g_malloc (strlen (drive) + strlen (path) + 1);
 169                         if (home_dir) {
 170                                 sprintf (home_dir, "%s%s", drive, path);
 171                         }
 172                 }
 173                 g_free (drive);
 174                 g_free (path);
 175         }
 176
 177         return home_dir;
 178 }
 179
 180 const char *
 181 g_get_user_name (void)
 182 {
 183         const char * retName = g_getenv ("USER");
 184         if (!retName)
 185                 retName = g_getenv ("USERNAME");
 186         return retName;
 187 }
 188
 189 static const char *tmp_dir;
 190
 191 const gchar *
 192 g_get_tmp_dir (void)
 193 {
 194         if (tmp_dir == NULL){
 195                 if (tmp_dir == NULL){
 196                         tmp_dir = g_getenv ("TMPDIR");
 197                         if (tmp_dir == NULL){
 198                                 tmp_dir = g_getenv ("TMP");
 199                                 if (tmp_dir == NULL){
 200                                         tmp_dir = g_getenv ("TEMP");
 201                                         if (tmp_dir == NULL)
 202                                                 tmp_dir = "C:\\temp";
 203                                 }
 204                         }
 205                 }
 206         }
 207         return tmp_dir;
 208 }