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