| /* |
| * Implementation of VERSION.DLL - File Installer routines |
| * |
| * Copyright 1996,1997 Marcus Meissner |
| * Copyright 1997 David Cuthbert |
| */ |
| |
| #include <stdlib.h> |
| #include <stdio.h> |
| #include <string.h> |
| |
| #include "windef.h" |
| #include "winbase.h" |
| #include "winver.h" |
| #include "winnls.h" |
| #include "wine/unicode.h" |
| #include "winerror.h" |
| #include "lzexpand.h" |
| #include "debugtools.h" |
| |
| 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() [VER.8] |
| * 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( |
| UINT flags, |
| LPCSTR lpszFilename, |
| LPCSTR lpszWinDir, |
| LPCSTR lpszAppDir, |
| LPSTR lpszCurDir, |
| UINT *lpuCurDirLen, |
| LPSTR lpszDestDir, |
| UINT *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; |
| } |
| } |
| } |
| } |
| |
| 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 = %lu (%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.6] |
| */ |
| DWORD WINAPI VerFindFileW( UINT flags,LPCWSTR lpszFilename,LPCWSTR lpszWinDir, |
| LPCWSTR lpszAppDir, LPWSTR lpszCurDir,UINT *lpuCurDirLen, |
| LPWSTR lpszDestDir,UINT *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 = %lu (%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%08lx\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.7] |
| */ |
| DWORD WINAPI VerInstallFileA( |
| UINT flags,LPCSTR srcfilename,LPCSTR destfilename,LPCSTR srcdir, |
| LPCSTR destdir,LPCSTR curdir,LPSTR tmpfile,UINT *tmpfilelen ) |
| { |
| LPCSTR pdest; |
| char destfn[260],tmpfn[260],srcfn[260]; |
| HFILE hfsrc,hfdst; |
| DWORD attr,ret,xret,tmplast; |
| 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!=-1) { |
| if (attr & FILE_ATTRIBUTE_READONLY) { |
| LZClose(hfsrc); |
| return VIF_WRITEPROT; |
| } |
| /* FIXME: check if file currently in use and return VIF_FILEINUSE */ |
| } |
| attr = -1; |
| 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 == -1) { |
| 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 (((long) ret) < 0) { |
| /* translate LZ errors into VIF_xxx */ |
| switch (ret) { |
| case LZERROR_BADINHANDLE: |
| case LZERROR_READ: |
| case LZERROR_BADVALUE: |
| case LZERROR_UNKNOWNALG: |
| ret = VIF_CANNOTREADSRC; |
| break; |
| case LZERROR_BADOUTHANDLE: |
| case LZERROR_WRITE: |
| ret = VIF_OUTOFSPACE; |
| break; |
| case LZERROR_GLOBALLOC: |
| case LZERROR_GLOBLOCK: |
| ret = VIF_OUTOFMEMORY; |
| break; |
| default: /* unknown error, should not happen */ |
| ret = 0; |
| break; |
| } |
| if (ret) { |
| LZClose(hfsrc); |
| return ret; |
| } |
| } |
| } |
| 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; |
| 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,"\\VarFileInfo\\Translation",(LPVOID*)&tbuf1,&len1) && |
| VerQueryValueA(buf2,"\\VarFileInfo\\Translation",(LPVOID*)&tbuf2,&len2) |
| ) { |
| /* irgendwas mit tbuf1 und tbuf2 machen |
| * generiert DIFFLANG|MISMATCH |
| */ |
| } |
| HeapFree(GetProcessHeap(), 0, buf2); |
| } else |
| xret=VIF_MISMATCH|VIF_SRCOLD; |
| HeapFree(GetProcessHeap(), 0, buf1); |
| } |
| } |
| if (xret) { |
| if (*tmpfilelen<strlen(tmpfn+tmplast)) { |
| xret|=VIF_BUFFTOOSMALL; |
| DeleteFileA(tmpfn); |
| } else { |
| strcpy(tmpfile,tmpfn+tmplast); |
| *tmpfilelen = strlen(tmpfn+tmplast)+1; |
| xret|=VIF_TEMPFILE; |
| } |
| } else { |
| if (-1!=GetFileAttributesA(destfn)) |
| if (!DeleteFileA(destfn)) { |
| xret|=_error2vif(GetLastError())|VIF_CANNOTDELETE; |
| DeleteFileA(tmpfn); |
| LZClose(hfsrc); |
| return xret; |
| } |
| if ((!(flags & VIFF_DONTDELETEOLD)) && |
| curdir && |
| *curdir && |
| lstrcmpiA(curdir,pdest) |
| ) { |
| char curfn[260]; |
| |
| sprintf(curfn,"%s\\%s",curdir,destfilename); |
| if (-1!=GetFileAttributesA(curfn)) { |
| /* FIXME: check if in use ... if it is, VIF_CANNOTDELETECUR */ |
| if (!DeleteFileA(curfn)) |
| xret|=_error2vif(GetLastError())|VIF_CANNOTDELETECUR; |
| } |
| } |
| if (!MoveFileA(tmpfn,destfn)) { |
| xret|=_error2vif(GetLastError())|VIF_CANNOTRENAME; |
| DeleteFileA(tmpfn); |
| } |
| } |
| LZClose(hfsrc); |
| return xret; |
| } |
| |
| |
| /****************************************************************************** |
| * VerInstallFileW [VERSION.8] |
| */ |
| DWORD WINAPI VerInstallFileW( |
| UINT flags,LPCWSTR srcfilename,LPCWSTR destfilename,LPCWSTR srcdir, |
| LPCWSTR destdir,LPCWSTR curdir,LPWSTR tmpfile,UINT *tmpfilelen ) |
| { |
| LPSTR wsrcf = NULL, wsrcd = NULL, wdestf = NULL, wdestd = NULL, wtmpf = NULL, wcurd = NULL; |
| DWORD ret; |
| UINT len; |
| |
| if (srcfilename) |
| { |
| len = WideCharToMultiByte( CP_ACP, 0, srcfilename, -1, NULL, 0, NULL, NULL ); |
| if ((wsrcf = HeapAlloc( GetProcessHeap(), 0, len ))) |
| WideCharToMultiByte( CP_ACP, 0, srcfilename, -1, wsrcf, len, NULL, NULL ); |
| } |
| if (srcdir) |
| { |
| len = WideCharToMultiByte( CP_ACP, 0, srcdir, -1, NULL, 0, NULL, NULL ); |
| if ((wsrcd = HeapAlloc( GetProcessHeap(), 0, len ))) |
| WideCharToMultiByte( CP_ACP, 0, srcdir, -1, wsrcd, len, NULL, NULL ); |
| } |
| if (destfilename) |
| { |
| len = WideCharToMultiByte( CP_ACP, 0, destfilename, -1, NULL, 0, NULL, NULL ); |
| if ((wdestf = HeapAlloc( GetProcessHeap(), 0, len ))) |
| WideCharToMultiByte( CP_ACP, 0, destfilename, -1, wdestf, len, NULL, NULL ); |
| } |
| if (destdir) |
| { |
| len = WideCharToMultiByte( CP_ACP, 0, destdir, -1, NULL, 0, NULL, NULL ); |
| if ((wdestd = HeapAlloc( GetProcessHeap(), 0, len ))) |
| WideCharToMultiByte( CP_ACP, 0, destdir, -1, wdestd, len, NULL, NULL ); |
| } |
| if (curdir) |
| { |
| len = WideCharToMultiByte( CP_ACP, 0, curdir, -1, NULL, 0, NULL, NULL ); |
| if ((wcurd = HeapAlloc( GetProcessHeap(), 0, len ))) |
| WideCharToMultiByte( CP_ACP, 0, curdir, -1, wcurd, len, NULL, NULL ); |
| } |
| len = *tmpfilelen * sizeof(WCHAR); |
| wtmpf = HeapAlloc( GetProcessHeap(), 0, len ); |
| ret = VerInstallFileA(flags,wsrcf,wdestf,wsrcd,wdestd,wcurd,wtmpf,&len); |
| if (!ret) |
| *tmpfilelen = MultiByteToWideChar( CP_ACP, 0, wtmpf, -1, tmpfile, *tmpfilelen ); |
| else if (ret & VIF_BUFFTOOSMALL) |
| *tmpfilelen = len; /* FIXME: not correct */ |
| |
| HeapFree( GetProcessHeap(), 0, wsrcf ); |
| HeapFree( GetProcessHeap(), 0, wsrcd ); |
| HeapFree( GetProcessHeap(), 0, wdestf ); |
| HeapFree( GetProcessHeap(), 0, wdestd ); |
| HeapFree( GetProcessHeap(), 0, wtmpf ); |
| HeapFree( GetProcessHeap(), 0, wcurd ); |
| return ret; |
| } |
| |
