Sweden-Number/dlls/version/install.c

581 lines
18 KiB
C

/*
* 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* TODO
* o Check the installation functions.
*/
#include <stdlib.h>
#include <stdarg.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 "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(
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.@]
*/
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.@]
*/
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.@]
*/
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;
}