1 /* GLIB - Library of useful routines for C programming
2 * Copyright (C) 1995-1998 Peter Mattis, Spencer Kimball and Josh MacDonald
3 * Copyright (C) 1998-1999 Tor Lillqvist
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the
17 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 * Boston, MA 02111-1307, USA.
22 * Modified by the GLib Team and others 1997-2000. See the AUTHORS
23 * file for a list of people on the GLib Team. See the ChangeLog
24 * files for a list of changes. These files are distributed with
25 * GLib at ftp://ftp.gtk.org/pub/gtk/.
29 * MT safe for the unix part, FIXME: make the win32 part MT safe as well.
34 #include "glibconfig.h"
42 #define STRICT /* Strict typing, please */
50 #if defined(_MSC_VER) || defined(__DMC__)
52 #endif /* _MSC_VER || __DMC__ */
58 #include <sys/cygwin.h>
64 g_win32_ftruncate (gint fd,
67 return _chsize (fd, size);
75 * The setlocale() function in the Microsoft C library uses locale
76 * names of the form "English_United States.1252" etc. We want the
77 * UNIXish standard form "en_US", "zh_TW" etc. This function gets the
78 * current thread locale from Windows - without any encoding info -
79 * and returns it as a string of the above form for use in forming
80 * file names etc. The returned string should be deallocated with
83 * Returns: newly-allocated locale name.
86 #ifndef SUBLANG_SERBIAN_LATIN_BA
87 #define SUBLANG_SERBIAN_LATIN_BA 0x06
91 g_win32_getlocale (void)
99 const gchar *script = NULL;
101 /* Let the user override the system settings through environment
102 * variables, as on POSIX systems. Note that in GTK+ applications
103 * since GTK+ 2.10.7 setting either LC_ALL or LANG also sets the
104 * Win32 locale and C library locale through code in gtkmain.c.
106 if (((ev = getenv ("LC_ALL")) != NULL && ev[0] != '\0')
107 || ((ev = getenv ("LC_MESSAGES")) != NULL && ev[0] != '\0')
108 || ((ev = getenv ("LANG")) != NULL && ev[0] != '\0'))
109 return g_strdup (ev);
111 lcid = GetThreadLocale ();
113 if (!GetLocaleInfo (lcid, LOCALE_SISO639LANGNAME, iso639, sizeof (iso639)) ||
114 !GetLocaleInfo (lcid, LOCALE_SISO3166CTRYNAME, iso3166, sizeof (iso3166)))
115 return g_strdup ("C");
117 /* Strip off the sorting rules, keep only the language part. */
118 langid = LANGIDFROMLCID (lcid);
120 /* Split into language and territory part. */
121 primary = PRIMARYLANGID (langid);
122 sub = SUBLANGID (langid);
124 /* Handle special cases */
130 case SUBLANG_AZERI_LATIN:
133 case SUBLANG_AZERI_CYRILLIC:
138 case LANG_SERBIAN: /* LANG_CROATIAN == LANG_SERBIAN */
141 case SUBLANG_SERBIAN_LATIN:
142 case 0x06: /* Serbian (Latin) - Bosnia and Herzegovina */
150 case SUBLANG_UZBEK_LATIN:
153 case SUBLANG_UZBEK_CYRILLIC:
159 return g_strconcat (iso639, "_", iso3166, script, NULL);
163 * g_win32_error_message:
164 * @error: error code.
166 * Translate a Win32 error code (as returned by GetLastError()) into
167 * the corresponding message. The message is either language neutral,
168 * or in the thread's language, or the user's language, the system's
169 * language, or US English (see docs for FormatMessage()). The
170 * returned string is in UTF-8. It should be deallocated with
173 * Returns: newly-allocated error message
176 g_win32_error_message (gint error)
182 FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER
183 |FORMAT_MESSAGE_IGNORE_INSERTS
184 |FORMAT_MESSAGE_FROM_SYSTEM,
186 (LPWSTR) &msg, 0, NULL);
189 nchars = wcslen (msg);
191 if (nchars > 2 && msg[nchars-1] == '\n' && msg[nchars-2] == '\r')
192 msg[nchars-2] = '\0';
194 retval = g_utf16_to_utf8 (msg, -1, NULL, NULL, NULL);
199 retval = g_strdup ("");
205 get_package_directory_from_module (const gchar *module_name)
207 static GHashTable *module_dirs = NULL;
208 G_LOCK_DEFINE_STATIC (module_dirs);
209 HMODULE hmodule = NULL;
213 wchar_t wc_fn[MAX_PATH];
215 G_LOCK (module_dirs);
217 if (module_dirs == NULL)
218 module_dirs = g_hash_table_new (g_str_hash, g_str_equal);
220 result = g_hash_table_lookup (module_dirs, module_name ? module_name : "");
224 G_UNLOCK (module_dirs);
225 return g_strdup (result);
230 wchar_t *wc_module_name = g_utf8_to_utf16 (module_name, -1, NULL, NULL, NULL);
231 hmodule = GetModuleHandleW (wc_module_name);
232 g_free (wc_module_name);
238 if (!GetModuleFileNameW (hmodule, wc_fn, MAX_PATH))
240 G_UNLOCK (module_dirs);
243 fn = g_utf16_to_utf8 (wc_fn, -1, NULL, NULL, NULL);
245 if ((p = strrchr (fn, G_DIR_SEPARATOR)) != NULL)
248 p = strrchr (fn, G_DIR_SEPARATOR);
249 if (p && (g_ascii_strcasecmp (p + 1, "bin") == 0 ||
250 g_ascii_strcasecmp (p + 1, "lib") == 0))
254 /* In Cygwin we need to have POSIX paths */
258 cygwin_conv_to_posix_path(fn, tmp);
264 g_hash_table_insert (module_dirs, module_name ? g_strdup (module_name) : "", fn);
266 G_UNLOCK (module_dirs);
268 return g_strdup (fn);
272 * g_win32_get_package_installation_directory:
273 * @package: An identifier for a software package, or %NULL, in UTF-8
274 * @dll_name: The name of a DLL that a package provides, or %NULL, in UTF-8
276 * Try to determine the installation directory for a software package.
277 * Typically used by GNU software packages.
279 * @package should be a short identifier for the package. Typically it
280 * is the same identifier as used for
281 * <literal>GETTEXT_PACKAGE</literal> in software configured according
282 * to GNU standards. The function first looks in the Windows Registry
283 * for the value <literal>#InstallationDirectory</literal> in the key
284 * <literal>#HKLM\Software\@package</literal>, and if that value
285 * exists and is a string, returns that.
287 * If @package is %NULL, or the above value isn't found in the
288 * Registry, but @dll_name is non-%NULL, it should name a DLL loaded
289 * into the current process. Typically that would be the name of the
290 * DLL calling this function, looking for its installation
291 * directory. The function then asks Windows what directory that DLL
292 * was loaded from. If that directory's last component is "bin" or
293 * "lib", the parent directory is returned, otherwise the directory
294 * itself. If that DLL isn't loaded, the function proceeds as if
295 * @dll_name was %NULL.
297 * If both @package and @dll_name are %NULL, the directory from where
298 * the main executable of the process was loaded is used instead in
299 * the same way as above.
301 * Returns: a string containing the installation directory for
302 * @package. The string is in the GLib file name encoding, i.e. UTF-8
303 * on Windows. The return value should be freed with g_free() when not
308 g_win32_get_package_installation_directory (const gchar *package,
309 const gchar *dll_name)
311 static GHashTable *package_dirs = NULL;
312 G_LOCK_DEFINE_STATIC (package_dirs);
313 gchar *result = NULL;
322 G_LOCK (package_dirs);
324 if (package_dirs == NULL)
325 package_dirs = g_hash_table_new (g_str_hash, g_str_equal);
327 result = g_hash_table_lookup (package_dirs, package);
329 if (result && result[0])
331 G_UNLOCK (package_dirs);
332 return g_strdup (result);
335 key = g_strconcat ("Software\\", package, NULL);
339 wc_key = g_utf8_to_utf16 (key, -1, NULL, NULL, NULL);
340 if (((RegOpenKeyExW (HKEY_CURRENT_USER, wc_key, 0,
341 KEY_QUERY_VALUE, ®_key) == ERROR_SUCCESS
342 && RegQueryValueExW (reg_key, L"InstallationDirectory", 0,
343 &type, NULL, &nbytes) == ERROR_SUCCESS)
345 (RegOpenKeyExW (HKEY_LOCAL_MACHINE, wc_key, 0,
346 KEY_QUERY_VALUE, ®_key) == ERROR_SUCCESS
347 && RegQueryValueExW (reg_key, L"InstallationDirectory", 0,
348 &type, NULL, &nbytes) == ERROR_SUCCESS))
351 wchar_t *wc_temp = g_new (wchar_t, (nbytes+1)/2 + 1);
352 RegQueryValueExW (reg_key, L"InstallationDirectory", 0,
353 &type, (LPBYTE) wc_temp, &nbytes);
354 wc_temp[nbytes/2] = '\0';
355 result = g_utf16_to_utf8 (wc_temp, -1, NULL, NULL, NULL);
361 RegCloseKey (reg_key);
367 g_hash_table_insert (package_dirs, g_strdup (package), result);
368 G_UNLOCK (package_dirs);
369 return g_strdup (result);
371 G_UNLOCK (package_dirs);
374 if (dll_name != NULL)
375 result = get_package_directory_from_module (dll_name);
378 result = get_package_directory_from_module (NULL);
383 #undef g_win32_get_package_installation_directory
385 /* DLL ABI binary compatibility version that uses system codepage file names */
388 g_win32_get_package_installation_directory (const gchar *package,
389 const gchar *dll_name)
391 gchar *utf8_package = NULL, *utf8_dll_name = NULL;
392 gchar *utf8_retval, *retval;
395 utf8_package = g_locale_to_utf8 (package, -1, NULL, NULL, NULL);
397 if (dll_name != NULL)
398 utf8_dll_name = g_locale_to_utf8 (dll_name, -1, NULL, NULL, NULL);
401 g_win32_get_package_installation_directory_utf8 (utf8_package,
404 retval = g_locale_from_utf8 (utf8_retval, -1, NULL, NULL, NULL);
406 g_free (utf8_package);
407 g_free (utf8_dll_name);
408 g_free (utf8_retval);
414 * g_win32_get_package_installation_subdirectory:
415 * @package: An identifier for a software package, in UTF-8, or %NULL
416 * @dll_name: The name of a DLL that a package provides, in UTF-8, or %NULL
417 * @subdir: A subdirectory of the package installation directory, also in UTF-8
419 * Returns a newly-allocated string containing the path of the
420 * subdirectory @subdir in the return value from calling
421 * g_win32_get_package_installation_directory() with the @package and
422 * @dll_name parameters.
424 * Returns: a string containing the complete path to @subdir inside
425 * the installation directory of @package. The returned string is in
426 * the GLib file name encoding, i.e. UTF-8 on Windows. The return
427 * value should be freed with g_free() when no longer needed.
431 g_win32_get_package_installation_subdirectory (const gchar *package,
432 const gchar *dll_name,
438 prefix = g_win32_get_package_installation_directory_utf8 (package, dll_name);
440 dirname = g_build_filename (prefix, subdir, NULL);
446 #undef g_win32_get_package_installation_subdirectory
448 /* DLL ABI binary compatibility version that uses system codepage file names */
451 g_win32_get_package_installation_subdirectory (const gchar *package,
452 const gchar *dll_name,
458 prefix = g_win32_get_package_installation_directory (package, dll_name);
460 dirname = g_build_filename (prefix, subdir, NULL);
466 static guint windows_version;
469 g_win32_windows_version_init (void)
471 static gboolean beenhere = FALSE;
476 windows_version = GetVersion ();
478 if (windows_version & 0x80000000)
479 g_error ("This version of GLib requires NT-based Windows.");
484 _g_win32_thread_init (void)
486 g_win32_windows_version_init ();
490 * g_win32_get_windows_version:
492 * Returns version information for the Windows operating system the
493 * code is running on. See MSDN documentation for the GetVersion()
494 * function. To summarize, the most significant bit is one on Win9x,
495 * and zero on NT-based systems. Since version 2.14, GLib works only
496 * on NT-based systems, so checking whether your are running on Win9x
497 * in your own software is moot. The least significant byte is 4 on
498 * Windows NT 4, and 5 on Windows XP. Software that needs really
499 * detailled version and feature information should use Win32 API like
500 * GetVersionEx() and VerifyVersionInfo().
502 * Returns: The version information.
507 g_win32_get_windows_version (void)
509 g_win32_windows_version_init ();
511 return windows_version;
515 * g_win32_locale_filename_from_utf8:
516 * @utf8filename: a UTF-8 encoded filename.
518 * Converts a filename from UTF-8 to the system codepage.
520 * On NT-based Windows, on NTFS file systems, file names are in
521 * Unicode. It is quite possible that Unicode file names contain
522 * characters not representable in the system codepage. (For instance,
523 * Greek or Cyrillic characters on Western European or US Windows
524 * installations, or various less common CJK characters on CJK Windows
527 * In such a case, and if the filename refers to an existing file, and
528 * the file system stores alternate short (8.3) names for directory
529 * entries, the short form of the filename is returned. Note that the
530 * "short" name might in fact be longer than the Unicode name if the
531 * Unicode name has very short pathname components containing
532 * non-ASCII characters. If no system codepage name for the file is
533 * possible, %NULL is returned.
535 * The return value is dynamically allocated and should be freed with
536 * g_free() when no longer needed.
538 * Return value: The converted filename, or %NULL on conversion
539 * failure and lack of short names.
544 g_win32_locale_filename_from_utf8 (const gchar *utf8filename)
546 gchar *retval = g_locale_from_utf8 (utf8filename, -1, NULL, NULL, NULL);
550 /* Conversion failed, so convert to wide chars, check if there
551 * is a 8.3 version, and use that.
553 wchar_t *wname = g_utf8_to_utf16 (utf8filename, -1, NULL, NULL, NULL);
556 wchar_t wshortname[MAX_PATH + 1];
557 if (GetShortPathNameW (wname, wshortname, G_N_ELEMENTS (wshortname)))
559 gchar *tem = g_utf16_to_utf8 (wshortname, -1, NULL, NULL, NULL);
560 retval = g_locale_from_utf8 (tem, -1, NULL, NULL, NULL);
569 #define __G_WIN32_C__
570 #include "galiasdef.c"