| /* 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 <stdlib.h> |
| #include <stdio.h> |
| #include <string.h> |
| #include <wchar.h> |
| #include <errno.h> |
| |
| #define STRICT /* Strict typing, please */ |
| #include <windows.h> |
| #undef STRICT |
| #ifndef G_WITH_CYGWIN |
| #include <direct.h> |
| #endif |
| #include <errno.h> |
| #include <ctype.h> |
| #if defined(_MSC_VER) || defined(__DMC__) |
| # include <io.h> |
| #endif /* _MSC_VER || __DMC__ */ |
| |
| #include "glib.h" |
| #include "galias.h" |
| |
| #ifdef G_WITH_CYGWIN |
| #include <sys/cygwin.h> |
| #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) |
| { |
| G_UNLOCK (module_dirs); |
| return NULL; |
| } |
| } |
| |
| fn = g_win32_get_package_installation_directory_of_module (hmodule); |
| |
| if (fn == NULL) |
| { |
| G_UNLOCK (module_dirs); |
| 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 is deprecated. Use |
| * g_win32_get_package_installation_directory_of_module() instead. |
| * |
| * The use of @package is deprecated. You should always pass %NULL. A |
| * warning is printed if non-NULL is passed as @package. |
| * |
| * The original intended use of @package was for a short identifier of |
| * the package, typically the same identifier as used for |
| * <literal>GETTEXT_PACKAGE</literal> in software configured using GNU |
| * autotools. The function first looks in the Windows Registry for the |
| * value <literal>#InstallationDirectory</literal> in the key |
| * <literal>#HKLM\Software\@package</literal>, 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.20 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. |
| * |
| * Deprecated: 2.18: Pass the HMODULE of a DLL or EXE to |
| * g_win32_get_package_installation_directory_of_module() instead. |
| **/ |
| |
| gchar * |
| g_win32_get_package_installation_directory_utf8 (const gchar *package, |
| const gchar *dll_name) |
| { |
| gchar *result = NULL; |
| |
| if (package != NULL) |
| g_warning ("Passing a non-NULL package to g_win32_get_package_installation_directory() is deprecated and it is ignored."); |
| |
| 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) |
| |
| /* 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 is deprecated. Use |
| * g_win32_get_package_installation_directory_of_module() and |
| * g_build_filename() 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. |
| * |
| * Deprecated: 2.18: Pass the HMODULE of a DLL or EXE to |
| * g_win32_get_package_installation_directory_of_module() instead, and |
| * then construct a subdirectory pathname with g_build_filename(). |
| **/ |
| |
| gchar * |
| g_win32_get_package_installation_subdirectory_utf8 (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) |
| |
| /* 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" |