515 lines
17 KiB
C
515 lines
17 KiB
C
/*
|
|
* XCOPY - Wine-compatible xcopy program
|
|
*
|
|
* Copyright (C) 2007 J. Edmeades
|
|
*
|
|
* 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
|
|
*/
|
|
|
|
/*
|
|
* Notes:
|
|
* Apparently, valid return codes are:
|
|
* 0 - OK
|
|
* 1 - No files found to copy
|
|
* 2 - CTRL+C during copy
|
|
* 4 - Initialization error, or invalid source specification
|
|
* 5 - Disk write error
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <windows.h>
|
|
#include <wine/debug.h>
|
|
|
|
/* Local #defines */
|
|
#define RC_OK 0
|
|
#define RC_NOFILES 1
|
|
#define RC_CTRLC 2
|
|
#define RC_INITERROR 4
|
|
#define RC_WRITEERROR 5
|
|
|
|
#define OPT_ASSUMEDIR 0x00000001
|
|
#define OPT_RECURSIVE 0x00000002
|
|
#define OPT_EMPTYDIR 0x00000004
|
|
#define OPT_QUIET 0x00000008
|
|
#define OPT_FULL 0x00000010
|
|
#define OPT_SIMULATE 0x00000020
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(xcopy);
|
|
|
|
/* Prototypes */
|
|
static int XCOPY_ProcessSourceParm(WCHAR *suppliedsource, WCHAR *stem, WCHAR *spec);
|
|
static int XCOPY_ProcessDestParm(WCHAR *supplieddestination, WCHAR *stem,
|
|
WCHAR *spec, WCHAR *srcspec, DWORD flags);
|
|
static int XCOPY_DoCopy(WCHAR *srcstem, WCHAR *srcspec,
|
|
WCHAR *deststem, WCHAR *destspec,
|
|
DWORD flags);
|
|
static BOOL XCOPY_CreateDirectory(const WCHAR* path);
|
|
|
|
/* Global variables */
|
|
static ULONG filesCopied = 0; /* Number of files copied */
|
|
static const WCHAR wchr_slash[] = {'\\', 0};
|
|
static const WCHAR wchr_star[] = {'*', 0};
|
|
static const WCHAR wchr_dot[] = {'.', 0};
|
|
static const WCHAR wchr_dotdot[] = {'.', '.', 0};
|
|
|
|
/* Constants (Mostly for widechars) */
|
|
|
|
|
|
/* To minimize stack usage during recursion, some temporary variables
|
|
made global */
|
|
static WCHAR copyFrom[MAX_PATH];
|
|
static WCHAR copyTo[MAX_PATH];
|
|
|
|
|
|
/* =========================================================================
|
|
main - Main entrypoint for the xcopy command
|
|
|
|
Processes the args, and drives the actual copying
|
|
========================================================================= */
|
|
int main (int argc, char *argv[])
|
|
{
|
|
int rc = 0;
|
|
WCHAR suppliedsource[MAX_PATH] = {0}; /* As supplied on the cmd line */
|
|
WCHAR supplieddestination[MAX_PATH] = {0};
|
|
WCHAR sourcestem[MAX_PATH] = {0}; /* Stem of source */
|
|
WCHAR sourcespec[MAX_PATH] = {0}; /* Filespec of source */
|
|
WCHAR destinationstem[MAX_PATH] = {0}; /* Stem of destination */
|
|
WCHAR destinationspec[MAX_PATH] = {0}; /* Filespec of destination */
|
|
DWORD flags = 0; /* Option flags */
|
|
LPWSTR *argvW = NULL;
|
|
/*
|
|
* Parse the command line
|
|
*/
|
|
|
|
/* overwrite the command line */
|
|
argvW = CommandLineToArgvW( GetCommandLineW(), &argc );
|
|
|
|
/* Confirm at least one parameter */
|
|
if (argc < 2) {
|
|
printf("Invalid number of parameters - Use xcopy /? for help\n");
|
|
return RC_INITERROR;
|
|
}
|
|
|
|
/* Skip first arg, which is the program name */
|
|
argvW++;
|
|
|
|
while (argc > 1)
|
|
{
|
|
argc--;
|
|
WINE_TRACE("Processing Arg: '%s'\n", wine_dbgstr_w(*argvW));
|
|
|
|
/* First non-switch parameter is source, second is destination */
|
|
if (*argvW[0] != '/') {
|
|
if (suppliedsource[0] == 0x00) {
|
|
lstrcpyW(suppliedsource, *argvW);
|
|
} else if (supplieddestination[0] == 0x00) {
|
|
lstrcpyW(supplieddestination, *argvW);
|
|
} else {
|
|
printf("Invalid number of parameters - Use xcopy /? for help\n");
|
|
return RC_INITERROR;
|
|
}
|
|
} else {
|
|
/* Process all the switch options */
|
|
switch (toupper(argvW[0][1])) {
|
|
case 'I': flags |= OPT_ASSUMEDIR; break;
|
|
case 'S': flags |= OPT_RECURSIVE; break;
|
|
case 'E': flags |= OPT_EMPTYDIR; break;
|
|
case 'Q': flags |= OPT_QUIET; break;
|
|
case 'F': flags |= OPT_FULL; break;
|
|
case 'L': flags |= OPT_SIMULATE; break;
|
|
default:
|
|
WINE_FIXME("Unhandled parameter '%s'\n", wine_dbgstr_w(*argvW));
|
|
}
|
|
}
|
|
argvW++;
|
|
}
|
|
|
|
/* Default the destination if not supplied */
|
|
if (supplieddestination[0] == 0x00)
|
|
lstrcpyW(supplieddestination, wchr_dot);
|
|
|
|
/* Trace out the supplied information */
|
|
WINE_TRACE("Supplied parameters:\n");
|
|
WINE_TRACE("Source : '%s'\n", wine_dbgstr_w(suppliedsource));
|
|
WINE_TRACE("Destination : '%s'\n", wine_dbgstr_w(supplieddestination));
|
|
|
|
/* Extract required information from source specification */
|
|
rc = XCOPY_ProcessSourceParm(suppliedsource, sourcestem, sourcespec);
|
|
|
|
/* Extract required information from destination specification */
|
|
rc = XCOPY_ProcessDestParm(supplieddestination, destinationstem,
|
|
destinationspec, sourcespec, flags);
|
|
|
|
/* Trace out the resulting information */
|
|
WINE_TRACE("Resolved parameters:\n");
|
|
WINE_TRACE("Source Stem : '%s'\n", wine_dbgstr_w(sourcestem));
|
|
WINE_TRACE("Source Spec : '%s'\n", wine_dbgstr_w(sourcespec));
|
|
WINE_TRACE("Dest Stem : '%s'\n", wine_dbgstr_w(destinationstem));
|
|
WINE_TRACE("Dest Spec : '%s'\n", wine_dbgstr_w(destinationspec));
|
|
|
|
/* Now do the hard work... */
|
|
rc = XCOPY_DoCopy(sourcestem, sourcespec,
|
|
destinationstem, destinationspec,
|
|
flags);
|
|
|
|
|
|
/* Finished - print trailer and exit */
|
|
if (flags & OPT_SIMULATE) {
|
|
printf("%d file(s) would be copied\n", filesCopied);
|
|
} else {
|
|
printf("%d file(s) copied\n", filesCopied);
|
|
}
|
|
if (rc == RC_OK && filesCopied == 0) rc = RC_NOFILES;
|
|
return rc;
|
|
|
|
}
|
|
|
|
|
|
/* =========================================================================
|
|
XCOPY_ProcessSourceParm - Takes the supplied source parameter, and
|
|
converts it into a stem and a filespec
|
|
========================================================================= */
|
|
static int XCOPY_ProcessSourceParm(WCHAR *suppliedsource, WCHAR *stem, WCHAR *spec)
|
|
{
|
|
WCHAR actualsource[MAX_PATH];
|
|
WCHAR *starPos;
|
|
WCHAR *questPos;
|
|
|
|
/*
|
|
* Validate the source, expanding to full path ensuring it exists
|
|
*/
|
|
if (GetFullPathName(suppliedsource, MAX_PATH, actualsource, NULL) == 0) {
|
|
WINE_FIXME("Unexpected failure expanding source path (%d)\n", GetLastError());
|
|
return RC_INITERROR;
|
|
}
|
|
|
|
/*
|
|
* Work out the stem of the source
|
|
*/
|
|
|
|
/* If no wildcard were supplied then the source is either a single
|
|
file or a directory - in which case thats the stem of the search,
|
|
otherwise split off the wildcards and use the higher level as the
|
|
stem */
|
|
lstrcpyW(stem, actualsource);
|
|
starPos = wcschr(stem, '*');
|
|
questPos = wcschr(stem, '?');
|
|
if (starPos || questPos) {
|
|
WCHAR *lastDir;
|
|
|
|
if (starPos) *starPos = 0x00;
|
|
if (questPos) *questPos = 0x00;
|
|
|
|
lastDir = wcsrchr(stem, '\\');
|
|
if (lastDir) *(lastDir+1) = 0x00;
|
|
else {
|
|
WINE_FIXME("Unexpected syntax error in source parameter\n");
|
|
return RC_INITERROR;
|
|
}
|
|
lstrcpyW(spec, actualsource + (lastDir - stem)+1);
|
|
} else {
|
|
|
|
DWORD attribs = GetFileAttributes(actualsource);
|
|
|
|
if (attribs == INVALID_FILE_ATTRIBUTES) {
|
|
LPWSTR lpMsgBuf;
|
|
DWORD lastError = GetLastError();
|
|
int status;
|
|
status = FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER |
|
|
FORMAT_MESSAGE_FROM_SYSTEM,
|
|
NULL, lastError, 0, (LPWSTR) &lpMsgBuf, 0, NULL);
|
|
printf("%S\n", lpMsgBuf);
|
|
return RC_INITERROR;
|
|
|
|
/* Directory: */
|
|
} else if (attribs & FILE_ATTRIBUTE_DIRECTORY) {
|
|
lstrcatW(stem, wchr_slash);
|
|
lstrcpyW(spec, wchr_star);
|
|
|
|
/* File: */
|
|
} else {
|
|
WCHAR drive[MAX_PATH];
|
|
WCHAR dir[MAX_PATH];
|
|
WCHAR fname[MAX_PATH];
|
|
WCHAR ext[MAX_PATH];
|
|
_wsplitpath(actualsource, drive, dir, fname, ext);
|
|
lstrcpyW(stem, drive);
|
|
lstrcatW(stem, dir);
|
|
lstrcpyW(spec, fname);
|
|
lstrcatW(spec, ext);
|
|
}
|
|
}
|
|
return RC_OK;
|
|
}
|
|
|
|
/* =========================================================================
|
|
XCOPY_ProcessDestParm - Takes the supplied destination parameter, and
|
|
converts it into a stem
|
|
========================================================================= */
|
|
static int XCOPY_ProcessDestParm(WCHAR *supplieddestination, WCHAR *stem, WCHAR *spec,
|
|
WCHAR *srcspec, DWORD flags)
|
|
{
|
|
WCHAR actualdestination[MAX_PATH];
|
|
DWORD attribs;
|
|
BOOL isDir = FALSE;
|
|
|
|
/*
|
|
* Validate the source, expanding to full path ensuring it exists
|
|
*/
|
|
if (GetFullPathName(supplieddestination, MAX_PATH, actualdestination, NULL) == 0) {
|
|
WINE_FIXME("Unexpected failure expanding source path (%d)\n", GetLastError());
|
|
return RC_INITERROR;
|
|
}
|
|
|
|
/* Destination is either a directory or a file */
|
|
attribs = GetFileAttributes(actualdestination);
|
|
|
|
if (attribs == INVALID_FILE_ATTRIBUTES) {
|
|
|
|
/* If /I supplied and wildcard copy, assume directory */
|
|
if (flags & OPT_ASSUMEDIR &&
|
|
(wcschr(srcspec, '?') || wcschr(srcspec, '*'))) {
|
|
|
|
isDir = TRUE;
|
|
|
|
} else {
|
|
DWORD count;
|
|
char answer[10] = "";
|
|
|
|
while (answer[0] != 'F' && answer[0] != 'D') {
|
|
printf("Is %S a filename or directory\n"
|
|
"on the target?\n"
|
|
"(F - File, D - Directory)\n", supplieddestination);
|
|
|
|
ReadFile(GetStdHandle(STD_INPUT_HANDLE), answer, sizeof(answer), &count, NULL);
|
|
WINE_TRACE("User answer %c\n", answer[0]);
|
|
|
|
answer[0] = toupper(answer[0]);
|
|
}
|
|
|
|
if (answer[0] == 'D') {
|
|
isDir = TRUE;
|
|
} else {
|
|
isDir = FALSE;
|
|
}
|
|
}
|
|
} else {
|
|
isDir = (attribs & FILE_ATTRIBUTE_DIRECTORY);
|
|
}
|
|
|
|
if (isDir) {
|
|
lstrcpyW(stem, actualdestination);
|
|
*spec = 0x00;
|
|
|
|
/* Ensure ends with a '\' */
|
|
if (stem[lstrlenW(stem)-1] != '\\') {
|
|
lstrcatW(stem, wchr_slash);
|
|
}
|
|
|
|
} else {
|
|
WCHAR drive[MAX_PATH];
|
|
WCHAR dir[MAX_PATH];
|
|
WCHAR fname[MAX_PATH];
|
|
WCHAR ext[MAX_PATH];
|
|
_wsplitpath(actualdestination, drive, dir, fname, ext);
|
|
lstrcpyW(stem, drive);
|
|
lstrcatW(stem, dir);
|
|
lstrcpyW(spec, fname);
|
|
lstrcatW(spec, ext);
|
|
}
|
|
return RC_OK;
|
|
}
|
|
|
|
/* =========================================================================
|
|
XCOPY_DoCopy - Recursive function to copy files based on input parms
|
|
of a stem and a spec
|
|
|
|
This works by using FindFirstFile supplying the source stem and spec.
|
|
If results are found, any non-directory ones are processed
|
|
Then, if /S or /E is supplied, another search is made just for
|
|
directories, and this function is called again for that directory
|
|
|
|
========================================================================= */
|
|
static int XCOPY_DoCopy(WCHAR *srcstem, WCHAR *srcspec,
|
|
WCHAR *deststem, WCHAR *destspec,
|
|
DWORD flags)
|
|
{
|
|
WIN32_FIND_DATA *finddata;
|
|
HANDLE h;
|
|
BOOL findres = TRUE;
|
|
WCHAR *inputpath, *outputpath;
|
|
BOOL copiedFile = FALSE;
|
|
|
|
/* Allocate some working memory on heap to minimize footprint */
|
|
finddata = HeapAlloc(GetProcessHeap(), 0, sizeof(WIN32_FIND_DATA));
|
|
inputpath = HeapAlloc(GetProcessHeap(), 0, MAX_PATH * sizeof(WCHAR));
|
|
outputpath = HeapAlloc(GetProcessHeap(), 0, MAX_PATH * sizeof(WCHAR));
|
|
|
|
/* Build the search info into a single parm */
|
|
lstrcpyW(inputpath, srcstem);
|
|
lstrcatW(inputpath, srcspec);
|
|
|
|
/* Search 1 - Look for matching files */
|
|
h = FindFirstFile(inputpath, finddata);
|
|
while (h != INVALID_HANDLE_VALUE && findres) {
|
|
|
|
/* Ignore . and .. */
|
|
if (lstrcmpW(finddata->cFileName, wchr_dot)==0 ||
|
|
lstrcmpW(finddata->cFileName, wchr_dotdot)==0 ||
|
|
finddata->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
|
|
|
|
WINE_TRACE("Skipping directory, . or .. (%s)\n", wine_dbgstr_w(finddata->cFileName));
|
|
} else {
|
|
|
|
/* Get the filename information */
|
|
lstrcpyW(copyFrom, srcstem);
|
|
lstrcatW(copyFrom, finddata->cFileName);
|
|
|
|
lstrcpyW(copyTo, deststem);
|
|
if (*destspec == 0x00) {
|
|
lstrcatW(copyTo, finddata->cFileName);
|
|
} else {
|
|
lstrcatW(copyTo, destspec);
|
|
}
|
|
|
|
/* Do the copy */
|
|
WINE_TRACE("ACTION: Copy '%s' -> '%s'\n", wine_dbgstr_w(copyFrom),
|
|
wine_dbgstr_w(copyTo));
|
|
if (!copiedFile && !(flags & OPT_SIMULATE)) XCOPY_CreateDirectory(deststem);
|
|
|
|
/* Output a status message */
|
|
if (flags & OPT_QUIET) {
|
|
/* Skip message */
|
|
} else if (flags & OPT_FULL) {
|
|
printf("%S -> %S\n", copyFrom, copyTo);
|
|
} else {
|
|
printf("%S\n", copyFrom);
|
|
}
|
|
|
|
copiedFile = TRUE;
|
|
if (flags & OPT_SIMULATE) {
|
|
/* Skip copy as just simulating */
|
|
} else if (CopyFile(copyFrom, copyTo, TRUE) == 0) {
|
|
printf("Copying of '%S' to '%S' failed with r/c %d\n",
|
|
copyFrom, copyTo, GetLastError());
|
|
}
|
|
filesCopied++;
|
|
}
|
|
|
|
/* Find next file */
|
|
findres = FindNextFile(h, finddata);
|
|
}
|
|
FindClose(h);
|
|
|
|
/* Search 2 - do subdirs */
|
|
if (flags & OPT_RECURSIVE) {
|
|
lstrcpyW(inputpath, srcstem);
|
|
lstrcatW(inputpath, wchr_star);
|
|
findres = TRUE;
|
|
WINE_TRACE("Processing subdirs with spec: %s\n", wine_dbgstr_w(inputpath));
|
|
|
|
h = FindFirstFile(inputpath, finddata);
|
|
while (h != INVALID_HANDLE_VALUE && findres) {
|
|
|
|
/* Only looking for dirs */
|
|
if ((finddata->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) &&
|
|
(lstrcmpW(finddata->cFileName, wchr_dot) != 0) &&
|
|
(lstrcmpW(finddata->cFileName, wchr_dotdot) != 0)) {
|
|
|
|
WINE_TRACE("Handling subdir: %s\n", wine_dbgstr_w(finddata->cFileName));
|
|
|
|
/* Make up recursive information */
|
|
lstrcpyW(inputpath, srcstem);
|
|
lstrcatW(inputpath, finddata->cFileName);
|
|
lstrcatW(inputpath, wchr_slash);
|
|
|
|
lstrcpyW(outputpath, deststem);
|
|
if (*destspec == 0x00) {
|
|
lstrcatW(outputpath, finddata->cFileName);
|
|
|
|
/* If /E is supplied, create the directory now */
|
|
if ((flags & OPT_EMPTYDIR) &&
|
|
!(flags & OPT_SIMULATE))
|
|
XCOPY_CreateDirectory(outputpath);
|
|
|
|
lstrcatW(outputpath, wchr_slash);
|
|
}
|
|
|
|
XCOPY_DoCopy(inputpath, srcspec, outputpath, destspec, flags);
|
|
}
|
|
|
|
/* Find next one */
|
|
findres = FindNextFile(h, finddata);
|
|
}
|
|
}
|
|
|
|
/* free up memory */
|
|
HeapFree(GetProcessHeap(), 0, finddata);
|
|
HeapFree(GetProcessHeap(), 0, inputpath);
|
|
HeapFree(GetProcessHeap(), 0, outputpath);
|
|
|
|
return 0;
|
|
}
|
|
|
|
/* =========================================================================
|
|
* Routine copied from cmd.exe md command -
|
|
* This works recursivly. so creating dir1\dir2\dir3 will create dir1 and
|
|
* dir2 if they do not already exist.
|
|
* ========================================================================= */
|
|
static BOOL XCOPY_CreateDirectory(const WCHAR* path)
|
|
{
|
|
int len;
|
|
WCHAR *new_path;
|
|
BOOL ret = TRUE;
|
|
|
|
new_path = HeapAlloc(GetProcessHeap(),0, sizeof(WCHAR) * (lstrlenW(path)+1));
|
|
lstrcpyW(new_path,path);
|
|
|
|
while ((len = lstrlenW(new_path)) && new_path[len - 1] == '\\')
|
|
new_path[len - 1] = 0;
|
|
|
|
while (!CreateDirectory(new_path,NULL))
|
|
{
|
|
WCHAR *slash;
|
|
DWORD last_error = GetLastError();
|
|
if (last_error == ERROR_ALREADY_EXISTS)
|
|
break;
|
|
|
|
if (last_error != ERROR_PATH_NOT_FOUND)
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
|
|
if (!(slash = wcsrchr(new_path,'\\')) && ! (slash = wcsrchr(new_path,'/')))
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
|
|
len = slash - new_path;
|
|
new_path[len] = 0;
|
|
if (!XCOPY_CreateDirectory(new_path))
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
new_path[len] = '\\';
|
|
}
|
|
HeapFree(GetProcessHeap(),0,new_path);
|
|
return ret;
|
|
}
|