io-portability.h \
sockets.h \
uglify.h \
- versioninfo.h \
wapi.h \
wapi-remap.h
socket-private.h \
socket-wrappers.h \
uglify.h \
- versioninfo.c \
- versioninfo.h \
wapi_glob.h \
wapi_glob.c \
wapi.h \
typedef WapiFindData *LPWIN32_FIND_DATA;
typedef WapiFileAttributesData WIN32_FILE_ATTRIBUTE_DATA;
typedef WapiGetFileExInfoLevels GET_FILEEX_INFO_LEVELS;
-typedef WapiFixedFileInfo VS_FIXEDFILEINFO;
-typedef WapiModuleInfo MODULEINFO;
-typedef WapiModuleInfo *LPMODULEINFO;
-typedef WapiImageDosHeader IMAGE_DOS_HEADER;
-typedef WapiImageDosHeader *PIMAGE_DOS_HEADER;
-typedef WapiImageFileHeader IMAGE_FILE_HEADER;
-typedef WapiImageFileHeader *PIMAGE_FILE_HEADER;
-typedef WapiImageDataDirectory IMAGE_DATA_DIRECTORY;
-typedef WapiImageDataDirectory *PIMAGE_DATA_DIRECTORY;
-typedef WapiImageOptionalHeader32 IMAGE_OPTIONAL_HEADER32;
-typedef WapiImageOptionalHeader32 *PIMAGE_OPTIONAL_HEADER32;
-typedef WapiImageOptionalHeader64 IMAGE_OPTIONAL_HEADER64;
-typedef WapiImageOptionalHeader64 *PIMAGE_OPTIONAL_HEADER64;
-typedef WapiImageOptionalHeader IMAGE_OPTIONAL_HEADER;
-typedef WapiImageOptionalHeader *PIMAGE_OPTIONAL_HEADER;
-typedef WapiImageNTHeaders32 IMAGE_NT_HEADERS32;
-typedef WapiImageNTHeaders32 *PIMAGE_NT_HEADERS32;
-typedef WapiImageNTHeaders64 IMAGE_NT_HEADERS64;
-typedef WapiImageNTHeaders64 *PIMAGE_NT_HEADERS64;
-typedef WapiImageNTHeaders IMAGE_NT_HEADERS;
-typedef WapiImageNTHeaders *PIMAGE_NT_HEADERS;
-typedef WapiImageSectionHeader IMAGE_SECTION_HEADER;
-typedef WapiImageSectionHeader *PIMAGE_SECTION_HEADER;
-typedef WapiImageResourceDirectory IMAGE_RESOURCE_DIRECTORY;
-typedef WapiImageResourceDirectory *PIMAGE_RESOURCE_DIRECTORY;
-typedef WapiImageResourceDirectoryEntry IMAGE_RESOURCE_DIRECTORY_ENTRY;
-typedef WapiImageResourceDirectoryEntry *PIMAGE_RESOURCE_DIRECTORY_ENTRY;
-typedef WapiImageResourceDataEntry IMAGE_RESOURCE_DATA_ENTRY;
-typedef WapiImageResourceDataEntry *PIMAGE_RESOURCE_DATA_ENTRY;
typedef WapiTransmitFileBuffers TRANSMIT_FILE_BUFFERS;
typedef WapiTransmitFileBuffers *PTRANSMIT_FILE_BUFFERS;
typedef WapiTransmitFileBuffers *LPTRANSMIT_FILE_BUFFERS;
+++ /dev/null
-/*
- * versioninfo.c: Version information support
- *
- * Author:
- * Dick Porter (dick@ximian.com)
- *
- * (C) 2007 Novell, Inc.
- */
-
-#include <config.h>
-#include <glib.h>
-#include <string.h>
-#include <pthread.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <unistd.h>
-#include <fcntl.h>
-#include <errno.h>
-
-#include <mono/io-layer/wapi.h>
-#include <mono/io-layer/wapi-private.h>
-#include <mono/io-layer/versioninfo.h>
-#include <mono/io-layer/io-portability.h>
-#include <mono/io-layer/error.h>
-#include <mono/io-layer/io-trace.h>
-#include <mono/utils/strenc.h>
-#include <mono/utils/mono-mmap.h>
-#include <mono/utils/mono-logger-internals.h>
-
-#define ALIGN32(ptr) ptr = (gpointer)((char *)ptr + 3); ptr = (gpointer)((char *)ptr - ((gsize)ptr & 3));
-
-static WapiImageSectionHeader *
-get_enclosing_section_header (guint32 rva, WapiImageNTHeaders32 *nt_headers)
-{
- WapiImageSectionHeader *section = _WAPI_IMAGE_FIRST_SECTION32 (nt_headers);
- guint32 i;
-
- for (i = 0; i < GUINT16_FROM_LE (nt_headers->FileHeader.NumberOfSections); i++, section++) {
- guint32 size = GUINT32_FROM_LE (section->Misc.VirtualSize);
- if (size == 0) {
- size = GUINT32_FROM_LE (section->SizeOfRawData);
- }
-
- if ((rva >= GUINT32_FROM_LE (section->VirtualAddress)) &&
- (rva < (GUINT32_FROM_LE (section->VirtualAddress) + size))) {
- return(section);
- }
- }
-
- return(NULL);
-}
-
-/* This works for both 32bit and 64bit files, as the differences are
- * all after the section header block
- */
-static gpointer
-get_ptr_from_rva (guint32 rva, WapiImageNTHeaders32 *ntheaders, gpointer file_map)
-{
- WapiImageSectionHeader *section_header;
- guint32 delta;
-
- section_header = get_enclosing_section_header (rva, ntheaders);
- if (section_header == NULL) {
- return(NULL);
- }
-
- delta = (guint32)(GUINT32_FROM_LE (section_header->VirtualAddress) -
- GUINT32_FROM_LE (section_header->PointerToRawData));
-
- return((guint8 *)file_map + rva - delta);
-}
-
-static gpointer
-scan_resource_dir (WapiImageResourceDirectory *root,
- WapiImageNTHeaders32 *nt_headers,
- gpointer file_map,
- WapiImageResourceDirectoryEntry *entry,
- int level, guint32 res_id, guint32 lang_id,
- guint32 *size)
-{
- WapiImageResourceDirectoryEntry swapped_entry;
- gboolean is_string, is_dir;
- guint32 name_offset, dir_offset, data_offset;
-
- swapped_entry.Name = GUINT32_FROM_LE (entry->Name);
- swapped_entry.OffsetToData = GUINT32_FROM_LE (entry->OffsetToData);
-
- is_string = swapped_entry.NameIsString;
- is_dir = swapped_entry.DataIsDirectory;
- name_offset = swapped_entry.NameOffset;
- dir_offset = swapped_entry.OffsetToDirectory;
- data_offset = swapped_entry.OffsetToData;
-
- if (level == 0) {
- /* Normally holds a directory entry for each type of
- * resource
- */
- if ((is_string == FALSE &&
- name_offset != res_id) ||
- (is_string == TRUE)) {
- return(NULL);
- }
- } else if (level == 1) {
- /* Normally holds a directory entry for each resource
- * item
- */
- } else if (level == 2) {
- /* Normally holds a directory entry for each language
- */
- if ((is_string == FALSE &&
- name_offset != lang_id &&
- lang_id != 0) ||
- (is_string == TRUE)) {
- return(NULL);
- }
- } else {
- g_assert_not_reached ();
- }
-
- if (is_dir == TRUE) {
- WapiImageResourceDirectory *res_dir = (WapiImageResourceDirectory *)((guint8 *)root + dir_offset);
- WapiImageResourceDirectoryEntry *sub_entries = (WapiImageResourceDirectoryEntry *)(res_dir + 1);
- guint32 entries, i;
-
- entries = GUINT16_FROM_LE (res_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (res_dir->NumberOfIdEntries);
-
- for (i = 0; i < entries; i++) {
- WapiImageResourceDirectoryEntry *sub_entry = &sub_entries[i];
- gpointer ret;
-
- ret = scan_resource_dir (root, nt_headers, file_map,
- sub_entry, level + 1, res_id,
- lang_id, size);
- if (ret != NULL) {
- return(ret);
- }
- }
-
- return(NULL);
- } else {
- WapiImageResourceDataEntry *data_entry = (WapiImageResourceDataEntry *)((guint8 *)root + data_offset);
- *size = GUINT32_FROM_LE (data_entry->Size);
-
- return(get_ptr_from_rva (GUINT32_FROM_LE (data_entry->OffsetToData), nt_headers, file_map));
- }
-}
-
-static gpointer
-find_pe_file_resources32 (gpointer file_map, guint32 map_size,
- guint32 res_id, guint32 lang_id,
- guint32 *size)
-{
- WapiImageDosHeader *dos_header;
- WapiImageNTHeaders32 *nt_headers;
- WapiImageResourceDirectory *resource_dir;
- WapiImageResourceDirectoryEntry *resource_dir_entry;
- guint32 resource_rva, entries, i;
- gpointer ret = NULL;
-
- dos_header = (WapiImageDosHeader *)file_map;
- if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad dos signature 0x%x", __func__, dos_header->e_magic);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- if (map_size < sizeof(WapiImageNTHeaders32) + GUINT32_FROM_LE (dos_header->e_lfanew)) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File is too small: %d", __func__, map_size);
-
- SetLastError (ERROR_BAD_LENGTH);
- return(NULL);
- }
-
- nt_headers = (WapiImageNTHeaders32 *)((guint8 *)file_map + GUINT32_FROM_LE (dos_header->e_lfanew));
- if (nt_headers->Signature != IMAGE_NT_SIGNATURE) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad NT signature 0x%x", __func__, nt_headers->Signature);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- if (nt_headers->OptionalHeader.Magic == IMAGE_NT_OPTIONAL_HDR64_MAGIC) {
- /* Do 64-bit stuff */
- resource_rva = GUINT32_FROM_LE (((WapiImageNTHeaders64 *)nt_headers)->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
- } else {
- resource_rva = GUINT32_FROM_LE (nt_headers->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
- }
-
- if (resource_rva == 0) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: No resources in file!", __func__);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- resource_dir = (WapiImageResourceDirectory *)get_ptr_from_rva (resource_rva, (WapiImageNTHeaders32 *)nt_headers, file_map);
- if (resource_dir == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Can't find resource directory", __func__);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- entries = GUINT16_FROM_LE (resource_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (resource_dir->NumberOfIdEntries);
- resource_dir_entry = (WapiImageResourceDirectoryEntry *)(resource_dir + 1);
-
- for (i = 0; i < entries; i++) {
- WapiImageResourceDirectoryEntry *direntry = &resource_dir_entry[i];
- ret = scan_resource_dir (resource_dir,
- (WapiImageNTHeaders32 *)nt_headers,
- file_map, direntry, 0, res_id,
- lang_id, size);
- if (ret != NULL) {
- return(ret);
- }
- }
-
- return(NULL);
-}
-
-static gpointer
-find_pe_file_resources64 (gpointer file_map, guint32 map_size,
- guint32 res_id, guint32 lang_id,
- guint32 *size)
-{
- WapiImageDosHeader *dos_header;
- WapiImageNTHeaders64 *nt_headers;
- WapiImageResourceDirectory *resource_dir;
- WapiImageResourceDirectoryEntry *resource_dir_entry;
- guint32 resource_rva, entries, i;
- gpointer ret = NULL;
-
- dos_header = (WapiImageDosHeader *)file_map;
- if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad dos signature 0x%x", __func__, dos_header->e_magic);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- if (map_size < sizeof(WapiImageNTHeaders64) + GUINT32_FROM_LE (dos_header->e_lfanew)) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File is too small: %d", __func__, map_size);
-
- SetLastError (ERROR_BAD_LENGTH);
- return(NULL);
- }
-
- nt_headers = (WapiImageNTHeaders64 *)((guint8 *)file_map + GUINT32_FROM_LE (dos_header->e_lfanew));
- if (nt_headers->Signature != IMAGE_NT_SIGNATURE) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad NT signature 0x%x", __func__,
- nt_headers->Signature);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- if (nt_headers->OptionalHeader.Magic == IMAGE_NT_OPTIONAL_HDR64_MAGIC) {
- /* Do 64-bit stuff */
- resource_rva = GUINT32_FROM_LE (((WapiImageNTHeaders64 *)nt_headers)->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
- } else {
- resource_rva = GUINT32_FROM_LE (nt_headers->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
- }
-
- if (resource_rva == 0) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: No resources in file!", __func__);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- resource_dir = (WapiImageResourceDirectory *)get_ptr_from_rva (resource_rva, (WapiImageNTHeaders32 *)nt_headers, file_map);
- if (resource_dir == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Can't find resource directory", __func__);
-
- SetLastError (ERROR_INVALID_DATA);
- return(NULL);
- }
-
- entries = GUINT16_FROM_LE (resource_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (resource_dir->NumberOfIdEntries);
- resource_dir_entry = (WapiImageResourceDirectoryEntry *)(resource_dir + 1);
-
- for (i = 0; i < entries; i++) {
- WapiImageResourceDirectoryEntry *direntry = &resource_dir_entry[i];
- ret = scan_resource_dir (resource_dir,
- (WapiImageNTHeaders32 *)nt_headers,
- file_map, direntry, 0, res_id,
- lang_id, size);
- if (ret != NULL) {
- return(ret);
- }
- }
-
- return(NULL);
-}
-
-static gpointer
-find_pe_file_resources (gpointer file_map, guint32 map_size,
- guint32 res_id, guint32 lang_id,
- guint32 *size)
-{
- /* Figure this out when we support 64bit PE files */
- if (1) {
- return find_pe_file_resources32 (file_map, map_size, res_id,
- lang_id, size);
- } else {
- return find_pe_file_resources64 (file_map, map_size, res_id,
- lang_id, size);
- }
-}
-
-static gpointer
-map_pe_file (gunichar2 *filename, gint32 *map_size, void **handle)
-{
- gchar *filename_ext;
- int fd;
- struct stat statbuf;
- gpointer file_map;
-
- /* According to the MSDN docs, a search path is applied to
- * filename. FIXME: implement this, for now just pass it
- * straight to fopen
- */
-
- filename_ext = mono_unicode_to_external (filename);
- if (filename_ext == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: unicode conversion returned NULL", __func__);
-
- SetLastError (ERROR_INVALID_NAME);
- return(NULL);
- }
-
- fd = _wapi_open (filename_ext, O_RDONLY, 0);
- if (fd == -1) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error opening file %s: %s", __func__, filename_ext, strerror (errno));
-
- SetLastError (_wapi_get_win32_file_error (errno));
- g_free (filename_ext);
-
- return(NULL);
- }
-
- if (fstat (fd, &statbuf) == -1) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error stat()ing file %s: %s", __func__, filename_ext, strerror (errno));
-
- SetLastError (_wapi_get_win32_file_error (errno));
- g_free (filename_ext);
- close (fd);
- return(NULL);
- }
- *map_size = statbuf.st_size;
-
- /* Check basic file size */
- if (statbuf.st_size < sizeof(WapiImageDosHeader)) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File %s is too small: %lld", __func__, filename_ext, statbuf.st_size);
-
- SetLastError (ERROR_BAD_LENGTH);
- g_free (filename_ext);
- close (fd);
- return(NULL);
- }
-
- file_map = mono_file_map (statbuf.st_size, MONO_MMAP_READ | MONO_MMAP_PRIVATE, fd, 0, handle);
- if (file_map == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error mmap()int file %s: %s", __func__, filename_ext, strerror (errno));
-
- SetLastError (_wapi_get_win32_file_error (errno));
- g_free (filename_ext);
- close (fd);
- return(NULL);
- }
-
- /* Don't need the fd any more */
- close (fd);
- g_free (filename_ext);
-
- return(file_map);
-}
-
-static void
-unmap_pe_file (gpointer file_map, void *handle)
-{
- mono_file_unmap (file_map, handle);
-}
-
-static guint32
-unicode_chars (const gunichar2 *str)
-{
- guint32 len = 0;
-
- do {
- if (str[len] == '\0') {
- return(len);
- }
- len++;
- } while(1);
-}
-
-static gboolean
-unicode_compare (const gunichar2 *str1, const gunichar2 *str2)
-{
- while (*str1 && *str2) {
- if (*str1 != *str2) {
- return(FALSE);
- }
- ++str1;
- ++str2;
- }
-
- return(*str1 == *str2);
-}
-
-/* compare a little-endian null-terminated utf16 string and a normal string.
- * Can be used only for ascii or latin1 chars.
- */
-static gboolean
-unicode_string_equals (const gunichar2 *str1, const gchar *str2)
-{
- while (*str1 && *str2) {
- if (GUINT16_TO_LE (*str1) != *str2) {
- return(FALSE);
- }
- ++str1;
- ++str2;
- }
-
- return(*str1 == *str2);
-}
-
-typedef struct
-{
- guint16 data_len;
- guint16 value_len;
- guint16 type;
- gunichar2 *key;
-} version_data;
-
-/* Returns a pointer to the value data, because there's no way to know
- * how big that data is (value_len is set to zero for most blocks :-( )
- */
-static gconstpointer
-get_versioninfo_block (gconstpointer data, version_data *block)
-{
- block->data_len = GUINT16_FROM_LE (*((guint16 *)data));
- data = (char *)data + sizeof(guint16);
- block->value_len = GUINT16_FROM_LE (*((guint16 *)data));
- data = (char *)data + sizeof(guint16);
-
- /* No idea what the type is supposed to indicate */
- block->type = GUINT16_FROM_LE (*((guint16 *)data));
- data = (char *)data + sizeof(guint16);
- block->key = ((gunichar2 *)data);
-
- /* Skip over the key (including the terminator) */
- data = ((gunichar2 *)data) + (unicode_chars (block->key) + 1);
-
- /* align on a 32-bit boundary */
- ALIGN32 (data);
-
- return(data);
-}
-
-static gconstpointer
-get_fixedfileinfo_block (gconstpointer data, version_data *block)
-{
- gconstpointer data_ptr;
- WapiFixedFileInfo *ffi;
-
- data_ptr = get_versioninfo_block (data, block);
-
- if (block->value_len != sizeof(WapiFixedFileInfo)) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: FIXEDFILEINFO size mismatch", __func__);
- return(NULL);
- }
-
- if (!unicode_string_equals (block->key, "VS_VERSION_INFO")) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: VS_VERSION_INFO mismatch", __func__);
-
- return(NULL);
- }
-
- ffi = ((WapiFixedFileInfo *)data_ptr);
- if ((ffi->dwSignature != VS_FFI_SIGNATURE) ||
- (ffi->dwStrucVersion != VS_FFI_STRUCVERSION)) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: FIXEDFILEINFO bad signature", __func__);
-
- return(NULL);
- }
-
- return(data_ptr);
-}
-
-static gconstpointer
-get_varfileinfo_block (gconstpointer data_ptr, version_data *block)
-{
- /* data is pointing at a Var block
- */
- data_ptr = get_versioninfo_block (data_ptr, block);
-
- return(data_ptr);
-}
-
-static gconstpointer
-get_string_block (gconstpointer data_ptr,
- const gunichar2 *string_key,
- gpointer *string_value,
- guint32 *string_value_len,
- version_data *block)
-{
- guint16 data_len = block->data_len;
- guint16 string_len = 28; /* Length of the StringTable block */
- char *orig_data_ptr = (char *)data_ptr - 28;
-
- /* data_ptr is pointing at an array of one or more String blocks
- * with total length (not including alignment padding) of
- * data_len
- */
- while (((char *)data_ptr - (char *)orig_data_ptr) < data_len) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr, block);
- if (block->data_len == 0) {
- /* We must have hit padding, so give up
- * processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
-
- return(NULL);
- }
-
- string_len = string_len + block->data_len;
-
- if (string_key != NULL &&
- string_value != NULL &&
- string_value_len != NULL &&
- unicode_compare (string_key, block->key) == TRUE) {
- *string_value = (gpointer)data_ptr;
- *string_value_len = block->value_len;
- }
-
- /* Skip over the value */
- data_ptr = ((gunichar2 *)data_ptr) + block->value_len;
- }
-
- return(data_ptr);
-}
-
-/* Returns a pointer to the byte following the Stringtable block, or
- * NULL if the data read hits padding. We can't recover from this
- * because the data length does not include padding bytes, so it's not
- * possible to just return the start position + length
- *
- * If lang == NULL it means we're just stepping through this block
- */
-static gconstpointer
-get_stringtable_block (gconstpointer data_ptr,
- gchar *lang,
- const gunichar2 *string_key,
- gpointer *string_value,
- guint32 *string_value_len,
- version_data *block)
-{
- guint16 data_len = block->data_len;
- guint16 string_len = 36; /* length of the StringFileInfo block */
- gchar *found_lang;
- gchar *lowercase_lang;
-
- /* data_ptr is pointing at an array of StringTable blocks,
- * with total length (not including alignment padding) of
- * data_len
- */
-
- while(string_len < data_len) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr, block);
- if (block->data_len == 0) {
- /* We must have hit padding, so give up
- * processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
- return(NULL);
- }
-
- string_len = string_len + block->data_len;
-
- found_lang = g_utf16_to_utf8 (block->key, 8, NULL, NULL, NULL);
- if (found_lang == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid language key, giving up", __func__);
- return(NULL);
- }
-
- lowercase_lang = g_utf8_strdown (found_lang, -1);
- g_free (found_lang);
- found_lang = lowercase_lang;
- lowercase_lang = NULL;
-
- if (lang != NULL && !strcmp (found_lang, lang)) {
- /* Got the one we're interested in */
- data_ptr = get_string_block (data_ptr, string_key,
- string_value,
- string_value_len, block);
- } else {
- data_ptr = get_string_block (data_ptr, NULL, NULL,
- NULL, block);
- }
-
- g_free (found_lang);
-
- if (data_ptr == NULL) {
- /* Child block hit padding */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
- return(NULL);
- }
- }
-
- return(data_ptr);
-}
-
-#if G_BYTE_ORDER == G_BIG_ENDIAN
-static gconstpointer
-big_up_string_block (gconstpointer data_ptr, version_data *block)
-{
- guint16 data_len = block->data_len;
- guint16 string_len = 28; /* Length of the StringTable block */
- gchar *big_value;
- char *orig_data_ptr = (char *)data_ptr - 28;
-
- /* data_ptr is pointing at an array of one or more String
- * blocks with total length (not including alignment padding)
- * of data_len
- */
- while (((char *)data_ptr - (char *)orig_data_ptr) < data_len) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr, block);
- if (block->data_len == 0) {
- /* We must have hit padding, so give up
- * processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
- return(NULL);
- }
-
- string_len = string_len + block->data_len;
-
- big_value = g_convert ((gchar *)block->key,
- unicode_chars (block->key) * 2,
- "UTF-16BE", "UTF-16LE", NULL, NULL,
- NULL);
- if (big_value == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid string, giving up", __func__);
- return(NULL);
- }
-
- /* The swapped string should be exactly the same
- * length as the original little-endian one, but only
- * copy the number of original chars just to be on the
- * safe side
- */
- memcpy (block->key, big_value, unicode_chars (block->key) * 2);
- g_free (big_value);
-
- big_value = g_convert ((gchar *)data_ptr,
- unicode_chars (data_ptr) * 2,
- "UTF-16BE", "UTF-16LE", NULL, NULL,
- NULL);
- if (big_value == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid data string, giving up", __func__);
- return(NULL);
- }
- memcpy ((gpointer)data_ptr, big_value,
- unicode_chars (data_ptr) * 2);
- g_free (big_value);
-
- data_ptr = ((gunichar2 *)data_ptr) + block->value_len;
- }
-
- return(data_ptr);
-}
-
-/* Returns a pointer to the byte following the Stringtable block, or
- * NULL if the data read hits padding. We can't recover from this
- * because the data length does not include padding bytes, so it's not
- * possible to just return the start position + length
- */
-static gconstpointer
-big_up_stringtable_block (gconstpointer data_ptr, version_data *block)
-{
- guint16 data_len = block->data_len;
- guint16 string_len = 36; /* length of the StringFileInfo block */
- gchar *big_value;
-
- /* data_ptr is pointing at an array of StringTable blocks,
- * with total length (not including alignment padding) of
- * data_len
- */
-
- while(string_len < data_len) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr, block);
- if (block->data_len == 0) {
- /* We must have hit padding, so give up
- * processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
- return(NULL);
- }
-
- string_len = string_len + block->data_len;
-
- big_value = g_convert ((gchar *)block->key, 16, "UTF-16BE",
- "UTF-16LE", NULL, NULL, NULL);
- if (big_value == NULL) {
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid string, giving up", __func__);
- return(NULL);
- }
-
- memcpy (block->key, big_value, 16);
- g_free (big_value);
-
- data_ptr = big_up_string_block (data_ptr, block);
-
- if (data_ptr == NULL) {
- /* Child block hit padding */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
- return(NULL);
- }
- }
-
- return(data_ptr);
-}
-
-/* Follows the data structures and turns all UTF-16 strings from the
- * LE found in the resource section into UTF-16BE
- */
-static void
-big_up (gconstpointer datablock, guint32 size)
-{
- gconstpointer data_ptr;
- gint32 data_len; /* signed to guard against underflow */
- version_data block;
-
- data_ptr = get_fixedfileinfo_block (datablock, &block);
- if (data_ptr != NULL) {
- WapiFixedFileInfo *ffi = (WapiFixedFileInfo *)data_ptr;
-
- /* Byteswap all the fields */
- ffi->dwFileVersionMS = GUINT32_SWAP_LE_BE (ffi->dwFileVersionMS);
- ffi->dwFileVersionLS = GUINT32_SWAP_LE_BE (ffi->dwFileVersionLS);
- ffi->dwProductVersionMS = GUINT32_SWAP_LE_BE (ffi->dwProductVersionMS);
- ffi->dwProductVersionLS = GUINT32_SWAP_LE_BE (ffi->dwProductVersionLS);
- ffi->dwFileFlagsMask = GUINT32_SWAP_LE_BE (ffi->dwFileFlagsMask);
- ffi->dwFileFlags = GUINT32_SWAP_LE_BE (ffi->dwFileFlags);
- ffi->dwFileOS = GUINT32_SWAP_LE_BE (ffi->dwFileOS);
- ffi->dwFileType = GUINT32_SWAP_LE_BE (ffi->dwFileType);
- ffi->dwFileSubtype = GUINT32_SWAP_LE_BE (ffi->dwFileSubtype);
- ffi->dwFileDateMS = GUINT32_SWAP_LE_BE (ffi->dwFileDateMS);
- ffi->dwFileDateLS = GUINT32_SWAP_LE_BE (ffi->dwFileDateLS);
-
- /* The FFI and header occupies the first 92 bytes
- */
- data_ptr = (char *)data_ptr + sizeof(WapiFixedFileInfo);
- data_len = block.data_len - 92;
-
- /* There now follow zero or one StringFileInfo blocks
- * and zero or one VarFileInfo blocks
- */
- while (data_len > 0) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr, &block);
- if (block.data_len == 0) {
- /* We must have hit padding, so give
- * up processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
- return;
- }
-
- data_len = data_len - block.data_len;
-
- if (unicode_string_equals (block.key, "VarFileInfo")) {
- data_ptr = get_varfileinfo_block (data_ptr,
- &block);
- data_ptr = ((guchar *)data_ptr) + block.value_len;
- } else if (unicode_string_equals (block.key,
- "StringFileInfo")) {
- data_ptr = big_up_stringtable_block (data_ptr,
- &block);
- } else {
- /* Bogus data */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Not a valid VERSIONINFO child block", __func__);
- return;
- }
-
- if (data_ptr == NULL) {
- /* Child block hit padding */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
- return;
- }
- }
- }
-}
-#endif
-
-gboolean
-VerQueryValue (gconstpointer datablock, const gunichar2 *subblock, gpointer *buffer, guint32 *len)
-{
- gchar *subblock_utf8, *lang_utf8 = NULL;
- gboolean ret = FALSE;
- version_data block;
- gconstpointer data_ptr;
- gint32 data_len; /* signed to guard against underflow */
- gboolean want_var = FALSE;
- gboolean want_string = FALSE;
- gunichar2 lang[8];
- const gunichar2 *string_key = NULL;
- gpointer string_value = NULL;
- guint32 string_value_len = 0;
- gchar *lowercase_lang;
-
- subblock_utf8 = g_utf16_to_utf8 (subblock, -1, NULL, NULL, NULL);
- if (subblock_utf8 == NULL) {
- return(FALSE);
- }
-
- if (!strcmp (subblock_utf8, "\\VarFileInfo\\Translation")) {
- want_var = TRUE;
- } else if (!strncmp (subblock_utf8, "\\StringFileInfo\\", 16)) {
- want_string = TRUE;
- memcpy (lang, subblock + 16, 8 * sizeof(gunichar2));
- lang_utf8 = g_utf16_to_utf8 (lang, 8, NULL, NULL, NULL);
- lowercase_lang = g_utf8_strdown (lang_utf8, -1);
- g_free (lang_utf8);
- lang_utf8 = lowercase_lang;
- lowercase_lang = NULL;
- string_key = subblock + 25;
- }
-
- if (!strcmp (subblock_utf8, "\\")) {
- data_ptr = get_fixedfileinfo_block (datablock, &block);
- if (data_ptr != NULL) {
- *buffer = (gpointer)data_ptr;
- *len = block.value_len;
-
- ret = TRUE;
- }
- } else if (want_var || want_string) {
- data_ptr = get_fixedfileinfo_block (datablock, &block);
- if (data_ptr != NULL) {
- /* The FFI and header occupies the first 92
- * bytes
- */
- data_ptr = (char *)data_ptr + sizeof(WapiFixedFileInfo);
- data_len = block.data_len - 92;
-
- /* There now follow zero or one StringFileInfo
- * blocks and zero or one VarFileInfo blocks
- */
- while (data_len > 0) {
- /* align on a 32-bit boundary */
- ALIGN32 (data_ptr);
-
- data_ptr = get_versioninfo_block (data_ptr,
- &block);
- if (block.data_len == 0) {
- /* We must have hit padding,
- * so give up processing now
- */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
- goto done;
- }
-
- data_len = data_len - block.data_len;
-
- if (unicode_string_equals (block.key, "VarFileInfo")) {
- data_ptr = get_varfileinfo_block (data_ptr, &block);
- if (want_var) {
- *buffer = (gpointer)data_ptr;
- *len = block.value_len;
- ret = TRUE;
- goto done;
- } else {
- /* Skip over the Var block */
- data_ptr = ((guchar *)data_ptr) + block.value_len;
- }
- } else if (unicode_string_equals (block.key, "StringFileInfo")) {
- data_ptr = get_stringtable_block (data_ptr, lang_utf8, string_key, &string_value, &string_value_len, &block);
- if (want_string &&
- string_value != NULL &&
- string_value_len != 0) {
- *buffer = string_value;
- *len = unicode_chars ((const gunichar2 *)string_value) + 1; /* Include trailing null */
- ret = TRUE;
- goto done;
- }
- } else {
- /* Bogus data */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Not a valid VERSIONINFO child block", __func__);
- goto done;
- }
-
- if (data_ptr == NULL) {
- /* Child block hit padding */
- MONO_TRACE (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
- goto done;
- }
- }
- }
- }
-
- done:
- if (lang_utf8) {
- g_free (lang_utf8);
- }
-
- g_free (subblock_utf8);
- return(ret);
-}
-
-guint32
-GetFileVersionInfoSize (gunichar2 *filename, guint32 *handle)
-{
- gpointer file_map;
- gpointer versioninfo;
- void *map_handle;
- gint32 map_size;
- guint32 size;
-
- /* This value is unused, but set to zero */
- *handle = 0;
-
- file_map = map_pe_file (filename, &map_size, &map_handle);
- if (file_map == NULL) {
- return(0);
- }
-
- versioninfo = find_pe_file_resources (file_map, map_size, RT_VERSION, 0, &size);
- if (versioninfo == NULL) {
- /* Didn't find the resource, so set the return value
- * to 0
- */
- size = 0;
- }
-
- unmap_pe_file (file_map, map_handle);
-
- return(size);
-}
-
-gboolean
-GetFileVersionInfo (gunichar2 *filename, guint32 handle G_GNUC_UNUSED, guint32 len, gpointer data)
-{
- gpointer file_map;
- gpointer versioninfo;
- void *map_handle;
- gint32 map_size;
- guint32 size;
- gboolean ret = FALSE;
-
- file_map = map_pe_file (filename, &map_size, &map_handle);
- if (file_map == NULL) {
- return(FALSE);
- }
-
- versioninfo = find_pe_file_resources (file_map, map_size, RT_VERSION,
- 0, &size);
- if (versioninfo != NULL) {
- /* This could probably process the data so that
- * VerQueryValue() doesn't have to follow the data
- * blocks every time. But hey, these functions aren't
- * likely to appear in many profiles.
- */
- memcpy (data, versioninfo, len < size?len:size);
- ret = TRUE;
-
-#if G_BYTE_ORDER == G_BIG_ENDIAN
- big_up (data, size);
-#endif
- }
-
- unmap_pe_file (file_map, map_handle);
-
- return(ret);
-}
-
-static guint32
-copy_lang (gunichar2 *lang_out, guint32 lang_len, const gchar *text)
-{
- gunichar2 *unitext;
- int chars = strlen (text);
- int ret;
-
- unitext = g_utf8_to_utf16 (text, -1, NULL, NULL, NULL);
- g_assert (unitext != NULL);
-
- if (chars < (lang_len - 1)) {
- memcpy (lang_out, (gpointer)unitext, chars * 2);
- lang_out[chars] = '\0';
- ret = chars;
- } else {
- memcpy (lang_out, (gpointer)unitext, (lang_len - 1) * 2);
- lang_out[lang_len] = '\0';
- ret = lang_len;
- }
-
- g_free (unitext);
-
- return(ret);
-}
-
-guint32
-VerLanguageName (guint32 lang, gunichar2 *lang_out, guint32 lang_len)
-{
- int primary, secondary;
- const char *name = NULL;
-
- primary = lang & 0x3FF;
- secondary = (lang >> 10) & 0x3F;
-
- switch(primary) {
- case 0x00:
- switch(secondary) {
- case 0x01:
- name = "Process Default Language";
- break;
- }
- break;
- case 0x01:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Arabic (Saudi Arabia)";
- break;
- case 0x02:
- name = "Arabic (Iraq)";
- break;
- case 0x03:
- name = "Arabic (Egypt)";
- break;
- case 0x04:
- name = "Arabic (Libya)";
- break;
- case 0x05:
- name = "Arabic (Algeria)";
- break;
- case 0x06:
- name = "Arabic (Morocco)";
- break;
- case 0x07:
- name = "Arabic (Tunisia)";
- break;
- case 0x08:
- name = "Arabic (Oman)";
- break;
- case 0x09:
- name = "Arabic (Yemen)";
- break;
- case 0x0a:
- name = "Arabic (Syria)";
- break;
- case 0x0b:
- name = "Arabic (Jordan)";
- break;
- case 0x0c:
- name = "Arabic (Lebanon)";
- break;
- case 0x0d:
- name = "Arabic (Kuwait)";
- break;
- case 0x0e:
- name = "Arabic (U.A.E.)";
- break;
- case 0x0f:
- name = "Arabic (Bahrain)";
- break;
- case 0x10:
- name = "Arabic (Qatar)";
- break;
- }
- break;
- case 0x02:
- switch(secondary) {
- case 0x00:
- name = "Bulgarian (Bulgaria)";
- break;
- case 0x01:
- name = "Bulgarian";
- break;
- }
- break;
- case 0x03:
- switch(secondary) {
- case 0x00:
- name = "Catalan (Spain)";
- break;
- case 0x01:
- name = "Catalan";
- break;
- }
- break;
- case 0x04:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Chinese (Taiwan)";
- break;
- case 0x02:
- name = "Chinese (PRC)";
- break;
- case 0x03:
- name = "Chinese (Hong Kong S.A.R.)";
- break;
- case 0x04:
- name = "Chinese (Singapore)";
- break;
- case 0x05:
- name = "Chinese (Macau S.A.R.)";
- break;
- }
- break;
- case 0x05:
- switch(secondary) {
- case 0x00:
- name = "Czech (Czech Republic)";
- break;
- case 0x01:
- name = "Czech";
- break;
- }
- break;
- case 0x06:
- switch(secondary) {
- case 0x00:
- name = "Danish (Denmark)";
- break;
- case 0x01:
- name = "Danish";
- break;
- }
- break;
- case 0x07:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "German (Germany)";
- break;
- case 0x02:
- name = "German (Switzerland)";
- break;
- case 0x03:
- name = "German (Austria)";
- break;
- case 0x04:
- name = "German (Luxembourg)";
- break;
- case 0x05:
- name = "German (Liechtenstein)";
- break;
- }
- break;
- case 0x08:
- switch(secondary) {
- case 0x00:
- name = "Greek (Greece)";
- break;
- case 0x01:
- name = "Greek";
- break;
- }
- break;
- case 0x09:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "English (United States)";
- break;
- case 0x02:
- name = "English (United Kingdom)";
- break;
- case 0x03:
- name = "English (Australia)";
- break;
- case 0x04:
- name = "English (Canada)";
- break;
- case 0x05:
- name = "English (New Zealand)";
- break;
- case 0x06:
- name = "English (Ireland)";
- break;
- case 0x07:
- name = "English (South Africa)";
- break;
- case 0x08:
- name = "English (Jamaica)";
- break;
- case 0x09:
- name = "English (Caribbean)";
- break;
- case 0x0a:
- name = "English (Belize)";
- break;
- case 0x0b:
- name = "English (Trinidad and Tobago)";
- break;
- case 0x0c:
- name = "English (Zimbabwe)";
- break;
- case 0x0d:
- name = "English (Philippines)";
- break;
- case 0x10:
- name = "English (India)";
- break;
- case 0x11:
- name = "English (Malaysia)";
- break;
- case 0x12:
- name = "English (Singapore)";
- break;
- }
- break;
- case 0x0a:
- switch(secondary) {
- case 0x00:
- name = "Spanish (Spain)";
- break;
- case 0x01:
- name = "Spanish (Traditional Sort)";
- break;
- case 0x02:
- name = "Spanish (Mexico)";
- break;
- case 0x03:
- name = "Spanish (International Sort)";
- break;
- case 0x04:
- name = "Spanish (Guatemala)";
- break;
- case 0x05:
- name = "Spanish (Costa Rica)";
- break;
- case 0x06:
- name = "Spanish (Panama)";
- break;
- case 0x07:
- name = "Spanish (Dominican Republic)";
- break;
- case 0x08:
- name = "Spanish (Venezuela)";
- break;
- case 0x09:
- name = "Spanish (Colombia)";
- break;
- case 0x0a:
- name = "Spanish (Peru)";
- break;
- case 0x0b:
- name = "Spanish (Argentina)";
- break;
- case 0x0c:
- name = "Spanish (Ecuador)";
- break;
- case 0x0d:
- name = "Spanish (Chile)";
- break;
- case 0x0e:
- name = "Spanish (Uruguay)";
- break;
- case 0x0f:
- name = "Spanish (Paraguay)";
- break;
- case 0x10:
- name = "Spanish (Bolivia)";
- break;
- case 0x11:
- name = "Spanish (El Salvador)";
- break;
- case 0x12:
- name = "Spanish (Honduras)";
- break;
- case 0x13:
- name = "Spanish (Nicaragua)";
- break;
- case 0x14:
- name = "Spanish (Puerto Rico)";
- break;
- case 0x15:
- name = "Spanish (United States)";
- break;
- }
- break;
- case 0x0b:
- switch(secondary) {
- case 0x00:
- name = "Finnish (Finland)";
- break;
- case 0x01:
- name = "Finnish";
- break;
- }
- break;
- case 0x0c:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "French (France)";
- break;
- case 0x02:
- name = "French (Belgium)";
- break;
- case 0x03:
- name = "French (Canada)";
- break;
- case 0x04:
- name = "French (Switzerland)";
- break;
- case 0x05:
- name = "French (Luxembourg)";
- break;
- case 0x06:
- name = "French (Monaco)";
- break;
- }
- break;
- case 0x0d:
- switch(secondary) {
- case 0x00:
- name = "Hebrew (Israel)";
- break;
- case 0x01:
- name = "Hebrew";
- break;
- }
- break;
- case 0x0e:
- switch(secondary) {
- case 0x00:
- name = "Hungarian (Hungary)";
- break;
- case 0x01:
- name = "Hungarian";
- break;
- }
- break;
- case 0x0f:
- switch(secondary) {
- case 0x00:
- name = "Icelandic (Iceland)";
- break;
- case 0x01:
- name = "Icelandic";
- break;
- }
- break;
- case 0x10:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Italian (Italy)";
- break;
- case 0x02:
- name = "Italian (Switzerland)";
- break;
- }
- break;
- case 0x11:
- switch(secondary) {
- case 0x00:
- name = "Japanese (Japan)";
- break;
- case 0x01:
- name = "Japanese";
- break;
- }
- break;
- case 0x12:
- switch(secondary) {
- case 0x00:
- name = "Korean (Korea)";
- break;
- case 0x01:
- name = "Korean";
- break;
- }
- break;
- case 0x13:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Dutch (Netherlands)";
- break;
- case 0x02:
- name = "Dutch (Belgium)";
- break;
- }
- break;
- case 0x14:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Norwegian (Bokmal)";
- break;
- case 0x02:
- name = "Norwegian (Nynorsk)";
- break;
- }
- break;
- case 0x15:
- switch(secondary) {
- case 0x00:
- name = "Polish (Poland)";
- break;
- case 0x01:
- name = "Polish";
- break;
- }
- break;
- case 0x16:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Portuguese (Brazil)";
- break;
- case 0x02:
- name = "Portuguese (Portugal)";
- break;
- }
- break;
- case 0x17:
- switch(secondary) {
- case 0x01:
- name = "Romansh (Switzerland)";
- break;
- }
- break;
- case 0x18:
- switch(secondary) {
- case 0x00:
- name = "Romanian (Romania)";
- break;
- case 0x01:
- name = "Romanian";
- break;
- }
- break;
- case 0x19:
- switch(secondary) {
- case 0x00:
- name = "Russian (Russia)";
- break;
- case 0x01:
- name = "Russian";
- break;
- }
- break;
- case 0x1a:
- switch(secondary) {
- case 0x00:
- name = "Croatian (Croatia)";
- break;
- case 0x01:
- name = "Croatian";
- break;
- case 0x02:
- name = "Serbian (Latin)";
- break;
- case 0x03:
- name = "Serbian (Cyrillic)";
- break;
- case 0x04:
- name = "Croatian (Bosnia and Herzegovina)";
- break;
- case 0x05:
- name = "Bosnian (Latin, Bosnia and Herzegovina)";
- break;
- case 0x06:
- name = "Serbian (Latin, Bosnia and Herzegovina)";
- break;
- case 0x07:
- name = "Serbian (Cyrillic, Bosnia and Herzegovina)";
- break;
- case 0x08:
- name = "Bosnian (Cyrillic, Bosnia and Herzegovina)";
- break;
- }
- break;
- case 0x1b:
- switch(secondary) {
- case 0x00:
- name = "Slovak (Slovakia)";
- break;
- case 0x01:
- name = "Slovak";
- break;
- }
- break;
- case 0x1c:
- switch(secondary) {
- case 0x00:
- name = "Albanian (Albania)";
- break;
- case 0x01:
- name = "Albanian";
- break;
- }
- break;
- case 0x1d:
- switch(secondary) {
- case 0x00:
- name = "Swedish (Sweden)";
- break;
- case 0x01:
- name = "Swedish";
- break;
- case 0x02:
- name = "Swedish (Finland)";
- break;
- }
- break;
- case 0x1e:
- switch(secondary) {
- case 0x00:
- name = "Thai (Thailand)";
- break;
- case 0x01:
- name = "Thai";
- break;
- }
- break;
- case 0x1f:
- switch(secondary) {
- case 0x00:
- name = "Turkish (Turkey)";
- break;
- case 0x01:
- name = "Turkish";
- break;
- }
- break;
- case 0x20:
- switch(secondary) {
- case 0x00:
- name = "Urdu (Islamic Republic of Pakistan)";
- break;
- case 0x01:
- name = "Urdu";
- break;
- }
- break;
- case 0x21:
- switch(secondary) {
- case 0x00:
- name = "Indonesian (Indonesia)";
- break;
- case 0x01:
- name = "Indonesian";
- break;
- }
- break;
- case 0x22:
- switch(secondary) {
- case 0x00:
- name = "Ukrainian (Ukraine)";
- break;
- case 0x01:
- name = "Ukrainian";
- break;
- }
- break;
- case 0x23:
- switch(secondary) {
- case 0x00:
- name = "Belarusian (Belarus)";
- break;
- case 0x01:
- name = "Belarusian";
- break;
- }
- break;
- case 0x24:
- switch(secondary) {
- case 0x00:
- name = "Slovenian (Slovenia)";
- break;
- case 0x01:
- name = "Slovenian";
- break;
- }
- break;
- case 0x25:
- switch(secondary) {
- case 0x00:
- name = "Estonian (Estonia)";
- break;
- case 0x01:
- name = "Estonian";
- break;
- }
- break;
- case 0x26:
- switch(secondary) {
- case 0x00:
- name = "Latvian (Latvia)";
- break;
- case 0x01:
- name = "Latvian";
- break;
- }
- break;
- case 0x27:
- switch(secondary) {
- case 0x00:
- name = "Lithuanian (Lithuania)";
- break;
- case 0x01:
- name = "Lithuanian";
- break;
- }
- break;
- case 0x28:
- switch(secondary) {
- case 0x01:
- name = "Tajik (Tajikistan)";
- break;
- }
- break;
- case 0x29:
- switch(secondary) {
- case 0x00:
- name = "Farsi (Iran)";
- break;
- case 0x01:
- name = "Farsi";
- break;
- }
- break;
- case 0x2a:
- switch(secondary) {
- case 0x00:
- name = "Vietnamese (Viet Nam)";
- break;
- case 0x01:
- name = "Vietnamese";
- break;
- }
- break;
- case 0x2b:
- switch(secondary) {
- case 0x00:
- name = "Armenian (Armenia)";
- break;
- case 0x01:
- name = "Armenian";
- break;
- }
- break;
- case 0x2c:
- switch(secondary) {
- case 0x00:
- name = "Azeri (Latin) (Azerbaijan)";
- break;
- case 0x01:
- name = "Azeri (Latin)";
- break;
- case 0x02:
- name = "Azeri (Cyrillic)";
- break;
- }
- break;
- case 0x2d:
- switch(secondary) {
- case 0x00:
- name = "Basque (Spain)";
- break;
- case 0x01:
- name = "Basque";
- break;
- }
- break;
- case 0x2e:
- switch(secondary) {
- case 0x01:
- name = "Upper Sorbian (Germany)";
- break;
- case 0x02:
- name = "Lower Sorbian (Germany)";
- break;
- }
- break;
- case 0x2f:
- switch(secondary) {
- case 0x00:
- name = "FYRO Macedonian (Former Yugoslav Republic of Macedonia)";
- break;
- case 0x01:
- name = "FYRO Macedonian";
- break;
- }
- break;
- case 0x32:
- switch(secondary) {
- case 0x00:
- name = "Tswana (South Africa)";
- break;
- case 0x01:
- name = "Tswana";
- break;
- }
- break;
- case 0x34:
- switch(secondary) {
- case 0x00:
- name = "Xhosa (South Africa)";
- break;
- case 0x01:
- name = "Xhosa";
- break;
- }
- break;
- case 0x35:
- switch(secondary) {
- case 0x00:
- name = "Zulu (South Africa)";
- break;
- case 0x01:
- name = "Zulu";
- break;
- }
- break;
- case 0x36:
- switch(secondary) {
- case 0x00:
- name = "Afrikaans (South Africa)";
- break;
- case 0x01:
- name = "Afrikaans";
- break;
- }
- break;
- case 0x37:
- switch(secondary) {
- case 0x00:
- name = "Georgian (Georgia)";
- break;
- case 0x01:
- name = "Georgian";
- break;
- }
- break;
- case 0x38:
- switch(secondary) {
- case 0x00:
- name = "Faroese (Faroe Islands)";
- break;
- case 0x01:
- name = "Faroese";
- break;
- }
- break;
- case 0x39:
- switch(secondary) {
- case 0x00:
- name = "Hindi (India)";
- break;
- case 0x01:
- name = "Hindi";
- break;
- }
- break;
- case 0x3a:
- switch(secondary) {
- case 0x00:
- name = "Maltese (Malta)";
- break;
- case 0x01:
- name = "Maltese";
- break;
- }
- break;
- case 0x3b:
- switch(secondary) {
- case 0x00:
- name = "Sami (Northern) (Norway)";
- break;
- case 0x01:
- name = "Sami, Northern (Norway)";
- break;
- case 0x02:
- name = "Sami, Northern (Sweden)";
- break;
- case 0x03:
- name = "Sami, Northern (Finland)";
- break;
- case 0x04:
- name = "Sami, Lule (Norway)";
- break;
- case 0x05:
- name = "Sami, Lule (Sweden)";
- break;
- case 0x06:
- name = "Sami, Southern (Norway)";
- break;
- case 0x07:
- name = "Sami, Southern (Sweden)";
- break;
- case 0x08:
- name = "Sami, Skolt (Finland)";
- break;
- case 0x09:
- name = "Sami, Inari (Finland)";
- break;
- }
- break;
- case 0x3c:
- switch(secondary) {
- case 0x02:
- name = "Irish (Ireland)";
- break;
- }
- break;
- case 0x3e:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Malay (Malaysia)";
- break;
- case 0x02:
- name = "Malay (Brunei Darussalam)";
- break;
- }
- break;
- case 0x3f:
- switch(secondary) {
- case 0x00:
- name = "Kazakh (Kazakhstan)";
- break;
- case 0x01:
- name = "Kazakh";
- break;
- }
- break;
- case 0x40:
- switch(secondary) {
- case 0x00:
- name = "Kyrgyz (Kyrgyzstan)";
- break;
- case 0x01:
- name = "Kyrgyz (Cyrillic)";
- break;
- }
- break;
- case 0x41:
- switch(secondary) {
- case 0x00:
- name = "Swahili (Kenya)";
- break;
- case 0x01:
- name = "Swahili";
- break;
- }
- break;
- case 0x42:
- switch(secondary) {
- case 0x01:
- name = "Turkmen (Turkmenistan)";
- break;
- }
- break;
- case 0x43:
- switch(secondary) {
- case 0x00:
- name = "Uzbek (Latin) (Uzbekistan)";
- break;
- case 0x01:
- name = "Uzbek (Latin)";
- break;
- case 0x02:
- name = "Uzbek (Cyrillic)";
- break;
- }
- break;
- case 0x44:
- switch(secondary) {
- case 0x00:
- name = "Tatar (Russia)";
- break;
- case 0x01:
- name = "Tatar";
- break;
- }
- break;
- case 0x45:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Bengali (India)";
- break;
- }
- break;
- case 0x46:
- switch(secondary) {
- case 0x00:
- name = "Punjabi (India)";
- break;
- case 0x01:
- name = "Punjabi";
- break;
- }
- break;
- case 0x47:
- switch(secondary) {
- case 0x00:
- name = "Gujarati (India)";
- break;
- case 0x01:
- name = "Gujarati";
- break;
- }
- break;
- case 0x49:
- switch(secondary) {
- case 0x00:
- name = "Tamil (India)";
- break;
- case 0x01:
- name = "Tamil";
- break;
- }
- break;
- case 0x4a:
- switch(secondary) {
- case 0x00:
- name = "Telugu (India)";
- break;
- case 0x01:
- name = "Telugu";
- break;
- }
- break;
- case 0x4b:
- switch(secondary) {
- case 0x00:
- name = "Kannada (India)";
- break;
- case 0x01:
- name = "Kannada";
- break;
- }
- break;
- case 0x4c:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Malayalam (India)";
- break;
- }
- break;
- case 0x4d:
- switch(secondary) {
- case 0x01:
- name = "Assamese (India)";
- break;
- }
- break;
- case 0x4e:
- switch(secondary) {
- case 0x00:
- name = "Marathi (India)";
- break;
- case 0x01:
- name = "Marathi";
- break;
- }
- break;
- case 0x4f:
- switch(secondary) {
- case 0x00:
- name = "Sanskrit (India)";
- break;
- case 0x01:
- name = "Sanskrit";
- break;
- }
- break;
- case 0x50:
- switch(secondary) {
- case 0x00:
- name = "Mongolian (Mongolia)";
- break;
- case 0x01:
- name = "Mongolian (Cyrillic)";
- break;
- case 0x02:
- name = "Mongolian (PRC)";
- break;
- }
- break;
- case 0x51:
- switch(secondary) {
- case 0x01:
- name = "Tibetan (PRC)";
- break;
- case 0x02:
- name = "Tibetan (Bhutan)";
- break;
- }
- break;
- case 0x52:
- switch(secondary) {
- case 0x00:
- name = "Welsh (United Kingdom)";
- break;
- case 0x01:
- name = "Welsh";
- break;
- }
- break;
- case 0x53:
- switch(secondary) {
- case 0x01:
- name = "Khmer (Cambodia)";
- break;
- }
- break;
- case 0x54:
- switch(secondary) {
- case 0x01:
- name = "Lao (Lao PDR)";
- break;
- }
- break;
- case 0x56:
- switch(secondary) {
- case 0x00:
- name = "Galician (Spain)";
- break;
- case 0x01:
- name = "Galician";
- break;
- }
- break;
- case 0x57:
- switch(secondary) {
- case 0x00:
- name = "Konkani (India)";
- break;
- case 0x01:
- name = "Konkani";
- break;
- }
- break;
- case 0x5a:
- switch(secondary) {
- case 0x00:
- name = "Syriac (Syria)";
- break;
- case 0x01:
- name = "Syriac";
- break;
- }
- break;
- case 0x5b:
- switch(secondary) {
- case 0x01:
- name = "Sinhala (Sri Lanka)";
- break;
- }
- break;
- case 0x5d:
- switch(secondary) {
- case 0x01:
- name = "Inuktitut (Syllabics, Canada)";
- break;
- case 0x02:
- name = "Inuktitut (Latin, Canada)";
- break;
- }
- break;
- case 0x5e:
- switch(secondary) {
- case 0x01:
- name = "Amharic (Ethiopia)";
- break;
- }
- break;
- case 0x5f:
- switch(secondary) {
- case 0x02:
- name = "Tamazight (Algeria, Latin)";
- break;
- }
- break;
- case 0x61:
- switch(secondary) {
- case 0x01:
- name = "Nepali (Nepal)";
- break;
- }
- break;
- case 0x62:
- switch(secondary) {
- case 0x01:
- name = "Frisian (Netherlands)";
- break;
- }
- break;
- case 0x63:
- switch(secondary) {
- case 0x01:
- name = "Pashto (Afghanistan)";
- break;
- }
- break;
- case 0x64:
- switch(secondary) {
- case 0x01:
- name = "Filipino (Philippines)";
- break;
- }
- break;
- case 0x65:
- switch(secondary) {
- case 0x00:
- name = "Divehi (Maldives)";
- break;
- case 0x01:
- name = "Divehi";
- break;
- }
- break;
- case 0x68:
- switch(secondary) {
- case 0x01:
- name = "Hausa (Nigeria, Latin)";
- break;
- }
- break;
- case 0x6a:
- switch(secondary) {
- case 0x01:
- name = "Yoruba (Nigeria)";
- break;
- }
- break;
- case 0x6b:
- switch(secondary) {
- case 0x00:
- case 0x01:
- name = "Quechua (Bolivia)";
- break;
- case 0x02:
- name = "Quechua (Ecuador)";
- break;
- case 0x03:
- name = "Quechua (Peru)";
- break;
- }
- break;
- case 0x6c:
- switch(secondary) {
- case 0x00:
- name = "Northern Sotho (South Africa)";
- break;
- case 0x01:
- name = "Northern Sotho";
- break;
- }
- break;
- case 0x6d:
- switch(secondary) {
- case 0x01:
- name = "Bashkir (Russia)";
- break;
- }
- break;
- case 0x6e:
- switch(secondary) {
- case 0x01:
- name = "Luxembourgish (Luxembourg)";
- break;
- }
- break;
- case 0x6f:
- switch(secondary) {
- case 0x01:
- name = "Greenlandic (Greenland)";
- break;
- }
- break;
- case 0x78:
- switch(secondary) {
- case 0x01:
- name = "Yi (PRC)";
- break;
- }
- break;
- case 0x7a:
- switch(secondary) {
- case 0x01:
- name = "Mapudungun (Chile)";
- break;
- }
- break;
- case 0x7c:
- switch(secondary) {
- case 0x01:
- name = "Mohawk (Mohawk)";
- break;
- }
- break;
- case 0x7e:
- switch(secondary) {
- case 0x01:
- name = "Breton (France)";
- break;
- }
- break;
- case 0x7f:
- switch(secondary) {
- case 0x00:
- name = "Invariant Language (Invariant Country)";
- break;
- }
- break;
- case 0x80:
- switch(secondary) {
- case 0x01:
- name = "Uighur (PRC)";
- break;
- }
- break;
- case 0x81:
- switch(secondary) {
- case 0x00:
- name = "Maori (New Zealand)";
- break;
- case 0x01:
- name = "Maori";
- break;
- }
- break;
- case 0x83:
- switch(secondary) {
- case 0x01:
- name = "Corsican (France)";
- break;
- }
- break;
- case 0x84:
- switch(secondary) {
- case 0x01:
- name = "Alsatian (France)";
- break;
- }
- break;
- case 0x85:
- switch(secondary) {
- case 0x01:
- name = "Yakut (Russia)";
- break;
- }
- break;
- case 0x86:
- switch(secondary) {
- case 0x01:
- name = "K'iche (Guatemala)";
- break;
- }
- break;
- case 0x87:
- switch(secondary) {
- case 0x01:
- name = "Kinyarwanda (Rwanda)";
- break;
- }
- break;
- case 0x88:
- switch(secondary) {
- case 0x01:
- name = "Wolof (Senegal)";
- break;
- }
- break;
- case 0x8c:
- switch(secondary) {
- case 0x01:
- name = "Dari (Afghanistan)";
- break;
- }
- break;
-
- default:
- name = "Language Neutral";
-
- }
-
- if (!name)
- name = "Language Neutral";
-
- return copy_lang (lang_out, lang_len, name);
-}
+++ /dev/null
-/*
- * versioninfo.h: Version info structures found in PE file resources
- *
- * Author:
- * Dick Porter (dick@ximian.com)
- *
- * (C) 2002 Ximian, Inc.
- */
-
-#ifndef _WAPI_VERSIONINFO_H_
-#define _WAPI_VERSIONINFO_H_
-
-#include <glib.h>
-
-/*
- * VS_VERSIONINFO:
- *
- * 2 bytes: Length in bytes (this block, and all child blocks. does _not_ include alignment padding between blocks)
- * 2 bytes: Length in bytes of VS_FIXEDFILEINFO struct
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string (null terminated): Key (currently "VS_VERSION_INFO")
- * Variable length padding to align VS_FIXEDFILEINFO on a 32-bit boundary
- * VS_FIXEDFILEINFO struct
- * Variable length padding to align Child struct on a 32-bit boundary
- * Child struct (zero or one StringFileInfo structs, zero or one VarFileInfo structs)
- */
-
-/*
- * StringFileInfo:
- *
- * 2 bytes: Length in bytes (includes this block, as well as all Child blocks)
- * 2 bytes: Value length (always zero)
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string: Key (currently "StringFileInfo")
- * Variable length padding to align Child struct on a 32-bit boundary
- * Child structs ( one or more StringTable structs. Each StringTable struct's Key member indicates the appropriate language and code page for displaying the text in that StringTable struct.)
- */
-
-/*
- * StringTable:
- *
- * 2 bytes: Length in bytes (includes this block as well as all Child blocks, but excludes any padding between String blocks)
- * 2 bytes: Value length (always zero)
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string: Key. An 8-digit hex number stored as a unicode string. The four most significant digits represent the language identifier. The four least significant digits represent the code page for which the data is formatted.
- * Variable length padding to align Child struct on a 32-bit boundary
- * Child structs (an array of one or more String structs (each aligned on a 32-bit boundary)
- */
-
-/*
- * String:
- *
- * 2 bytes: Length in bytes (of this block)
- * 2 bytes: Value length (the length in words of the Value member)
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string: Key. arbitrary string, identifies data.
- * Variable length padding to align Value on a 32-bit boundary
- * Value: Variable length unicode string, holding data.
- */
-
-/*
- * VarFileInfo:
- *
- * 2 bytes: Length in bytes (includes this block, as well as all Child blocks)
- * 2 bytes: Value length (always zero)
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string: Key (currently "VarFileInfo")
- * Variable length padding to align Child struct on a 32-bit boundary
- * Child structs (a Var struct)
- */
-
-/*
- * Var:
- *
- * 2 bytes: Length in bytes of this block
- * 2 bytes: Value length in bytes of the Value
- * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
- * Variable length unicode string: Key ("Translation")
- * Variable length padding to align Value on a 32-bit boundary
- * Value: an array of one or more 4 byte values that are language and code page identifier pairs, low-order word containing a language identifier, and the high-order word containing a code page number. Either word can be zero, indicating that the file is language or code page independent.
- */
-
-typedef struct
-{
- guint32 dwSignature; /* Should contain 0xFEEF04BD
- * on le machines */
- guint32 dwStrucVersion;
- guint32 dwFileVersionMS;
- guint32 dwFileVersionLS;
- guint32 dwProductVersionMS;
- guint32 dwProductVersionLS;
- guint32 dwFileFlagsMask;
- guint32 dwFileFlags;
- guint32 dwFileOS;
- guint32 dwFileType;
- guint32 dwFileSubtype;
- guint32 dwFileDateMS;
- guint32 dwFileDateLS;
-} WapiFixedFileInfo;
-
-#if G_BYTE_ORDER == G_BIG_ENDIAN
-#define VS_FFI_SIGNATURE 0xbd04effe
-#define VS_FFI_STRUCVERSION 0x00000100
-#else
-#define VS_FFI_SIGNATURE 0xfeef04bd
-#define VS_FFI_STRUCVERSION 0x00010000
-#endif
-
-#define VS_FFI_FILEFLAGSMASK 0x3f
-
-typedef struct
-{
- gpointer lpBaseOfDll;
- guint32 SizeOfImage;
- gpointer EntryPoint;
-} WapiModuleInfo;
-
-#define IMAGE_NUMBEROF_DIRECTORY_ENTRIES 16
-
-#define IMAGE_DIRECTORY_ENTRY_EXPORT 0
-#define IMAGE_DIRECTORY_ENTRY_IMPORT 1
-#define IMAGE_DIRECTORY_ENTRY_RESOURCE 2
-#define IMAGE_DIRECTORY_ENTRY_EXCEPTION 3
-#define IMAGE_DIRECTORY_ENTRY_SECURITY 4
-#define IMAGE_DIRECTORY_ENTRY_BASERELOC 5
-#define IMAGE_DIRECTORY_ENTRY_DEBUG 6
-#define IMAGE_DIRECTORY_ENTRY_COPYRIGHT 7
-#define IMAGE_DIRECTORY_ENTRY_ARCHITECTURE 7
-#define IMAGE_DIRECTORY_ENTRY_GLOBALPTR 8
-#define IMAGE_DIRECTORY_ENTRY_TLS 9
-#define IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG 10
-#define IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT 11
-#define IMAGE_DIRECTORY_ENTRY_IAT 12
-#define IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT 13
-#define IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR 14
-
-#define IMAGE_SIZEOF_SHORT_NAME 8
-
-#define IMAGE_RESOURCE_NAME_IS_STRING 0x80000000
-#define IMAGE_RESOURCE_DATA_IS_DIRECTORY 0x80000000
-
-#if G_BYTE_ORDER != G_LITTLE_ENDIAN
-#define IMAGE_DOS_SIGNATURE 0x4d5a
-#define IMAGE_NT_SIGNATURE 0x50450000
-#define IMAGE_NT_OPTIONAL_HDR32_MAGIC 0xb10
-#define IMAGE_NT_OPTIONAL_HDR64_MAGIC 0xb20
-#else
-#define IMAGE_DOS_SIGNATURE 0x5a4d
-#define IMAGE_NT_SIGNATURE 0x00004550
-#define IMAGE_NT_OPTIONAL_HDR32_MAGIC 0x10b
-#define IMAGE_NT_OPTIONAL_HDR64_MAGIC 0x20b
-#endif
-
-typedef struct
-{
- guint16 e_magic;
- guint16 e_cblp;
- guint16 e_cp;
- guint16 e_crlc;
- guint16 e_cparhdr;
- guint16 e_minalloc;
- guint16 e_maxalloc;
- guint16 e_ss;
- guint16 e_sp;
- guint16 e_csum;
- guint16 e_ip;
- guint16 e_cs;
- guint16 e_lfarlc;
- guint16 e_ovno;
- guint16 e_res[4];
- guint16 e_oemid;
- guint16 e_oeminfo;
- guint16 e_res2[10];
- guint32 e_lfanew;
-} WapiImageDosHeader;
-
-typedef struct
-{
- guint16 Machine;
- guint16 NumberOfSections;
- guint32 TimeDateStamp;
- guint32 PointerToSymbolTable;
- guint32 NumberOfSymbols;
- guint16 SizeOfOptionalHeader;
- guint16 Characteristics;
-} WapiImageFileHeader;
-
-typedef struct
-{
- guint32 VirtualAddress;
- guint32 Size;
-} WapiImageDataDirectory;
-
-typedef struct
-{
- guint16 Magic;
- guint8 MajorLinkerVersion;
- guint8 MinorLinkerVersion;
- guint32 SizeOfCode;
- guint32 SizeOfInitializedData;
- guint32 SizeOfUninitializedData;
- guint32 AddressOfEntryPoint;
- guint32 BaseOfCode;
- guint32 BaseOfData;
- guint32 ImageBase;
- guint32 SectionAlignment;
- guint32 FileAlignment;
- guint16 MajorOperatingSystemVersion;
- guint16 MinorOperatingSystemVersion;
- guint16 MajorImageVersion;
- guint16 MinorImageVersion;
- guint16 MajorSubsystemVersion;
- guint16 MinorSubsystemVersion;
- guint32 Win32VersionValue;
- guint32 SizeOfImage;
- guint32 SizeOfHeaders;
- guint32 CheckSum;
- guint16 Subsystem;
- guint16 DllCharacteristics;
- guint32 SizeOfStackReserve;
- guint32 SizeOfStackCommit;
- guint32 SizeOfHeapReserve;
- guint32 SizeOfHeapCommit;
- guint32 LoaderFlags;
- guint32 NumberOfRvaAndSizes;
- WapiImageDataDirectory DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES];
-} WapiImageOptionalHeader32;
-
-typedef struct
-{
- guint16 Magic;
- guint8 MajorLinkerVersion;
- guint8 MinorLinkerVersion;
- guint32 SizeOfCode;
- guint32 SizeOfInitializedData;
- guint32 SizeOfUninitializedData;
- guint32 AddressOfEntryPoint;
- guint32 BaseOfCode;
- guint64 ImageBase;
- guint32 SectionAlignment;
- guint32 FileAlignment;
- guint16 MajorOperatingSystemVersion;
- guint16 MinorOperatingSystemVersion;
- guint16 MajorImageVersion;
- guint16 MinorImageVersion;
- guint16 MajorSubsystemVersion;
- guint16 MinorSubsystemVersion;
- guint32 Win32VersionValue;
- guint32 SizeOfImage;
- guint32 SizeOfHeaders;
- guint32 CheckSum;
- guint16 Subsystem;
- guint16 DllCharacteristics;
- guint64 SizeOfStackReserve;
- guint64 SizeOfStackCommit;
- guint64 SizeOfHeapReserve;
- guint64 SizeOfHeapCommit;
- guint32 LoaderFlags;
- guint32 NumberOfRvaAndSizes;
- WapiImageDataDirectory DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES];
-} WapiImageOptionalHeader64;
-
-#if SIZEOF_VOID_P == 8
-typedef WapiImageOptionalHeader64 WapiImageOptionalHeader;
-#else
-typedef WapiImageOptionalHeader32 WapiImageOptionalHeader;
-#endif
-
-typedef struct
-{
- guint32 Signature;
- WapiImageFileHeader FileHeader;
- WapiImageOptionalHeader32 OptionalHeader;
-} WapiImageNTHeaders32;
-
-typedef struct
-{
- guint32 Signature;
- WapiImageFileHeader FileHeader;
- WapiImageOptionalHeader64 OptionalHeader;
-} WapiImageNTHeaders64;
-
-#if SIZEOF_VOID_P == 8
-typedef WapiImageNTHeaders64 WapiImageNTHeaders;
-#else
-typedef WapiImageNTHeaders32 WapiImageNTHeaders;
-#endif
-
-typedef struct
-{
- guint8 Name[IMAGE_SIZEOF_SHORT_NAME];
- union
- {
- guint32 PhysicalAddress;
- guint32 VirtualSize;
- } Misc;
- guint32 VirtualAddress;
- guint32 SizeOfRawData;
- guint32 PointerToRawData;
- guint32 PointerToRelocations;
- guint32 PointerToLinenumbers;
- guint16 NumberOfRelocations;
- guint16 NumberOfLinenumbers;
- guint32 Characteristics;
-} WapiImageSectionHeader;
-
-#define IMAGE_FIRST_SECTION(header) ((WapiImageSectionHeader *)((gsize)(header) + G_STRUCT_OFFSET (WapiImageNTHeaders, OptionalHeader) + GUINT16_FROM_LE (((WapiImageNTHeaders *)(header))->FileHeader.SizeOfOptionalHeader)))
-
-#define _WAPI_IMAGE_FIRST_SECTION32(header) ((WapiImageSectionHeader *)((gsize)(header) + G_STRUCT_OFFSET (WapiImageNTHeaders32, OptionalHeader) + GUINT16_FROM_LE (((WapiImageNTHeaders32 *)(header))->FileHeader.SizeOfOptionalHeader)))
-
-#define RT_CURSOR 0x01
-#define RT_BITMAP 0x02
-#define RT_ICON 0x03
-#define RT_MENU 0x04
-#define RT_DIALOG 0x05
-#define RT_STRING 0x06
-#define RT_FONTDIR 0x07
-#define RT_FONT 0x08
-#define RT_ACCELERATOR 0x09
-#define RT_RCDATA 0x0a
-#define RT_MESSAGETABLE 0x0b
-#define RT_GROUP_CURSOR 0x0c
-#define RT_GROUP_ICON 0x0e
-#define RT_VERSION 0x10
-#define RT_DLGINCLUDE 0x11
-#define RT_PLUGPLAY 0x13
-#define RT_VXD 0x14
-#define RT_ANICURSOR 0x15
-#define RT_ANIICON 0x16
-#define RT_HTML 0x17
-#define RT_MANIFEST 0x18
-
-typedef struct
-{
- guint32 Characteristics;
- guint32 TimeDateStamp;
- guint16 MajorVersion;
- guint16 MinorVersion;
- guint16 NumberOfNamedEntries;
- guint16 NumberOfIdEntries;
-} WapiImageResourceDirectory;
-
-typedef struct
-{
- union
- {
- struct
- {
-#if G_BYTE_ORDER == G_BIG_ENDIAN
- guint32 NameIsString:1;
- guint32 NameOffset:31;
-#else
- guint32 NameOffset:31;
- guint32 NameIsString:1;
-#endif
- };
- guint32 Name;
-#if G_BYTE_ORDER == G_BIG_ENDIAN
- struct
- {
- guint16 __wapi_big_endian_padding;
- guint16 Id;
- };
-#else
- guint16 Id;
-#endif
- };
- union
- {
- guint32 OffsetToData;
- struct
- {
-#if G_BYTE_ORDER == G_BIG_ENDIAN
- guint32 DataIsDirectory:1;
- guint32 OffsetToDirectory:31;
-#else
- guint32 OffsetToDirectory:31;
- guint32 DataIsDirectory:1;
-#endif
- };
- };
-} WapiImageResourceDirectoryEntry;
-
-typedef struct
-{
- guint32 OffsetToData;
- guint32 Size;
- guint32 CodePage;
- guint32 Reserved;
-} WapiImageResourceDataEntry;
-
-#define VS_FF_DEBUG 0x0001
-#define VS_FF_PRERELEASE 0x0002
-#define VS_FF_PATCHED 0x0004
-#define VS_FF_PRIVATEBUILD 0x0008
-#define VS_FF_INFOINFERRED 0x0010
-#define VS_FF_SPECIALBUILD 0x0020
-
-#define VOS_UNKNOWN 0x00000000
-#define VOS_DOS 0x00010000
-#define VOS_OS216 0x00020000
-#define VOS_OS232 0x00030000
-#define VOS_NT 0x00040000
-#define VOS__BASE 0x00000000
-#define VOS__WINDOWS16 0x00000001
-#define VOS__PM16 0x00000002
-#define VOS__PM32 0x00000003
-#define VOS__WINDOWS32 0x00000004
-/* Should "embrace and extend" here with some entries for linux etc */
-
-#define VOS_DOS_WINDOWS16 0x00010001
-#define VOS_DOS_WINDOWS32 0x00010004
-#define VOS_OS216_PM16 0x00020002
-#define VOS_OS232_PM32 0x00030003
-#define VOS_NT_WINDOWS32 0x00040004
-
-#define VFT_UNKNOWN 0x0000
-#define VFT_APP 0x0001
-#define VFT_DLL 0x0002
-#define VFT_DRV 0x0003
-#define VFT_FONT 0x0004
-#define VFT_VXD 0x0005
-#define VFT_STATIC_LIB 0x0007
-
-#define VFT2_UNKNOWN 0x0000
-#define VFT2_DRV_PRINTER 0x0001
-#define VFT2_DRV_KEYBOARD 0x0002
-#define VFT2_DRV_LANGUAGE 0x0003
-#define VFT2_DRV_DISPLAY 0x0004
-#define VFT2_DRV_MOUSE 0x0005
-#define VFT2_DRV_NETWORK 0x0006
-#define VFT2_DRV_SYSTEM 0x0007
-#define VFT2_DRV_INSTALLABLE 0x0008
-#define VFT2_DRV_SOUND 0x0009
-#define VFT2_DRV_COMM 0x000a
-#define VFT2_DRV_INPUTMETHOD 0x000b
-#define VFT2_FONT_RASTER 0x0001
-#define VFT2_FONT_VECTOR 0x0002
-#define VFT2_FONT_TRUETYPE 0x0003
-
-#define MAKELANGID(primary,secondary) ((guint16)((secondary << 10) | (primary)))
-
-extern guint32 GetFileVersionInfoSize (gunichar2 *filename, guint32 *handle);
-extern gboolean GetFileVersionInfo (gunichar2 *filename, guint32 handle,
- guint32 len, gpointer data);
-extern gboolean VerQueryValue (gconstpointer datablock,
- const gunichar2 *subblock, gpointer *buffer,
- guint32 *len);
-extern guint32 VerLanguageName (guint32 lang, gunichar2 *lang_out,
- guint32 lang_len);
-
-#endif /* _WAPI_VERSIONINFO_H_ */
#define WSARecv wapi_WSARecv
#define WSASend wapi_WSASend
#define GetSystemInfo wapi_GetSystemInfo
-#define GetFileVersionInfoSize wapi_GetFileVersionInfoSize
-#define GetFileVersionInfo wapi_GetFileVersionInfo
-#define VerQueryValue wapi_VerQueryValue
-#define VerLanguageName wapi_VerLanguageName
#endif /* __WAPI_REMAP_H__ */
#include <mono/io-layer/wapi-remap.h>
#include <mono/io-layer/io.h>
+#include <mono/io-layer/io-portability.h>
#include <mono/io-layer/error.h>
#include <mono/io-layer/sockets.h>
-#include <mono/io-layer/versioninfo.h>
G_BEGIN_DECLS
#include <config.h>
#include <glib.h>
-#include "io-layer/io-layer.h"
+#ifndef HOST_WIN32
-#if !defined(HOST_WIN32)
+typedef struct {
+ guint32 dwSignature; /* Should contain 0xFEEF04BD on le machines */
+ guint32 dwStrucVersion;
+ guint32 dwFileVersionMS;
+ guint32 dwFileVersionLS;
+ guint32 dwProductVersionMS;
+ guint32 dwProductVersionLS;
+ guint32 dwFileFlagsMask;
+ guint32 dwFileFlags;
+ guint32 dwFileOS;
+ guint32 dwFileType;
+ guint32 dwFileSubtype;
+ guint32 dwFileDateMS;
+ guint32 dwFileDateLS;
+} VS_FIXEDFILEINFO;
+
+typedef struct {
+ gpointer lpBaseOfDll;
+ guint32 SizeOfImage;
+ gpointer EntryPoint;
+} MODULEINFO;
+
+#define VS_FF_DEBUG 0x0001
+#define VS_FF_PRERELEASE 0x0002
+#define VS_FF_PATCHED 0x0004
+#define VS_FF_PRIVATEBUILD 0x0008
+#define VS_FF_INFOINFERRED 0x0010
+#define VS_FF_SPECIALBUILD 0x0020
guint32
mono_w32process_get_pid (gpointer handle);
gboolean
mono_w32process_module_get_information (gpointer process, gpointer module, MODULEINFO *modinfo, guint32 size);
-#endif /* !defined(HOST_WIN32) */
+guint32
+mono_w32process_get_fileversion_info_size (gunichar2 *filename, guint32 *handle);
+
+gboolean
+mono_w32process_get_fileversion_info (gunichar2 *filename, guint32 handle, guint32 len, gpointer data);
+
+gboolean
+mono_w32process_ver_query_value (gconstpointer datablock, const gunichar2 *subblock, gpointer *buffer, guint32 *len);
+
+guint32
+mono_w32process_ver_language_name (guint32 lang, gunichar2 *lang_out, guint32 lang_len);
+
+#endif /* HOST_WIN32 */
#endif /* _MONO_METADATA_W32PROCESS_INTERNALS_H_ */
#include <mono/utils/mono-lazy-init.h>
#include <mono/utils/mono-signal-handler.h>
#include <mono/utils/mono-time.h>
+#include <mono/utils/mono-mmap.h>
+#include <mono/utils/strenc.h>
#ifndef MAXPATHLEN
#define MAXPATHLEN 242
MonoProcess *mono_process;
} MonoW32HandleProcess;
+/*
+ * VS_VERSIONINFO:
+ *
+ * 2 bytes: Length in bytes (this block, and all child blocks. does _not_ include alignment padding between blocks)
+ * 2 bytes: Length in bytes of VS_FIXEDFILEINFO struct
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string (null terminated): Key (currently "VS_VERSION_INFO")
+ * Variable length padding to align VS_FIXEDFILEINFO on a 32-bit boundary
+ * VS_FIXEDFILEINFO struct
+ * Variable length padding to align Child struct on a 32-bit boundary
+ * Child struct (zero or one StringFileInfo structs, zero or one VarFileInfo structs)
+ */
+
+/*
+ * StringFileInfo:
+ *
+ * 2 bytes: Length in bytes (includes this block, as well as all Child blocks)
+ * 2 bytes: Value length (always zero)
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string: Key (currently "StringFileInfo")
+ * Variable length padding to align Child struct on a 32-bit boundary
+ * Child structs ( one or more StringTable structs. Each StringTable struct's Key member indicates the appropriate language and code page for displaying the text in that StringTable struct.)
+ */
+
+/*
+ * StringTable:
+ *
+ * 2 bytes: Length in bytes (includes this block as well as all Child blocks, but excludes any padding between String blocks)
+ * 2 bytes: Value length (always zero)
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string: Key. An 8-digit hex number stored as a unicode string. The four most significant digits represent the language identifier. The four least significant digits represent the code page for which the data is formatted.
+ * Variable length padding to align Child struct on a 32-bit boundary
+ * Child structs (an array of one or more String structs (each aligned on a 32-bit boundary)
+ */
+
+/*
+ * String:
+ *
+ * 2 bytes: Length in bytes (of this block)
+ * 2 bytes: Value length (the length in words of the Value member)
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string: Key. arbitrary string, identifies data.
+ * Variable length padding to align Value on a 32-bit boundary
+ * Value: Variable length unicode string, holding data.
+ */
+
+/*
+ * VarFileInfo:
+ *
+ * 2 bytes: Length in bytes (includes this block, as well as all Child blocks)
+ * 2 bytes: Value length (always zero)
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string: Key (currently "VarFileInfo")
+ * Variable length padding to align Child struct on a 32-bit boundary
+ * Child structs (a Var struct)
+ */
+
+/*
+ * Var:
+ *
+ * 2 bytes: Length in bytes of this block
+ * 2 bytes: Value length in bytes of the Value
+ * 2 bytes: Type (contains 1 if version resource contains text data and 0 if version resource contains binary data)
+ * Variable length unicode string: Key ("Translation")
+ * Variable length padding to align Value on a 32-bit boundary
+ * Value: an array of one or more 4 byte values that are language and code page identifier pairs, low-order word containing a language identifier, and the high-order word containing a code page number. Either word can be zero, indicating that the file is language or code page independent.
+ */
+
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+#define VS_FFI_SIGNATURE 0xbd04effe
+#define VS_FFI_STRUCVERSION 0x00000100
+#else
+#define VS_FFI_SIGNATURE 0xfeef04bd
+#define VS_FFI_STRUCVERSION 0x00010000
+#endif
+
+#define IMAGE_NUMBEROF_DIRECTORY_ENTRIES 16
+
+#define IMAGE_DIRECTORY_ENTRY_EXPORT 0
+#define IMAGE_DIRECTORY_ENTRY_IMPORT 1
+#define IMAGE_DIRECTORY_ENTRY_RESOURCE 2
+
+#define IMAGE_SIZEOF_SHORT_NAME 8
+
+#if G_BYTE_ORDER != G_LITTLE_ENDIAN
+#define IMAGE_DOS_SIGNATURE 0x4d5a
+#define IMAGE_NT_SIGNATURE 0x50450000
+#define IMAGE_NT_OPTIONAL_HDR32_MAGIC 0xb10
+#define IMAGE_NT_OPTIONAL_HDR64_MAGIC 0xb20
+#else
+#define IMAGE_DOS_SIGNATURE 0x5a4d
+#define IMAGE_NT_SIGNATURE 0x00004550
+#define IMAGE_NT_OPTIONAL_HDR32_MAGIC 0x10b
+#define IMAGE_NT_OPTIONAL_HDR64_MAGIC 0x20b
+#endif
+
+typedef struct {
+ guint16 e_magic;
+ guint16 e_cblp;
+ guint16 e_cp;
+ guint16 e_crlc;
+ guint16 e_cparhdr;
+ guint16 e_minalloc;
+ guint16 e_maxalloc;
+ guint16 e_ss;
+ guint16 e_sp;
+ guint16 e_csum;
+ guint16 e_ip;
+ guint16 e_cs;
+ guint16 e_lfarlc;
+ guint16 e_ovno;
+ guint16 e_res[4];
+ guint16 e_oemid;
+ guint16 e_oeminfo;
+ guint16 e_res2[10];
+ guint32 e_lfanew;
+} IMAGE_DOS_HEADER;
+
+typedef struct {
+ guint16 Machine;
+ guint16 NumberOfSections;
+ guint32 TimeDateStamp;
+ guint32 PointerToSymbolTable;
+ guint32 NumberOfSymbols;
+ guint16 SizeOfOptionalHeader;
+ guint16 Characteristics;
+} IMAGE_FILE_HEADER;
+
+typedef struct {
+ guint32 VirtualAddress;
+ guint32 Size;
+} IMAGE_DATA_DIRECTORY;
+
+typedef struct {
+ guint16 Magic;
+ guint8 MajorLinkerVersion;
+ guint8 MinorLinkerVersion;
+ guint32 SizeOfCode;
+ guint32 SizeOfInitializedData;
+ guint32 SizeOfUninitializedData;
+ guint32 AddressOfEntryPoint;
+ guint32 BaseOfCode;
+ guint32 BaseOfData;
+ guint32 ImageBase;
+ guint32 SectionAlignment;
+ guint32 FileAlignment;
+ guint16 MajorOperatingSystemVersion;
+ guint16 MinorOperatingSystemVersion;
+ guint16 MajorImageVersion;
+ guint16 MinorImageVersion;
+ guint16 MajorSubsystemVersion;
+ guint16 MinorSubsystemVersion;
+ guint32 Win32VersionValue;
+ guint32 SizeOfImage;
+ guint32 SizeOfHeaders;
+ guint32 CheckSum;
+ guint16 Subsystem;
+ guint16 DllCharacteristics;
+ guint32 SizeOfStackReserve;
+ guint32 SizeOfStackCommit;
+ guint32 SizeOfHeapReserve;
+ guint32 SizeOfHeapCommit;
+ guint32 LoaderFlags;
+ guint32 NumberOfRvaAndSizes;
+ IMAGE_DATA_DIRECTORY DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES];
+} IMAGE_OPTIONAL_HEADER32;
+
+typedef struct {
+ guint16 Magic;
+ guint8 MajorLinkerVersion;
+ guint8 MinorLinkerVersion;
+ guint32 SizeOfCode;
+ guint32 SizeOfInitializedData;
+ guint32 SizeOfUninitializedData;
+ guint32 AddressOfEntryPoint;
+ guint32 BaseOfCode;
+ guint64 ImageBase;
+ guint32 SectionAlignment;
+ guint32 FileAlignment;
+ guint16 MajorOperatingSystemVersion;
+ guint16 MinorOperatingSystemVersion;
+ guint16 MajorImageVersion;
+ guint16 MinorImageVersion;
+ guint16 MajorSubsystemVersion;
+ guint16 MinorSubsystemVersion;
+ guint32 Win32VersionValue;
+ guint32 SizeOfImage;
+ guint32 SizeOfHeaders;
+ guint32 CheckSum;
+ guint16 Subsystem;
+ guint16 DllCharacteristics;
+ guint64 SizeOfStackReserve;
+ guint64 SizeOfStackCommit;
+ guint64 SizeOfHeapReserve;
+ guint64 SizeOfHeapCommit;
+ guint32 LoaderFlags;
+ guint32 NumberOfRvaAndSizes;
+ IMAGE_DATA_DIRECTORY DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES];
+} IMAGE_OPTIONAL_HEADER64;
+
+#if SIZEOF_VOID_P == 8
+typedef IMAGE_OPTIONAL_HEADER64 IMAGE_OPTIONAL_HEADER;
+#else
+typedef IMAGE_OPTIONAL_HEADER32 IMAGE_OPTIONAL_HEADER;
+#endif
+
+typedef struct {
+ guint32 Signature;
+ IMAGE_FILE_HEADER FileHeader;
+ IMAGE_OPTIONAL_HEADER32 OptionalHeader;
+} IMAGE_NT_HEADERS32;
+
+typedef struct {
+ guint32 Signature;
+ IMAGE_FILE_HEADER FileHeader;
+ IMAGE_OPTIONAL_HEADER64 OptionalHeader;
+} IMAGE_NT_HEADERS64;
+
+#if SIZEOF_VOID_P == 8
+typedef IMAGE_NT_HEADERS64 IMAGE_NT_HEADERS;
+#else
+typedef IMAGE_NT_HEADERS32 IMAGE_NT_HEADERS;
+#endif
+
+typedef struct {
+ guint8 Name[IMAGE_SIZEOF_SHORT_NAME];
+ union {
+ guint32 PhysicalAddress;
+ guint32 VirtualSize;
+ } Misc;
+ guint32 VirtualAddress;
+ guint32 SizeOfRawData;
+ guint32 PointerToRawData;
+ guint32 PointerToRelocations;
+ guint32 PointerToLinenumbers;
+ guint16 NumberOfRelocations;
+ guint16 NumberOfLinenumbers;
+ guint32 Characteristics;
+} IMAGE_SECTION_HEADER;
+
+#define IMAGE_FIRST_SECTION32(header) ((IMAGE_SECTION_HEADER *)((gsize)(header) + G_STRUCT_OFFSET (IMAGE_NT_HEADERS32, OptionalHeader) + GUINT16_FROM_LE (((IMAGE_NT_HEADERS32 *)(header))->FileHeader.SizeOfOptionalHeader)))
+
+#define RT_CURSOR 0x01
+#define RT_BITMAP 0x02
+#define RT_ICON 0x03
+#define RT_MENU 0x04
+#define RT_DIALOG 0x05
+#define RT_STRING 0x06
+#define RT_FONTDIR 0x07
+#define RT_FONT 0x08
+#define RT_ACCELERATOR 0x09
+#define RT_RCDATA 0x0a
+#define RT_MESSAGETABLE 0x0b
+#define RT_GROUP_CURSOR 0x0c
+#define RT_GROUP_ICON 0x0e
+#define RT_VERSION 0x10
+#define RT_DLGINCLUDE 0x11
+#define RT_PLUGPLAY 0x13
+#define RT_VXD 0x14
+#define RT_ANICURSOR 0x15
+#define RT_ANIICON 0x16
+#define RT_HTML 0x17
+#define RT_MANIFEST 0x18
+
+typedef struct {
+ guint32 Characteristics;
+ guint32 TimeDateStamp;
+ guint16 MajorVersion;
+ guint16 MinorVersion;
+ guint16 NumberOfNamedEntries;
+ guint16 NumberOfIdEntries;
+} IMAGE_RESOURCE_DIRECTORY;
+
+typedef struct {
+ union {
+ struct {
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+ guint32 NameIsString:1;
+ guint32 NameOffset:31;
+#else
+ guint32 NameOffset:31;
+ guint32 NameIsString:1;
+#endif
+ };
+ guint32 Name;
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+ struct {
+ guint16 __wapi_big_endian_padding;
+ guint16 Id;
+ };
+#else
+ guint16 Id;
+#endif
+ };
+ union {
+ guint32 OffsetToData;
+ struct {
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+ guint32 DataIsDirectory:1;
+ guint32 OffsetToDirectory:31;
+#else
+ guint32 OffsetToDirectory:31;
+ guint32 DataIsDirectory:1;
+#endif
+ };
+ };
+} IMAGE_RESOURCE_DIRECTORY_ENTRY;
+
+typedef struct {
+ guint32 OffsetToData;
+ guint32 Size;
+ guint32 CodePage;
+ guint32 Reserved;
+} IMAGE_RESOURCE_DATA_ENTRY;
+
+#define VOS_UNKNOWN 0x00000000
+#define VOS_DOS 0x00010000
+#define VOS_OS216 0x00020000
+#define VOS_OS232 0x00030000
+#define VOS_NT 0x00040000
+#define VOS__BASE 0x00000000
+#define VOS__WINDOWS16 0x00000001
+#define VOS__PM16 0x00000002
+#define VOS__PM32 0x00000003
+#define VOS__WINDOWS32 0x00000004
+/* Should "embrace and extend" here with some entries for linux etc */
+
+#define VOS_DOS_WINDOWS16 0x00010001
+#define VOS_DOS_WINDOWS32 0x00010004
+#define VOS_OS216_PM16 0x00020002
+#define VOS_OS232_PM32 0x00030003
+#define VOS_NT_WINDOWS32 0x00040004
+
+#define VFT_UNKNOWN 0x0000
+#define VFT_APP 0x0001
+#define VFT_DLL 0x0002
+#define VFT_DRV 0x0003
+#define VFT_FONT 0x0004
+#define VFT_VXD 0x0005
+#define VFT_STATIC_LIB 0x0007
+
+#define VFT2_UNKNOWN 0x0000
+#define VFT2_DRV_PRINTER 0x0001
+#define VFT2_DRV_KEYBOARD 0x0002
+#define VFT2_DRV_LANGUAGE 0x0003
+#define VFT2_DRV_DISPLAY 0x0004
+#define VFT2_DRV_MOUSE 0x0005
+#define VFT2_DRV_NETWORK 0x0006
+#define VFT2_DRV_SYSTEM 0x0007
+#define VFT2_DRV_INSTALLABLE 0x0008
+#define VFT2_DRV_SOUND 0x0009
+#define VFT2_DRV_COMM 0x000a
+#define VFT2_DRV_INPUTMETHOD 0x000b
+#define VFT2_FONT_RASTER 0x0001
+#define VFT2_FONT_VECTOR 0x0002
+#define VFT2_FONT_TRUETYPE 0x0003
+
+#define MAKELANGID(primary,secondary) ((guint16)((secondary << 10) | (primary)))
+
+#define ALIGN32(ptr) ptr = (gpointer)((char *)ptr + 3); ptr = (gpointer)((char *)ptr - ((gsize)ptr & 3));
+
#if HAVE_SIGACTION
static mono_lazy_init_t process_sig_chld_once = MONO_LAZY_INIT_STATUS_NOT_INITIALIZED;
#endif
}
gboolean
-mono_w32process_module_get_information (gpointer process, gpointer module, WapiModuleInfo *modinfo, guint32 size)
+mono_w32process_module_get_information (gpointer process, gpointer module, MODULEINFO *modinfo, guint32 size)
{
MonoW32HandleProcess *process_handle;
pid_t pid;
mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Getting module info, process handle %p module %p",
__func__, process, module);
- if (modinfo == NULL || size < sizeof (WapiModuleInfo))
+ if (modinfo == NULL || size < sizeof (MODULEINFO))
return FALSE;
if (WAPI_IS_PSEUDO_PROCESS_HANDLE (process)) {
return TRUE;
}
+
+static IMAGE_SECTION_HEADER *
+get_enclosing_section_header (guint32 rva, IMAGE_NT_HEADERS32 *nt_headers)
+{
+ IMAGE_SECTION_HEADER *section = IMAGE_FIRST_SECTION32 (nt_headers);
+ guint32 i;
+
+ for (i = 0; i < GUINT16_FROM_LE (nt_headers->FileHeader.NumberOfSections); i++, section++) {
+ guint32 size = GUINT32_FROM_LE (section->Misc.VirtualSize);
+ if (size == 0) {
+ size = GUINT32_FROM_LE (section->SizeOfRawData);
+ }
+
+ if ((rva >= GUINT32_FROM_LE (section->VirtualAddress)) &&
+ (rva < (GUINT32_FROM_LE (section->VirtualAddress) + size))) {
+ return(section);
+ }
+ }
+
+ return(NULL);
+}
+
+/* This works for both 32bit and 64bit files, as the differences are
+ * all after the section header block
+ */
+static gpointer
+get_ptr_from_rva (guint32 rva, IMAGE_NT_HEADERS32 *ntheaders, gpointer file_map)
+{
+ IMAGE_SECTION_HEADER *section_header;
+ guint32 delta;
+
+ section_header = get_enclosing_section_header (rva, ntheaders);
+ if (section_header == NULL) {
+ return(NULL);
+ }
+
+ delta = (guint32)(GUINT32_FROM_LE (section_header->VirtualAddress) -
+ GUINT32_FROM_LE (section_header->PointerToRawData));
+
+ return((guint8 *)file_map + rva - delta);
+}
+
+static gpointer
+scan_resource_dir (IMAGE_RESOURCE_DIRECTORY *root, IMAGE_NT_HEADERS32 *nt_headers, gpointer file_map,
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *entry, int level, guint32 res_id, guint32 lang_id, guint32 *size)
+{
+ IMAGE_RESOURCE_DIRECTORY_ENTRY swapped_entry;
+ gboolean is_string, is_dir;
+ guint32 name_offset, dir_offset, data_offset;
+
+ swapped_entry.Name = GUINT32_FROM_LE (entry->Name);
+ swapped_entry.OffsetToData = GUINT32_FROM_LE (entry->OffsetToData);
+
+ is_string = swapped_entry.NameIsString;
+ is_dir = swapped_entry.DataIsDirectory;
+ name_offset = swapped_entry.NameOffset;
+ dir_offset = swapped_entry.OffsetToDirectory;
+ data_offset = swapped_entry.OffsetToData;
+
+ if (level == 0) {
+ /* Normally holds a directory entry for each type of
+ * resource
+ */
+ if ((is_string == FALSE &&
+ name_offset != res_id) ||
+ (is_string == TRUE)) {
+ return(NULL);
+ }
+ } else if (level == 1) {
+ /* Normally holds a directory entry for each resource
+ * item
+ */
+ } else if (level == 2) {
+ /* Normally holds a directory entry for each language
+ */
+ if ((is_string == FALSE &&
+ name_offset != lang_id &&
+ lang_id != 0) ||
+ (is_string == TRUE)) {
+ return(NULL);
+ }
+ } else {
+ g_assert_not_reached ();
+ }
+
+ if (is_dir == TRUE) {
+ IMAGE_RESOURCE_DIRECTORY *res_dir = (IMAGE_RESOURCE_DIRECTORY *)((guint8 *)root + dir_offset);
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *sub_entries = (IMAGE_RESOURCE_DIRECTORY_ENTRY *)(res_dir + 1);
+ guint32 entries, i;
+
+ entries = GUINT16_FROM_LE (res_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (res_dir->NumberOfIdEntries);
+
+ for (i = 0; i < entries; i++) {
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *sub_entry = &sub_entries[i];
+ gpointer ret;
+
+ ret = scan_resource_dir (root, nt_headers, file_map,
+ sub_entry, level + 1, res_id,
+ lang_id, size);
+ if (ret != NULL) {
+ return(ret);
+ }
+ }
+
+ return(NULL);
+ } else {
+ IMAGE_RESOURCE_DATA_ENTRY *data_entry = (IMAGE_RESOURCE_DATA_ENTRY *)((guint8 *)root + data_offset);
+ *size = GUINT32_FROM_LE (data_entry->Size);
+
+ return(get_ptr_from_rva (GUINT32_FROM_LE (data_entry->OffsetToData), nt_headers, file_map));
+ }
+}
+
+static gpointer
+find_pe_file_resources32 (gpointer file_map, guint32 map_size, guint32 res_id, guint32 lang_id, guint32 *size)
+{
+ IMAGE_DOS_HEADER *dos_header;
+ IMAGE_NT_HEADERS32 *nt_headers;
+ IMAGE_RESOURCE_DIRECTORY *resource_dir;
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *resource_dir_entry;
+ guint32 resource_rva, entries, i;
+ gpointer ret = NULL;
+
+ dos_header = (IMAGE_DOS_HEADER *)file_map;
+ if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad dos signature 0x%x", __func__, dos_header->e_magic);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ if (map_size < sizeof(IMAGE_NT_HEADERS32) + GUINT32_FROM_LE (dos_header->e_lfanew)) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File is too small: %d", __func__, map_size);
+
+ SetLastError (ERROR_BAD_LENGTH);
+ return(NULL);
+ }
+
+ nt_headers = (IMAGE_NT_HEADERS32 *)((guint8 *)file_map + GUINT32_FROM_LE (dos_header->e_lfanew));
+ if (nt_headers->Signature != IMAGE_NT_SIGNATURE) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad NT signature 0x%x", __func__, nt_headers->Signature);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ if (nt_headers->OptionalHeader.Magic == IMAGE_NT_OPTIONAL_HDR64_MAGIC) {
+ /* Do 64-bit stuff */
+ resource_rva = GUINT32_FROM_LE (((IMAGE_NT_HEADERS64 *)nt_headers)->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
+ } else {
+ resource_rva = GUINT32_FROM_LE (nt_headers->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
+ }
+
+ if (resource_rva == 0) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: No resources in file!", __func__);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ resource_dir = (IMAGE_RESOURCE_DIRECTORY *)get_ptr_from_rva (resource_rva, (IMAGE_NT_HEADERS32 *)nt_headers, file_map);
+ if (resource_dir == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Can't find resource directory", __func__);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ entries = GUINT16_FROM_LE (resource_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (resource_dir->NumberOfIdEntries);
+ resource_dir_entry = (IMAGE_RESOURCE_DIRECTORY_ENTRY *)(resource_dir + 1);
+
+ for (i = 0; i < entries; i++) {
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *direntry = &resource_dir_entry[i];
+ ret = scan_resource_dir (resource_dir,
+ (IMAGE_NT_HEADERS32 *)nt_headers,
+ file_map, direntry, 0, res_id,
+ lang_id, size);
+ if (ret != NULL) {
+ return(ret);
+ }
+ }
+
+ return(NULL);
+}
+
+static gpointer
+find_pe_file_resources64 (gpointer file_map, guint32 map_size, guint32 res_id, guint32 lang_id, guint32 *size)
+{
+ IMAGE_DOS_HEADER *dos_header;
+ IMAGE_NT_HEADERS64 *nt_headers;
+ IMAGE_RESOURCE_DIRECTORY *resource_dir;
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *resource_dir_entry;
+ guint32 resource_rva, entries, i;
+ gpointer ret = NULL;
+
+ dos_header = (IMAGE_DOS_HEADER *)file_map;
+ if (dos_header->e_magic != IMAGE_DOS_SIGNATURE) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad dos signature 0x%x", __func__, dos_header->e_magic);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ if (map_size < sizeof(IMAGE_NT_HEADERS64) + GUINT32_FROM_LE (dos_header->e_lfanew)) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File is too small: %d", __func__, map_size);
+
+ SetLastError (ERROR_BAD_LENGTH);
+ return(NULL);
+ }
+
+ nt_headers = (IMAGE_NT_HEADERS64 *)((guint8 *)file_map + GUINT32_FROM_LE (dos_header->e_lfanew));
+ if (nt_headers->Signature != IMAGE_NT_SIGNATURE) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Bad NT signature 0x%x", __func__,
+ nt_headers->Signature);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ if (nt_headers->OptionalHeader.Magic == IMAGE_NT_OPTIONAL_HDR64_MAGIC) {
+ /* Do 64-bit stuff */
+ resource_rva = GUINT32_FROM_LE (((IMAGE_NT_HEADERS64 *)nt_headers)->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
+ } else {
+ resource_rva = GUINT32_FROM_LE (nt_headers->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE].VirtualAddress);
+ }
+
+ if (resource_rva == 0) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: No resources in file!", __func__);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ resource_dir = (IMAGE_RESOURCE_DIRECTORY *)get_ptr_from_rva (resource_rva, (IMAGE_NT_HEADERS32 *)nt_headers, file_map);
+ if (resource_dir == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Can't find resource directory", __func__);
+
+ SetLastError (ERROR_INVALID_DATA);
+ return(NULL);
+ }
+
+ entries = GUINT16_FROM_LE (resource_dir->NumberOfNamedEntries) + GUINT16_FROM_LE (resource_dir->NumberOfIdEntries);
+ resource_dir_entry = (IMAGE_RESOURCE_DIRECTORY_ENTRY *)(resource_dir + 1);
+
+ for (i = 0; i < entries; i++) {
+ IMAGE_RESOURCE_DIRECTORY_ENTRY *direntry = &resource_dir_entry[i];
+ ret = scan_resource_dir (resource_dir,
+ (IMAGE_NT_HEADERS32 *)nt_headers,
+ file_map, direntry, 0, res_id,
+ lang_id, size);
+ if (ret != NULL) {
+ return(ret);
+ }
+ }
+
+ return(NULL);
+}
+
+static gpointer
+find_pe_file_resources (gpointer file_map, guint32 map_size, guint32 res_id, guint32 lang_id, guint32 *size)
+{
+ /* Figure this out when we support 64bit PE files */
+ if (1) {
+ return find_pe_file_resources32 (file_map, map_size, res_id,
+ lang_id, size);
+ } else {
+ return find_pe_file_resources64 (file_map, map_size, res_id,
+ lang_id, size);
+ }
+}
+
+static gpointer
+map_pe_file (gunichar2 *filename, gint32 *map_size, void **handle)
+{
+ gchar *filename_ext;
+ int fd;
+ struct stat statbuf;
+ gpointer file_map;
+
+ /* According to the MSDN docs, a search path is applied to
+ * filename. FIXME: implement this, for now just pass it
+ * straight to fopen
+ */
+
+ filename_ext = mono_unicode_to_external (filename);
+ if (filename_ext == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: unicode conversion returned NULL", __func__);
+
+ SetLastError (ERROR_INVALID_NAME);
+ return(NULL);
+ }
+
+ fd = _wapi_open (filename_ext, O_RDONLY, 0);
+ if (fd == -1) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error opening file %s: %s", __func__, filename_ext, strerror (errno));
+
+ SetLastError (_wapi_get_win32_file_error (errno));
+ g_free (filename_ext);
+
+ return(NULL);
+ }
+
+ if (fstat (fd, &statbuf) == -1) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error stat()ing file %s: %s", __func__, filename_ext, strerror (errno));
+
+ SetLastError (_wapi_get_win32_file_error (errno));
+ g_free (filename_ext);
+ close (fd);
+ return(NULL);
+ }
+ *map_size = statbuf.st_size;
+
+ /* Check basic file size */
+ if (statbuf.st_size < sizeof(IMAGE_DOS_HEADER)) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: File %s is too small: %lld", __func__, filename_ext, statbuf.st_size);
+
+ SetLastError (ERROR_BAD_LENGTH);
+ g_free (filename_ext);
+ close (fd);
+ return(NULL);
+ }
+
+ file_map = mono_file_map (statbuf.st_size, MONO_MMAP_READ | MONO_MMAP_PRIVATE, fd, 0, handle);
+ if (file_map == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error mmap()int file %s: %s", __func__, filename_ext, strerror (errno));
+
+ SetLastError (_wapi_get_win32_file_error (errno));
+ g_free (filename_ext);
+ close (fd);
+ return(NULL);
+ }
+
+ /* Don't need the fd any more */
+ close (fd);
+ g_free (filename_ext);
+
+ return(file_map);
+}
+
+static void
+unmap_pe_file (gpointer file_map, void *handle)
+{
+ mono_file_unmap (file_map, handle);
+}
+
+static guint32
+unicode_chars (const gunichar2 *str)
+{
+ guint32 len = 0;
+
+ do {
+ if (str[len] == '\0') {
+ return(len);
+ }
+ len++;
+ } while(1);
+}
+
+static gboolean
+unicode_compare (const gunichar2 *str1, const gunichar2 *str2)
+{
+ while (*str1 && *str2) {
+ if (*str1 != *str2) {
+ return(FALSE);
+ }
+ ++str1;
+ ++str2;
+ }
+
+ return(*str1 == *str2);
+}
+
+/* compare a little-endian null-terminated utf16 string and a normal string.
+ * Can be used only for ascii or latin1 chars.
+ */
+static gboolean
+unicode_string_equals (const gunichar2 *str1, const gchar *str2)
+{
+ while (*str1 && *str2) {
+ if (GUINT16_TO_LE (*str1) != *str2) {
+ return(FALSE);
+ }
+ ++str1;
+ ++str2;
+ }
+
+ return(*str1 == *str2);
+}
+
+typedef struct {
+ guint16 data_len;
+ guint16 value_len;
+ guint16 type;
+ gunichar2 *key;
+} version_data;
+
+/* Returns a pointer to the value data, because there's no way to know
+ * how big that data is (value_len is set to zero for most blocks :-( )
+ */
+static gconstpointer
+get_versioninfo_block (gconstpointer data, version_data *block)
+{
+ block->data_len = GUINT16_FROM_LE (*((guint16 *)data));
+ data = (char *)data + sizeof(guint16);
+ block->value_len = GUINT16_FROM_LE (*((guint16 *)data));
+ data = (char *)data + sizeof(guint16);
+
+ /* No idea what the type is supposed to indicate */
+ block->type = GUINT16_FROM_LE (*((guint16 *)data));
+ data = (char *)data + sizeof(guint16);
+ block->key = ((gunichar2 *)data);
+
+ /* Skip over the key (including the terminator) */
+ data = ((gunichar2 *)data) + (unicode_chars (block->key) + 1);
+
+ /* align on a 32-bit boundary */
+ ALIGN32 (data);
+
+ return(data);
+}
+
+static gconstpointer
+get_fixedfileinfo_block (gconstpointer data, version_data *block)
+{
+ gconstpointer data_ptr;
+ VS_FIXEDFILEINFO *ffi;
+
+ data_ptr = get_versioninfo_block (data, block);
+
+ if (block->value_len != sizeof(VS_FIXEDFILEINFO)) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: FIXEDFILEINFO size mismatch", __func__);
+ return(NULL);
+ }
+
+ if (!unicode_string_equals (block->key, "VS_VERSION_INFO")) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: VS_VERSION_INFO mismatch", __func__);
+
+ return(NULL);
+ }
+
+ ffi = ((VS_FIXEDFILEINFO *)data_ptr);
+ if ((ffi->dwSignature != VS_FFI_SIGNATURE) ||
+ (ffi->dwStrucVersion != VS_FFI_STRUCVERSION)) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: FIXEDFILEINFO bad signature", __func__);
+
+ return(NULL);
+ }
+
+ return(data_ptr);
+}
+
+static gconstpointer
+get_varfileinfo_block (gconstpointer data_ptr, version_data *block)
+{
+ /* data is pointing at a Var block
+ */
+ data_ptr = get_versioninfo_block (data_ptr, block);
+
+ return(data_ptr);
+}
+
+static gconstpointer
+get_string_block (gconstpointer data_ptr, const gunichar2 *string_key, gpointer *string_value,
+ guint32 *string_value_len, version_data *block)
+{
+ guint16 data_len = block->data_len;
+ guint16 string_len = 28; /* Length of the StringTable block */
+ char *orig_data_ptr = (char *)data_ptr - 28;
+
+ /* data_ptr is pointing at an array of one or more String blocks
+ * with total length (not including alignment padding) of
+ * data_len
+ */
+ while (((char *)data_ptr - (char *)orig_data_ptr) < data_len) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr, block);
+ if (block->data_len == 0) {
+ /* We must have hit padding, so give up
+ * processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+
+ return(NULL);
+ }
+
+ string_len = string_len + block->data_len;
+
+ if (string_key != NULL &&
+ string_value != NULL &&
+ string_value_len != NULL &&
+ unicode_compare (string_key, block->key) == TRUE) {
+ *string_value = (gpointer)data_ptr;
+ *string_value_len = block->value_len;
+ }
+
+ /* Skip over the value */
+ data_ptr = ((gunichar2 *)data_ptr) + block->value_len;
+ }
+
+ return(data_ptr);
+}
+
+/* Returns a pointer to the byte following the Stringtable block, or
+ * NULL if the data read hits padding. We can't recover from this
+ * because the data length does not include padding bytes, so it's not
+ * possible to just return the start position + length
+ *
+ * If lang == NULL it means we're just stepping through this block
+ */
+static gconstpointer
+get_stringtable_block (gconstpointer data_ptr, gchar *lang, const gunichar2 *string_key, gpointer *string_value,
+ guint32 *string_value_len, version_data *block)
+{
+ guint16 data_len = block->data_len;
+ guint16 string_len = 36; /* length of the StringFileInfo block */
+ gchar *found_lang;
+ gchar *lowercase_lang;
+
+ /* data_ptr is pointing at an array of StringTable blocks,
+ * with total length (not including alignment padding) of
+ * data_len
+ */
+
+ while(string_len < data_len) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr, block);
+ if (block->data_len == 0) {
+ /* We must have hit padding, so give up
+ * processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+ return(NULL);
+ }
+
+ string_len = string_len + block->data_len;
+
+ found_lang = g_utf16_to_utf8 (block->key, 8, NULL, NULL, NULL);
+ if (found_lang == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid language key, giving up", __func__);
+ return(NULL);
+ }
+
+ lowercase_lang = g_utf8_strdown (found_lang, -1);
+ g_free (found_lang);
+ found_lang = lowercase_lang;
+ lowercase_lang = NULL;
+
+ if (lang != NULL && !strcmp (found_lang, lang)) {
+ /* Got the one we're interested in */
+ data_ptr = get_string_block (data_ptr, string_key,
+ string_value,
+ string_value_len, block);
+ } else {
+ data_ptr = get_string_block (data_ptr, NULL, NULL,
+ NULL, block);
+ }
+
+ g_free (found_lang);
+
+ if (data_ptr == NULL) {
+ /* Child block hit padding */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
+ return(NULL);
+ }
+ }
+
+ return(data_ptr);
+}
+
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+static gconstpointer
+big_up_string_block (gconstpointer data_ptr, version_data *block)
+{
+ guint16 data_len = block->data_len;
+ guint16 string_len = 28; /* Length of the StringTable block */
+ gchar *big_value;
+ char *orig_data_ptr = (char *)data_ptr - 28;
+
+ /* data_ptr is pointing at an array of one or more String
+ * blocks with total length (not including alignment padding)
+ * of data_len
+ */
+ while (((char *)data_ptr - (char *)orig_data_ptr) < data_len) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr, block);
+ if (block->data_len == 0) {
+ /* We must have hit padding, so give up
+ * processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+ return(NULL);
+ }
+
+ string_len = string_len + block->data_len;
+
+ big_value = g_convert ((gchar *)block->key,
+ unicode_chars (block->key) * 2,
+ "UTF-16BE", "UTF-16LE", NULL, NULL,
+ NULL);
+ if (big_value == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid string, giving up", __func__);
+ return(NULL);
+ }
+
+ /* The swapped string should be exactly the same
+ * length as the original little-endian one, but only
+ * copy the number of original chars just to be on the
+ * safe side
+ */
+ memcpy (block->key, big_value, unicode_chars (block->key) * 2);
+ g_free (big_value);
+
+ big_value = g_convert ((gchar *)data_ptr,
+ unicode_chars (data_ptr) * 2,
+ "UTF-16BE", "UTF-16LE", NULL, NULL,
+ NULL);
+ if (big_value == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid data string, giving up", __func__);
+ return(NULL);
+ }
+ memcpy ((gpointer)data_ptr, big_value,
+ unicode_chars (data_ptr) * 2);
+ g_free (big_value);
+
+ data_ptr = ((gunichar2 *)data_ptr) + block->value_len;
+ }
+
+ return(data_ptr);
+}
+
+/* Returns a pointer to the byte following the Stringtable block, or
+ * NULL if the data read hits padding. We can't recover from this
+ * because the data length does not include padding bytes, so it's not
+ * possible to just return the start position + length
+ */
+static gconstpointer
+big_up_stringtable_block (gconstpointer data_ptr, version_data *block)
+{
+ guint16 data_len = block->data_len;
+ guint16 string_len = 36; /* length of the StringFileInfo block */
+ gchar *big_value;
+
+ /* data_ptr is pointing at an array of StringTable blocks,
+ * with total length (not including alignment padding) of
+ * data_len
+ */
+
+ while(string_len < data_len) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr, block);
+ if (block->data_len == 0) {
+ /* We must have hit padding, so give up
+ * processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+ return(NULL);
+ }
+
+ string_len = string_len + block->data_len;
+
+ big_value = g_convert ((gchar *)block->key, 16, "UTF-16BE",
+ "UTF-16LE", NULL, NULL, NULL);
+ if (big_value == NULL) {
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Didn't find a valid string, giving up", __func__);
+ return(NULL);
+ }
+
+ memcpy (block->key, big_value, 16);
+ g_free (big_value);
+
+ data_ptr = big_up_string_block (data_ptr, block);
+
+ if (data_ptr == NULL) {
+ /* Child block hit padding */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
+ return(NULL);
+ }
+ }
+
+ return(data_ptr);
+}
+
+/* Follows the data structures and turns all UTF-16 strings from the
+ * LE found in the resource section into UTF-16BE
+ */
+static void
+big_up (gconstpointer datablock, guint32 size)
+{
+ gconstpointer data_ptr;
+ gint32 data_len; /* signed to guard against underflow */
+ version_data block;
+
+ data_ptr = get_fixedfileinfo_block (datablock, &block);
+ if (data_ptr != NULL) {
+ VS_FIXEDFILEINFO *ffi = (VS_FIXEDFILEINFO *)data_ptr;
+
+ /* Byteswap all the fields */
+ ffi->dwFileVersionMS = GUINT32_SWAP_LE_BE (ffi->dwFileVersionMS);
+ ffi->dwFileVersionLS = GUINT32_SWAP_LE_BE (ffi->dwFileVersionLS);
+ ffi->dwProductVersionMS = GUINT32_SWAP_LE_BE (ffi->dwProductVersionMS);
+ ffi->dwProductVersionLS = GUINT32_SWAP_LE_BE (ffi->dwProductVersionLS);
+ ffi->dwFileFlagsMask = GUINT32_SWAP_LE_BE (ffi->dwFileFlagsMask);
+ ffi->dwFileFlags = GUINT32_SWAP_LE_BE (ffi->dwFileFlags);
+ ffi->dwFileOS = GUINT32_SWAP_LE_BE (ffi->dwFileOS);
+ ffi->dwFileType = GUINT32_SWAP_LE_BE (ffi->dwFileType);
+ ffi->dwFileSubtype = GUINT32_SWAP_LE_BE (ffi->dwFileSubtype);
+ ffi->dwFileDateMS = GUINT32_SWAP_LE_BE (ffi->dwFileDateMS);
+ ffi->dwFileDateLS = GUINT32_SWAP_LE_BE (ffi->dwFileDateLS);
+
+ /* The FFI and header occupies the first 92 bytes
+ */
+ data_ptr = (char *)data_ptr + sizeof(VS_FIXEDFILEINFO);
+ data_len = block.data_len - 92;
+
+ /* There now follow zero or one StringFileInfo blocks
+ * and zero or one VarFileInfo blocks
+ */
+ while (data_len > 0) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr, &block);
+ if (block.data_len == 0) {
+ /* We must have hit padding, so give
+ * up processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+ return;
+ }
+
+ data_len = data_len - block.data_len;
+
+ if (unicode_string_equals (block.key, "VarFileInfo")) {
+ data_ptr = get_varfileinfo_block (data_ptr,
+ &block);
+ data_ptr = ((guchar *)data_ptr) + block.value_len;
+ } else if (unicode_string_equals (block.key,
+ "StringFileInfo")) {
+ data_ptr = big_up_stringtable_block (data_ptr,
+ &block);
+ } else {
+ /* Bogus data */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Not a valid VERSIONINFO child block", __func__);
+ return;
+ }
+
+ if (data_ptr == NULL) {
+ /* Child block hit padding */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
+ return;
+ }
+ }
+ }
+}
+#endif
+
+guint32
+mono_w32process_get_fileversion_info_size (gunichar2 *filename, guint32 *handle)
+{
+ gpointer file_map;
+ gpointer versioninfo;
+ void *map_handle;
+ gint32 map_size;
+ guint32 size;
+
+ /* This value is unused, but set to zero */
+ *handle = 0;
+
+ file_map = map_pe_file (filename, &map_size, &map_handle);
+ if (file_map == NULL) {
+ return(0);
+ }
+
+ versioninfo = find_pe_file_resources (file_map, map_size, RT_VERSION, 0, &size);
+ if (versioninfo == NULL) {
+ /* Didn't find the resource, so set the return value
+ * to 0
+ */
+ size = 0;
+ }
+
+ unmap_pe_file (file_map, map_handle);
+
+ return(size);
+}
+
+gboolean
+mono_w32process_get_fileversion_info (gunichar2 *filename, guint32 handle G_GNUC_UNUSED, guint32 len, gpointer data)
+{
+ gpointer file_map;
+ gpointer versioninfo;
+ void *map_handle;
+ gint32 map_size;
+ guint32 size;
+ gboolean ret = FALSE;
+
+ file_map = map_pe_file (filename, &map_size, &map_handle);
+ if (file_map == NULL) {
+ return(FALSE);
+ }
+
+ versioninfo = find_pe_file_resources (file_map, map_size, RT_VERSION,
+ 0, &size);
+ if (versioninfo != NULL) {
+ /* This could probably process the data so that
+ * mono_w32process_ver_query_value() doesn't have to follow the data
+ * blocks every time. But hey, these functions aren't
+ * likely to appear in many profiles.
+ */
+ memcpy (data, versioninfo, len < size?len:size);
+ ret = TRUE;
+
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+ big_up (data, size);
+#endif
+ }
+
+ unmap_pe_file (file_map, map_handle);
+
+ return(ret);
+}
+
+gboolean
+mono_w32process_ver_query_value (gconstpointer datablock, const gunichar2 *subblock, gpointer *buffer, guint32 *len)
+{
+ gchar *subblock_utf8, *lang_utf8 = NULL;
+ gboolean ret = FALSE;
+ version_data block;
+ gconstpointer data_ptr;
+ gint32 data_len; /* signed to guard against underflow */
+ gboolean want_var = FALSE;
+ gboolean want_string = FALSE;
+ gunichar2 lang[8];
+ const gunichar2 *string_key = NULL;
+ gpointer string_value = NULL;
+ guint32 string_value_len = 0;
+ gchar *lowercase_lang;
+
+ subblock_utf8 = g_utf16_to_utf8 (subblock, -1, NULL, NULL, NULL);
+ if (subblock_utf8 == NULL) {
+ return(FALSE);
+ }
+
+ if (!strcmp (subblock_utf8, "\\VarFileInfo\\Translation")) {
+ want_var = TRUE;
+ } else if (!strncmp (subblock_utf8, "\\StringFileInfo\\", 16)) {
+ want_string = TRUE;
+ memcpy (lang, subblock + 16, 8 * sizeof(gunichar2));
+ lang_utf8 = g_utf16_to_utf8 (lang, 8, NULL, NULL, NULL);
+ lowercase_lang = g_utf8_strdown (lang_utf8, -1);
+ g_free (lang_utf8);
+ lang_utf8 = lowercase_lang;
+ lowercase_lang = NULL;
+ string_key = subblock + 25;
+ }
+
+ if (!strcmp (subblock_utf8, "\\")) {
+ data_ptr = get_fixedfileinfo_block (datablock, &block);
+ if (data_ptr != NULL) {
+ *buffer = (gpointer)data_ptr;
+ *len = block.value_len;
+
+ ret = TRUE;
+ }
+ } else if (want_var || want_string) {
+ data_ptr = get_fixedfileinfo_block (datablock, &block);
+ if (data_ptr != NULL) {
+ /* The FFI and header occupies the first 92
+ * bytes
+ */
+ data_ptr = (char *)data_ptr + sizeof(VS_FIXEDFILEINFO);
+ data_len = block.data_len - 92;
+
+ /* There now follow zero or one StringFileInfo
+ * blocks and zero or one VarFileInfo blocks
+ */
+ while (data_len > 0) {
+ /* align on a 32-bit boundary */
+ ALIGN32 (data_ptr);
+
+ data_ptr = get_versioninfo_block (data_ptr,
+ &block);
+ if (block.data_len == 0) {
+ /* We must have hit padding,
+ * so give up processing now
+ */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hit 0-length block, giving up", __func__);
+ goto done;
+ }
+
+ data_len = data_len - block.data_len;
+
+ if (unicode_string_equals (block.key, "VarFileInfo")) {
+ data_ptr = get_varfileinfo_block (data_ptr, &block);
+ if (want_var) {
+ *buffer = (gpointer)data_ptr;
+ *len = block.value_len;
+ ret = TRUE;
+ goto done;
+ } else {
+ /* Skip over the Var block */
+ data_ptr = ((guchar *)data_ptr) + block.value_len;
+ }
+ } else if (unicode_string_equals (block.key, "StringFileInfo")) {
+ data_ptr = get_stringtable_block (data_ptr, lang_utf8, string_key, &string_value, &string_value_len, &block);
+ if (want_string &&
+ string_value != NULL &&
+ string_value_len != 0) {
+ *buffer = string_value;
+ *len = unicode_chars ((const gunichar2 *)string_value) + 1; /* Include trailing null */
+ ret = TRUE;
+ goto done;
+ }
+ } else {
+ /* Bogus data */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Not a valid VERSIONINFO child block", __func__);
+ goto done;
+ }
+
+ if (data_ptr == NULL) {
+ /* Child block hit padding */
+ mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Child block hit 0-length block, giving up", __func__);
+ goto done;
+ }
+ }
+ }
+ }
+
+ done:
+ if (lang_utf8) {
+ g_free (lang_utf8);
+ }
+
+ g_free (subblock_utf8);
+ return(ret);
+}
+
+static guint32
+copy_lang (gunichar2 *lang_out, guint32 lang_len, const gchar *text)
+{
+ gunichar2 *unitext;
+ int chars = strlen (text);
+ int ret;
+
+ unitext = g_utf8_to_utf16 (text, -1, NULL, NULL, NULL);
+ g_assert (unitext != NULL);
+
+ if (chars < (lang_len - 1)) {
+ memcpy (lang_out, (gpointer)unitext, chars * 2);
+ lang_out[chars] = '\0';
+ ret = chars;
+ } else {
+ memcpy (lang_out, (gpointer)unitext, (lang_len - 1) * 2);
+ lang_out[lang_len] = '\0';
+ ret = lang_len;
+ }
+
+ g_free (unitext);
+
+ return(ret);
+}
+
+guint32
+mono_w32process_ver_language_name (guint32 lang, gunichar2 *lang_out, guint32 lang_len)
+{
+ int primary, secondary;
+ const char *name = NULL;
+
+ primary = lang & 0x3FF;
+ secondary = (lang >> 10) & 0x3F;
+
+ switch(primary) {
+ case 0x00:
+ switch (secondary) {
+ case 0x01: name = "Process Default Language"; break;
+ }
+ break;
+ case 0x01:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Arabic (Saudi Arabia)"; break;
+ case 0x02: name = "Arabic (Iraq)"; break;
+ case 0x03: name = "Arabic (Egypt)"; break;
+ case 0x04: name = "Arabic (Libya)"; break;
+ case 0x05: name = "Arabic (Algeria)"; break;
+ case 0x06: name = "Arabic (Morocco)"; break;
+ case 0x07: name = "Arabic (Tunisia)"; break;
+ case 0x08: name = "Arabic (Oman)"; break;
+ case 0x09: name = "Arabic (Yemen)"; break;
+ case 0x0a: name = "Arabic (Syria)"; break;
+ case 0x0b: name = "Arabic (Jordan)"; break;
+ case 0x0c: name = "Arabic (Lebanon)"; break;
+ case 0x0d: name = "Arabic (Kuwait)"; break;
+ case 0x0e: name = "Arabic (U.A.E.)"; break;
+ case 0x0f: name = "Arabic (Bahrain)"; break;
+ case 0x10: name = "Arabic (Qatar)"; break;
+ }
+ break;
+ case 0x02:
+ switch (secondary) {
+ case 0x00: name = "Bulgarian (Bulgaria)"; break;
+ case 0x01: name = "Bulgarian"; break;
+ }
+ break;
+ case 0x03:
+ switch (secondary) {
+ case 0x00: name = "Catalan (Spain)"; break;
+ case 0x01: name = "Catalan"; break;
+ }
+ break;
+ case 0x04:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Chinese (Taiwan)"; break;
+ case 0x02: name = "Chinese (PRC)"; break;
+ case 0x03: name = "Chinese (Hong Kong S.A.R.)"; break;
+ case 0x04: name = "Chinese (Singapore)"; break;
+ case 0x05: name = "Chinese (Macau S.A.R.)"; break;
+ }
+ break;
+ case 0x05:
+ switch (secondary) {
+ case 0x00: name = "Czech (Czech Republic)"; break;
+ case 0x01: name = "Czech"; break;
+ }
+ break;
+ case 0x06:
+ switch (secondary) {
+ case 0x00: name = "Danish (Denmark)"; break;
+ case 0x01: name = "Danish"; break;
+ }
+ break;
+ case 0x07:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "German (Germany)"; break;
+ case 0x02: name = "German (Switzerland)"; break;
+ case 0x03: name = "German (Austria)"; break;
+ case 0x04: name = "German (Luxembourg)"; break;
+ case 0x05: name = "German (Liechtenstein)"; break;
+ }
+ break;
+ case 0x08:
+ switch (secondary) {
+ case 0x00: name = "Greek (Greece)"; break;
+ case 0x01: name = "Greek"; break;
+ }
+ break;
+ case 0x09:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "English (United States)"; break;
+ case 0x02: name = "English (United Kingdom)"; break;
+ case 0x03: name = "English (Australia)"; break;
+ case 0x04: name = "English (Canada)"; break;
+ case 0x05: name = "English (New Zealand)"; break;
+ case 0x06: name = "English (Ireland)"; break;
+ case 0x07: name = "English (South Africa)"; break;
+ case 0x08: name = "English (Jamaica)"; break;
+ case 0x09: name = "English (Caribbean)"; break;
+ case 0x0a: name = "English (Belize)"; break;
+ case 0x0b: name = "English (Trinidad and Tobago)"; break;
+ case 0x0c: name = "English (Zimbabwe)"; break;
+ case 0x0d: name = "English (Philippines)"; break;
+ case 0x10: name = "English (India)"; break;
+ case 0x11: name = "English (Malaysia)"; break;
+ case 0x12: name = "English (Singapore)"; break;
+ }
+ break;
+ case 0x0a:
+ switch (secondary) {
+ case 0x00: name = "Spanish (Spain)"; break;
+ case 0x01: name = "Spanish (Traditional Sort)"; break;
+ case 0x02: name = "Spanish (Mexico)"; break;
+ case 0x03: name = "Spanish (International Sort)"; break;
+ case 0x04: name = "Spanish (Guatemala)"; break;
+ case 0x05: name = "Spanish (Costa Rica)"; break;
+ case 0x06: name = "Spanish (Panama)"; break;
+ case 0x07: name = "Spanish (Dominican Republic)"; break;
+ case 0x08: name = "Spanish (Venezuela)"; break;
+ case 0x09: name = "Spanish (Colombia)"; break;
+ case 0x0a: name = "Spanish (Peru)"; break;
+ case 0x0b: name = "Spanish (Argentina)"; break;
+ case 0x0c: name = "Spanish (Ecuador)"; break;
+ case 0x0d: name = "Spanish (Chile)"; break;
+ case 0x0e: name = "Spanish (Uruguay)"; break;
+ case 0x0f: name = "Spanish (Paraguay)"; break;
+ case 0x10: name = "Spanish (Bolivia)"; break;
+ case 0x11: name = "Spanish (El Salvador)"; break;
+ case 0x12: name = "Spanish (Honduras)"; break;
+ case 0x13: name = "Spanish (Nicaragua)"; break;
+ case 0x14: name = "Spanish (Puerto Rico)"; break;
+ case 0x15: name = "Spanish (United States)"; break;
+ }
+ break;
+ case 0x0b:
+ switch (secondary) {
+ case 0x00: name = "Finnish (Finland)"; break;
+ case 0x01: name = "Finnish"; break;
+ }
+ break;
+ case 0x0c:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "French (France)"; break;
+ case 0x02: name = "French (Belgium)"; break;
+ case 0x03: name = "French (Canada)"; break;
+ case 0x04: name = "French (Switzerland)"; break;
+ case 0x05: name = "French (Luxembourg)"; break;
+ case 0x06: name = "French (Monaco)"; break;
+ }
+ break;
+ case 0x0d:
+ switch (secondary) {
+ case 0x00: name = "Hebrew (Israel)"; break;
+ case 0x01: name = "Hebrew"; break;
+ }
+ break;
+ case 0x0e:
+ switch (secondary) {
+ case 0x00: name = "Hungarian (Hungary)"; break;
+ case 0x01: name = "Hungarian"; break;
+ }
+ break;
+ case 0x0f:
+ switch (secondary) {
+ case 0x00: name = "Icelandic (Iceland)"; break;
+ case 0x01: name = "Icelandic"; break;
+ }
+ break;
+ case 0x10:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Italian (Italy)"; break;
+ case 0x02: name = "Italian (Switzerland)"; break;
+ }
+ break;
+ case 0x11:
+ switch (secondary) {
+ case 0x00: name = "Japanese (Japan)"; break;
+ case 0x01: name = "Japanese"; break;
+ }
+ break;
+ case 0x12:
+ switch (secondary) {
+ case 0x00: name = "Korean (Korea)"; break;
+ case 0x01: name = "Korean"; break;
+ }
+ break;
+ case 0x13:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Dutch (Netherlands)"; break;
+ case 0x02: name = "Dutch (Belgium)"; break;
+ }
+ break;
+ case 0x14:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Norwegian (Bokmal)"; break;
+ case 0x02: name = "Norwegian (Nynorsk)"; break;
+ }
+ break;
+ case 0x15:
+ switch (secondary) {
+ case 0x00: name = "Polish (Poland)"; break;
+ case 0x01: name = "Polish"; break;
+ }
+ break;
+ case 0x16:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Portuguese (Brazil)"; break;
+ case 0x02: name = "Portuguese (Portugal)"; break;
+ }
+ break;
+ case 0x17:
+ switch (secondary) {
+ case 0x01: name = "Romansh (Switzerland)"; break;
+ }
+ break;
+ case 0x18:
+ switch (secondary) {
+ case 0x00: name = "Romanian (Romania)"; break;
+ case 0x01: name = "Romanian"; break;
+ }
+ break;
+ case 0x19:
+ switch (secondary) {
+ case 0x00: name = "Russian (Russia)"; break;
+ case 0x01: name = "Russian"; break;
+ }
+ break;
+ case 0x1a:
+ switch (secondary) {
+ case 0x00: name = "Croatian (Croatia)"; break;
+ case 0x01: name = "Croatian"; break;
+ case 0x02: name = "Serbian (Latin)"; break;
+ case 0x03: name = "Serbian (Cyrillic)"; break;
+ case 0x04: name = "Croatian (Bosnia and Herzegovina)"; break;
+ case 0x05: name = "Bosnian (Latin, Bosnia and Herzegovina)"; break;
+ case 0x06: name = "Serbian (Latin, Bosnia and Herzegovina)"; break;
+ case 0x07: name = "Serbian (Cyrillic, Bosnia and Herzegovina)"; break;
+ case 0x08: name = "Bosnian (Cyrillic, Bosnia and Herzegovina)"; break;
+ }
+ break;
+ case 0x1b:
+ switch (secondary) {
+ case 0x00: name = "Slovak (Slovakia)"; break;
+ case 0x01: name = "Slovak"; break;
+ }
+ break;
+ case 0x1c:
+ switch (secondary) {
+ case 0x00: name = "Albanian (Albania)"; break;
+ case 0x01: name = "Albanian"; break;
+ }
+ break;
+ case 0x1d:
+ switch (secondary) {
+ case 0x00: name = "Swedish (Sweden)"; break;
+ case 0x01: name = "Swedish"; break;
+ case 0x02: name = "Swedish (Finland)"; break;
+ }
+ break;
+ case 0x1e:
+ switch (secondary) {
+ case 0x00: name = "Thai (Thailand)"; break;
+ case 0x01: name = "Thai"; break;
+ }
+ break;
+ case 0x1f:
+ switch (secondary) {
+ case 0x00: name = "Turkish (Turkey)"; break;
+ case 0x01: name = "Turkish"; break;
+ }
+ break;
+ case 0x20:
+ switch (secondary) {
+ case 0x00: name = "Urdu (Islamic Republic of Pakistan)"; break;
+ case 0x01: name = "Urdu"; break;
+ }
+ break;
+ case 0x21:
+ switch (secondary) {
+ case 0x00: name = "Indonesian (Indonesia)"; break;
+ case 0x01: name = "Indonesian"; break;
+ }
+ break;
+ case 0x22:
+ switch (secondary) {
+ case 0x00: name = "Ukrainian (Ukraine)"; break;
+ case 0x01: name = "Ukrainian"; break;
+ }
+ break;
+ case 0x23:
+ switch (secondary) {
+ case 0x00: name = "Belarusian (Belarus)"; break;
+ case 0x01: name = "Belarusian"; break;
+ }
+ break;
+ case 0x24:
+ switch (secondary) {
+ case 0x00: name = "Slovenian (Slovenia)"; break;
+ case 0x01: name = "Slovenian"; break;
+ }
+ break;
+ case 0x25:
+ switch (secondary) {
+ case 0x00: name = "Estonian (Estonia)"; break;
+ case 0x01: name = "Estonian"; break;
+ }
+ break;
+ case 0x26:
+ switch (secondary) {
+ case 0x00: name = "Latvian (Latvia)"; break;
+ case 0x01: name = "Latvian"; break;
+ }
+ break;
+ case 0x27:
+ switch (secondary) {
+ case 0x00: name = "Lithuanian (Lithuania)"; break;
+ case 0x01: name = "Lithuanian"; break;
+ }
+ break;
+ case 0x28:
+ switch (secondary) {
+ case 0x01: name = "Tajik (Tajikistan)"; break;
+ }
+ break;
+ case 0x29:
+ switch (secondary) {
+ case 0x00: name = "Farsi (Iran)"; break;
+ case 0x01: name = "Farsi"; break;
+ }
+ break;
+ case 0x2a:
+ switch (secondary) {
+ case 0x00: name = "Vietnamese (Viet Nam)"; break;
+ case 0x01: name = "Vietnamese"; break;
+ }
+ break;
+ case 0x2b:
+ switch (secondary) {
+ case 0x00: name = "Armenian (Armenia)"; break;
+ case 0x01: name = "Armenian"; break;
+ }
+ break;
+ case 0x2c:
+ switch (secondary) {
+ case 0x00: name = "Azeri (Latin) (Azerbaijan)"; break;
+ case 0x01: name = "Azeri (Latin)"; break;
+ case 0x02: name = "Azeri (Cyrillic)"; break;
+ }
+ break;
+ case 0x2d:
+ switch (secondary) {
+ case 0x00: name = "Basque (Spain)"; break;
+ case 0x01: name = "Basque"; break;
+ }
+ break;
+ case 0x2e:
+ switch (secondary) {
+ case 0x01: name = "Upper Sorbian (Germany)"; break;
+ case 0x02: name = "Lower Sorbian (Germany)"; break;
+ }
+ break;
+ case 0x2f:
+ switch (secondary) {
+ case 0x00: name = "FYRO Macedonian (Former Yugoslav Republic of Macedonia)"; break;
+ case 0x01: name = "FYRO Macedonian"; break;
+ }
+ break;
+ case 0x32:
+ switch (secondary) {
+ case 0x00: name = "Tswana (South Africa)"; break;
+ case 0x01: name = "Tswana"; break;
+ }
+ break;
+ case 0x34:
+ switch (secondary) {
+ case 0x00: name = "Xhosa (South Africa)"; break;
+ case 0x01: name = "Xhosa"; break;
+ }
+ break;
+ case 0x35:
+ switch (secondary) {
+ case 0x00: name = "Zulu (South Africa)"; break;
+ case 0x01: name = "Zulu"; break;
+ }
+ break;
+ case 0x36:
+ switch (secondary) {
+ case 0x00: name = "Afrikaans (South Africa)"; break;
+ case 0x01: name = "Afrikaans"; break;
+ }
+ break;
+ case 0x37:
+ switch (secondary) {
+ case 0x00: name = "Georgian (Georgia)"; break;
+ case 0x01: name = "Georgian"; break;
+ }
+ break;
+ case 0x38:
+ switch (secondary) {
+ case 0x00: name = "Faroese (Faroe Islands)"; break;
+ case 0x01: name = "Faroese"; break;
+ }
+ break;
+ case 0x39:
+ switch (secondary) {
+ case 0x00: name = "Hindi (India)"; break;
+ case 0x01: name = "Hindi"; break;
+ }
+ break;
+ case 0x3a:
+ switch (secondary) {
+ case 0x00: name = "Maltese (Malta)"; break;
+ case 0x01: name = "Maltese"; break;
+ }
+ break;
+ case 0x3b:
+ switch (secondary) {
+ case 0x00: name = "Sami (Northern) (Norway)"; break;
+ case 0x01: name = "Sami, Northern (Norway)"; break;
+ case 0x02: name = "Sami, Northern (Sweden)"; break;
+ case 0x03: name = "Sami, Northern (Finland)"; break;
+ case 0x04: name = "Sami, Lule (Norway)"; break;
+ case 0x05: name = "Sami, Lule (Sweden)"; break;
+ case 0x06: name = "Sami, Southern (Norway)"; break;
+ case 0x07: name = "Sami, Southern (Sweden)"; break;
+ case 0x08: name = "Sami, Skolt (Finland)"; break;
+ case 0x09: name = "Sami, Inari (Finland)"; break;
+ }
+ break;
+ case 0x3c:
+ switch (secondary) {
+ case 0x02: name = "Irish (Ireland)"; break;
+ }
+ break;
+ case 0x3e:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Malay (Malaysia)"; break;
+ case 0x02: name = "Malay (Brunei Darussalam)"; break;
+ }
+ break;
+ case 0x3f:
+ switch (secondary) {
+ case 0x00: name = "Kazakh (Kazakhstan)"; break;
+ case 0x01: name = "Kazakh"; break;
+ }
+ break;
+ case 0x40:
+ switch (secondary) {
+ case 0x00: name = "Kyrgyz (Kyrgyzstan)"; break;
+ case 0x01: name = "Kyrgyz (Cyrillic)"; break;
+ }
+ break;
+ case 0x41:
+ switch (secondary) {
+ case 0x00: name = "Swahili (Kenya)"; break;
+ case 0x01: name = "Swahili"; break;
+ }
+ break;
+ case 0x42:
+ switch (secondary) {
+ case 0x01: name = "Turkmen (Turkmenistan)"; break;
+ }
+ break;
+ case 0x43:
+ switch (secondary) {
+ case 0x00: name = "Uzbek (Latin) (Uzbekistan)"; break;
+ case 0x01: name = "Uzbek (Latin)"; break;
+ case 0x02: name = "Uzbek (Cyrillic)"; break;
+ }
+ break;
+ case 0x44:
+ switch (secondary) {
+ case 0x00: name = "Tatar (Russia)"; break;
+ case 0x01: name = "Tatar"; break;
+ }
+ break;
+ case 0x45:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Bengali (India)"; break;
+ }
+ break;
+ case 0x46:
+ switch (secondary) {
+ case 0x00: name = "Punjabi (India)"; break;
+ case 0x01: name = "Punjabi"; break;
+ }
+ break;
+ case 0x47:
+ switch (secondary) {
+ case 0x00: name = "Gujarati (India)"; break;
+ case 0x01: name = "Gujarati"; break;
+ }
+ break;
+ case 0x49:
+ switch (secondary) {
+ case 0x00: name = "Tamil (India)"; break;
+ case 0x01: name = "Tamil"; break;
+ }
+ break;
+ case 0x4a:
+ switch (secondary) {
+ case 0x00: name = "Telugu (India)"; break;
+ case 0x01: name = "Telugu"; break;
+ }
+ break;
+ case 0x4b:
+ switch (secondary) {
+ case 0x00: name = "Kannada (India)"; break;
+ case 0x01: name = "Kannada"; break;
+ }
+ break;
+ case 0x4c:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Malayalam (India)"; break;
+ }
+ break;
+ case 0x4d:
+ switch (secondary) {
+ case 0x01: name = "Assamese (India)"; break;
+ }
+ break;
+ case 0x4e:
+ switch (secondary) {
+ case 0x00: name = "Marathi (India)"; break;
+ case 0x01: name = "Marathi"; break;
+ }
+ break;
+ case 0x4f:
+ switch (secondary) {
+ case 0x00: name = "Sanskrit (India)"; break;
+ case 0x01: name = "Sanskrit"; break;
+ }
+ break;
+ case 0x50:
+ switch (secondary) {
+ case 0x00: name = "Mongolian (Mongolia)"; break;
+ case 0x01: name = "Mongolian (Cyrillic)"; break;
+ case 0x02: name = "Mongolian (PRC)"; break;
+ }
+ break;
+ case 0x51:
+ switch (secondary) {
+ case 0x01: name = "Tibetan (PRC)"; break;
+ case 0x02: name = "Tibetan (Bhutan)"; break;
+ }
+ break;
+ case 0x52:
+ switch (secondary) {
+ case 0x00: name = "Welsh (United Kingdom)"; break;
+ case 0x01: name = "Welsh"; break;
+ }
+ break;
+ case 0x53:
+ switch (secondary) {
+ case 0x01: name = "Khmer (Cambodia)"; break;
+ }
+ break;
+ case 0x54:
+ switch (secondary) {
+ case 0x01: name = "Lao (Lao PDR)"; break;
+ }
+ break;
+ case 0x56:
+ switch (secondary) {
+ case 0x00: name = "Galician (Spain)"; break;
+ case 0x01: name = "Galician"; break;
+ }
+ break;
+ case 0x57:
+ switch (secondary) {
+ case 0x00: name = "Konkani (India)"; break;
+ case 0x01: name = "Konkani"; break;
+ }
+ break;
+ case 0x5a:
+ switch (secondary) {
+ case 0x00: name = "Syriac (Syria)"; break;
+ case 0x01: name = "Syriac"; break;
+ }
+ break;
+ case 0x5b:
+ switch (secondary) {
+ case 0x01: name = "Sinhala (Sri Lanka)"; break;
+ }
+ break;
+ case 0x5d:
+ switch (secondary) {
+ case 0x01: name = "Inuktitut (Syllabics, Canada)"; break;
+ case 0x02: name = "Inuktitut (Latin, Canada)"; break;
+ }
+ break;
+ case 0x5e:
+ switch (secondary) {
+ case 0x01: name = "Amharic (Ethiopia)"; break;
+ }
+ break;
+ case 0x5f:
+ switch (secondary) {
+ case 0x02: name = "Tamazight (Algeria, Latin)"; break;
+ }
+ break;
+ case 0x61:
+ switch (secondary) {
+ case 0x01: name = "Nepali (Nepal)"; break;
+ }
+ break;
+ case 0x62:
+ switch (secondary) {
+ case 0x01: name = "Frisian (Netherlands)"; break;
+ }
+ break;
+ case 0x63:
+ switch (secondary) {
+ case 0x01: name = "Pashto (Afghanistan)"; break;
+ }
+ break;
+ case 0x64:
+ switch (secondary) {
+ case 0x01: name = "Filipino (Philippines)"; break;
+ }
+ break;
+ case 0x65:
+ switch (secondary) {
+ case 0x00: name = "Divehi (Maldives)"; break;
+ case 0x01: name = "Divehi"; break;
+ }
+ break;
+ case 0x68:
+ switch (secondary) {
+ case 0x01: name = "Hausa (Nigeria, Latin)"; break;
+ }
+ break;
+ case 0x6a:
+ switch (secondary) {
+ case 0x01: name = "Yoruba (Nigeria)"; break;
+ }
+ break;
+ case 0x6b:
+ switch (secondary) {
+ case 0x00:
+ case 0x01: name = "Quechua (Bolivia)"; break;
+ case 0x02: name = "Quechua (Ecuador)"; break;
+ case 0x03: name = "Quechua (Peru)"; break;
+ }
+ break;
+ case 0x6c:
+ switch (secondary) {
+ case 0x00: name = "Northern Sotho (South Africa)"; break;
+ case 0x01: name = "Northern Sotho"; break;
+ }
+ break;
+ case 0x6d:
+ switch (secondary) {
+ case 0x01: name = "Bashkir (Russia)"; break;
+ }
+ break;
+ case 0x6e:
+ switch (secondary) {
+ case 0x01: name = "Luxembourgish (Luxembourg)"; break;
+ }
+ break;
+ case 0x6f:
+ switch (secondary) {
+ case 0x01: name = "Greenlandic (Greenland)"; break;
+ }
+ break;
+ case 0x78:
+ switch (secondary) {
+ case 0x01: name = "Yi (PRC)"; break;
+ }
+ break;
+ case 0x7a:
+ switch (secondary) {
+ case 0x01: name = "Mapudungun (Chile)"; break;
+ }
+ break;
+ case 0x7c:
+ switch (secondary) {
+ case 0x01: name = "Mohawk (Mohawk)"; break;
+ }
+ break;
+ case 0x7e:
+ switch (secondary) {
+ case 0x01: name = "Breton (France)"; break;
+ }
+ break;
+ case 0x7f:
+ switch (secondary) {
+ case 0x00: name = "Invariant Language (Invariant Country)"; break;
+ }
+ break;
+ case 0x80:
+ switch (secondary) {
+ case 0x01: name = "Uighur (PRC)"; break;
+ }
+ break;
+ case 0x81:
+ switch (secondary) {
+ case 0x00: name = "Maori (New Zealand)"; break;
+ case 0x01: name = "Maori"; break;
+ }
+ break;
+ case 0x83:
+ switch (secondary) {
+ case 0x01: name = "Corsican (France)"; break;
+ }
+ break;
+ case 0x84:
+ switch (secondary) {
+ case 0x01: name = "Alsatian (France)"; break;
+ }
+ break;
+ case 0x85:
+ switch (secondary) {
+ case 0x01: name = "Yakut (Russia)"; break;
+ }
+ break;
+ case 0x86:
+ switch (secondary) {
+ case 0x01: name = "K'iche (Guatemala)"; break;
+ }
+ break;
+ case 0x87:
+ switch (secondary) {
+ case 0x01: name = "Kinyarwanda (Rwanda)"; break;
+ }
+ break;
+ case 0x88:
+ switch (secondary) {
+ case 0x01: name = "Wolof (Senegal)"; break;
+ }
+ break;
+ case 0x8c:
+ switch (secondary) {
+ case 0x01: name = "Dari (Afghanistan)"; break;
+ }
+ break;
+
+ default:
+ name = "Language Neutral";
+
+ }
+
+ if (!name)
+ name = "Language Neutral";
+
+ return copy_lang (lang_out, lang_len, name);
+}
return GetModuleInformation (process, module, modinfo, size);
}
+static guint32
+mono_w32process_get_fileversion_info_size (gunichar2 *filename, guint32 *handle)
+{
+ return GetFileVersionInfoSize (filename, handle);
+}
+
+static gboolean
+mono_w32process_get_fileversion_info (gunichar2 *filename, guint32 handle, guint32 len, gpointer data)
+{
+ return GetFileVersionInfo (filename, handle, len, data);
+}
+
+static gboolean
+mono_w32process_ver_query_value (gconstpointer datablock, const gunichar2 *subblock, gpointer *buffer, guint32 *len)
+{
+ return VerQueryValue (datablock, subblock, buffer, len);
+}
+
+static guint32
+mono_w32process_ver_language_name (guint32 lang, gunichar2 *lang_out, guint32 lang_len)
+{
+ return VerLanguageName (lang, lang_out, lang_len);
+}
+
#endif /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) && defined(HOST_WIN32) */
static MonoImage *system_image;
lang_key = g_utf8_to_utf16 (lang_key_utf8, -1, NULL, NULL, NULL);
- if (VerQueryValue (data, lang_key, (gpointer *)&buffer, &chars) && chars > 0) {
+ if (mono_w32process_ver_query_value (data, lang_key, (gpointer *)&buffer, &chars) && chars > 0) {
LOGDEBUG (g_message ("%s: found %d chars of [%s]", __func__, chars, g_utf16_to_utf8 (buffer, chars, NULL, NULL, NULL)));
/* chars includes trailing null */
process_set_field_string (filever, fieldname, buffer, chars - 1, error);
mono_error_init (error);
- datalen = GetFileVersionInfoSize (filename, &verinfohandle);
+ datalen = mono_w32process_get_fileversion_info_size (filename, &verinfohandle);
if (datalen) {
data = g_malloc0 (datalen);
- ok = GetFileVersionInfo (filename, verinfohandle, datalen, data);
+ ok = mono_w32process_get_fileversion_info (filename, verinfohandle, datalen, data);
if (ok) {
query = g_utf8_to_utf16 ("\\", -1, NULL, NULL, NULL);
if (query == NULL) {
return;
}
- if (VerQueryValue (data, query, (gpointer *)&ffi, &ffi_size)) {
+ if (mono_w32process_ver_query_value (data, query, (gpointer *)&ffi, &ffi_size)) {
#define LOWORD(i32) ((guint16)((i32) & 0xFFFF))
#define HIWORD(i32) ((guint16)(((guint32)(i32) >> 16) & 0xFFFF))
return;
}
- if (VerQueryValue (data, query, (gpointer *)&trans_data, &trans_size)) {
+ if (mono_w32process_ver_query_value (data, query, (gpointer *)&trans_data, &trans_size)) {
/* use the first language ID we see */
if (trans_size >= 4) {
LOGDEBUG (g_message("%s: %s has 0x%0x 0x%0x 0x%0x 0x%0x", __func__, g_utf16_to_utf8 (filename, -1, NULL, NULL, NULL), trans_data[0], trans_data[1], trans_data[2], trans_data[3]));
lang = (trans_data[0]) | (trans_data[1] << 8) | (trans_data[2] << 16) | (trans_data[3] << 24);
- /* Only give the lower 16 bits to VerLanguageName, as Windows gets confused otherwise */
- lang_count = VerLanguageName (lang & 0xFFFF, lang_buf, 128);
+ /* Only give the lower 16 bits to mono_w32process_ver_language_name, as Windows gets confused otherwise */
+ lang_count = mono_w32process_ver_language_name (lang & 0xFFFF, lang_buf, 128);
if (lang_count) {
process_set_field_string (filever, "language", lang_buf, lang_count, error);
return_if_nok (error);
}
/* And language seems to be set to en_US according to bug 374600 */
- lang_count = VerLanguageName (0x0409, lang_buf, 128);
+ lang_count = mono_w32process_ver_language_name (0x0409, lang_buf, 128);
if (lang_count) {
process_set_field_string (filever, "language", lang_buf, lang_count, error);
return_if_nok (error);