/* GLIB - Library of useful routines for C programming * Copyright (C) 1995-1998 Peter Mattis, Spencer Kimball and Josh MacDonald * Copyright (C) 1998-1999 Tor Lillqvist * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ /* * Modified by the GLib Team and others 1997-2000. See the AUTHORS * file for a list of people on the GLib Team. See the ChangeLog * files for a list of changes. These files are distributed with * GLib at ftp://ftp.gtk.org/pub/gtk/. */ /* * MT safe for the unix part, FIXME: make the win32 part MT safe as well. */ #include "config.h" #include "glibconfig.h" #include #include #include #include #include #define STRICT /* Strict typing, please */ #include #undef STRICT #ifndef G_WITH_CYGWIN #include #endif #include #include #if defined(_MSC_VER) || defined(__DMC__) # include #endif /* _MSC_VER || __DMC__ */ #include "glib.h" #include "galias.h" #ifdef G_WITH_CYGWIN #include #endif #ifndef G_WITH_CYGWIN gint g_win32_ftruncate (gint fd, guint size) { return _chsize (fd, size); } #endif /** * g_win32_getlocale: * * The setlocale() function in the Microsoft C library uses locale * names of the form "English_United States.1252" etc. We want the * UNIXish standard form "en_US", "zh_TW" etc. This function gets the * current thread locale from Windows - without any encoding info - * and returns it as a string of the above form for use in forming * file names etc. The returned string should be deallocated with * g_free(). * * Returns: newly-allocated locale name. **/ #ifndef SUBLANG_SERBIAN_LATIN_BA #define SUBLANG_SERBIAN_LATIN_BA 0x06 #endif gchar * g_win32_getlocale (void) { LCID lcid; LANGID langid; gchar *ev; gint primary, sub; char iso639[10]; char iso3166[10]; const gchar *script = NULL; /* Let the user override the system settings through environment * variables, as on POSIX systems. Note that in GTK+ applications * since GTK+ 2.10.7 setting either LC_ALL or LANG also sets the * Win32 locale and C library locale through code in gtkmain.c. */ if (((ev = getenv ("LC_ALL")) != NULL && ev[0] != '\0') || ((ev = getenv ("LC_MESSAGES")) != NULL && ev[0] != '\0') || ((ev = getenv ("LANG")) != NULL && ev[0] != '\0')) return g_strdup (ev); lcid = GetThreadLocale (); if (!GetLocaleInfo (lcid, LOCALE_SISO639LANGNAME, iso639, sizeof (iso639)) || !GetLocaleInfo (lcid, LOCALE_SISO3166CTRYNAME, iso3166, sizeof (iso3166))) return g_strdup ("C"); /* Strip off the sorting rules, keep only the language part. */ langid = LANGIDFROMLCID (lcid); /* Split into language and territory part. */ primary = PRIMARYLANGID (langid); sub = SUBLANGID (langid); /* Handle special cases */ switch (primary) { case LANG_AZERI: switch (sub) { case SUBLANG_AZERI_LATIN: script = "@Latn"; break; case SUBLANG_AZERI_CYRILLIC: script = "@Cyrl"; break; } break; case LANG_SERBIAN: /* LANG_CROATIAN == LANG_SERBIAN */ switch (sub) { case SUBLANG_SERBIAN_LATIN: case 0x06: /* Serbian (Latin) - Bosnia and Herzegovina */ script = "@Latn"; break; } break; case LANG_UZBEK: switch (sub) { case SUBLANG_UZBEK_LATIN: script = "@Latn"; break; case SUBLANG_UZBEK_CYRILLIC: script = "@Cyrl"; break; } break; } return g_strconcat (iso639, "_", iso3166, script, NULL); } /** * g_win32_error_message: * @error: error code. * * Translate a Win32 error code (as returned by GetLastError()) into * the corresponding message. The message is either language neutral, * or in the thread's language, or the user's language, the system's * language, or US English (see docs for FormatMessage()). The * returned string is in UTF-8. It should be deallocated with * g_free(). * * Returns: newly-allocated error message **/ gchar * g_win32_error_message (gint error) { gchar *retval; wchar_t *msg = NULL; int nchars; FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER |FORMAT_MESSAGE_IGNORE_INSERTS |FORMAT_MESSAGE_FROM_SYSTEM, NULL, error, 0, (LPWSTR) &msg, 0, NULL); if (msg != NULL) { nchars = wcslen (msg); if (nchars > 2 && msg[nchars-1] == '\n' && msg[nchars-2] == '\r') msg[nchars-2] = '\0'; retval = g_utf16_to_utf8 (msg, -1, NULL, NULL, NULL); LocalFree (msg); } else retval = g_strdup (""); return retval; } /** * g_win32_get_package_installation_directory_of_module: * @hmodule: The Win32 handle for a DLL loaded into the current process, or %NULL * * This function tries to determine the installation directory of a * software package based on the location of a DLL of the software * package. * * @hmodule should be the handle of a loaded DLL or %NULL. The * function looks up the directory that DLL was loaded from. If * @hmodule is NULL, the directory the main executable of the current * process is looked up. If that directory's last component is "bin" * or "lib", its parent directory is returned, otherwise the directory * itself. * * It thus makes sense to pass only the handle to a "public" DLL of a * software package to this function, as such DLLs typically are known * to be installed in a "bin" or occasionally "lib" subfolder of the * installation folder. DLLs that are of the dynamically loaded module * or plugin variety are often located in more private locations * deeper down in the tree, from which it is impossible for GLib to * deduce the root of the package installation. * * The typical use case for this function is to have a DllMain() that * saves the handle for the DLL. Then when code in the DLL needs to * construct names of files in the installation tree it calls this * function passing the DLL handle. * * Returns: a string containing the guessed installation directory for * the software package @hmodule is from. The string is in the GLib * file name encoding, i.e. UTF-8. The return value should be freed * with g_free() when not needed any longer. If the function fails * %NULL is returned. * * Since: 2.16 */ gchar * g_win32_get_package_installation_directory_of_module (gpointer hmodule) { gchar *retval; gchar *p; wchar_t wc_fn[MAX_PATH]; if (!GetModuleFileNameW (hmodule, wc_fn, MAX_PATH)) return NULL; retval = g_utf16_to_utf8 (wc_fn, -1, NULL, NULL, NULL); if ((p = strrchr (retval, G_DIR_SEPARATOR)) != NULL) *p = '\0'; p = strrchr (retval, G_DIR_SEPARATOR); if (p && (g_ascii_strcasecmp (p + 1, "bin") == 0 || g_ascii_strcasecmp (p + 1, "lib") == 0)) *p = '\0'; #ifdef G_WITH_CYGWIN /* In Cygwin we need to have POSIX paths */ { gchar tmp[MAX_PATH]; cygwin_conv_to_posix_path (retval, tmp); g_free (retval); retval = g_strdup (tmp); } #endif return retval; } static gchar * get_package_directory_from_module (const gchar *module_name) { static GHashTable *module_dirs = NULL; G_LOCK_DEFINE_STATIC (module_dirs); HMODULE hmodule = NULL; gchar *fn; G_LOCK (module_dirs); if (module_dirs == NULL) module_dirs = g_hash_table_new (g_str_hash, g_str_equal); fn = g_hash_table_lookup (module_dirs, module_name ? module_name : ""); if (fn) { G_UNLOCK (module_dirs); return g_strdup (fn); } if (module_name) { wchar_t *wc_module_name = g_utf8_to_utf16 (module_name, -1, NULL, NULL, NULL); hmodule = GetModuleHandleW (wc_module_name); g_free (wc_module_name); if (!hmodule) return NULL; } fn = g_win32_get_package_installation_directory_of_module (hmodule); if (fn == NULL) return NULL; g_hash_table_insert (module_dirs, module_name ? g_strdup (module_name) : "", fn); G_UNLOCK (module_dirs); return g_strdup (fn); } /** * g_win32_get_package_installation_directory: * @package: You should pass %NULL for this. * @dll_name: The name of a DLL that a package provides in UTF-8, or %NULL. * * Try to determine the installation directory for a software package. * * This function will be deprecated in the future. Use * g_win32_get_package_installation_directory_of_module() instead. * * The use of @package is deprecated. You should always pass %NULL. * * The original intended use of @package was for a short identifier of * the package, typically the same identifier as used for * GETTEXT_PACKAGE in software configured using GNU * autotools. The function first looks in the Windows Registry for the * value #InstallationDirectory in the key * #HKLM\Software\@package, and if that value * exists and is a string, returns that. * * It is strongly recommended that packagers of GLib-using libraries * for Windows do not store installation paths in the Registry to be * used by this function as that interfers with having several * parallel installations of the library. Enabling multiple * installations of different versions of some GLib-using library, or * GLib itself, is desirable for various reasons. * * For this reason it is recommeded to always pass %NULL as * @package to this function, to avoid the temptation to use the * Registry. In version 2.18 of GLib the @package parameter * will be ignored and this function won't look in the Registry at all. * * If @package is %NULL, or the above value isn't found in the * Registry, but @dll_name is non-%NULL, it should name a DLL loaded * into the current process. Typically that would be the name of the * DLL calling this function, looking for its installation * directory. The function then asks Windows what directory that DLL * was loaded from. If that directory's last component is "bin" or * "lib", the parent directory is returned, otherwise the directory * itself. If that DLL isn't loaded, the function proceeds as if * @dll_name was %NULL. * * If both @package and @dll_name are %NULL, the directory from where * the main executable of the process was loaded is used instead in * the same way as above. * * Returns: a string containing the installation directory for * @package. The string is in the GLib file name encoding, * i.e. UTF-8. The return value should be freed with g_free() when not * needed any longer. If the function fails %NULL is returned. **/ gchar * g_win32_get_package_installation_directory (const gchar *package, const gchar *dll_name) { static GHashTable *package_dirs = NULL; G_LOCK_DEFINE_STATIC (package_dirs); gchar *result = NULL; gchar *key; wchar_t *wc_key; HKEY reg_key = NULL; DWORD type; DWORD nbytes; if (package != NULL) { G_LOCK (package_dirs); if (package_dirs == NULL) package_dirs = g_hash_table_new (g_str_hash, g_str_equal); result = g_hash_table_lookup (package_dirs, package); if (result && result[0]) { G_UNLOCK (package_dirs); return g_strdup (result); } key = g_strconcat ("Software\\", package, NULL); nbytes = 0; wc_key = g_utf8_to_utf16 (key, -1, NULL, NULL, NULL); if (((RegOpenKeyExW (HKEY_CURRENT_USER, wc_key, 0, KEY_QUERY_VALUE, ®_key) == ERROR_SUCCESS && RegQueryValueExW (reg_key, L"InstallationDirectory", 0, &type, NULL, &nbytes) == ERROR_SUCCESS) || (RegOpenKeyExW (HKEY_LOCAL_MACHINE, wc_key, 0, KEY_QUERY_VALUE, ®_key) == ERROR_SUCCESS && RegQueryValueExW (reg_key, L"InstallationDirectory", 0, &type, NULL, &nbytes) == ERROR_SUCCESS)) && type == REG_SZ) { wchar_t *wc_temp = g_new (wchar_t, (nbytes+1)/2 + 1); RegQueryValueExW (reg_key, L"InstallationDirectory", 0, &type, (LPBYTE) wc_temp, &nbytes); wc_temp[nbytes/2] = '\0'; result = g_utf16_to_utf8 (wc_temp, -1, NULL, NULL, NULL); g_free (wc_temp); } g_free (wc_key); if (reg_key != NULL) RegCloseKey (reg_key); g_free (key); if (result) { g_hash_table_insert (package_dirs, g_strdup (package), result); G_UNLOCK (package_dirs); return g_strdup (result); } G_UNLOCK (package_dirs); } if (dll_name != NULL) result = get_package_directory_from_module (dll_name); if (result == NULL) result = get_package_directory_from_module (NULL); return result; } #if !defined (_WIN64) #undef g_win32_get_package_installation_directory /* DLL ABI binary compatibility version that uses system codepage file names */ gchar * g_win32_get_package_installation_directory (const gchar *package, const gchar *dll_name) { gchar *utf8_package = NULL, *utf8_dll_name = NULL; gchar *utf8_retval, *retval; if (package != NULL) utf8_package = g_locale_to_utf8 (package, -1, NULL, NULL, NULL); if (dll_name != NULL) utf8_dll_name = g_locale_to_utf8 (dll_name, -1, NULL, NULL, NULL); utf8_retval = g_win32_get_package_installation_directory_utf8 (utf8_package, utf8_dll_name); retval = g_locale_from_utf8 (utf8_retval, -1, NULL, NULL, NULL); g_free (utf8_package); g_free (utf8_dll_name); g_free (utf8_retval); return retval; } #endif /** * g_win32_get_package_installation_subdirectory: * @package: You should pass %NULL for this. * @dll_name: The name of a DLL that a package provides, in UTF-8, or %NULL. * @subdir: A subdirectory of the package installation directory, also in UTF-8 * * This function will be deprecated in the future. Use * g_win32_get_package_installation_directory_of_module() instead. * * Returns a newly-allocated string containing the path of the * subdirectory @subdir in the return value from calling * g_win32_get_package_installation_directory() with the @package and * @dll_name parameters. See the documentation for * g_win32_get_package_installation_directory() for more details. In * particular, note that it is deprecated to pass anything except NULL * as @package. * * Returns: a string containing the complete path to @subdir inside * the installation directory of @package. The returned string is in * the GLib file name encoding, i.e. UTF-8. The return value should be * freed with g_free() when no longer needed. If something goes wrong, * %NULL is returned. **/ gchar * g_win32_get_package_installation_subdirectory (const gchar *package, const gchar *dll_name, const gchar *subdir) { gchar *prefix; gchar *dirname; prefix = g_win32_get_package_installation_directory_utf8 (package, dll_name); dirname = g_build_filename (prefix, subdir, NULL); g_free (prefix); return dirname; } #if !defined (_WIN64) #undef g_win32_get_package_installation_subdirectory /* DLL ABI binary compatibility version that uses system codepage file names */ gchar * g_win32_get_package_installation_subdirectory (const gchar *package, const gchar *dll_name, const gchar *subdir) { gchar *prefix; gchar *dirname; prefix = g_win32_get_package_installation_directory (package, dll_name); dirname = g_build_filename (prefix, subdir, NULL); g_free (prefix); return dirname; } #endif static guint windows_version; static void g_win32_windows_version_init (void) { static gboolean beenhere = FALSE; if (!beenhere) { beenhere = TRUE; windows_version = GetVersion (); if (windows_version & 0x80000000) g_error ("This version of GLib requires NT-based Windows."); } } void _g_win32_thread_init (void) { g_win32_windows_version_init (); } /** * g_win32_get_windows_version: * * Returns version information for the Windows operating system the * code is running on. See MSDN documentation for the GetVersion() * function. To summarize, the most significant bit is one on Win9x, * and zero on NT-based systems. Since version 2.14, GLib works only * on NT-based systems, so checking whether your are running on Win9x * in your own software is moot. The least significant byte is 4 on * Windows NT 4, and 5 on Windows XP. Software that needs really * detailled version and feature information should use Win32 API like * GetVersionEx() and VerifyVersionInfo(). * * Returns: The version information. * * Since: 2.6 **/ guint g_win32_get_windows_version (void) { g_win32_windows_version_init (); return windows_version; } /** * g_win32_locale_filename_from_utf8: * @utf8filename: a UTF-8 encoded filename. * * Converts a filename from UTF-8 to the system codepage. * * On NT-based Windows, on NTFS file systems, file names are in * Unicode. It is quite possible that Unicode file names contain * characters not representable in the system codepage. (For instance, * Greek or Cyrillic characters on Western European or US Windows * installations, or various less common CJK characters on CJK Windows * installations.) * * In such a case, and if the filename refers to an existing file, and * the file system stores alternate short (8.3) names for directory * entries, the short form of the filename is returned. Note that the * "short" name might in fact be longer than the Unicode name if the * Unicode name has very short pathname components containing * non-ASCII characters. If no system codepage name for the file is * possible, %NULL is returned. * * The return value is dynamically allocated and should be freed with * g_free() when no longer needed. * * Return value: The converted filename, or %NULL on conversion * failure and lack of short names. * * Since: 2.8 */ gchar * g_win32_locale_filename_from_utf8 (const gchar *utf8filename) { gchar *retval = g_locale_from_utf8 (utf8filename, -1, NULL, NULL, NULL); if (retval == NULL) { /* Conversion failed, so convert to wide chars, check if there * is a 8.3 version, and use that. */ wchar_t *wname = g_utf8_to_utf16 (utf8filename, -1, NULL, NULL, NULL); if (wname != NULL) { wchar_t wshortname[MAX_PATH + 1]; if (GetShortPathNameW (wname, wshortname, G_N_ELEMENTS (wshortname))) { gchar *tem = g_utf16_to_utf8 (wshortname, -1, NULL, NULL, NULL); retval = g_locale_from_utf8 (tem, -1, NULL, NULL, NULL); g_free (tem); } g_free (wname); } } return retval; } #define __G_WIN32_C__ #include "galiasdef.c"