diff --git a/dlls/version/Makefile.in b/dlls/version/Makefile.in index c4e3f3844c8..5a8ca582f12 100644 --- a/dlls/version/Makefile.in +++ b/dlls/version/Makefile.in @@ -2,9 +2,7 @@ MODULE = version.dll IMPORTLIB = version C_SRCS = \ - info.c \ - install.c \ - resource.c + version.c RC_SRCS = version.rc diff --git a/dlls/version/info.c b/dlls/version/info.c deleted file mode 100644 index e7f7077e72b..00000000000 --- a/dlls/version/info.c +++ /dev/null @@ -1,675 +0,0 @@ -/* - * Implementation of VERSION.DLL - Version Info access - * - * Copyright 1996,1997 Marcus Meissner - * Copyright 1997 David Cuthbert - * Copyright 1999 Ulrich Weigand - * Copyright 2005 Paul Vriens - * - * 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 -#include -#include - -#include "windef.h" -#include "winbase.h" -#include "winver.h" -#include "winuser.h" -#include "winternl.h" -#include "lzexpand.h" -#include "wine/unicode.h" -#include "winerror.h" -#include "wine/debug.h" - -WINE_DEFAULT_DEBUG_CHANNEL(ver); - -extern DWORD find_version_resource( HFILE lzfd, DWORD *reslen, DWORD *offset ); - -/****************************************************************************** - * - * This function will print via standard TRACE, debug info regarding - * the file info structure vffi. - * 15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu) - * Added this function to clean up the code. - * - *****************************************************************************/ -static void print_vffi_debug(const VS_FIXEDFILEINFO *vffi) -{ - BOOL versioned_printer = FALSE; - - if((vffi->dwFileType == VFT_DLL) || (vffi->dwFileType == VFT_DRV)) - { - if(vffi->dwFileSubtype == VFT2_DRV_VERSIONED_PRINTER) - /* this is documented for newer w2k Drivers and up */ - versioned_printer = TRUE; - else if( (vffi->dwFileSubtype == VFT2_DRV_PRINTER) && - (vffi->dwFileVersionMS != vffi->dwProductVersionMS) && - (vffi->dwFileVersionMS > 0) && - (vffi->dwFileVersionMS <= 3) ) - /* found this on NT 3.51, NT4.0 and old w2k Drivers */ - versioned_printer = TRUE; - } - - TRACE("structversion=%u.%u, ", - HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion)); - if(versioned_printer) - { - WORD mode = LOWORD(vffi->dwFileVersionMS); - WORD ver_rev = HIWORD(vffi->dwFileVersionLS); - TRACE("fileversion=%u.%u.%u.%u (%s.major.minor.release), ", - (vffi->dwFileVersionMS), - HIBYTE(ver_rev), LOBYTE(ver_rev), LOWORD(vffi->dwFileVersionLS), - (mode == 3) ? "Usermode" : ((mode <= 2) ? "Kernelmode" : "?") ); - } - else - { - TRACE("fileversion=%u.%u.%u.%u, ", - HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS), - HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS)); - } - TRACE("productversion=%u.%u.%u.%u\n", - HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS), - HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS)); - - TRACE("flagmask=0x%x, flags=0x%x %s%s%s%s%s%s\n", - vffi->dwFileFlagsMask, vffi->dwFileFlags, - (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "", - (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "", - (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "", - (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "", - (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "", - (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""); - - TRACE("("); - - TRACE("OS=0x%x.0x%x ", HIWORD(vffi->dwFileOS), LOWORD(vffi->dwFileOS)); - - switch (vffi->dwFileOS&0xFFFF0000) - { - case VOS_DOS:TRACE("DOS,");break; - case VOS_OS216:TRACE("OS/2-16,");break; - case VOS_OS232:TRACE("OS/2-32,");break; - case VOS_NT:TRACE("NT,");break; - case VOS_UNKNOWN: - default: - TRACE("UNKNOWN(0x%x),",vffi->dwFileOS&0xFFFF0000);break; - } - - switch (LOWORD(vffi->dwFileOS)) - { - case VOS__BASE:TRACE("BASE");break; - case VOS__WINDOWS16:TRACE("WIN16");break; - case VOS__WINDOWS32:TRACE("WIN32");break; - case VOS__PM16:TRACE("PM16");break; - case VOS__PM32:TRACE("PM32");break; - default: - TRACE("UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break; - } - - TRACE(")\n"); - - switch (vffi->dwFileType) - { - case VFT_APP:TRACE("filetype=APP");break; - case VFT_DLL: - TRACE("filetype=DLL"); - if(vffi->dwFileSubtype != 0) - { - if(versioned_printer) /* NT3.x/NT4.0 or old w2k Driver */ - TRACE(",PRINTER"); - TRACE(" (subtype=0x%x)", vffi->dwFileSubtype); - } - break; - case VFT_DRV: - TRACE("filetype=DRV,"); - switch(vffi->dwFileSubtype) - { - case VFT2_DRV_PRINTER:TRACE("PRINTER");break; - case VFT2_DRV_KEYBOARD:TRACE("KEYBOARD");break; - case VFT2_DRV_LANGUAGE:TRACE("LANGUAGE");break; - case VFT2_DRV_DISPLAY:TRACE("DISPLAY");break; - case VFT2_DRV_MOUSE:TRACE("MOUSE");break; - case VFT2_DRV_NETWORK:TRACE("NETWORK");break; - case VFT2_DRV_SYSTEM:TRACE("SYSTEM");break; - case VFT2_DRV_INSTALLABLE:TRACE("INSTALLABLE");break; - case VFT2_DRV_SOUND:TRACE("SOUND");break; - case VFT2_DRV_COMM:TRACE("COMM");break; - case VFT2_DRV_INPUTMETHOD:TRACE("INPUTMETHOD");break; - case VFT2_DRV_VERSIONED_PRINTER:TRACE("VERSIONED_PRINTER");break; - case VFT2_UNKNOWN: - default: - TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; - } - break; - case VFT_FONT: - TRACE("filetype=FONT,"); - switch (vffi->dwFileSubtype) - { - case VFT2_FONT_RASTER:TRACE("RASTER");break; - case VFT2_FONT_VECTOR:TRACE("VECTOR");break; - case VFT2_FONT_TRUETYPE:TRACE("TRUETYPE");break; - default:TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; - } - break; - case VFT_VXD:TRACE("filetype=VXD");break; - case VFT_STATIC_LIB:TRACE("filetype=STATIC_LIB");break; - case VFT_UNKNOWN: - default: - TRACE("filetype=Unknown(0x%x)",vffi->dwFileType);break; - } - - TRACE("\n"); - TRACE("filedate=0x%x.0x%x\n",vffi->dwFileDateMS,vffi->dwFileDateLS); -} - -/*********************************************************************** - * Version Info Structure - */ - -typedef struct -{ - WORD wLength; - WORD wValueLength; - CHAR szKey[1]; -#if 0 /* variable length structure */ - /* DWORD aligned */ - BYTE Value[]; - /* DWORD aligned */ - VS_VERSION_INFO_STRUCT16 Children[]; -#endif -} VS_VERSION_INFO_STRUCT16; - -typedef struct -{ - WORD wLength; - WORD wValueLength; - WORD wType; - WCHAR szKey[1]; -#if 0 /* variable length structure */ - /* DWORD aligned */ - BYTE Value[]; - /* DWORD aligned */ - VS_VERSION_INFO_STRUCT32 Children[]; -#endif -} VS_VERSION_INFO_STRUCT32; - -#define VersionInfoIs16( ver ) \ - ( ((const VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' ) - -#define DWORD_ALIGN( base, ptr ) \ - ( (LPBYTE)(base) + ((((LPBYTE)(ptr) - (LPBYTE)(base)) + 3) & ~3) ) - -#define VersionInfo16_Value( ver ) \ - DWORD_ALIGN( (ver), (ver)->szKey + strlen((ver)->szKey) + 1 ) -#define VersionInfo32_Value( ver ) \ - DWORD_ALIGN( (ver), (ver)->szKey + strlenW((ver)->szKey) + 1 ) - -#define VersionInfo16_Children( ver ) \ - (const VS_VERSION_INFO_STRUCT16 *)( VersionInfo16_Value( ver ) + \ - ( ( (ver)->wValueLength + 3 ) & ~3 ) ) -#define VersionInfo32_Children( ver ) \ - (const VS_VERSION_INFO_STRUCT32 *)( VersionInfo32_Value( ver ) + \ - ( ( (ver)->wValueLength * \ - ((ver)->wType? 2 : 1) + 3 ) & ~3 ) ) - -#define VersionInfo16_Next( ver ) \ - (VS_VERSION_INFO_STRUCT16 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) -#define VersionInfo32_Next( ver ) \ - (VS_VERSION_INFO_STRUCT32 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) - - -/*********************************************************************** - * GetFileVersionInfoSizeW [VERSION.@] - */ -DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle ) -{ - DWORD len, offset, magic = 1; - HFILE lzfd; - HMODULE hModule; - OFSTRUCT ofs; - - TRACE("(%s,%p)\n", debugstr_w(filename), handle ); - - if (handle) *handle = 0; - - if (!filename) - { - SetLastError(ERROR_INVALID_PARAMETER); - return 0; - } - if (!*filename) - { - SetLastError(ERROR_BAD_PATHNAME); - return 0; - } - - if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) - { - magic = find_version_resource( lzfd, &len, &offset ); - LZClose( lzfd ); - } - - if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) - { - HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), - MAKEINTRESOURCEW(VS_FILE_INFO) ); - if (hRsrc) - { - magic = IMAGE_NT_SIGNATURE; - len = SizeofResource( hModule, hRsrc ); - } - FreeLibrary( hModule ); - } - - switch (magic) - { - case IMAGE_OS2_SIGNATURE: - /* We have a 16bit resource. - * - * XP/W2K/W2K3 uses a buffer which is more than the actual needed space: - * - * (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 - * - * This extra buffer is used for ANSI to Unicode conversions in W-Calls. - * info->wLength should be the same as len. Currently it isn't but that - * doesn't seem to be a problem (len is bigger than info->wLength). - */ - SetLastError(0); - return (len - sizeof(VS_FIXEDFILEINFO)) * 4; - - case IMAGE_NT_SIGNATURE: - /* We have a 32bit resource. - * - * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" - * This extra buffer is used for Unicode to ANSI conversions in A-Calls - */ - SetLastError(0); - return (len * 2) + 4; - - default: - SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); - return 0; - } -} - -/*********************************************************************** - * GetFileVersionInfoSizeA [VERSION.@] - */ -DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle ) -{ - UNICODE_STRING filenameW; - DWORD retval; - - TRACE("(%s,%p)\n", debugstr_a(filename), handle ); - - if(filename) - RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); - else - filenameW.Buffer = NULL; - - retval = GetFileVersionInfoSizeW(filenameW.Buffer, handle); - - RtlFreeUnicodeString(&filenameW); - - return retval; -} - -/*********************************************************************** - * GetFileVersionInfoW [VERSION.@] - */ -BOOL WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle, - DWORD datasize, LPVOID data ) -{ - static const char signature[4] = "FE2X"; - DWORD len, offset, magic = 1; - HFILE lzfd; - OFSTRUCT ofs; - HMODULE hModule; - VS_VERSION_INFO_STRUCT32* vvis = data; - - TRACE("(%s,%d,size=%d,data=%p)\n", - debugstr_w(filename), handle, datasize, data ); - - if (!data) - { - SetLastError(ERROR_INVALID_DATA); - return FALSE; - } - - if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) - { - if ((magic = find_version_resource( lzfd, &len, &offset )) > 1) - { - LZSeek( lzfd, offset, 0 /* SEEK_SET */ ); - len = LZRead( lzfd, data, min( len, datasize ) ); - } - LZClose( lzfd ); - } - - if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) - { - HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), - MAKEINTRESOURCEW(VS_FILE_INFO) ); - if (hRsrc) - { - HGLOBAL hMem = LoadResource( hModule, hRsrc ); - magic = IMAGE_NT_SIGNATURE; - len = min( SizeofResource(hModule, hRsrc), datasize ); - memcpy( data, LockResource( hMem ), len ); - FreeResource( hMem ); - } - FreeLibrary( hModule ); - } - - switch (magic) - { - case IMAGE_OS2_SIGNATURE: - /* We have a 16bit resource. */ - if (TRACE_ON(ver)) - print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)data )); - SetLastError(0); - return TRUE; - - case IMAGE_NT_SIGNATURE: - /* We have a 32bit resource. - * - * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" - * This extra buffer is used for Unicode to ANSI conversions in A-Calls - */ - len = vvis->wLength + sizeof(signature); - if (datasize >= len) memcpy( (char*)data + vvis->wLength, signature, sizeof(signature) ); - if (TRACE_ON(ver)) - print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo32_Value( vvis )); - SetLastError(0); - return TRUE; - - default: - SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); - return FALSE; - } -} - -/*********************************************************************** - * GetFileVersionInfoA [VERSION.@] - */ -BOOL WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle, - DWORD datasize, LPVOID data ) -{ - UNICODE_STRING filenameW; - BOOL retval; - - TRACE("(%s,%d,size=%d,data=%p)\n", - debugstr_a(filename), handle, datasize, data ); - - if(filename) - RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); - else - filenameW.Buffer = NULL; - - retval = GetFileVersionInfoW(filenameW.Buffer, handle, datasize, data); - - RtlFreeUnicodeString(&filenameW); - - return retval; -} - -/*********************************************************************** - * VersionInfo16_FindChild [internal] - */ -static const VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( const VS_VERSION_INFO_STRUCT16 *info, - LPCSTR szKey, UINT cbKey ) -{ - const VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info ); - - while ((char *)child < (char *)info + info->wLength ) - { - if (!strncasecmp( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) - return child; - - if (!(child->wLength)) return NULL; - child = VersionInfo16_Next( child ); - } - - return NULL; -} - -/*********************************************************************** - * VersionInfo32_FindChild [internal] - */ -static const VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( const VS_VERSION_INFO_STRUCT32 *info, - LPCWSTR szKey, UINT cbKey ) -{ - const VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info ); - - while ((char *)child < (char *)info + info->wLength ) - { - if (!strncmpiW( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) - return child; - - if (!(child->wLength)) return NULL; - child = VersionInfo32_Next( child ); - } - - return NULL; -} - -/*********************************************************************** - * VersionInfo16_QueryValue [internal] - * - * Gets a value from a 16-bit NE resource - */ -static BOOL VersionInfo16_QueryValue( const VS_VERSION_INFO_STRUCT16 *info, LPCSTR lpSubBlock, - LPVOID *lplpBuffer, UINT *puLen ) -{ - while ( *lpSubBlock ) - { - /* Find next path component */ - LPCSTR lpNextSlash; - for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) - if ( *lpNextSlash == '\\' ) - break; - - /* Skip empty components */ - if ( lpNextSlash == lpSubBlock ) - { - lpSubBlock++; - continue; - } - - /* We have a non-empty component: search info for key */ - info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); - if ( !info ) - { - if (puLen) *puLen = 0 ; - SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); - return FALSE; - } - - /* Skip path component */ - lpSubBlock = lpNextSlash; - } - - /* Return value */ - *lplpBuffer = VersionInfo16_Value( info ); - if (puLen) - *puLen = info->wValueLength; - - return TRUE; -} - -/*********************************************************************** - * VersionInfo32_QueryValue [internal] - * - * Gets a value from a 32-bit PE resource - */ -static BOOL VersionInfo32_QueryValue( const VS_VERSION_INFO_STRUCT32 *info, LPCWSTR lpSubBlock, - LPVOID *lplpBuffer, UINT *puLen ) -{ - TRACE("lpSubBlock : (%s)\n", debugstr_w(lpSubBlock)); - - while ( *lpSubBlock ) - { - /* Find next path component */ - LPCWSTR lpNextSlash; - for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) - if ( *lpNextSlash == '\\' ) - break; - - /* Skip empty components */ - if ( lpNextSlash == lpSubBlock ) - { - lpSubBlock++; - continue; - } - - /* We have a non-empty component: search info for key */ - info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); - if ( !info ) - { - if (puLen) *puLen = 0 ; - SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); - return FALSE; - } - - /* Skip path component */ - lpSubBlock = lpNextSlash; - } - - /* Return value */ - *lplpBuffer = VersionInfo32_Value( info ); - if (puLen) - *puLen = info->wValueLength; - - return TRUE; -} - -/*********************************************************************** - * VerQueryValueA [VERSION.@] - */ -BOOL WINAPI VerQueryValueA( LPCVOID pBlock, LPCSTR lpSubBlock, - LPVOID *lplpBuffer, PUINT puLen ) -{ - static const char rootA[] = "\\"; - static const char varfileinfoA[] = "\\VarFileInfo\\Translation"; - const VS_VERSION_INFO_STRUCT16 *info = pBlock; - - TRACE("(%p,%s,%p,%p)\n", - pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen ); - - if (!pBlock) - return FALSE; - - if (lpSubBlock == NULL || lpSubBlock[0] == '\0') - lpSubBlock = rootA; - - if ( !VersionInfoIs16( info ) ) - { - BOOL ret; - INT len; - LPWSTR lpSubBlockW; - - len = MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, NULL, 0); - lpSubBlockW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); - - if (!lpSubBlockW) - return FALSE; - - MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, lpSubBlockW, len); - - ret = VersionInfo32_QueryValue(pBlock, lpSubBlockW, lplpBuffer, puLen); - - HeapFree(GetProcessHeap(), 0, lpSubBlockW); - - if (ret && strcasecmp( lpSubBlock, rootA ) && strcasecmp( lpSubBlock, varfileinfoA )) - { - /* Set lpBuffer so it points to the 'empty' area where we store - * the converted strings - */ - LPSTR lpBufferA = (LPSTR)pBlock + info->wLength + 4; - DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; - - len = WideCharToMultiByte(CP_ACP, 0, *lplpBuffer, -1, - lpBufferA + pos, info->wLength - pos, NULL, NULL); - *lplpBuffer = lpBufferA + pos; - *puLen = len; - } - return ret; - } - - return VersionInfo16_QueryValue(info, lpSubBlock, lplpBuffer, puLen); -} - -/*********************************************************************** - * VerQueryValueW [VERSION.@] - */ -BOOL WINAPI VerQueryValueW( LPCVOID pBlock, LPCWSTR lpSubBlock, - LPVOID *lplpBuffer, PUINT puLen ) -{ - static const WCHAR nullW[] = { 0 }; - static const WCHAR rootW[] = { '\\', 0 }; - static const WCHAR varfileinfoW[] = { '\\','V','a','r','F','i','l','e','I','n','f','o', - '\\','T','r','a','n','s','l','a','t','i','o','n', 0 }; - - const VS_VERSION_INFO_STRUCT32 *info = pBlock; - - TRACE("(%p,%s,%p,%p)\n", - pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen ); - - if (!pBlock) - return FALSE; - - if (lpSubBlock == NULL || lpSubBlock[0] == nullW[0]) - lpSubBlock = rootW; - - if ( VersionInfoIs16( info ) ) - { - BOOL ret; - int len; - LPSTR lpSubBlockA; - - len = WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, NULL, 0, NULL, NULL); - lpSubBlockA = HeapAlloc(GetProcessHeap(), 0, len * sizeof(char)); - - if (!lpSubBlockA) - return FALSE; - - WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, lpSubBlockA, len, NULL, NULL); - - ret = VersionInfo16_QueryValue(pBlock, lpSubBlockA, lplpBuffer, puLen); - - HeapFree(GetProcessHeap(), 0, lpSubBlockA); - - if (ret && strcmpiW( lpSubBlock, rootW ) && strcmpiW( lpSubBlock, varfileinfoW )) - { - /* Set lpBuffer so it points to the 'empty' area where we store - * the converted strings - */ - LPWSTR lpBufferW = (LPWSTR)((LPSTR)pBlock + info->wLength); - DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; - DWORD max = (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 - info->wLength; - - len = MultiByteToWideChar(CP_ACP, 0, *lplpBuffer, -1, - lpBufferW + pos, max/sizeof(WCHAR) - pos ); - *lplpBuffer = lpBufferW + pos; - *puLen = len; - } - return ret; - } - - return VersionInfo32_QueryValue(info, lpSubBlock, lplpBuffer, puLen); -} diff --git a/dlls/version/install.c b/dlls/version/install.c deleted file mode 100644 index d5c12eb9fe4..00000000000 --- a/dlls/version/install.c +++ /dev/null @@ -1,602 +0,0 @@ -/* - * Implementation of VERSION.DLL - File Installer routines - * - * Copyright 1996,1997 Marcus Meissner - * Copyright 1997 David Cuthbert - * - * 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 - * - * TODO - * o Check the installation functions. - */ - -#include -#include -#include -#include - -#include "windef.h" -#include "winbase.h" -#include "winver.h" -#include "winnls.h" -#include "wine/unicode.h" -#include "winerror.h" -#include "lzexpand.h" -#include "wine/debug.h" - -WINE_DEFAULT_DEBUG_CHANNEL(ver); - - -/****************************************************************************** - * testFileExistenceA - * - * Tests whether a given path/file combination exists. If the file does - * not exist, the return value is zero. If it does exist, the return - * value is non-zero. - * - * Revision history - * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) - * Original implementation - * - */ -static int testFileExistenceA( char const * path, char const * file, BOOL excl ) -{ - char filename[1024]; - int filenamelen; - OFSTRUCT fileinfo; - - fileinfo.cBytes = sizeof(OFSTRUCT); - - strcpy(filename, path); - filenamelen = strlen(filename); - - /* Add a trailing \ if necessary */ - if(filenamelen) { - if(filename[filenamelen - 1] != '\\') - strcat(filename, "\\"); - } - else /* specify the current directory */ - strcpy(filename, ".\\"); - - /* Create the full pathname */ - strcat(filename, file); - - return (OpenFile(filename, &fileinfo, - OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); -} - -/****************************************************************************** - * testFileExistenceW - */ -static int testFileExistenceW( const WCHAR *path, const WCHAR *file, BOOL excl ) -{ - char *filename; - DWORD pathlen, filelen; - int ret; - OFSTRUCT fileinfo; - - fileinfo.cBytes = sizeof(OFSTRUCT); - - pathlen = WideCharToMultiByte( CP_ACP, 0, path, -1, NULL, 0, NULL, NULL ); - filelen = WideCharToMultiByte( CP_ACP, 0, file, -1, NULL, 0, NULL, NULL ); - filename = HeapAlloc( GetProcessHeap(), 0, pathlen+filelen+2 ); - - WideCharToMultiByte( CP_ACP, 0, path, -1, filename, pathlen, NULL, NULL ); - /* Add a trailing \ if necessary */ - if (pathlen > 1) - { - if (filename[pathlen-2] != '\\') strcpy( &filename[pathlen-1], "\\" ); - } - else /* specify the current directory */ - strcpy(filename, ".\\"); - - WideCharToMultiByte( CP_ACP, 0, file, -1, filename+strlen(filename), filelen, NULL, NULL ); - - ret = (OpenFile(filename, &fileinfo, - OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); - HeapFree( GetProcessHeap(), 0, filename ); - return ret; -} - -/***************************************************************************** - * VerFindFileA [VERSION.@] - * - * Determines where to install a file based on whether it locates another - * version of the file in the system. The values VerFindFile returns are - * used in a subsequent call to the VerInstallFile function. - * - * Revision history: - * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) - * Reimplementation of VerFindFile from original stub. - */ -DWORD WINAPI VerFindFileA( - DWORD flags, - LPCSTR lpszFilename, - LPCSTR lpszWinDir, - LPCSTR lpszAppDir, - LPSTR lpszCurDir, - PUINT lpuCurDirLen, - LPSTR lpszDestDir, - PUINT lpuDestDirLen ) -{ - DWORD retval = 0; - const char *curDir; - const char *destDir; - unsigned int curDirSizeReq; - unsigned int destDirSizeReq; - char systemDir[MAX_PATH]; - - /* Print out debugging information */ - TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", - flags, debugstr_a(lpszFilename), debugstr_a(lpszWinDir), debugstr_a(lpszAppDir), - lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, - lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); - - /* Figure out where the file should go; shared files default to the - system directory */ - - GetSystemDirectoryA(systemDir, sizeof(systemDir)); - curDir = ""; - destDir = ""; - - if(flags & VFFF_ISSHAREDFILE) - { - destDir = systemDir; - /* Were we given a filename? If so, try to find the file. */ - if(lpszFilename) - { - if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; - else if(lpszAppDir && testFileExistenceA(lpszAppDir, lpszFilename, FALSE)) - { - curDir = lpszAppDir; - retval |= VFF_CURNEDEST; - } - } - } - else /* not a shared file */ - { - if(lpszAppDir) - { - destDir = lpszAppDir; - if(lpszFilename) - { - if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; - else if(testFileExistenceA(systemDir, lpszFilename, FALSE)) - { - curDir = systemDir; - retval |= VFF_CURNEDEST; - } - } - } - } - - /* Check to see if the file exists and is in use by another application */ - if (lpszFilename && testFileExistenceA(curDir, lpszFilename, FALSE)) { - if (lpszFilename && !testFileExistenceA(curDir, lpszFilename, TRUE)) - retval |= VFF_FILEINUSE; - } - - curDirSizeReq = strlen(curDir) + 1; - destDirSizeReq = strlen(destDir) + 1; - - /* Make sure that the pointers to the size of the buffers are - valid; if not, do NOTHING with that buffer. If that pointer - is valid, then make sure that the buffer pointer is valid, too! */ - - if(lpuDestDirLen && lpszDestDir) - { - if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; - lstrcpynA(lpszDestDir, destDir, *lpuDestDirLen); - *lpuDestDirLen = destDirSizeReq; - } - if(lpuCurDirLen && lpszCurDir) - { - if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; - lstrcpynA(lpszCurDir, curDir, *lpuCurDirLen); - *lpuCurDirLen = curDirSizeReq; - } - - TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, - (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", - (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", - (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", - debugstr_a(lpszCurDir), debugstr_a(lpszDestDir)); - - return retval; -} - -/***************************************************************************** - * VerFindFileW [VERSION.@] - */ -DWORD WINAPI VerFindFileW( DWORD flags,LPCWSTR lpszFilename,LPCWSTR lpszWinDir, - LPCWSTR lpszAppDir, LPWSTR lpszCurDir,PUINT lpuCurDirLen, - LPWSTR lpszDestDir,PUINT lpuDestDirLen ) -{ - static const WCHAR emptyW; - DWORD retval = 0; - const WCHAR *curDir; - const WCHAR *destDir; - unsigned int curDirSizeReq; - unsigned int destDirSizeReq; - WCHAR systemDir[MAX_PATH]; - - /* Print out debugging information */ - TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", - flags, debugstr_w(lpszFilename), debugstr_w(lpszWinDir), debugstr_w(lpszAppDir), - lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, - lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); - - /* Figure out where the file should go; shared files default to the - system directory */ - - GetSystemDirectoryW(systemDir, sizeof(systemDir)/sizeof(WCHAR)); - curDir = &emptyW; - destDir = &emptyW; - - if(flags & VFFF_ISSHAREDFILE) - { - destDir = systemDir; - /* Were we given a filename? If so, try to find the file. */ - if(lpszFilename) - { - if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; - else if(lpszAppDir && testFileExistenceW(lpszAppDir, lpszFilename, FALSE)) - { - curDir = lpszAppDir; - retval |= VFF_CURNEDEST; - } - } - } - else /* not a shared file */ - { - if(lpszAppDir) - { - destDir = lpszAppDir; - if(lpszFilename) - { - if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; - else if(testFileExistenceW(systemDir, lpszFilename, FALSE)) - { - curDir = systemDir; - retval |= VFF_CURNEDEST; - } - } - } - } - - if (lpszFilename && !testFileExistenceW(curDir, lpszFilename, TRUE)) - retval |= VFF_FILEINUSE; - - curDirSizeReq = strlenW(curDir) + 1; - destDirSizeReq = strlenW(destDir) + 1; - - /* Make sure that the pointers to the size of the buffers are - valid; if not, do NOTHING with that buffer. If that pointer - is valid, then make sure that the buffer pointer is valid, too! */ - - if(lpuDestDirLen && lpszDestDir) - { - if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; - lstrcpynW(lpszDestDir, destDir, *lpuDestDirLen); - *lpuDestDirLen = destDirSizeReq; - } - if(lpuCurDirLen && lpszCurDir) - { - if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; - lstrcpynW(lpszCurDir, curDir, *lpuCurDirLen); - *lpuCurDirLen = curDirSizeReq; - } - - TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, - (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", - (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", - (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", - debugstr_w(lpszCurDir), debugstr_w(lpszDestDir)); - return retval; -} - -static LPBYTE -_fetch_versioninfo(LPSTR fn,VS_FIXEDFILEINFO **vffi) { - DWORD alloclen; - LPBYTE buf; - DWORD ret; - - alloclen = 1000; - buf=HeapAlloc(GetProcessHeap(), 0, alloclen); - if(buf == NULL) { - WARN("Memory exausted while fetching version info!\n"); - return NULL; - } - while (1) { - ret = GetFileVersionInfoA(fn,0,alloclen,buf); - if (!ret) { - HeapFree(GetProcessHeap(), 0, buf); - return NULL; - } - if (alloclen<*(WORD*)buf) { - alloclen = *(WORD*)buf; - HeapFree(GetProcessHeap(), 0, buf); - buf = HeapAlloc(GetProcessHeap(), 0, alloclen); - if(buf == NULL) { - WARN("Memory exausted while fetching version info!\n"); - return NULL; - } - } else { - *vffi = (VS_FIXEDFILEINFO*)(buf+0x14); - if ((*vffi)->dwSignature == 0x004f0049) /* hack to detect unicode */ - *vffi = (VS_FIXEDFILEINFO*)(buf+0x28); - if ((*vffi)->dwSignature != VS_FFI_SIGNATURE) - WARN("Bad VS_FIXEDFILEINFO signature 0x%08x\n",(*vffi)->dwSignature); - return buf; - } - } -} - -static DWORD -_error2vif(DWORD error) { - switch (error) { - case ERROR_ACCESS_DENIED: - return VIF_ACCESSVIOLATION; - case ERROR_SHARING_VIOLATION: - return VIF_SHARINGVIOLATION; - default: - return 0; - } -} - - -/****************************************************************************** - * VerInstallFileA [VERSION.@] - */ -DWORD WINAPI VerInstallFileA( - DWORD flags,LPCSTR srcfilename,LPCSTR destfilename,LPCSTR srcdir, - LPCSTR destdir,LPCSTR curdir,LPSTR tmpfile,PUINT tmpfilelen ) -{ - LPCSTR pdest; - char destfn[260],tmpfn[260],srcfn[260]; - HFILE hfsrc,hfdst; - DWORD attr,xret,tmplast; - LONG ret; - LPBYTE buf1,buf2; - OFSTRUCT ofs; - - TRACE("(%x,%s,%s,%s,%s,%s,%p,%d)\n", - flags,srcfilename,destfilename,srcdir,destdir,curdir,tmpfile,*tmpfilelen - ); - xret = 0; - sprintf(srcfn,"%s\\%s",srcdir,srcfilename); - if (!destdir || !*destdir) pdest = srcdir; - else pdest = destdir; - sprintf(destfn,"%s\\%s",pdest,destfilename); - hfsrc=LZOpenFileA(srcfn,&ofs,OF_READ); - if (hfsrc < 0) - return VIF_CANNOTREADSRC; - sprintf(tmpfn,"%s\\%s",pdest,destfilename); - tmplast=strlen(pdest)+1; - attr = GetFileAttributesA(tmpfn); - if (attr != INVALID_FILE_ATTRIBUTES) { - if (attr & FILE_ATTRIBUTE_READONLY) { - LZClose(hfsrc); - return VIF_WRITEPROT; - } - /* FIXME: check if file currently in use and return VIF_FILEINUSE */ - } - attr = INVALID_FILE_ATTRIBUTES; - if (flags & VIFF_FORCEINSTALL) { - if (tmpfile[0]) { - sprintf(tmpfn,"%s\\%s",pdest,tmpfile); - tmplast = strlen(pdest)+1; - attr = GetFileAttributesA(tmpfn); - /* if it exists, it has been copied by the call before. - * we jump over the copy part... - */ - } - } - if (attr == INVALID_FILE_ATTRIBUTES) { - char *s; - - GetTempFileNameA(pdest,"ver",0,tmpfn); /* should not fail ... */ - s=strrchr(tmpfn,'\\'); - if (s) - tmplast = s-tmpfn; - else - tmplast = 0; - hfdst = OpenFile(tmpfn,&ofs,OF_CREATE); - if (hfdst == HFILE_ERROR) { - LZClose(hfsrc); - return VIF_CANNOTCREATE; /* | translated dos error */ - } - ret = LZCopy(hfsrc,hfdst); - _lclose(hfdst); - if (ret < 0) { - /* translate LZ errors into VIF_xxx */ - switch (ret) { - case LZERROR_BADINHANDLE: - case LZERROR_READ: - case LZERROR_BADVALUE: - case LZERROR_UNKNOWNALG: - xret = VIF_CANNOTREADSRC; - break; - case LZERROR_BADOUTHANDLE: - case LZERROR_WRITE: - xret = VIF_OUTOFSPACE; - break; - case LZERROR_GLOBALLOC: - case LZERROR_GLOBLOCK: - xret = VIF_OUTOFMEMORY; - break; - default: /* unknown error, should not happen */ - FIXME("Unknown LZCopy error %d, ignoring.\n", ret); - xret = 0; - break; - } - if (xret) { - LZClose(hfsrc); - return xret; - } - } - } - xret = 0; - if (!(flags & VIFF_FORCEINSTALL)) { - VS_FIXEDFILEINFO *destvffi,*tmpvffi; - buf1 = _fetch_versioninfo(destfn,&destvffi); - if (buf1) { - buf2 = _fetch_versioninfo(tmpfn,&tmpvffi); - if (buf2) { - char *tbuf1,*tbuf2; - static const CHAR trans_array[] = "\\VarFileInfo\\Translation"; - UINT len1,len2; - - len1=len2=40; - - /* compare file versions */ - if ((destvffi->dwFileVersionMS > tmpvffi->dwFileVersionMS)|| - ((destvffi->dwFileVersionMS==tmpvffi->dwFileVersionMS)&& - (destvffi->dwFileVersionLS > tmpvffi->dwFileVersionLS) - ) - ) - xret |= VIF_MISMATCH|VIF_SRCOLD; - /* compare filetypes and filesubtypes */ - if ((destvffi->dwFileType!=tmpvffi->dwFileType) || - (destvffi->dwFileSubtype!=tmpvffi->dwFileSubtype) - ) - xret |= VIF_MISMATCH|VIF_DIFFTYPE; - if (VerQueryValueA(buf1,trans_array,(LPVOID*)&tbuf1,&len1) && - VerQueryValueA(buf2,trans_array,(LPVOID*)&tbuf2,&len2) - ) { - /* Do something with tbuf1 and tbuf2 - * generates DIFFLANG|MISMATCH - */ - } - HeapFree(GetProcessHeap(), 0, buf2); - } else - xret=VIF_MISMATCH|VIF_SRCOLD; - HeapFree(GetProcessHeap(), 0, buf1); - } - } - if (xret) { - if (*tmpfilelen -#include -#include -#include -#include -#ifdef HAVE_UNISTD_H -# include -#endif - -#define NONAMELESSUNION -#define NONAMELESSSTRUCT -#include "windef.h" -#include "winbase.h" -#include "lzexpand.h" -#include "winver.h" - -#include "wine/unicode.h" -#include "wine/debug.h" - -typedef struct -{ - WORD offset; - WORD length; - WORD flags; - WORD id; - WORD handle; - WORD usage; -} NE_NAMEINFO; - -typedef struct -{ - WORD type_id; - WORD count; - DWORD resloader; -} NE_TYPEINFO; - -WINE_DEFAULT_DEBUG_CHANNEL(ver); - - -/********************************************************************** - * 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].u1.s2.Id == id) - return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry[pos].u2.s3.OffsetToDirectory); - if (entry[pos].u1.s2.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.s3.OffsetToDirectory); -} - - -/*********************************************************************** - * 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 ) - { - if (!memcmp( &mzh, "\177ELF", 4 )) return 1; /* ELF */ - if (*(UINT *)&mzh == 0xfeedface || *(UINT *)&mzh == 0xcefaedfe) return 1; /* Mach-O */ - 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, DWORD *resLen, DWORD *resOff ) -{ - const WORD typeid = VS_FILE_INFO | 0x8000; - const WORD resid = VS_VERSION_INFO | 0x8000; - 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 0; - - 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); - while (typeInfo->type_id) - { - if (typeInfo->type_id == typeid) goto found_type; - typeInfo = (NE_TYPEINFO *)((char *)(typeInfo + 1) + - typeInfo->count * sizeof(NE_NAMEINFO)); - } - TRACE("No typeid entry found\n" ); - HeapFree( GetProcessHeap(), 0, resTab ); - return FALSE; - - found_type: - nameInfo = (NE_NAMEINFO *)(typeInfo + 1); - - for (count = typeInfo->count; count > 0; count--, nameInfo++) - if (nameInfo->id == resid) goto found_name; - - TRACE("No resid entry found\n" ); - 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, DWORD *resLen, DWORD *resOff ) -{ - union - { - IMAGE_NT_HEADERS32 nt32; - IMAGE_NT_HEADERS64 nt64; - } pehd; - DWORD pehdoffset; - PIMAGE_DATA_DIRECTORY resDataDir; - PIMAGE_SECTION_HEADER sections; - LPBYTE resSection; - DWORD section_size, data_size; - const void *resDir; - const IMAGE_RESOURCE_DIRECTORY *resPtr; - const IMAGE_RESOURCE_DATA_ENTRY *resData; - int i, len, nSections; - BOOL ret = FALSE; - - /* Read in PE header */ - pehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); - len = LZRead( lzfd, (LPSTR)&pehd, sizeof(pehd) ); - if (len < sizeof(pehd.nt32.FileHeader)) return 0; - if (len < sizeof(pehd)) memset( (char *)&pehd + len, 0, sizeof(pehd) - len ); - - switch (pehd.nt32.OptionalHeader.Magic) - { - case IMAGE_NT_OPTIONAL_HDR32_MAGIC: - resDataDir = pehd.nt32.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; - break; - case IMAGE_NT_OPTIONAL_HDR64_MAGIC: - resDataDir = pehd.nt64.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; - break; - default: - return 0; - } - - if ( !resDataDir->Size ) - { - TRACE("No resources in PE dll\n" ); - return FALSE; - } - - /* Read in section table */ - nSections = pehd.nt32.FileHeader.NumberOfSections; - sections = HeapAlloc( GetProcessHeap(), 0, - nSections * sizeof(IMAGE_SECTION_HEADER) ); - if ( !sections ) return FALSE; - - len = FIELD_OFFSET( IMAGE_NT_HEADERS32, OptionalHeader ) + pehd.nt32.FileHeader.SizeOfOptionalHeader; - LZSeek( lzfd, pehdoffset + len, 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 */ - data_size = sections[i].SizeOfRawData; - section_size = max( data_size, sections[i].Misc.VirtualSize ); - resSection = HeapAlloc( GetProcessHeap(), 0, section_size ); - if ( !resSection ) - { - HeapFree( GetProcessHeap(), 0, sections ); - return FALSE; - } - - LZSeek( lzfd, sections[i].PointerToRawData, SEEK_SET ); - if (data_size != LZRead( lzfd, (char*)resSection, data_size )) goto done; - if (data_size < section_size) memset( (char *)resSection + data_size, 0, section_size - data_size ); - - /* Find resource */ - resDir = resSection + (resDataDir->VirtualAddress - sections[i].VirtualAddress); - - resPtr = resDir; - resPtr = find_entry_by_id( resPtr, VS_FILE_INFO, resDir ); - if ( !resPtr ) - { - TRACE("No typeid entry found\n" ); - goto done; - } - resPtr = find_entry_by_id( resPtr, VS_VERSION_INFO, resDir ); - if ( !resPtr ) - { - TRACE("No resid entry found\n" ); - goto done; - } - resPtr = find_entry_default( resPtr, resDir ); - if ( !resPtr ) - { - TRACE("No default language entry found\n" ); - 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_version_resource [internal] - */ -DWORD find_version_resource( HFILE lzfd, DWORD *reslen, DWORD *offset ) -{ - DWORD magic = read_xx_header( lzfd ); - - switch (magic) - { - case IMAGE_OS2_SIGNATURE: - if (!find_ne_resource( lzfd, reslen, offset )) magic = 0; - break; - case IMAGE_NT_SIGNATURE: - if (!find_pe_resource( lzfd, reslen, offset )) magic = 0; - break; - } - return magic; -} diff --git a/dlls/version/version.c b/dlls/version/version.c new file mode 100644 index 00000000000..b31efd33215 --- /dev/null +++ b/dlls/version/version.c @@ -0,0 +1,1567 @@ +/* + * Implementation of VERSION.DLL + * + * Copyright 1996,1997 Marcus Meissner + * Copyright 1997 David Cuthbert + * Copyright 1999 Ulrich Weigand + * Copyright 2005 Paul Vriens + * + * 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 "config.h" + +#include +#include +#include +#include + +#include +#ifdef HAVE_UNISTD_H +# include +#endif + +#define NONAMELESSUNION +#define NONAMELESSSTRUCT +#include "windef.h" +#include "winbase.h" +#include "winver.h" +#include "winuser.h" +#include "winnls.h" +#include "winternl.h" +#include "lzexpand.h" +#include "wine/unicode.h" +#include "winerror.h" +#include "wine/debug.h" + + +WINE_DEFAULT_DEBUG_CHANNEL(ver); + +typedef struct +{ + WORD offset; + WORD length; + WORD flags; + WORD id; + WORD handle; + WORD usage; +} NE_NAMEINFO; + +typedef struct +{ + WORD type_id; + WORD count; + DWORD resloader; +} NE_TYPEINFO; + +/********************************************************************** + * 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].u1.s2.Id == id) + return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry[pos].u2.s3.OffsetToDirectory); + if (entry[pos].u1.s2.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.s3.OffsetToDirectory); +} + + +/*********************************************************************** + * 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 ) + { + if (!memcmp( &mzh, "\177ELF", 4 )) return 1; /* ELF */ + if (*(UINT *)&mzh == 0xfeedface || *(UINT *)&mzh == 0xcefaedfe) return 1; /* Mach-O */ + 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, DWORD *resLen, DWORD *resOff ) +{ + const WORD typeid = VS_FILE_INFO | 0x8000; + const WORD resid = VS_VERSION_INFO | 0x8000; + 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 0; + + 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); + while (typeInfo->type_id) + { + if (typeInfo->type_id == typeid) goto found_type; + typeInfo = (NE_TYPEINFO *)((char *)(typeInfo + 1) + + typeInfo->count * sizeof(NE_NAMEINFO)); + } + TRACE("No typeid entry found\n" ); + HeapFree( GetProcessHeap(), 0, resTab ); + return FALSE; + + found_type: + nameInfo = (NE_NAMEINFO *)(typeInfo + 1); + + for (count = typeInfo->count; count > 0; count--, nameInfo++) + if (nameInfo->id == resid) goto found_name; + + TRACE("No resid entry found\n" ); + 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, DWORD *resLen, DWORD *resOff ) +{ + union + { + IMAGE_NT_HEADERS32 nt32; + IMAGE_NT_HEADERS64 nt64; + } pehd; + DWORD pehdoffset; + PIMAGE_DATA_DIRECTORY resDataDir; + PIMAGE_SECTION_HEADER sections; + LPBYTE resSection; + DWORD section_size, data_size; + const void *resDir; + const IMAGE_RESOURCE_DIRECTORY *resPtr; + const IMAGE_RESOURCE_DATA_ENTRY *resData; + int i, len, nSections; + BOOL ret = FALSE; + + /* Read in PE header */ + pehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); + len = LZRead( lzfd, (LPSTR)&pehd, sizeof(pehd) ); + if (len < sizeof(pehd.nt32.FileHeader)) return 0; + if (len < sizeof(pehd)) memset( (char *)&pehd + len, 0, sizeof(pehd) - len ); + + switch (pehd.nt32.OptionalHeader.Magic) + { + case IMAGE_NT_OPTIONAL_HDR32_MAGIC: + resDataDir = pehd.nt32.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; + break; + case IMAGE_NT_OPTIONAL_HDR64_MAGIC: + resDataDir = pehd.nt64.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; + break; + default: + return 0; + } + + if ( !resDataDir->Size ) + { + TRACE("No resources in PE dll\n" ); + return FALSE; + } + + /* Read in section table */ + nSections = pehd.nt32.FileHeader.NumberOfSections; + sections = HeapAlloc( GetProcessHeap(), 0, + nSections * sizeof(IMAGE_SECTION_HEADER) ); + if ( !sections ) return FALSE; + + len = FIELD_OFFSET( IMAGE_NT_HEADERS32, OptionalHeader ) + pehd.nt32.FileHeader.SizeOfOptionalHeader; + LZSeek( lzfd, pehdoffset + len, 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 */ + data_size = sections[i].SizeOfRawData; + section_size = max( data_size, sections[i].Misc.VirtualSize ); + resSection = HeapAlloc( GetProcessHeap(), 0, section_size ); + if ( !resSection ) + { + HeapFree( GetProcessHeap(), 0, sections ); + return FALSE; + } + + LZSeek( lzfd, sections[i].PointerToRawData, SEEK_SET ); + if (data_size != LZRead( lzfd, (char*)resSection, data_size )) goto done; + if (data_size < section_size) memset( (char *)resSection + data_size, 0, section_size - data_size ); + + /* Find resource */ + resDir = resSection + (resDataDir->VirtualAddress - sections[i].VirtualAddress); + + resPtr = resDir; + resPtr = find_entry_by_id( resPtr, VS_FILE_INFO, resDir ); + if ( !resPtr ) + { + TRACE("No typeid entry found\n" ); + goto done; + } + resPtr = find_entry_by_id( resPtr, VS_VERSION_INFO, resDir ); + if ( !resPtr ) + { + TRACE("No resid entry found\n" ); + goto done; + } + resPtr = find_entry_default( resPtr, resDir ); + if ( !resPtr ) + { + TRACE("No default language entry found\n" ); + 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_version_resource [internal] + */ +static DWORD find_version_resource( HFILE lzfd, DWORD *reslen, DWORD *offset ) +{ + DWORD magic = read_xx_header( lzfd ); + + switch (magic) + { + case IMAGE_OS2_SIGNATURE: + if (!find_ne_resource( lzfd, reslen, offset )) magic = 0; + break; + case IMAGE_NT_SIGNATURE: + if (!find_pe_resource( lzfd, reslen, offset )) magic = 0; + break; + } + return magic; +} + +/****************************************************************************** + * + * This function will print via standard TRACE, debug info regarding + * the file info structure vffi. + * 15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu) + * Added this function to clean up the code. + * + *****************************************************************************/ +static void print_vffi_debug(const VS_FIXEDFILEINFO *vffi) +{ + BOOL versioned_printer = FALSE; + + if((vffi->dwFileType == VFT_DLL) || (vffi->dwFileType == VFT_DRV)) + { + if(vffi->dwFileSubtype == VFT2_DRV_VERSIONED_PRINTER) + /* this is documented for newer w2k Drivers and up */ + versioned_printer = TRUE; + else if( (vffi->dwFileSubtype == VFT2_DRV_PRINTER) && + (vffi->dwFileVersionMS != vffi->dwProductVersionMS) && + (vffi->dwFileVersionMS > 0) && + (vffi->dwFileVersionMS <= 3) ) + /* found this on NT 3.51, NT4.0 and old w2k Drivers */ + versioned_printer = TRUE; + } + + TRACE("structversion=%u.%u, ", + HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion)); + if(versioned_printer) + { + WORD mode = LOWORD(vffi->dwFileVersionMS); + WORD ver_rev = HIWORD(vffi->dwFileVersionLS); + TRACE("fileversion=%u.%u.%u.%u (%s.major.minor.release), ", + (vffi->dwFileVersionMS), + HIBYTE(ver_rev), LOBYTE(ver_rev), LOWORD(vffi->dwFileVersionLS), + (mode == 3) ? "Usermode" : ((mode <= 2) ? "Kernelmode" : "?") ); + } + else + { + TRACE("fileversion=%u.%u.%u.%u, ", + HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS), + HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS)); + } + TRACE("productversion=%u.%u.%u.%u\n", + HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS), + HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS)); + + TRACE("flagmask=0x%x, flags=0x%x %s%s%s%s%s%s\n", + vffi->dwFileFlagsMask, vffi->dwFileFlags, + (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "", + (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "", + (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "", + (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "", + (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "", + (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""); + + TRACE("("); + + TRACE("OS=0x%x.0x%x ", HIWORD(vffi->dwFileOS), LOWORD(vffi->dwFileOS)); + + switch (vffi->dwFileOS&0xFFFF0000) + { + case VOS_DOS:TRACE("DOS,");break; + case VOS_OS216:TRACE("OS/2-16,");break; + case VOS_OS232:TRACE("OS/2-32,");break; + case VOS_NT:TRACE("NT,");break; + case VOS_UNKNOWN: + default: + TRACE("UNKNOWN(0x%x),",vffi->dwFileOS&0xFFFF0000);break; + } + + switch (LOWORD(vffi->dwFileOS)) + { + case VOS__BASE:TRACE("BASE");break; + case VOS__WINDOWS16:TRACE("WIN16");break; + case VOS__WINDOWS32:TRACE("WIN32");break; + case VOS__PM16:TRACE("PM16");break; + case VOS__PM32:TRACE("PM32");break; + default: + TRACE("UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break; + } + + TRACE(")\n"); + + switch (vffi->dwFileType) + { + case VFT_APP:TRACE("filetype=APP");break; + case VFT_DLL: + TRACE("filetype=DLL"); + if(vffi->dwFileSubtype != 0) + { + if(versioned_printer) /* NT3.x/NT4.0 or old w2k Driver */ + TRACE(",PRINTER"); + TRACE(" (subtype=0x%x)", vffi->dwFileSubtype); + } + break; + case VFT_DRV: + TRACE("filetype=DRV,"); + switch(vffi->dwFileSubtype) + { + case VFT2_DRV_PRINTER:TRACE("PRINTER");break; + case VFT2_DRV_KEYBOARD:TRACE("KEYBOARD");break; + case VFT2_DRV_LANGUAGE:TRACE("LANGUAGE");break; + case VFT2_DRV_DISPLAY:TRACE("DISPLAY");break; + case VFT2_DRV_MOUSE:TRACE("MOUSE");break; + case VFT2_DRV_NETWORK:TRACE("NETWORK");break; + case VFT2_DRV_SYSTEM:TRACE("SYSTEM");break; + case VFT2_DRV_INSTALLABLE:TRACE("INSTALLABLE");break; + case VFT2_DRV_SOUND:TRACE("SOUND");break; + case VFT2_DRV_COMM:TRACE("COMM");break; + case VFT2_DRV_INPUTMETHOD:TRACE("INPUTMETHOD");break; + case VFT2_DRV_VERSIONED_PRINTER:TRACE("VERSIONED_PRINTER");break; + case VFT2_UNKNOWN: + default: + TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; + } + break; + case VFT_FONT: + TRACE("filetype=FONT,"); + switch (vffi->dwFileSubtype) + { + case VFT2_FONT_RASTER:TRACE("RASTER");break; + case VFT2_FONT_VECTOR:TRACE("VECTOR");break; + case VFT2_FONT_TRUETYPE:TRACE("TRUETYPE");break; + default:TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; + } + break; + case VFT_VXD:TRACE("filetype=VXD");break; + case VFT_STATIC_LIB:TRACE("filetype=STATIC_LIB");break; + case VFT_UNKNOWN: + default: + TRACE("filetype=Unknown(0x%x)",vffi->dwFileType);break; + } + + TRACE("\n"); + TRACE("filedate=0x%x.0x%x\n",vffi->dwFileDateMS,vffi->dwFileDateLS); +} + +/*********************************************************************** + * Version Info Structure + */ + +typedef struct +{ + WORD wLength; + WORD wValueLength; + CHAR szKey[1]; +#if 0 /* variable length structure */ + /* DWORD aligned */ + BYTE Value[]; + /* DWORD aligned */ + VS_VERSION_INFO_STRUCT16 Children[]; +#endif +} VS_VERSION_INFO_STRUCT16; + +typedef struct +{ + WORD wLength; + WORD wValueLength; + WORD wType; + WCHAR szKey[1]; +#if 0 /* variable length structure */ + /* DWORD aligned */ + BYTE Value[]; + /* DWORD aligned */ + VS_VERSION_INFO_STRUCT32 Children[]; +#endif +} VS_VERSION_INFO_STRUCT32; + +#define VersionInfoIs16( ver ) \ + ( ((const VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' ) + +#define DWORD_ALIGN( base, ptr ) \ + ( (LPBYTE)(base) + ((((LPBYTE)(ptr) - (LPBYTE)(base)) + 3) & ~3) ) + +#define VersionInfo16_Value( ver ) \ + DWORD_ALIGN( (ver), (ver)->szKey + strlen((ver)->szKey) + 1 ) +#define VersionInfo32_Value( ver ) \ + DWORD_ALIGN( (ver), (ver)->szKey + strlenW((ver)->szKey) + 1 ) + +#define VersionInfo16_Children( ver ) \ + (const VS_VERSION_INFO_STRUCT16 *)( VersionInfo16_Value( ver ) + \ + ( ( (ver)->wValueLength + 3 ) & ~3 ) ) +#define VersionInfo32_Children( ver ) \ + (const VS_VERSION_INFO_STRUCT32 *)( VersionInfo32_Value( ver ) + \ + ( ( (ver)->wValueLength * \ + ((ver)->wType? 2 : 1) + 3 ) & ~3 ) ) + +#define VersionInfo16_Next( ver ) \ + (VS_VERSION_INFO_STRUCT16 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) +#define VersionInfo32_Next( ver ) \ + (VS_VERSION_INFO_STRUCT32 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) + + +/*********************************************************************** + * GetFileVersionInfoSizeW [VERSION.@] + */ +DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle ) +{ + DWORD len, offset, magic = 1; + HFILE lzfd; + HMODULE hModule; + OFSTRUCT ofs; + + TRACE("(%s,%p)\n", debugstr_w(filename), handle ); + + if (handle) *handle = 0; + + if (!filename) + { + SetLastError(ERROR_INVALID_PARAMETER); + return 0; + } + if (!*filename) + { + SetLastError(ERROR_BAD_PATHNAME); + return 0; + } + + if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) + { + magic = find_version_resource( lzfd, &len, &offset ); + LZClose( lzfd ); + } + + if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) + { + HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), + MAKEINTRESOURCEW(VS_FILE_INFO) ); + if (hRsrc) + { + magic = IMAGE_NT_SIGNATURE; + len = SizeofResource( hModule, hRsrc ); + } + FreeLibrary( hModule ); + } + + switch (magic) + { + case IMAGE_OS2_SIGNATURE: + /* We have a 16bit resource. + * + * XP/W2K/W2K3 uses a buffer which is more than the actual needed space: + * + * (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 + * + * This extra buffer is used for ANSI to Unicode conversions in W-Calls. + * info->wLength should be the same as len. Currently it isn't but that + * doesn't seem to be a problem (len is bigger than info->wLength). + */ + SetLastError(0); + return (len - sizeof(VS_FIXEDFILEINFO)) * 4; + + case IMAGE_NT_SIGNATURE: + /* We have a 32bit resource. + * + * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" + * This extra buffer is used for Unicode to ANSI conversions in A-Calls + */ + SetLastError(0); + return (len * 2) + 4; + + default: + SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); + return 0; + } +} + +/*********************************************************************** + * GetFileVersionInfoSizeA [VERSION.@] + */ +DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle ) +{ + UNICODE_STRING filenameW; + DWORD retval; + + TRACE("(%s,%p)\n", debugstr_a(filename), handle ); + + if(filename) + RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); + else + filenameW.Buffer = NULL; + + retval = GetFileVersionInfoSizeW(filenameW.Buffer, handle); + + RtlFreeUnicodeString(&filenameW); + + return retval; +} + +/*********************************************************************** + * GetFileVersionInfoW [VERSION.@] + */ +BOOL WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle, + DWORD datasize, LPVOID data ) +{ + static const char signature[4] = "FE2X"; + DWORD len, offset, magic = 1; + HFILE lzfd; + OFSTRUCT ofs; + HMODULE hModule; + VS_VERSION_INFO_STRUCT32* vvis = data; + + TRACE("(%s,%d,size=%d,data=%p)\n", + debugstr_w(filename), handle, datasize, data ); + + if (!data) + { + SetLastError(ERROR_INVALID_DATA); + return FALSE; + } + + if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) + { + if ((magic = find_version_resource( lzfd, &len, &offset )) > 1) + { + LZSeek( lzfd, offset, 0 /* SEEK_SET */ ); + len = LZRead( lzfd, data, min( len, datasize ) ); + } + LZClose( lzfd ); + } + + if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) + { + HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), + MAKEINTRESOURCEW(VS_FILE_INFO) ); + if (hRsrc) + { + HGLOBAL hMem = LoadResource( hModule, hRsrc ); + magic = IMAGE_NT_SIGNATURE; + len = min( SizeofResource(hModule, hRsrc), datasize ); + memcpy( data, LockResource( hMem ), len ); + FreeResource( hMem ); + } + FreeLibrary( hModule ); + } + + switch (magic) + { + case IMAGE_OS2_SIGNATURE: + /* We have a 16bit resource. */ + if (TRACE_ON(ver)) + print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)data )); + SetLastError(0); + return TRUE; + + case IMAGE_NT_SIGNATURE: + /* We have a 32bit resource. + * + * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" + * This extra buffer is used for Unicode to ANSI conversions in A-Calls + */ + len = vvis->wLength + sizeof(signature); + if (datasize >= len) memcpy( (char*)data + vvis->wLength, signature, sizeof(signature) ); + if (TRACE_ON(ver)) + print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo32_Value( vvis )); + SetLastError(0); + return TRUE; + + default: + SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); + return FALSE; + } +} + +/*********************************************************************** + * GetFileVersionInfoA [VERSION.@] + */ +BOOL WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle, + DWORD datasize, LPVOID data ) +{ + UNICODE_STRING filenameW; + BOOL retval; + + TRACE("(%s,%d,size=%d,data=%p)\n", + debugstr_a(filename), handle, datasize, data ); + + if(filename) + RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); + else + filenameW.Buffer = NULL; + + retval = GetFileVersionInfoW(filenameW.Buffer, handle, datasize, data); + + RtlFreeUnicodeString(&filenameW); + + return retval; +} + +/*********************************************************************** + * VersionInfo16_FindChild [internal] + */ +static const VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( const VS_VERSION_INFO_STRUCT16 *info, + LPCSTR szKey, UINT cbKey ) +{ + const VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info ); + + while ((char *)child < (char *)info + info->wLength ) + { + if (!strncasecmp( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) + return child; + + if (!(child->wLength)) return NULL; + child = VersionInfo16_Next( child ); + } + + return NULL; +} + +/*********************************************************************** + * VersionInfo32_FindChild [internal] + */ +static const VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( const VS_VERSION_INFO_STRUCT32 *info, + LPCWSTR szKey, UINT cbKey ) +{ + const VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info ); + + while ((char *)child < (char *)info + info->wLength ) + { + if (!strncmpiW( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) + return child; + + if (!(child->wLength)) return NULL; + child = VersionInfo32_Next( child ); + } + + return NULL; +} + +/*********************************************************************** + * VersionInfo16_QueryValue [internal] + * + * Gets a value from a 16-bit NE resource + */ +static BOOL VersionInfo16_QueryValue( const VS_VERSION_INFO_STRUCT16 *info, LPCSTR lpSubBlock, + LPVOID *lplpBuffer, UINT *puLen ) +{ + while ( *lpSubBlock ) + { + /* Find next path component */ + LPCSTR lpNextSlash; + for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) + if ( *lpNextSlash == '\\' ) + break; + + /* Skip empty components */ + if ( lpNextSlash == lpSubBlock ) + { + lpSubBlock++; + continue; + } + + /* We have a non-empty component: search info for key */ + info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); + if ( !info ) + { + if (puLen) *puLen = 0 ; + SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); + return FALSE; + } + + /* Skip path component */ + lpSubBlock = lpNextSlash; + } + + /* Return value */ + *lplpBuffer = VersionInfo16_Value( info ); + if (puLen) + *puLen = info->wValueLength; + + return TRUE; +} + +/*********************************************************************** + * VersionInfo32_QueryValue [internal] + * + * Gets a value from a 32-bit PE resource + */ +static BOOL VersionInfo32_QueryValue( const VS_VERSION_INFO_STRUCT32 *info, LPCWSTR lpSubBlock, + LPVOID *lplpBuffer, UINT *puLen ) +{ + TRACE("lpSubBlock : (%s)\n", debugstr_w(lpSubBlock)); + + while ( *lpSubBlock ) + { + /* Find next path component */ + LPCWSTR lpNextSlash; + for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) + if ( *lpNextSlash == '\\' ) + break; + + /* Skip empty components */ + if ( lpNextSlash == lpSubBlock ) + { + lpSubBlock++; + continue; + } + + /* We have a non-empty component: search info for key */ + info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); + if ( !info ) + { + if (puLen) *puLen = 0 ; + SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); + return FALSE; + } + + /* Skip path component */ + lpSubBlock = lpNextSlash; + } + + /* Return value */ + *lplpBuffer = VersionInfo32_Value( info ); + if (puLen) + *puLen = info->wValueLength; + + return TRUE; +} + +/*********************************************************************** + * VerQueryValueA [VERSION.@] + */ +BOOL WINAPI VerQueryValueA( LPCVOID pBlock, LPCSTR lpSubBlock, + LPVOID *lplpBuffer, PUINT puLen ) +{ + static const char rootA[] = "\\"; + static const char varfileinfoA[] = "\\VarFileInfo\\Translation"; + const VS_VERSION_INFO_STRUCT16 *info = pBlock; + + TRACE("(%p,%s,%p,%p)\n", + pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen ); + + if (!pBlock) + return FALSE; + + if (lpSubBlock == NULL || lpSubBlock[0] == '\0') + lpSubBlock = rootA; + + if ( !VersionInfoIs16( info ) ) + { + BOOL ret; + INT len; + LPWSTR lpSubBlockW; + + len = MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, NULL, 0); + lpSubBlockW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); + + if (!lpSubBlockW) + return FALSE; + + MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, lpSubBlockW, len); + + ret = VersionInfo32_QueryValue(pBlock, lpSubBlockW, lplpBuffer, puLen); + + HeapFree(GetProcessHeap(), 0, lpSubBlockW); + + if (ret && strcasecmp( lpSubBlock, rootA ) && strcasecmp( lpSubBlock, varfileinfoA )) + { + /* Set lpBuffer so it points to the 'empty' area where we store + * the converted strings + */ + LPSTR lpBufferA = (LPSTR)pBlock + info->wLength + 4; + DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; + + len = WideCharToMultiByte(CP_ACP, 0, *lplpBuffer, -1, + lpBufferA + pos, info->wLength - pos, NULL, NULL); + *lplpBuffer = lpBufferA + pos; + *puLen = len; + } + return ret; + } + + return VersionInfo16_QueryValue(info, lpSubBlock, lplpBuffer, puLen); +} + +/*********************************************************************** + * VerQueryValueW [VERSION.@] + */ +BOOL WINAPI VerQueryValueW( LPCVOID pBlock, LPCWSTR lpSubBlock, + LPVOID *lplpBuffer, PUINT puLen ) +{ + static const WCHAR nullW[] = { 0 }; + static const WCHAR rootW[] = { '\\', 0 }; + static const WCHAR varfileinfoW[] = { '\\','V','a','r','F','i','l','e','I','n','f','o', + '\\','T','r','a','n','s','l','a','t','i','o','n', 0 }; + + const VS_VERSION_INFO_STRUCT32 *info = pBlock; + + TRACE("(%p,%s,%p,%p)\n", + pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen ); + + if (!pBlock) + return FALSE; + + if (lpSubBlock == NULL || lpSubBlock[0] == nullW[0]) + lpSubBlock = rootW; + + if ( VersionInfoIs16( info ) ) + { + BOOL ret; + int len; + LPSTR lpSubBlockA; + + len = WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, NULL, 0, NULL, NULL); + lpSubBlockA = HeapAlloc(GetProcessHeap(), 0, len * sizeof(char)); + + if (!lpSubBlockA) + return FALSE; + + WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, lpSubBlockA, len, NULL, NULL); + + ret = VersionInfo16_QueryValue(pBlock, lpSubBlockA, lplpBuffer, puLen); + + HeapFree(GetProcessHeap(), 0, lpSubBlockA); + + if (ret && strcmpiW( lpSubBlock, rootW ) && strcmpiW( lpSubBlock, varfileinfoW )) + { + /* Set lpBuffer so it points to the 'empty' area where we store + * the converted strings + */ + LPWSTR lpBufferW = (LPWSTR)((LPSTR)pBlock + info->wLength); + DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; + DWORD max = (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 - info->wLength; + + len = MultiByteToWideChar(CP_ACP, 0, *lplpBuffer, -1, + lpBufferW + pos, max/sizeof(WCHAR) - pos ); + *lplpBuffer = lpBufferW + pos; + *puLen = len; + } + return ret; + } + + return VersionInfo32_QueryValue(info, lpSubBlock, lplpBuffer, puLen); +} + + +/****************************************************************************** + * testFileExistenceA + * + * Tests whether a given path/file combination exists. If the file does + * not exist, the return value is zero. If it does exist, the return + * value is non-zero. + * + * Revision history + * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) + * Original implementation + * + */ +static int testFileExistenceA( char const * path, char const * file, BOOL excl ) +{ + char filename[1024]; + int filenamelen; + OFSTRUCT fileinfo; + + fileinfo.cBytes = sizeof(OFSTRUCT); + + strcpy(filename, path); + filenamelen = strlen(filename); + + /* Add a trailing \ if necessary */ + if(filenamelen) { + if(filename[filenamelen - 1] != '\\') + strcat(filename, "\\"); + } + else /* specify the current directory */ + strcpy(filename, ".\\"); + + /* Create the full pathname */ + strcat(filename, file); + + return (OpenFile(filename, &fileinfo, + OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); +} + +/****************************************************************************** + * testFileExistenceW + */ +static int testFileExistenceW( const WCHAR *path, const WCHAR *file, BOOL excl ) +{ + char *filename; + DWORD pathlen, filelen; + int ret; + OFSTRUCT fileinfo; + + fileinfo.cBytes = sizeof(OFSTRUCT); + + pathlen = WideCharToMultiByte( CP_ACP, 0, path, -1, NULL, 0, NULL, NULL ); + filelen = WideCharToMultiByte( CP_ACP, 0, file, -1, NULL, 0, NULL, NULL ); + filename = HeapAlloc( GetProcessHeap(), 0, pathlen+filelen+2 ); + + WideCharToMultiByte( CP_ACP, 0, path, -1, filename, pathlen, NULL, NULL ); + /* Add a trailing \ if necessary */ + if (pathlen > 1) + { + if (filename[pathlen-2] != '\\') strcpy( &filename[pathlen-1], "\\" ); + } + else /* specify the current directory */ + strcpy(filename, ".\\"); + + WideCharToMultiByte( CP_ACP, 0, file, -1, filename+strlen(filename), filelen, NULL, NULL ); + + ret = (OpenFile(filename, &fileinfo, + OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); + HeapFree( GetProcessHeap(), 0, filename ); + return ret; +} + +/***************************************************************************** + * VerFindFileA [VERSION.@] + * + * Determines where to install a file based on whether it locates another + * version of the file in the system. The values VerFindFile returns are + * used in a subsequent call to the VerInstallFile function. + * + * Revision history: + * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) + * Reimplementation of VerFindFile from original stub. + */ +DWORD WINAPI VerFindFileA( + DWORD flags, + LPCSTR lpszFilename, + LPCSTR lpszWinDir, + LPCSTR lpszAppDir, + LPSTR lpszCurDir, + PUINT lpuCurDirLen, + LPSTR lpszDestDir, + PUINT lpuDestDirLen ) +{ + DWORD retval = 0; + const char *curDir; + const char *destDir; + unsigned int curDirSizeReq; + unsigned int destDirSizeReq; + char systemDir[MAX_PATH]; + + /* Print out debugging information */ + TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", + flags, debugstr_a(lpszFilename), debugstr_a(lpszWinDir), debugstr_a(lpszAppDir), + lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, + lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); + + /* Figure out where the file should go; shared files default to the + system directory */ + + GetSystemDirectoryA(systemDir, sizeof(systemDir)); + curDir = ""; + destDir = ""; + + if(flags & VFFF_ISSHAREDFILE) + { + destDir = systemDir; + /* Were we given a filename? If so, try to find the file. */ + if(lpszFilename) + { + if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; + else if(lpszAppDir && testFileExistenceA(lpszAppDir, lpszFilename, FALSE)) + { + curDir = lpszAppDir; + retval |= VFF_CURNEDEST; + } + } + } + else /* not a shared file */ + { + if(lpszAppDir) + { + destDir = lpszAppDir; + if(lpszFilename) + { + if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; + else if(testFileExistenceA(systemDir, lpszFilename, FALSE)) + { + curDir = systemDir; + retval |= VFF_CURNEDEST; + } + } + } + } + + /* Check to see if the file exists and is in use by another application */ + if (lpszFilename && testFileExistenceA(curDir, lpszFilename, FALSE)) { + if (lpszFilename && !testFileExistenceA(curDir, lpszFilename, TRUE)) + retval |= VFF_FILEINUSE; + } + + curDirSizeReq = strlen(curDir) + 1; + destDirSizeReq = strlen(destDir) + 1; + + /* Make sure that the pointers to the size of the buffers are + valid; if not, do NOTHING with that buffer. If that pointer + is valid, then make sure that the buffer pointer is valid, too! */ + + if(lpuDestDirLen && lpszDestDir) + { + if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; + lstrcpynA(lpszDestDir, destDir, *lpuDestDirLen); + *lpuDestDirLen = destDirSizeReq; + } + if(lpuCurDirLen && lpszCurDir) + { + if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; + lstrcpynA(lpszCurDir, curDir, *lpuCurDirLen); + *lpuCurDirLen = curDirSizeReq; + } + + TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, + (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", + (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", + (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", + debugstr_a(lpszCurDir), debugstr_a(lpszDestDir)); + + return retval; +} + +/***************************************************************************** + * VerFindFileW [VERSION.@] + */ +DWORD WINAPI VerFindFileW( DWORD flags,LPCWSTR lpszFilename,LPCWSTR lpszWinDir, + LPCWSTR lpszAppDir, LPWSTR lpszCurDir,PUINT lpuCurDirLen, + LPWSTR lpszDestDir,PUINT lpuDestDirLen ) +{ + static const WCHAR emptyW; + DWORD retval = 0; + const WCHAR *curDir; + const WCHAR *destDir; + unsigned int curDirSizeReq; + unsigned int destDirSizeReq; + WCHAR systemDir[MAX_PATH]; + + /* Print out debugging information */ + TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", + flags, debugstr_w(lpszFilename), debugstr_w(lpszWinDir), debugstr_w(lpszAppDir), + lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, + lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); + + /* Figure out where the file should go; shared files default to the + system directory */ + + GetSystemDirectoryW(systemDir, sizeof(systemDir)/sizeof(WCHAR)); + curDir = &emptyW; + destDir = &emptyW; + + if(flags & VFFF_ISSHAREDFILE) + { + destDir = systemDir; + /* Were we given a filename? If so, try to find the file. */ + if(lpszFilename) + { + if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; + else if(lpszAppDir && testFileExistenceW(lpszAppDir, lpszFilename, FALSE)) + { + curDir = lpszAppDir; + retval |= VFF_CURNEDEST; + } + } + } + else /* not a shared file */ + { + if(lpszAppDir) + { + destDir = lpszAppDir; + if(lpszFilename) + { + if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; + else if(testFileExistenceW(systemDir, lpszFilename, FALSE)) + { + curDir = systemDir; + retval |= VFF_CURNEDEST; + } + } + } + } + + if (lpszFilename && !testFileExistenceW(curDir, lpszFilename, TRUE)) + retval |= VFF_FILEINUSE; + + curDirSizeReq = strlenW(curDir) + 1; + destDirSizeReq = strlenW(destDir) + 1; + + /* Make sure that the pointers to the size of the buffers are + valid; if not, do NOTHING with that buffer. If that pointer + is valid, then make sure that the buffer pointer is valid, too! */ + + if(lpuDestDirLen && lpszDestDir) + { + if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; + lstrcpynW(lpszDestDir, destDir, *lpuDestDirLen); + *lpuDestDirLen = destDirSizeReq; + } + if(lpuCurDirLen && lpszCurDir) + { + if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; + lstrcpynW(lpszCurDir, curDir, *lpuCurDirLen); + *lpuCurDirLen = curDirSizeReq; + } + + TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, + (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", + (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", + (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", + debugstr_w(lpszCurDir), debugstr_w(lpszDestDir)); + return retval; +} + +static LPBYTE +_fetch_versioninfo(LPSTR fn,VS_FIXEDFILEINFO **vffi) { + DWORD alloclen; + LPBYTE buf; + DWORD ret; + + alloclen = 1000; + buf=HeapAlloc(GetProcessHeap(), 0, alloclen); + if(buf == NULL) { + WARN("Memory exausted while fetching version info!\n"); + return NULL; + } + while (1) { + ret = GetFileVersionInfoA(fn,0,alloclen,buf); + if (!ret) { + HeapFree(GetProcessHeap(), 0, buf); + return NULL; + } + if (alloclen<*(WORD*)buf) { + alloclen = *(WORD*)buf; + HeapFree(GetProcessHeap(), 0, buf); + buf = HeapAlloc(GetProcessHeap(), 0, alloclen); + if(buf == NULL) { + WARN("Memory exausted while fetching version info!\n"); + return NULL; + } + } else { + *vffi = (VS_FIXEDFILEINFO*)(buf+0x14); + if ((*vffi)->dwSignature == 0x004f0049) /* hack to detect unicode */ + *vffi = (VS_FIXEDFILEINFO*)(buf+0x28); + if ((*vffi)->dwSignature != VS_FFI_SIGNATURE) + WARN("Bad VS_FIXEDFILEINFO signature 0x%08x\n",(*vffi)->dwSignature); + return buf; + } + } +} + +static DWORD +_error2vif(DWORD error) { + switch (error) { + case ERROR_ACCESS_DENIED: + return VIF_ACCESSVIOLATION; + case ERROR_SHARING_VIOLATION: + return VIF_SHARINGVIOLATION; + default: + return 0; + } +} + + +/****************************************************************************** + * VerInstallFileA [VERSION.@] + */ +DWORD WINAPI VerInstallFileA( + DWORD flags,LPCSTR srcfilename,LPCSTR destfilename,LPCSTR srcdir, + LPCSTR destdir,LPCSTR curdir,LPSTR tmpfile,PUINT tmpfilelen ) +{ + LPCSTR pdest; + char destfn[260],tmpfn[260],srcfn[260]; + HFILE hfsrc,hfdst; + DWORD attr,xret,tmplast; + LONG ret; + LPBYTE buf1,buf2; + OFSTRUCT ofs; + + TRACE("(%x,%s,%s,%s,%s,%s,%p,%d)\n", + flags,srcfilename,destfilename,srcdir,destdir,curdir,tmpfile,*tmpfilelen + ); + xret = 0; + sprintf(srcfn,"%s\\%s",srcdir,srcfilename); + if (!destdir || !*destdir) pdest = srcdir; + else pdest = destdir; + sprintf(destfn,"%s\\%s",pdest,destfilename); + hfsrc=LZOpenFileA(srcfn,&ofs,OF_READ); + if (hfsrc < 0) + return VIF_CANNOTREADSRC; + sprintf(tmpfn,"%s\\%s",pdest,destfilename); + tmplast=strlen(pdest)+1; + attr = GetFileAttributesA(tmpfn); + if (attr != INVALID_FILE_ATTRIBUTES) { + if (attr & FILE_ATTRIBUTE_READONLY) { + LZClose(hfsrc); + return VIF_WRITEPROT; + } + /* FIXME: check if file currently in use and return VIF_FILEINUSE */ + } + attr = INVALID_FILE_ATTRIBUTES; + if (flags & VIFF_FORCEINSTALL) { + if (tmpfile[0]) { + sprintf(tmpfn,"%s\\%s",pdest,tmpfile); + tmplast = strlen(pdest)+1; + attr = GetFileAttributesA(tmpfn); + /* if it exists, it has been copied by the call before. + * we jump over the copy part... + */ + } + } + if (attr == INVALID_FILE_ATTRIBUTES) { + char *s; + + GetTempFileNameA(pdest,"ver",0,tmpfn); /* should not fail ... */ + s=strrchr(tmpfn,'\\'); + if (s) + tmplast = s-tmpfn; + else + tmplast = 0; + hfdst = OpenFile(tmpfn,&ofs,OF_CREATE); + if (hfdst == HFILE_ERROR) { + LZClose(hfsrc); + return VIF_CANNOTCREATE; /* | translated dos error */ + } + ret = LZCopy(hfsrc,hfdst); + _lclose(hfdst); + if (ret < 0) { + /* translate LZ errors into VIF_xxx */ + switch (ret) { + case LZERROR_BADINHANDLE: + case LZERROR_READ: + case LZERROR_BADVALUE: + case LZERROR_UNKNOWNALG: + xret = VIF_CANNOTREADSRC; + break; + case LZERROR_BADOUTHANDLE: + case LZERROR_WRITE: + xret = VIF_OUTOFSPACE; + break; + case LZERROR_GLOBALLOC: + case LZERROR_GLOBLOCK: + xret = VIF_OUTOFMEMORY; + break; + default: /* unknown error, should not happen */ + FIXME("Unknown LZCopy error %d, ignoring.\n", ret); + xret = 0; + break; + } + if (xret) { + LZClose(hfsrc); + return xret; + } + } + } + xret = 0; + if (!(flags & VIFF_FORCEINSTALL)) { + VS_FIXEDFILEINFO *destvffi,*tmpvffi; + buf1 = _fetch_versioninfo(destfn,&destvffi); + if (buf1) { + buf2 = _fetch_versioninfo(tmpfn,&tmpvffi); + if (buf2) { + char *tbuf1,*tbuf2; + static const CHAR trans_array[] = "\\VarFileInfo\\Translation"; + UINT len1,len2; + + len1=len2=40; + + /* compare file versions */ + if ((destvffi->dwFileVersionMS > tmpvffi->dwFileVersionMS)|| + ((destvffi->dwFileVersionMS==tmpvffi->dwFileVersionMS)&& + (destvffi->dwFileVersionLS > tmpvffi->dwFileVersionLS) + ) + ) + xret |= VIF_MISMATCH|VIF_SRCOLD; + /* compare filetypes and filesubtypes */ + if ((destvffi->dwFileType!=tmpvffi->dwFileType) || + (destvffi->dwFileSubtype!=tmpvffi->dwFileSubtype) + ) + xret |= VIF_MISMATCH|VIF_DIFFTYPE; + if (VerQueryValueA(buf1,trans_array,(LPVOID*)&tbuf1,&len1) && + VerQueryValueA(buf2,trans_array,(LPVOID*)&tbuf2,&len2) + ) { + /* Do something with tbuf1 and tbuf2 + * generates DIFFLANG|MISMATCH + */ + } + HeapFree(GetProcessHeap(), 0, buf2); + } else + xret=VIF_MISMATCH|VIF_SRCOLD; + HeapFree(GetProcessHeap(), 0, buf1); + } + } + if (xret) { + if (*tmpfilelen