| /* |
| * Implementation of VER.DLL |
| * |
| * Copyright 1996, 1997 Marcus Meissner |
| * Copyright 1997 David Cuthbert |
| * Copyright 1999 Ulrich Weigand |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| |
| #include <stdarg.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #include <sys/types.h> |
| |
| #define NONAMELESSUNION |
| #define NONAMELESSSTRUCT |
| #include "windef.h" |
| #include "wine/winbase16.h" |
| #include "winver.h" |
| #include "lzexpand.h" |
| #include "wine/unicode.h" |
| #include "wine/debug.h" |
| |
| WINE_DEFAULT_DEBUG_CHANNEL(ver); |
| |
| #ifndef SEEK_SET |
| #define SEEK_SET 0 |
| #define SEEK_CUR 1 |
| #define SEEK_END 2 |
| #endif |
| |
| /********************************************************************** |
| * find_entry_by_id |
| * |
| * Find an entry by id in a resource directory |
| * Copied from loader/pe_resource.c |
| */ |
| static const IMAGE_RESOURCE_DIRECTORY *find_entry_by_id( const IMAGE_RESOURCE_DIRECTORY *dir, |
| WORD id, const void *root ) |
| { |
| const IMAGE_RESOURCE_DIRECTORY_ENTRY *entry; |
| int min, max, pos; |
| |
| entry = (const IMAGE_RESOURCE_DIRECTORY_ENTRY *)(dir + 1); |
| min = dir->NumberOfNamedEntries; |
| max = min + dir->NumberOfIdEntries - 1; |
| while (min <= max) |
| { |
| pos = (min + max) / 2; |
| if (entry[pos].u.Id == id) |
| return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry[pos].u2.s2.OffsetToDirectory); |
| if (entry[pos].u.Id > id) max = pos - 1; |
| else min = pos + 1; |
| } |
| return NULL; |
| } |
| |
| |
| /********************************************************************** |
| * find_entry_default |
| * |
| * Find a default entry in a resource directory |
| * Copied from loader/pe_resource.c |
| */ |
| static const IMAGE_RESOURCE_DIRECTORY *find_entry_default( const IMAGE_RESOURCE_DIRECTORY *dir, |
| const void *root ) |
| { |
| const IMAGE_RESOURCE_DIRECTORY_ENTRY *entry; |
| |
| entry = (const IMAGE_RESOURCE_DIRECTORY_ENTRY *)(dir + 1); |
| return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry->u2.s2.OffsetToDirectory); |
| } |
| |
| |
| /********************************************************************** |
| * find_entry_by_name |
| * |
| * Find an entry by name in a resource directory |
| * Copied from loader/pe_resource.c |
| */ |
| static const IMAGE_RESOURCE_DIRECTORY *find_entry_by_name( const IMAGE_RESOURCE_DIRECTORY *dir, |
| LPCSTR name, const void *root ) |
| { |
| const IMAGE_RESOURCE_DIRECTORY *ret = NULL; |
| LPWSTR nameW; |
| DWORD namelen; |
| |
| if (!HIWORD(name)) return find_entry_by_id( dir, LOWORD(name), root ); |
| if (name[0] == '#') |
| { |
| return find_entry_by_id( dir, atoi(name+1), root ); |
| } |
| |
| namelen = MultiByteToWideChar( CP_ACP, 0, name, -1, NULL, 0 ); |
| if ((nameW = HeapAlloc( GetProcessHeap(), 0, namelen * sizeof(WCHAR) ))) |
| { |
| const IMAGE_RESOURCE_DIRECTORY_ENTRY *entry; |
| const IMAGE_RESOURCE_DIR_STRING_U *str; |
| int min, max, res, pos; |
| |
| MultiByteToWideChar( CP_ACP, 0, name, -1, nameW, namelen ); |
| namelen--; /* remove terminating null */ |
| entry = (const IMAGE_RESOURCE_DIRECTORY_ENTRY *)(dir + 1); |
| min = 0; |
| max = dir->NumberOfNamedEntries - 1; |
| while (min <= max) |
| { |
| pos = (min + max) / 2; |
| str = (const IMAGE_RESOURCE_DIR_STRING_U *)((const char *)root + entry[pos].u.s.NameOffset); |
| res = strncmpiW( nameW, str->NameString, str->Length ); |
| if (!res && namelen == str->Length) |
| { |
| ret = (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry[pos].u2.s2.OffsetToDirectory); |
| break; |
| } |
| if (res < 0) max = pos - 1; |
| else min = pos + 1; |
| } |
| HeapFree( GetProcessHeap(), 0, nameW ); |
| } |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * read_xx_header [internal] |
| */ |
| static int read_xx_header( HFILE lzfd ) |
| { |
| IMAGE_DOS_HEADER mzh; |
| char magic[3]; |
| |
| LZSeek( lzfd, 0, SEEK_SET ); |
| if ( sizeof(mzh) != LZRead( lzfd, (LPSTR)&mzh, sizeof(mzh) ) ) |
| return 0; |
| if ( mzh.e_magic != IMAGE_DOS_SIGNATURE ) |
| return 0; |
| |
| LZSeek( lzfd, mzh.e_lfanew, SEEK_SET ); |
| if ( 2 != LZRead( lzfd, magic, 2 ) ) |
| return 0; |
| |
| LZSeek( lzfd, mzh.e_lfanew, SEEK_SET ); |
| |
| if ( magic[0] == 'N' && magic[1] == 'E' ) |
| return IMAGE_OS2_SIGNATURE; |
| if ( magic[0] == 'P' && magic[1] == 'E' ) |
| return IMAGE_NT_SIGNATURE; |
| |
| magic[2] = '\0'; |
| WARN("Can't handle %s files.\n", magic ); |
| return 0; |
| } |
| |
| /*********************************************************************** |
| * find_ne_resource [internal] |
| */ |
| static BOOL find_ne_resource( HFILE lzfd, LPCSTR typeid, LPCSTR resid, |
| DWORD *resLen, DWORD *resOff ) |
| { |
| IMAGE_OS2_HEADER nehd; |
| NE_TYPEINFO *typeInfo; |
| NE_NAMEINFO *nameInfo; |
| DWORD nehdoffset; |
| LPBYTE resTab; |
| DWORD resTabSize; |
| int count; |
| |
| /* Read in NE header */ |
| nehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); |
| if ( sizeof(nehd) != LZRead( lzfd, (LPSTR)&nehd, sizeof(nehd) ) ) return FALSE; |
| |
| resTabSize = nehd.ne_restab - nehd.ne_rsrctab; |
| if ( !resTabSize ) |
| { |
| TRACE("No resources in NE dll\n" ); |
| return FALSE; |
| } |
| |
| /* Read in resource table */ |
| resTab = HeapAlloc( GetProcessHeap(), 0, resTabSize ); |
| if ( !resTab ) return FALSE; |
| |
| LZSeek( lzfd, nehd.ne_rsrctab + nehdoffset, SEEK_SET ); |
| if ( resTabSize != LZRead( lzfd, (char*)resTab, resTabSize ) ) |
| { |
| HeapFree( GetProcessHeap(), 0, resTab ); |
| return FALSE; |
| } |
| |
| /* Find resource */ |
| typeInfo = (NE_TYPEINFO *)(resTab + 2); |
| |
| if (HIWORD(typeid) != 0) /* named type */ |
| { |
| BYTE len = strlen( typeid ); |
| while (typeInfo->type_id) |
| { |
| if (!(typeInfo->type_id & 0x8000)) |
| { |
| BYTE *p = resTab + typeInfo->type_id; |
| if ((*p == len) && !strncasecmp( (char*)p+1, typeid, len )) goto found_type; |
| } |
| typeInfo = (NE_TYPEINFO *)((char *)(typeInfo + 1) + |
| typeInfo->count * sizeof(NE_NAMEINFO)); |
| } |
| } |
| else /* numeric type id */ |
| { |
| WORD id = LOWORD(typeid) | 0x8000; |
| while (typeInfo->type_id) |
| { |
| if (typeInfo->type_id == id) goto found_type; |
| typeInfo = (NE_TYPEINFO *)((char *)(typeInfo + 1) + |
| typeInfo->count * sizeof(NE_NAMEINFO)); |
| } |
| } |
| TRACE("No typeid entry found for %p\n", typeid ); |
| HeapFree( GetProcessHeap(), 0, resTab ); |
| return FALSE; |
| |
| found_type: |
| nameInfo = (NE_NAMEINFO *)(typeInfo + 1); |
| |
| if (HIWORD(resid) != 0) /* named resource */ |
| { |
| BYTE len = strlen( resid ); |
| for (count = typeInfo->count; count > 0; count--, nameInfo++) |
| { |
| BYTE *p = resTab + nameInfo->id; |
| if (nameInfo->id & 0x8000) continue; |
| if ((*p == len) && !strncasecmp( (char*)p+1, resid, len )) goto found_name; |
| } |
| } |
| else /* numeric resource id */ |
| { |
| WORD id = LOWORD(resid) | 0x8000; |
| for (count = typeInfo->count; count > 0; count--, nameInfo++) |
| if (nameInfo->id == id) goto found_name; |
| } |
| TRACE("No resid entry found for %p\n", typeid ); |
| HeapFree( GetProcessHeap(), 0, resTab ); |
| return FALSE; |
| |
| found_name: |
| /* Return resource data */ |
| if ( resLen ) *resLen = nameInfo->length << *(WORD *)resTab; |
| if ( resOff ) *resOff = nameInfo->offset << *(WORD *)resTab; |
| |
| HeapFree( GetProcessHeap(), 0, resTab ); |
| return TRUE; |
| } |
| |
| /*********************************************************************** |
| * find_pe_resource [internal] |
| */ |
| static BOOL find_pe_resource( HFILE lzfd, LPCSTR typeid, LPCSTR resid, |
| DWORD *resLen, DWORD *resOff ) |
| { |
| IMAGE_NT_HEADERS pehd; |
| DWORD pehdoffset; |
| PIMAGE_DATA_DIRECTORY resDataDir; |
| PIMAGE_SECTION_HEADER sections; |
| LPBYTE resSection; |
| DWORD resSectionSize; |
| const void *resDir; |
| const IMAGE_RESOURCE_DIRECTORY *resPtr; |
| const IMAGE_RESOURCE_DATA_ENTRY *resData; |
| int i, nSections; |
| BOOL ret = FALSE; |
| |
| /* Read in PE header */ |
| pehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); |
| if ( sizeof(pehd) != LZRead( lzfd, (LPSTR)&pehd, sizeof(pehd) ) ) return FALSE; |
| |
| resDataDir = pehd.OptionalHeader.DataDirectory+IMAGE_DIRECTORY_ENTRY_RESOURCE; |
| if ( !resDataDir->Size ) |
| { |
| TRACE("No resources in PE dll\n" ); |
| return FALSE; |
| } |
| |
| /* Read in section table */ |
| nSections = pehd.FileHeader.NumberOfSections; |
| sections = HeapAlloc( GetProcessHeap(), 0, |
| nSections * sizeof(IMAGE_SECTION_HEADER) ); |
| if ( !sections ) return FALSE; |
| |
| LZSeek( lzfd, pehdoffset + |
| sizeof(DWORD) + /* Signature */ |
| sizeof(IMAGE_FILE_HEADER) + |
| pehd.FileHeader.SizeOfOptionalHeader, SEEK_SET ); |
| |
| if ( nSections * sizeof(IMAGE_SECTION_HEADER) != |
| LZRead( lzfd, (LPSTR)sections, nSections * sizeof(IMAGE_SECTION_HEADER) ) ) |
| { |
| HeapFree( GetProcessHeap(), 0, sections ); |
| return FALSE; |
| } |
| |
| /* Find resource section */ |
| for ( i = 0; i < nSections; i++ ) |
| if ( resDataDir->VirtualAddress >= sections[i].VirtualAddress |
| && resDataDir->VirtualAddress < sections[i].VirtualAddress + |
| sections[i].SizeOfRawData ) |
| break; |
| |
| if ( i == nSections ) |
| { |
| HeapFree( GetProcessHeap(), 0, sections ); |
| TRACE("Couldn't find resource section\n" ); |
| return FALSE; |
| } |
| |
| /* Read in resource section */ |
| resSectionSize = sections[i].SizeOfRawData; |
| resSection = HeapAlloc( GetProcessHeap(), 0, resSectionSize ); |
| if ( !resSection ) |
| { |
| HeapFree( GetProcessHeap(), 0, sections ); |
| return FALSE; |
| } |
| |
| LZSeek( lzfd, sections[i].PointerToRawData, SEEK_SET ); |
| if ( resSectionSize != LZRead( lzfd, (char*)resSection, resSectionSize ) ) goto done; |
| |
| /* Find resource */ |
| resDir = resSection + (resDataDir->VirtualAddress - sections[i].VirtualAddress); |
| |
| resPtr = resDir; |
| resPtr = find_entry_by_name( resPtr, typeid, resDir ); |
| if ( !resPtr ) |
| { |
| TRACE("No typeid entry found for %p\n", typeid ); |
| goto done; |
| } |
| resPtr = find_entry_by_name( resPtr, resid, resDir ); |
| if ( !resPtr ) |
| { |
| TRACE("No resid entry found for %p\n", resid ); |
| goto done; |
| } |
| resPtr = find_entry_default( resPtr, resDir ); |
| if ( !resPtr ) |
| { |
| TRACE("No default language entry found for %p\n", resid ); |
| goto done; |
| } |
| |
| /* Find resource data section */ |
| resData = (const IMAGE_RESOURCE_DATA_ENTRY*)resPtr; |
| for ( i = 0; i < nSections; i++ ) |
| if ( resData->OffsetToData >= sections[i].VirtualAddress |
| && resData->OffsetToData < sections[i].VirtualAddress + |
| sections[i].SizeOfRawData ) |
| break; |
| |
| if ( i == nSections ) |
| { |
| TRACE("Couldn't find resource data section\n" ); |
| goto done; |
| } |
| |
| /* Return resource data */ |
| if ( resLen ) *resLen = resData->Size; |
| if ( resOff ) *resOff = resData->OffsetToData - sections[i].VirtualAddress |
| + sections[i].PointerToRawData; |
| ret = TRUE; |
| |
| done: |
| HeapFree( GetProcessHeap(), 0, resSection ); |
| HeapFree( GetProcessHeap(), 0, sections ); |
| return ret; |
| } |
| |
| |
| /*********************************************************************** |
| * find_resource [internal] |
| */ |
| static DWORD find_resource( HFILE lzfd, LPCSTR type, LPCSTR id, DWORD *reslen, DWORD *offset ) |
| { |
| DWORD magic = read_xx_header( lzfd ); |
| |
| switch (magic) |
| { |
| case IMAGE_OS2_SIGNATURE: |
| if (!find_ne_resource( lzfd, type, id, reslen, offset )) magic = 0; |
| break; |
| case IMAGE_NT_SIGNATURE: |
| if (!find_pe_resource( lzfd, type, id, reslen, offset )) magic = 0; |
| break; |
| } |
| return magic; |
| } |
| |
| |
| /************************************************************************* |
| * GetFileResourceSize [VER.2] |
| */ |
| DWORD WINAPI GetFileResourceSize16( LPCSTR lpszFileName, LPCSTR lpszResType, |
| LPCSTR lpszResId, LPDWORD lpdwFileOffset ) |
| { |
| HFILE lzfd; |
| OFSTRUCT ofs; |
| DWORD reslen = 0; |
| |
| TRACE("(%s,type=%p,id=%p,off=%p)\n", |
| debugstr_a(lpszFileName), lpszResType, lpszResId, lpszResId ); |
| |
| lzfd = LZOpenFileA( (LPSTR)lpszFileName, &ofs, OF_READ ); |
| if (lzfd >= 0) |
| { |
| if (!find_resource( lzfd, lpszResType, lpszResId, &reslen, lpdwFileOffset )) reslen = 0; |
| LZClose( lzfd ); |
| } |
| return reslen; |
| } |
| |
| |
| /************************************************************************* |
| * GetFileResource [VER.3] |
| */ |
| DWORD WINAPI GetFileResource16( LPCSTR lpszFileName, LPCSTR lpszResType, |
| LPCSTR lpszResId, DWORD dwFileOffset, |
| DWORD dwResLen, LPVOID lpvData ) |
| { |
| HFILE lzfd; |
| OFSTRUCT ofs; |
| DWORD reslen = dwResLen; |
| |
| TRACE("(%s,type=%p,id=%p,off=%d,len=%d,data=%p)\n", |
| debugstr_a(lpszFileName), lpszResType, lpszResId, |
| dwFileOffset, dwResLen, lpvData ); |
| |
| lzfd = LZOpenFileA( (LPSTR)lpszFileName, &ofs, OF_READ ); |
| if ( lzfd < 0 ) return 0; |
| |
| if ( !dwFileOffset ) |
| { |
| if (!find_resource( lzfd, lpszResType, lpszResId, &reslen, &dwFileOffset )) |
| { |
| LZClose( lzfd ); |
| return 0; |
| } |
| } |
| |
| LZSeek( lzfd, dwFileOffset, SEEK_SET ); |
| reslen = LZRead( lzfd, lpvData, min( reslen, dwResLen ) ); |
| LZClose( lzfd ); |
| |
| return reslen; |
| } |
| |
| /************************************************************************* |
| * GetFileVersionInfoSize [VER.6] |
| */ |
| DWORD WINAPI GetFileVersionInfoSize16( LPCSTR lpszFileName, LPDWORD lpdwHandle ) |
| { |
| TRACE("(%s, %p)\n", debugstr_a(lpszFileName), lpdwHandle ); |
| return GetFileVersionInfoSizeA( lpszFileName, lpdwHandle ); |
| } |
| |
| /************************************************************************* |
| * GetFileVersionInfo [VER.7] |
| */ |
| DWORD WINAPI GetFileVersionInfo16( LPCSTR lpszFileName, DWORD handle, |
| DWORD cbBuf, LPVOID lpvData ) |
| { |
| TRACE("(%s, %08x, %d, %p)\n", |
| debugstr_a(lpszFileName), handle, cbBuf, lpvData ); |
| |
| return GetFileVersionInfoA( lpszFileName, handle, cbBuf, lpvData ); |
| } |
| |
| /************************************************************************* |
| * VerFindFile [VER.8] |
| */ |
| DWORD WINAPI VerFindFile16( UINT16 flags, LPSTR lpszFilename, |
| LPSTR lpszWinDir, LPSTR lpszAppDir, |
| LPSTR lpszCurDir, UINT16 *lpuCurDirLen, |
| LPSTR lpszDestDir, UINT16 *lpuDestDirLen ) |
| { |
| UINT curDirLen, destDirLen; |
| UINT *pcurDirLen = NULL, *pdestDirLen = NULL; |
| DWORD retv; |
| |
| if (lpuCurDirLen) { |
| curDirLen = *lpuCurDirLen; |
| pcurDirLen = &curDirLen; |
| } |
| if (lpuDestDirLen) { |
| destDirLen = *lpuDestDirLen; |
| pdestDirLen = &destDirLen; |
| } |
| retv = VerFindFileA( flags, lpszFilename, lpszWinDir, lpszAppDir, |
| lpszCurDir, pcurDirLen, lpszDestDir, pdestDirLen ); |
| if (lpuCurDirLen) |
| *lpuCurDirLen = (UINT16)curDirLen; |
| if (lpuDestDirLen) |
| *lpuDestDirLen = (UINT16)destDirLen; |
| return retv; |
| } |
| |
| /************************************************************************* |
| * VerInstallFile [VER.9] |
| */ |
| DWORD WINAPI VerInstallFile16( UINT16 flags, |
| LPSTR lpszSrcFilename, LPSTR lpszDestFilename, |
| LPSTR lpszSrcDir, LPSTR lpszDestDir, LPSTR lpszCurDir, |
| LPSTR lpszTmpFile, UINT16 *lpwTmpFileLen ) |
| { |
| UINT filelen = *lpwTmpFileLen; |
| |
| DWORD retv = VerInstallFileA( flags, lpszSrcFilename, lpszDestFilename, |
| lpszSrcDir, lpszDestDir, lpszCurDir, |
| lpszTmpFile, &filelen); |
| |
| *lpwTmpFileLen = (UINT16)filelen; |
| return retv; |
| } |
| |
| /************************************************************************* |
| * VerLanguageName [VER.10] |
| */ |
| DWORD WINAPI VerLanguageName16( UINT16 uLang, LPSTR lpszLang, UINT16 cbLang ) |
| { |
| return VerLanguageNameA( uLang, lpszLang, cbLang ); |
| } |
| |
| /************************************************************************* |
| * VerQueryValue [VER.11] |
| */ |
| DWORD WINAPI VerQueryValue16( SEGPTR spvBlock, LPSTR lpszSubBlock, |
| SEGPTR *lpspBuffer, UINT16 *lpcb ) |
| { |
| LPVOID lpvBlock = MapSL( spvBlock ); |
| LPVOID buffer = lpvBlock; |
| UINT buflen; |
| DWORD retv; |
| |
| TRACE("(%p, %s, %p, %p)\n", |
| lpvBlock, debugstr_a(lpszSubBlock), lpspBuffer, lpcb ); |
| |
| retv = VerQueryValueA( lpvBlock, lpszSubBlock, &buffer, &buflen ); |
| if ( !retv ) return FALSE; |
| |
| if ( OFFSETOF( spvBlock ) + ((char *) buffer - (char *) lpvBlock) >= 0x10000 ) |
| { |
| FIXME("offset %08X too large relative to %04X:%04X\n", |
| (char *) buffer - (char *) lpvBlock, SELECTOROF( spvBlock ), OFFSETOF( spvBlock ) ); |
| return FALSE; |
| } |
| |
| if (lpcb) *lpcb = buflen; |
| *lpspBuffer = (SEGPTR) ((char *) spvBlock + ((char *) buffer - (char *) lpvBlock)); |
| |
| return retv; |
| } |
