dlls/version/install.c

   1 /*
   2  * Implementation of VERSION.DLL - File Installer routines
   3  *
   4  * Copyright 1996,1997 Marcus Meissner
   5  * Copyright 1997 David Cuthbert
   6  */
   7
   8 #include <stdlib.h>
   9 #include <string.h>
  10
  11 #include "windef.h"
  12 #include "winver.h"
  13 #include "wine/winestring.h"
  14 #include "winerror.h"
  15 #include "heap.h"
  16 #include "ver.h"
  17 #include "lzexpand.h"
  18 #include "xmalloc.h"
  19 #include "debug.h"
  20
  21 DEFAULT_DEBUG_CHANNEL(ver)
  22
  23
  24 /******************************************************************************
  25  *
  26  *   void  ver_dstring(
  27  *      char const * prologue,
  28  *      char const * teststring,
  29  *      char const * epilogue )
  30  *
  31  *   This function will print via dprintf[_]ver to stddeb the prologue string,
  32  *   followed by the address of teststring and the string it contains if
  33  *   teststring is non-null or "(null)" otherwise, and then the epilogue
  34  *   string followed by a new line.
  35  *
  36  *   Revision history
  37  *      30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu)
  38  *         Original implementation as dprintf[_]ver_string
  39  *      05-Jul-1997 Dave Cuthbert (dacut@ece.cmu.edu)
  40  *         Fixed problem that caused bug with tools/make_debug -- renaming
  41  *         this function should fix the problem.
  42  *      15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu)
  43  *         Modified it to make it print the message using only one
  44  *         dprintf[_]ver call.
  45  *
  46  *****************************************************************************/
  47
  48 static void  ver_dstring(
  49     char const * prologue,
  50     char const * teststring,
  51     char const * epilogue )
  52 {
  53     TRACE(ver, "%s %p (\"%s\") %s\n", prologue,
  54                 (void const *) teststring,
  55                 teststring ? teststring : "(null)",
  56                 epilogue);
  57 }
  58
  59 /******************************************************************************
  60  *
  61  *   int  testFileExistence(
  62  *      char const * path,
  63  *      char const * file )
  64  *
  65  *   Tests whether a given path/file combination exists.  If the file does
  66  *   not exist, the return value is zero.  If it does exist, the return
  67  *   value is non-zero.
  68  *
  69  *   Revision history
  70  *      30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu)
  71  *         Original implementation
  72  *
  73  *****************************************************************************/
  74
  75 static int  testFileExistence(
  76    char const * path,
  77    char const * file )
  78 {
  79     char  filename[1024];
  80     int  filenamelen;
  81     OFSTRUCT  fileinfo;
  82     int  retval;
  83
  84     fileinfo.cBytes = sizeof(OFSTRUCT);
  85
  86     strcpy(filename, path);
  87     filenamelen = strlen(filename);
  88
  89     /* Add a trailing \ if necessary */
  90     if(filenamelen) {
  91         if(filename[filenamelen - 1] != '\\')
  92             strcat(filename, "\\");
  93     }
  94     else /* specify the current directory */
  95         strcpy(filename, ".\\");
  96
  97     /* Create the full pathname */
  98     strcat(filename, file);
  99
 100     if(OpenFile(filename, &fileinfo, OF_EXIST) == HFILE_ERROR)
 101         retval = 0;
 102     else
 103         retval = 1;
 104
 105     return  retval;
 106 }
 107
 108 /******************************************************************************
 109  *
 110  *   int  testFileExclusiveExistence(
 111  *      char const * path,
 112  *      char const * file )
 113  *
 114  *   Tests whether a given path/file combination exists and ensures that no
 115  *   other programs have handles to the given file.  If the file does not
 116  *   exist or is open, the return value is zero.  If it does exist, the
 117  *   return value is non-zero.
 118  *
 119  *   Revision history
 120  *      30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu)
 121  *         Original implementation
 122  *
 123  *****************************************************************************/
 124
 125 static int  testFileExclusiveExistence(
 126    char const * path,
 127    char const * file )
 128 {
 129     char  filename[1024];
 130     int  filenamelen;
 131     OFSTRUCT  fileinfo;
 132     int  retval;
 133
 134     fileinfo.cBytes = sizeof(OFSTRUCT);
 135
 136     strcpy(filename, path);
 137     filenamelen = strlen(filename);
 138
 139     /* Add a trailing \ if necessary */
 140     if(filenamelen) {
 141         if(filename[filenamelen - 1] != '\\')
 142             strcat(filename, "\\");
 143     }
 144     else /* specify the current directory */
 145         strcpy(filename, ".\\");
 146
 147     /* Create the full pathname */
 148     strcat(filename, file);
 149
 150     if(OpenFile(filename, &fileinfo, OF_EXIST | OF_SHARE_EXCLUSIVE) ==
 151        HFILE_ERROR)
 152         retval = 0;
 153     else
 154         retval = 1;
 155
 156     return retval;
 157 }
 158
 159 /*****************************************************************************
 160  *
 161  *   VerFindFile() [VER.8]
 162  *   Determines where to install a file based on whether it locates another
 163  *   version of the file in the system.  The values VerFindFile returns are
 164  *   used in a subsequent call to the VerInstallFile function.
 165  *
 166  *   Revision history:
 167  *      30-May-1997   Dave Cuthbert (dacut@ece.cmu.edu)
 168  *         Reimplementation of VerFindFile from original stub.
 169  *
 170  ****************************************************************************/
 171
 172 /* VerFindFile32A                                               [VERSION.5] */
 173 DWORD WINAPI VerFindFileA(
 174     UINT flags,
 175     LPCSTR lpszFilename,
 176     LPCSTR lpszWinDir,
 177     LPCSTR lpszAppDir,
 178     LPSTR lpszCurDir,
 179     UINT *lpuCurDirLen,
 180     LPSTR lpszDestDir,
 181     UINT *lpuDestDirLen )
 182 {
 183     DWORD  retval;
 184     char  curDir[256];
 185     char  destDir[256];
 186     unsigned int  curDirSizeReq;
 187     unsigned int  destDirSizeReq;
 188
 189     retval = 0;
 190
 191     /* Print out debugging information */
 192     TRACE(ver, "called with parameters:\n"
 193                  "\tflags = %x", flags);
 194     if(flags & VFFF_ISSHAREDFILE)
 195         TRACE(ver, " (VFFF_ISSHAREDFILE)\n");
 196     else
 197         TRACE(ver, "\n");
 198
 199     ver_dstring("\tlpszFilename = ", lpszFilename, "");
 200     ver_dstring("\tlpszWinDir = ", lpszWinDir, "");
 201     ver_dstring("\tlpszAppDir = ", lpszAppDir, "");
 202
 203     TRACE(ver, "\tlpszCurDir = %p\n", lpszCurDir);
 204     if(lpuCurDirLen)
 205         TRACE(ver, "\tlpuCurDirLen = %p (%u)\n",
 206                     lpuCurDirLen, *lpuCurDirLen);
 207     else
 208         TRACE(ver, "\tlpuCurDirLen = (null)\n");
 209
 210     TRACE(ver, "\tlpszDestDir = %p\n", lpszDestDir);
 211     if(lpuDestDirLen)
 212         TRACE(ver, "\tlpuDestDirLen = %p (%u)\n",
 213                     lpuDestDirLen, *lpuDestDirLen);
 214
 215     /* Figure out where the file should go; shared files default to the
 216        system directory */
 217
 218     strcpy(curDir, "");
 219     strcpy(destDir, "");
 220
 221     if(flags & VFFF_ISSHAREDFILE) {
 222         GetSystemDirectoryA(destDir, 256);
 223
 224         /* Were we given a filename?  If so, try to find the file. */
 225         if(lpszFilename) {
 226             if(testFileExistence(destDir, lpszFilename)) {
 227                 strcpy(curDir, destDir);
 228
 229                 if(!testFileExclusiveExistence(destDir, lpszFilename))
 230                     retval |= VFF_FILEINUSE;
 231             }
 232             else if(lpszAppDir && testFileExistence(lpszAppDir,
 233                                                     lpszFilename)) {
 234                 strcpy(curDir, lpszAppDir);
 235                 retval |= VFF_CURNEDEST;
 236
 237                 if(!testFileExclusiveExistence(lpszAppDir, lpszFilename))
 238                     retval |= VFF_FILEINUSE;
 239             }
 240         }
 241     }
 242     else if(!(flags & VFFF_ISSHAREDFILE)) { /* not a shared file */
 243         if(lpszAppDir) {
 244             char  systemDir[256];
 245             GetSystemDirectoryA(systemDir, 256);
 246
 247             strcpy(destDir, lpszAppDir);
 248
 249             if(lpszFilename) {
 250                 if(testFileExistence(lpszAppDir, lpszFilename)) {
 251                     strcpy(curDir, lpszAppDir);
 252
 253                     if(!testFileExclusiveExistence(lpszAppDir, lpszFilename))
 254                         retval |= VFF_FILEINUSE;
 255                 }
 256                 else if(testFileExistence(systemDir, lpszFilename)) {
 257                     strcpy(curDir, systemDir);
 258                     retval |= VFF_CURNEDEST;
 259
 260                     if(!testFileExclusiveExistence(systemDir, lpszFilename))
 261                         retval |= VFF_FILEINUSE;
 262                 }
 263             }
 264         }
 265     }
 266
 267     curDirSizeReq = strlen(curDir) + 1;
 268     destDirSizeReq = strlen(destDir) + 1;
 269
 270
 271
 272     /* Make sure that the pointers to the size of the buffers are
 273        valid; if not, do NOTHING with that buffer.  If that pointer
 274        is valid, then make sure that the buffer pointer is valid, too! */
 275
 276     if(lpuDestDirLen && lpszDestDir) {
 277         if(*lpuDestDirLen < destDirSizeReq) {
 278             retval |= VFF_BUFFTOOSMALL;
 279             if (*lpuDestDirLen) {
 280             strncpy(lpszDestDir, destDir, *lpuDestDirLen - 1);
 281             lpszDestDir[*lpuDestDirLen - 1] = '\0';
 282         }
 283         }
 284         else
 285             strcpy(lpszDestDir, destDir);
 286
 287         *lpuDestDirLen = destDirSizeReq;
 288     }
 289
 290     if(lpuCurDirLen && lpszCurDir) {
 291         if(*lpuCurDirLen < curDirSizeReq) {
 292             retval |= VFF_BUFFTOOSMALL;
 293             if (*lpuCurDirLen) {
 294             strncpy(lpszCurDir, curDir, *lpuCurDirLen - 1);
 295             lpszCurDir[*lpuCurDirLen - 1] = '\0';
 296             }
 297         }
 298         else
 299             strcpy(lpszCurDir, curDir);
 300
 301         *lpuCurDirLen = curDirSizeReq;
 302     }
 303
 304     TRACE(ver, "ret = %lu (%s%s%s)\n", retval,
 305                  (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "",
 306                  (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "",
 307                  (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "");
 308
 309     ver_dstring("\t(Exit) lpszCurDir = ", lpszCurDir, "");
 310     if(lpuCurDirLen)
 311         TRACE(ver, "\t(Exit) lpuCurDirLen = %p (%u)\n",
 312                     lpuCurDirLen, *lpuCurDirLen);
 313     else
 314         TRACE(ver, "\t(Exit) lpuCurDirLen = (null)\n");
 315
 316     ver_dstring("\t(Exit) lpszDestDir = ", lpszDestDir, "");
 317     if(lpuDestDirLen)
 318         TRACE(ver, "\t(Exit) lpuDestDirLen = %p (%u)\n",
 319                     lpuDestDirLen, *lpuDestDirLen);
 320
 321     return retval;
 322 }
 323
 324 /* VerFindFile32W                                               [VERSION.6] */
 325 DWORD WINAPI VerFindFileW(
 326         UINT flags,LPCWSTR filename,LPCWSTR windir,LPCWSTR appdir,
 327         LPWSTR curdir,UINT *pcurdirlen,LPWSTR destdir,UINT *pdestdirlen )
 328 {
 329     UINT curdirlen, destdirlen;
 330     LPSTR wfn,wwd,wad,wdd,wcd;
 331     DWORD ret;
 332
 333     wfn = HEAP_strdupWtoA( GetProcessHeap(), 0, filename );
 334     wwd = HEAP_strdupWtoA( GetProcessHeap(), 0, windir );
 335     wad = HEAP_strdupWtoA( GetProcessHeap(), 0, appdir );
 336     wcd = HeapAlloc( GetProcessHeap(), 0, *pcurdirlen );
 337     wdd = HeapAlloc( GetProcessHeap(), 0, *pdestdirlen );
 338     ret = VerFindFileA(flags,wfn,wwd,wad,wcd,&curdirlen,wdd,&destdirlen);
 339     lstrcpynAtoW(curdir,wcd,*pcurdirlen);
 340     lstrcpynAtoW(destdir,wdd,*pdestdirlen);
 341     *pcurdirlen = strlen(wcd);
 342     *pdestdirlen = strlen(wdd);
 343     HeapFree( GetProcessHeap(), 0, wfn );
 344     HeapFree( GetProcessHeap(), 0, wwd );
 345     HeapFree( GetProcessHeap(), 0, wad );
 346     HeapFree( GetProcessHeap(), 0, wcd );
 347     HeapFree( GetProcessHeap(), 0, wdd );
 348     return ret;
 349 }
 350
 351 static LPBYTE
 352 _fetch_versioninfo(LPSTR fn,VS_FIXEDFILEINFO **vffi) {
 353     DWORD       alloclen;
 354     LPBYTE      buf;
 355     DWORD       ret;
 356
 357     alloclen = 1000;
 358     buf= xmalloc(alloclen);
 359     while (1) {
 360         ret = GetFileVersionInfoA(fn,0,alloclen,buf);
 361         if (!ret) {
 362             free(buf);
 363             return 0;
 364         }
 365         if (alloclen<*(WORD*)buf) {
 366             free(buf);
 367             alloclen = *(WORD*)buf;
 368             buf = xmalloc(alloclen);
 369         } else {
 370             *vffi = (VS_FIXEDFILEINFO*)(buf+0x14);
 371             if ((*vffi)->dwSignature == 0x004f0049) /* hack to detect unicode */
 372                 *vffi = (VS_FIXEDFILEINFO*)(buf+0x28);
 373             if ((*vffi)->dwSignature != VS_FFI_SIGNATURE)
 374                 WARN(ver,"Bad VS_FIXEDFILEINFO signature 0x%08lx\n",(*vffi)->dwSignature);
 375             return buf;
 376         }
 377     }
 378 }
 379
 380 static DWORD
 381 _error2vif(DWORD error) {
 382     switch (error) {
 383     case ERROR_ACCESS_DENIED:
 384         return VIF_ACCESSVIOLATION;
 385     case ERROR_SHARING_VIOLATION:
 386         return VIF_SHARINGVIOLATION;
 387     default:
 388         return 0;
 389     }
 390 }
 391
 392
 393 /******************************************************************************
 394  * VerInstallFile32A [VERSION.7]
 395  */
 396 DWORD WINAPI VerInstallFileA(
 397         UINT flags,LPCSTR srcfilename,LPCSTR destfilename,LPCSTR srcdir,
 398         LPCSTR destdir,LPCSTR curdir,LPSTR tmpfile,UINT *tmpfilelen )
 399 {
 400     LPCSTR pdest;
 401     char        destfn[260],tmpfn[260],srcfn[260];
 402     HFILE       hfsrc,hfdst;
 403     DWORD       attr,ret,xret,tmplast;
 404     LPBYTE      buf1,buf2;
 405     OFSTRUCT    ofs;
 406
 407     TRACE(ver,"(%x,%s,%s,%s,%s,%s,%p,%d)\n",
 408             flags,srcfilename,destfilename,srcdir,destdir,curdir,tmpfile,*tmpfilelen
 409     );
 410     xret = 0;
 411     sprintf(srcfn,"%s\\%s",srcdir,srcfilename);
 412     if (!destdir || !*destdir) pdest = srcdir;
 413     else pdest = destdir;
 414     sprintf(destfn,"%s\\%s",pdest,destfilename);
 415     hfsrc=LZOpenFileA(srcfn,&ofs,OF_READ);
 416     if (hfsrc==HFILE_ERROR)
 417         return VIF_CANNOTREADSRC;
 418     sprintf(tmpfn,"%s\\%s",pdest,destfilename);
 419     tmplast=strlen(pdest)+1;
 420     attr = GetFileAttributesA(tmpfn);
 421     if (attr!=-1) {
 422         if (attr & FILE_ATTRIBUTE_READONLY) {
 423             LZClose(hfsrc);
 424             return VIF_WRITEPROT;
 425         }
 426         /* FIXME: check if file currently in use and return VIF_FILEINUSE */
 427     }
 428     attr = -1;
 429     if (flags & VIFF_FORCEINSTALL) {
 430         if (tmpfile[0]) {
 431             sprintf(tmpfn,"%s\\%s",pdest,tmpfile);
 432             tmplast = strlen(pdest)+1;
 433             attr = GetFileAttributesA(tmpfn);
 434             /* if it exists, it has been copied by the call before.
 435              * we jump over the copy part...
 436              */
 437         }
 438     }
 439     if (attr == -1) {
 440         char    *s;
 441
 442         GetTempFileNameA(pdest,"ver",0,tmpfn); /* should not fail ... */
 443         s=strrchr(tmpfn,'\\');
 444         if (s)
 445             tmplast = s-tmpfn;
 446         else
 447             tmplast = 0;
 448         hfdst = OpenFile(tmpfn,&ofs,OF_CREATE);
 449         if (hfdst == HFILE_ERROR) {
 450             LZClose(hfsrc);
 451             return VIF_CANNOTCREATE; /* | translated dos error */
 452         }
 453         ret = LZCopy(hfsrc,hfdst);
 454         _lclose(hfdst);
 455         if (((long) ret) < 0) {
 456             /* translate LZ errors into VIF_xxx */
 457             switch (ret) {
 458             case LZERROR_BADINHANDLE:
 459             case LZERROR_READ:
 460             case LZERROR_BADVALUE:
 461             case LZERROR_UNKNOWNALG:
 462                 ret = VIF_CANNOTREADSRC;
 463                 break;
 464             case LZERROR_BADOUTHANDLE:
 465             case LZERROR_WRITE:
 466                 ret = VIF_OUTOFMEMORY; /* FIXME: correct? */
 467                 break;
 468             case LZERROR_GLOBALLOC:
 469             case LZERROR_GLOBLOCK:
 470                 ret = VIF_OUTOFSPACE;
 471                 break;
 472             default: /* unknown error, should not happen */
 473                 ret = 0;
 474                 break;
 475             }
 476             if (ret) {
 477                 LZClose(hfsrc);
 478                 return ret;
 479             }
 480         }
 481     }
 482     xret = 0;
 483     if (!(flags & VIFF_FORCEINSTALL)) {
 484         VS_FIXEDFILEINFO *destvffi,*tmpvffi;
 485         buf1 = _fetch_versioninfo(destfn,&destvffi);
 486         if (buf1) {
 487             buf2 = _fetch_versioninfo(tmpfn,&tmpvffi);
 488             if (buf2) {
 489                 char    *tbuf1,*tbuf2;
 490                 UINT    len1,len2;
 491
 492                 len1=len2=40;
 493
 494                 /* compare file versions */
 495                 if ((destvffi->dwFileVersionMS > tmpvffi->dwFileVersionMS)||
 496                     ((destvffi->dwFileVersionMS==tmpvffi->dwFileVersionMS)&&
 497                      (destvffi->dwFileVersionLS > tmpvffi->dwFileVersionLS)
 498                     )
 499                 )
 500                     xret |= VIF_MISMATCH|VIF_SRCOLD;
 501                 /* compare filetypes and filesubtypes */
 502                 if ((destvffi->dwFileType!=tmpvffi->dwFileType) ||
 503                     (destvffi->dwFileSubtype!=tmpvffi->dwFileSubtype)
 504                 )
 505                     xret |= VIF_MISMATCH|VIF_DIFFTYPE;
 506                 if (VerQueryValueA(buf1,"\\VarFileInfo\\Translation",(LPVOID*)&tbuf1,&len1) &&
 507                     VerQueryValueA(buf2,"\\VarFileInfo\\Translation",(LPVOID*)&tbuf2,&len2)
 508                 ) {
 509                     /* irgendwas mit tbuf1 und tbuf2 machen
 510                      * generiert DIFFLANG|MISMATCH
 511                      */
 512                 }
 513                 free(buf2);
 514             } else
 515                 xret=VIF_MISMATCH|VIF_SRCOLD;
 516             free(buf1);
 517         }
 518     }
 519     if (xret) {
 520         if (*tmpfilelen<strlen(tmpfn+tmplast)) {
 521             xret|=VIF_BUFFTOOSMALL;
 522             DeleteFileA(tmpfn);
 523         } else {
 524             strcpy(tmpfile,tmpfn+tmplast);
 525             *tmpfilelen = strlen(tmpfn+tmplast)+1;
 526             xret|=VIF_TEMPFILE;
 527         }
 528     } else {
 529         if (-1!=GetFileAttributesA(destfn))
 530             if (!DeleteFileA(destfn)) {
 531                 xret|=_error2vif(GetLastError())|VIF_CANNOTDELETE;
 532                 DeleteFileA(tmpfn);
 533                 LZClose(hfsrc);
 534                 return xret;
 535             }
 536         if ((!(flags & VIFF_DONTDELETEOLD))     &&
 537             curdir                              &&
 538             *curdir                             &&
 539             lstrcmpiA(curdir,pdest)
 540         ) {
 541             char curfn[260];
 542
 543             sprintf(curfn,"%s\\%s",curdir,destfilename);
 544             if (-1!=GetFileAttributesA(curfn)) {
 545                 /* FIXME: check if in use ... if it is, VIF_CANNOTDELETECUR */
 546                 if (!DeleteFileA(curfn))
 547                     xret|=_error2vif(GetLastError())|VIF_CANNOTDELETECUR;
 548             }
 549         }
 550         if (!MoveFileA(tmpfn,destfn)) {
 551             xret|=_error2vif(GetLastError())|VIF_CANNOTRENAME;
 552             DeleteFileA(tmpfn);
 553         }
 554     }
 555     LZClose(hfsrc);
 556     return xret;
 557 }
 558
 559
 560 /* VerInstallFile32W                            [VERSION.8] */
 561 DWORD WINAPI VerInstallFileW(
 562         UINT flags,LPCWSTR srcfilename,LPCWSTR destfilename,LPCWSTR srcdir,
 563         LPCWSTR destdir,LPCWSTR curdir,LPWSTR tmpfile,UINT *tmpfilelen )
 564 {
 565     LPSTR wsrcf,wsrcd,wdestf,wdestd,wtmpf,wcurd;
 566     DWORD ret;
 567
 568     wsrcf  = HEAP_strdupWtoA( GetProcessHeap(), 0, srcfilename );
 569     wsrcd  = HEAP_strdupWtoA( GetProcessHeap(), 0, srcdir );
 570     wdestf = HEAP_strdupWtoA( GetProcessHeap(), 0, destfilename );
 571     wdestd = HEAP_strdupWtoA( GetProcessHeap(), 0, destdir );
 572     wtmpf  = HEAP_strdupWtoA( GetProcessHeap(), 0, tmpfile );
 573     wcurd  = HEAP_strdupWtoA( GetProcessHeap(), 0, curdir );
 574     ret = VerInstallFileA(flags,wsrcf,wdestf,wsrcd,wdestd,wcurd,wtmpf,tmpfilelen);
 575     if (!ret)
 576         lstrcpynAtoW(tmpfile,wtmpf,*tmpfilelen);
 577     HeapFree( GetProcessHeap(), 0, wsrcf );
 578     HeapFree( GetProcessHeap(), 0, wsrcd );
 579     HeapFree( GetProcessHeap(), 0, wdestf );
 580     HeapFree( GetProcessHeap(), 0, wdestd );
 581     HeapFree( GetProcessHeap(), 0, wtmpf );
 582     if (wcurd)
 583         HeapFree( GetProcessHeap(), 0, wcurd );
 584     return ret;
 585 }
 586