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 <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 const gchar *
  43 g_getenv(const gchar *variable)
  44 {
  45         gunichar2 *var, *buffer;
  46         gchar* val = NULL;
  47         gint32 buffer_size = 1024;
  48         gint32 retval;
  49         var = u8to16(variable);
  50         buffer = g_malloc(buffer_size*sizeof(gunichar2));
  51         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
  52         if (retval != 0) {
  53                 if (retval > buffer_size) {
  54                         g_free (buffer);
  55                         buffer_size = retval;
  56                         buffer = g_malloc(buffer_size*sizeof(gunichar2));
  57                         retval = GetEnvironmentVariableW (var, buffer, buffer_size);
  58                 }
  59                 val = u16to8 (buffer);
  60         } else {
  61                 if (GetLastError () != ERROR_ENVVAR_NOT_FOUND){
  62                         val = g_malloc (1);
  63                         *val = 0;
  64                 }
  65         }
  66         g_free(var);
  67         g_free(buffer);
  68         return val;
  69 }
  70
  71 gboolean
  72 g_setenv(const gchar *variable, const gchar *value, gboolean overwrite)
  73 {
  74         gunichar2 *var, *val;
  75         gboolean result;
  76         var = u8to16(variable);
  77         val = u8to16(value);
  78         result = (SetEnvironmentVariableW(var, val) != 0) ? TRUE : FALSE;
  79         g_free(var);
  80         g_free(val);
  81         return result;
  82 }
  83
  84 void
  85 g_unsetenv(const gchar *variable)
  86 {
  87         gunichar2 *var;
  88         var = u8to16(variable);
  89         SetEnvironmentVariableW(var, L"");
  90         g_free(var);
  91 }
  92
  93 #if G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
  94 gchar*
  95 g_win32_getlocale(void)
  96 {
  97         LCID lcid = GetThreadLocale();
  98         gchar buf[19];
  99         gint ccBuf = GetLocaleInfoA(lcid, LOCALE_SISO639LANGNAME, buf, 9);
 100         buf[ccBuf - 1] = '-';
 101         ccBuf += GetLocaleInfoA(lcid, LOCALE_SISO3166CTRYNAME, buf + ccBuf, 9);
 102         return g_strdup (buf);
 103 }
 104
 105 #else /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) */
 106
 107 gchar*
 108 g_win32_getlocale(void)
 109 {
 110         gunichar2 buf[19];
 111         gint ccBuf = GetLocaleInfoEx (LOCALE_NAME_USER_DEFAULT, LOCALE_SISO639LANGNAME, buf, 9);
 112         assert (ccBuf <= 9);
 113         if (ccBuf != 0) {
 114                 buf[ccBuf - 1] = L'-';
 115                 ccBuf = GetLocaleInfoEx (LOCALE_NAME_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, buf + ccBuf, 9);
 116                 assert (ccBuf <= 9);
 117         }
 118
 119         // Check for GetLocaleInfoEx failure.
 120         if (ccBuf == 0)
 121                 buf[0] = L'\0';
 122
 123         return u16to8 (buf);
 124 }
 125 #endif /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) */
 126
 127 gboolean
 128 g_path_is_absolute (const char *filename)
 129 {
 130         g_return_val_if_fail (filename != NULL, FALSE);
 131
 132         if (filename[0] != '\0' && filename[1] != '\0') {
 133                 if (filename[1] == ':' && filename[2] != '\0' &&
 134                         (filename[2] == '\\' || filename[2] == '/'))
 135                         return TRUE;
 136                 /* UNC paths */
 137                 else if (filename[0] == '\\' && filename[1] == '\\' &&
 138                         filename[2] != '\0')
 139                         return TRUE;
 140         }
 141
 142         return FALSE;
 143 }
 144
 145 const gchar *
 146 g_get_home_dir (void)
 147 {
 148         gchar *home_dir = NULL;
 149
 150 #if _MSC_VER && G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
 151         PWSTR profile_path = NULL;
 152         HRESULT hr = SHGetKnownFolderPath (&FOLDERID_Profile, KF_FLAG_DEFAULT, NULL, &profile_path);
 153         if (SUCCEEDED(hr)) {
 154                 home_dir = u16to8 (profile_path);
 155                 CoTaskMemFree (profile_path);
 156         }
 157 #endif
 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 }