1993 lines
52 KiB
C
1993 lines
52 KiB
C
/*
|
|
* CMD - Wine-compatible command line interface - built-in functions.
|
|
*
|
|
* Copyright (C) 1999 D A Pickles
|
|
*
|
|
* 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:
|
|
* On entry to each function, global variables quals, param1, param2 contain
|
|
* the qualifiers (uppercased and concatenated) and parameters entered, with
|
|
* environment-variable and batch parameter substitution already done.
|
|
*/
|
|
|
|
/*
|
|
* FIXME:
|
|
* - No support for pipes, shell parameters
|
|
* - Lots of functionality missing from builtins
|
|
* - Messages etc need international support
|
|
*/
|
|
|
|
#define WIN32_LEAN_AND_MEAN
|
|
|
|
#include "wcmd.h"
|
|
#include <shellapi.h>
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(cmd);
|
|
|
|
void WCMD_execute (char *orig_command, char *parameter, char *substitution);
|
|
|
|
struct env_stack *saved_environment;
|
|
struct env_stack *pushd_directories;
|
|
|
|
extern HINSTANCE hinst;
|
|
extern char *inbuilt[];
|
|
extern int echo_mode, verify_mode, defaultColor;
|
|
extern char quals[MAX_PATH], param1[MAX_PATH], param2[MAX_PATH];
|
|
extern BATCH_CONTEXT *context;
|
|
extern DWORD errorlevel;
|
|
|
|
|
|
|
|
/****************************************************************************
|
|
* WCMD_clear_screen
|
|
*
|
|
* Clear the terminal screen.
|
|
*/
|
|
|
|
void WCMD_clear_screen (void) {
|
|
|
|
/* Emulate by filling the screen from the top left to bottom right with
|
|
spaces, then moving the cursor to the top left afterwards */
|
|
CONSOLE_SCREEN_BUFFER_INFO consoleInfo;
|
|
HANDLE hStdOut = GetStdHandle(STD_OUTPUT_HANDLE);
|
|
|
|
if (GetConsoleScreenBufferInfo(hStdOut, &consoleInfo))
|
|
{
|
|
COORD topLeft;
|
|
DWORD screenSize;
|
|
|
|
screenSize = consoleInfo.dwSize.X * (consoleInfo.dwSize.Y + 1);
|
|
|
|
topLeft.X = 0;
|
|
topLeft.Y = 0;
|
|
FillConsoleOutputCharacter(hStdOut, ' ', screenSize, topLeft, &screenSize);
|
|
SetConsoleCursorPosition(hStdOut, topLeft);
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_change_tty
|
|
*
|
|
* Change the default i/o device (ie redirect STDin/STDout).
|
|
*/
|
|
|
|
void WCMD_change_tty (void) {
|
|
|
|
WCMD_output (nyi);
|
|
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_copy
|
|
*
|
|
* Copy a file or wildcarded set.
|
|
* FIXME: No wildcard support
|
|
*/
|
|
|
|
void WCMD_copy (void) {
|
|
|
|
DWORD count;
|
|
WIN32_FIND_DATA fd;
|
|
HANDLE hff;
|
|
BOOL force, status;
|
|
static const char overwrite[] = "Overwrite file (Y/N)?";
|
|
char string[8], outpath[MAX_PATH], inpath[MAX_PATH], *infile, copycmd[3];
|
|
DWORD len;
|
|
|
|
if (param1[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
|
|
if ((strchr(param1,'*') != NULL) && (strchr(param1,'%') != NULL)) {
|
|
WCMD_output ("Wildcards not yet supported\n");
|
|
return;
|
|
}
|
|
|
|
/* If no destination supplied, assume current directory */
|
|
if (param2[0] == 0x00) {
|
|
strcpy(param2, ".");
|
|
}
|
|
|
|
GetFullPathName (param2, sizeof(outpath), outpath, NULL);
|
|
if (outpath[strlen(outpath) - 1] == '\\')
|
|
outpath[strlen(outpath) - 1] = '\0';
|
|
hff = FindFirstFile (outpath, &fd);
|
|
if (hff != INVALID_HANDLE_VALUE) {
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
|
|
GetFullPathName (param1, sizeof(inpath), inpath, &infile);
|
|
strcat (outpath, "\\");
|
|
strcat (outpath, infile);
|
|
}
|
|
FindClose (hff);
|
|
}
|
|
|
|
/* /-Y has the highest priority, then /Y and finally the COPYCMD env. variable */
|
|
if (strstr (quals, "/-Y"))
|
|
force = FALSE;
|
|
else if (strstr (quals, "/Y"))
|
|
force = TRUE;
|
|
else {
|
|
len = GetEnvironmentVariable ("COPYCMD", copycmd, sizeof(copycmd));
|
|
force = (len && len < sizeof(copycmd) && ! lstrcmpi (copycmd, "/Y"));
|
|
}
|
|
|
|
if (!force) {
|
|
hff = FindFirstFile (outpath, &fd);
|
|
if (hff != INVALID_HANDLE_VALUE) {
|
|
FindClose (hff);
|
|
WCMD_output (overwrite);
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), string, sizeof(string), &count, NULL);
|
|
if (toupper(string[0]) == 'Y') force = TRUE;
|
|
}
|
|
else force = TRUE;
|
|
}
|
|
if (force) {
|
|
status = CopyFile (param1, outpath, FALSE);
|
|
if (!status) WCMD_print_error ();
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_create_dir
|
|
*
|
|
* Create a directory.
|
|
*
|
|
* this works recursivly. so mkdir dir1\dir2\dir3 will create dir1 and dir2 if
|
|
* they do not already exist.
|
|
*/
|
|
|
|
static BOOL create_full_path(CHAR* path)
|
|
{
|
|
int len;
|
|
CHAR *new_path;
|
|
BOOL ret = TRUE;
|
|
|
|
new_path = HeapAlloc(GetProcessHeap(),0,strlen(path)+1);
|
|
strcpy(new_path,path);
|
|
|
|
while ((len = strlen(new_path)) && new_path[len - 1] == '\\')
|
|
new_path[len - 1] = 0;
|
|
|
|
while (!CreateDirectory(new_path,NULL))
|
|
{
|
|
CHAR *slash;
|
|
DWORD last_error = GetLastError();
|
|
if (last_error == ERROR_ALREADY_EXISTS)
|
|
break;
|
|
|
|
if (last_error != ERROR_PATH_NOT_FOUND)
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
|
|
if (!(slash = strrchr(new_path,'\\')) && ! (slash = strrchr(new_path,'/')))
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
|
|
len = slash - new_path;
|
|
new_path[len] = 0;
|
|
if (!create_full_path(new_path))
|
|
{
|
|
ret = FALSE;
|
|
break;
|
|
}
|
|
new_path[len] = '\\';
|
|
}
|
|
HeapFree(GetProcessHeap(),0,new_path);
|
|
return ret;
|
|
}
|
|
|
|
void WCMD_create_dir (void) {
|
|
|
|
if (param1[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
if (!create_full_path(param1)) WCMD_print_error ();
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_delete
|
|
*
|
|
* Delete a file or wildcarded set.
|
|
*
|
|
* Note on /A:
|
|
* - Testing shows /A is repeatable, eg. /a-r /ar matches all files
|
|
* - Each set is a pattern, eg /ahr /as-r means
|
|
* readonly+hidden OR nonreadonly system files
|
|
* - The '-' applies to a single field, ie /a:-hr means read only
|
|
* non-hidden files
|
|
*/
|
|
|
|
void WCMD_delete (char *command) {
|
|
|
|
int argno = 0;
|
|
int argsProcessed = 0;
|
|
char *argN = command;
|
|
|
|
/* Loop through all args */
|
|
while (argN) {
|
|
char *thisArg = WCMD_parameter (command, argno++, &argN);
|
|
if (argN && argN[0] != '/') {
|
|
|
|
WIN32_FIND_DATA fd;
|
|
HANDLE hff;
|
|
char fpath[MAX_PATH];
|
|
char *p;
|
|
|
|
|
|
WINE_TRACE("del: Processing arg %s (quals:%s)\n", thisArg, quals);
|
|
argsProcessed++;
|
|
|
|
/* If filename part of parameter is * or *.*, prompt unless
|
|
/Q supplied. */
|
|
if ((strstr (quals, "/Q") == NULL) && (strstr (quals, "/P") == NULL)) {
|
|
|
|
char drive[10];
|
|
char dir[MAX_PATH];
|
|
char fname[MAX_PATH];
|
|
char ext[MAX_PATH];
|
|
|
|
/* Convert path into actual directory spec */
|
|
GetFullPathName (thisArg, sizeof(fpath), fpath, NULL);
|
|
WCMD_splitpath(fpath, drive, dir, fname, ext);
|
|
|
|
/* Only prompt for * and *.*, not *a, a*, *.a* etc */
|
|
if ((strcmp(fname, "*") == 0) &&
|
|
(*ext == 0x00 || (strcmp(ext, ".*") == 0))) {
|
|
BOOL ok;
|
|
char question[MAXSTRING];
|
|
|
|
/* Ask for confirmation */
|
|
sprintf(question, "%s, ", fpath);
|
|
ok = WCMD_ask_confirm(question, TRUE);
|
|
|
|
/* Abort if answer is 'N' */
|
|
if (!ok) continue;
|
|
}
|
|
}
|
|
|
|
hff = FindFirstFile (thisArg, &fd);
|
|
if (hff == INVALID_HANDLE_VALUE) {
|
|
WCMD_output ("%s :File Not Found\n", thisArg);
|
|
continue;
|
|
}
|
|
/* Support del <dirname> by just deleting all files dirname\* */
|
|
if ((strchr(thisArg,'*') == NULL) && (strchr(thisArg,'?') == NULL)
|
|
&& (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
char modifiedParm[MAX_PATH];
|
|
strcpy(modifiedParm, thisArg);
|
|
strcat(modifiedParm, "\\*");
|
|
FindClose(hff);
|
|
WCMD_delete(modifiedParm);
|
|
continue;
|
|
|
|
} else {
|
|
|
|
/* Build the filename to delete as <supplied directory>\<findfirst filename> */
|
|
strcpy (fpath, thisArg);
|
|
do {
|
|
p = strrchr (fpath, '\\');
|
|
if (p != NULL) {
|
|
*++p = '\0';
|
|
strcat (fpath, fd.cFileName);
|
|
}
|
|
else strcpy (fpath, fd.cFileName);
|
|
if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
BOOL ok = TRUE;
|
|
char *nextA = strstr (quals, "/A");
|
|
|
|
/* Handle attribute matching (/A) */
|
|
if (nextA != NULL) {
|
|
ok = FALSE;
|
|
while (nextA != NULL && !ok) {
|
|
|
|
char *thisA = (nextA+2);
|
|
BOOL stillOK = TRUE;
|
|
|
|
/* Skip optional : */
|
|
if (*thisA == ':') thisA++;
|
|
|
|
/* Parse each of the /A[:]xxx in turn */
|
|
while (*thisA && *thisA != '/') {
|
|
BOOL negate = FALSE;
|
|
BOOL attribute = FALSE;
|
|
|
|
/* Match negation of attribute first */
|
|
if (*thisA == '-') {
|
|
negate=TRUE;
|
|
thisA++;
|
|
}
|
|
|
|
/* Match attribute */
|
|
switch (*thisA) {
|
|
case 'R': attribute = (fd.dwFileAttributes & FILE_ATTRIBUTE_READONLY);
|
|
break;
|
|
case 'H': attribute = (fd.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN);
|
|
break;
|
|
case 'S': attribute = (fd.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM);
|
|
break;
|
|
case 'A': attribute = (fd.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE);
|
|
break;
|
|
default:
|
|
WCMD_output ("Syntax error\n");
|
|
}
|
|
|
|
/* Now check result, keeping a running boolean about whether it
|
|
matches all parsed attribues so far */
|
|
if (attribute && !negate) {
|
|
stillOK = stillOK;
|
|
} else if (!attribute && negate) {
|
|
stillOK = stillOK;
|
|
} else {
|
|
stillOK = FALSE;
|
|
}
|
|
thisA++;
|
|
}
|
|
|
|
/* Save the running total as the final result */
|
|
ok = stillOK;
|
|
|
|
/* Step on to next /A set */
|
|
nextA = strstr (nextA+1, "/A");
|
|
}
|
|
}
|
|
|
|
/* /P means prompt for each file */
|
|
if (ok && strstr (quals, "/P") != NULL) {
|
|
char question[MAXSTRING];
|
|
|
|
/* Ask for confirmation */
|
|
sprintf(question, "%s, Delete", fpath);
|
|
ok = WCMD_ask_confirm(question, FALSE);
|
|
}
|
|
|
|
/* Only proceed if ok to */
|
|
if (ok) {
|
|
|
|
/* If file is read only, and /F supplied, delete it */
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_READONLY &&
|
|
strstr (quals, "/F") != NULL) {
|
|
SetFileAttributes(fpath, fd.dwFileAttributes & ~FILE_ATTRIBUTE_READONLY);
|
|
}
|
|
|
|
/* Now do the delete */
|
|
if (!DeleteFile (fpath)) WCMD_print_error ();
|
|
}
|
|
|
|
}
|
|
} while (FindNextFile(hff, &fd) != 0);
|
|
FindClose (hff);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Handle no valid args */
|
|
if (argsProcessed == 0) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_echo
|
|
*
|
|
* Echo input to the screen (or not). We don't try to emulate the bugs
|
|
* in DOS (try typing "ECHO ON AGAIN" for an example).
|
|
*/
|
|
|
|
void WCMD_echo (const char *command) {
|
|
|
|
static const char eon[] = "Echo is ON\n", eoff[] = "Echo is OFF\n";
|
|
int count;
|
|
|
|
if ((command[0] == '.') && (command[1] == 0)) {
|
|
WCMD_output (newline);
|
|
return;
|
|
}
|
|
if (command[0]==' ')
|
|
command++;
|
|
count = strlen(command);
|
|
if (count == 0) {
|
|
if (echo_mode) WCMD_output (eon);
|
|
else WCMD_output (eoff);
|
|
return;
|
|
}
|
|
if (lstrcmpi(command, "ON") == 0) {
|
|
echo_mode = 1;
|
|
return;
|
|
}
|
|
if (lstrcmpi(command, "OFF") == 0) {
|
|
echo_mode = 0;
|
|
return;
|
|
}
|
|
WCMD_output_asis (command);
|
|
WCMD_output (newline);
|
|
|
|
}
|
|
|
|
/**************************************************************************
|
|
* WCMD_for
|
|
*
|
|
* Batch file loop processing.
|
|
* FIXME: We don't exhaustively check syntax. Any command which works in MessDOS
|
|
* will probably work here, but the reverse is not necessarily the case...
|
|
*/
|
|
|
|
void WCMD_for (char *p) {
|
|
|
|
WIN32_FIND_DATA fd;
|
|
HANDLE hff;
|
|
char *cmd, *item;
|
|
char set[MAX_PATH], param[MAX_PATH];
|
|
int i;
|
|
|
|
if (lstrcmpi (WCMD_parameter (p, 1, NULL), "in")
|
|
|| lstrcmpi (WCMD_parameter (p, 3, NULL), "do")
|
|
|| (param1[0] != '%')) {
|
|
WCMD_output ("Syntax error\n");
|
|
return;
|
|
}
|
|
lstrcpyn (set, WCMD_parameter (p, 2, NULL), sizeof(set));
|
|
WCMD_parameter (p, 4, &cmd);
|
|
lstrcpy (param, param1);
|
|
|
|
/*
|
|
* If the parameter within the set has a wildcard then search for matching files
|
|
* otherwise do a literal substitution.
|
|
*/
|
|
|
|
i = 0;
|
|
while (*(item = WCMD_parameter (set, i, NULL))) {
|
|
if (strpbrk (item, "*?")) {
|
|
hff = FindFirstFile (item, &fd);
|
|
if (hff == INVALID_HANDLE_VALUE) {
|
|
return;
|
|
}
|
|
do {
|
|
WCMD_execute (cmd, param, fd.cFileName);
|
|
} while (FindNextFile(hff, &fd) != 0);
|
|
FindClose (hff);
|
|
}
|
|
else {
|
|
WCMD_execute (cmd, param, item);
|
|
}
|
|
i++;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_Execute
|
|
*
|
|
* Execute a command after substituting variable text for the supplied parameter
|
|
*/
|
|
|
|
void WCMD_execute (char *orig_cmd, char *param, char *subst) {
|
|
|
|
char *new_cmd, *p, *s, *dup;
|
|
int size;
|
|
|
|
size = lstrlen (orig_cmd);
|
|
new_cmd = (char *) LocalAlloc (LMEM_FIXED | LMEM_ZEROINIT, size);
|
|
dup = s = strdup (orig_cmd);
|
|
|
|
while ((p = strstr (s, param))) {
|
|
*p = '\0';
|
|
size += lstrlen (subst);
|
|
new_cmd = (char *) LocalReAlloc ((HANDLE)new_cmd, size, 0);
|
|
strcat (new_cmd, s);
|
|
strcat (new_cmd, subst);
|
|
s = p + lstrlen (param);
|
|
}
|
|
strcat (new_cmd, s);
|
|
WCMD_process_command (new_cmd);
|
|
free (dup);
|
|
LocalFree ((HANDLE)new_cmd);
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* WCMD_give_help
|
|
*
|
|
* Simple on-line help. Help text is stored in the resource file.
|
|
*/
|
|
|
|
void WCMD_give_help (char *command) {
|
|
|
|
int i;
|
|
char buffer[2048];
|
|
|
|
command = WCMD_strtrim_leading_spaces(command);
|
|
if (lstrlen(command) == 0) {
|
|
LoadString (hinst, 1000, buffer, sizeof(buffer));
|
|
WCMD_output_asis (buffer);
|
|
}
|
|
else {
|
|
for (i=0; i<=WCMD_EXIT; i++) {
|
|
if (CompareString (LOCALE_USER_DEFAULT, NORM_IGNORECASE | SORT_STRINGSORT,
|
|
param1, -1, inbuilt[i], -1) == 2) {
|
|
LoadString (hinst, i, buffer, sizeof(buffer));
|
|
WCMD_output_asis (buffer);
|
|
return;
|
|
}
|
|
}
|
|
WCMD_output ("No help available for %s\n", param1);
|
|
}
|
|
return;
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_go_to
|
|
*
|
|
* Batch file jump instruction. Not the most efficient algorithm ;-)
|
|
* Prints error message if the specified label cannot be found - the file pointer is
|
|
* then at EOF, effectively stopping the batch file.
|
|
* FIXME: DOS is supposed to allow labels with spaces - we don't.
|
|
*/
|
|
|
|
void WCMD_goto (void) {
|
|
|
|
char string[MAX_PATH];
|
|
|
|
if (param1[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
if (context != NULL) {
|
|
char *paramStart = param1;
|
|
|
|
/* Handle special :EOF label */
|
|
if (lstrcmpi (":eof", param1) == 0) {
|
|
context -> skip_rest = TRUE;
|
|
return;
|
|
}
|
|
|
|
/* Support goto :label as well as goto label */
|
|
if (*paramStart == ':') paramStart++;
|
|
|
|
SetFilePointer (context -> h, 0, NULL, FILE_BEGIN);
|
|
while (WCMD_fgets (string, sizeof(string), context -> h)) {
|
|
if ((string[0] == ':') && (lstrcmpi (&string[1], paramStart) == 0)) return;
|
|
}
|
|
WCMD_output ("Target to GOTO not found\n");
|
|
}
|
|
return;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_pushd
|
|
*
|
|
* Push a directory onto the stack
|
|
*/
|
|
|
|
void WCMD_pushd (char *command) {
|
|
struct env_stack *curdir;
|
|
WCHAR *thisdir;
|
|
|
|
if (strchr(command, '/') != NULL) {
|
|
SetLastError(ERROR_INVALID_PARAMETER);
|
|
WCMD_print_error();
|
|
return;
|
|
}
|
|
|
|
curdir = LocalAlloc (LMEM_FIXED, sizeof (struct env_stack));
|
|
thisdir = LocalAlloc (LMEM_FIXED, 1024 * sizeof(WCHAR));
|
|
if( !curdir || !thisdir ) {
|
|
LocalFree(curdir);
|
|
LocalFree(thisdir);
|
|
WCMD_output ("out of memory\n");
|
|
return;
|
|
}
|
|
|
|
/* Change directory using CD code with /D parameter */
|
|
strcpy(quals, "/D");
|
|
GetCurrentDirectoryW (1024, thisdir);
|
|
errorlevel = 0;
|
|
WCMD_setshow_default(command);
|
|
if (errorlevel) {
|
|
LocalFree(curdir);
|
|
LocalFree(thisdir);
|
|
return;
|
|
} else {
|
|
curdir -> next = pushd_directories;
|
|
curdir -> strings = thisdir;
|
|
if (pushd_directories == NULL) {
|
|
curdir -> u.stackdepth = 1;
|
|
} else {
|
|
curdir -> u.stackdepth = pushd_directories -> u.stackdepth + 1;
|
|
}
|
|
pushd_directories = curdir;
|
|
}
|
|
}
|
|
|
|
|
|
/*****************************************************************************
|
|
* WCMD_popd
|
|
*
|
|
* Pop a directory from the stack
|
|
*/
|
|
|
|
void WCMD_popd (void) {
|
|
struct env_stack *temp = pushd_directories;
|
|
|
|
if (!pushd_directories)
|
|
return;
|
|
|
|
/* pop the old environment from the stack, and make it the current dir */
|
|
pushd_directories = temp->next;
|
|
SetCurrentDirectoryW(temp->strings);
|
|
LocalFree (temp->strings);
|
|
LocalFree (temp);
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_if
|
|
*
|
|
* Batch file conditional.
|
|
* FIXME: Much more syntax checking needed!
|
|
*/
|
|
|
|
void WCMD_if (char *p) {
|
|
|
|
int negate = 0, test = 0;
|
|
char condition[MAX_PATH], *command, *s;
|
|
|
|
if (!lstrcmpi (param1, "not")) {
|
|
negate = 1;
|
|
lstrcpy (condition, param2);
|
|
}
|
|
else {
|
|
lstrcpy (condition, param1);
|
|
}
|
|
if (!lstrcmpi (condition, "errorlevel")) {
|
|
if (errorlevel >= atoi(WCMD_parameter (p, 1+negate, NULL))) test = 1;
|
|
WCMD_parameter (p, 2+negate, &command);
|
|
}
|
|
else if (!lstrcmpi (condition, "exist")) {
|
|
if (GetFileAttributesA(WCMD_parameter (p, 1+negate, NULL)) != INVALID_FILE_ATTRIBUTES) {
|
|
test = 1;
|
|
}
|
|
WCMD_parameter (p, 2+negate, &command);
|
|
}
|
|
else if (!lstrcmpi (condition, "defined")) {
|
|
if (GetEnvironmentVariableA(WCMD_parameter (p, 1+negate, NULL), NULL, 0) > 0) {
|
|
test = 1;
|
|
}
|
|
WCMD_parameter (p, 2+negate, &command);
|
|
}
|
|
else if ((s = strstr (p, "=="))) {
|
|
s += 2;
|
|
if (!lstrcmpi (condition, WCMD_parameter (s, 0, NULL))) test = 1;
|
|
WCMD_parameter (s, 1, &command);
|
|
}
|
|
else {
|
|
WCMD_output ("Syntax error\n");
|
|
return;
|
|
}
|
|
if (test != negate) {
|
|
command = strdup (command);
|
|
WCMD_process_command (command);
|
|
free (command);
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_move
|
|
*
|
|
* Move a file, directory tree or wildcarded set of files.
|
|
* FIXME: Needs input and output files to be fully specified.
|
|
*/
|
|
|
|
void WCMD_move (void) {
|
|
|
|
int status;
|
|
char outpath[MAX_PATH], inpath[MAX_PATH], *infile;
|
|
WIN32_FIND_DATA fd;
|
|
HANDLE hff;
|
|
|
|
if (param1[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
|
|
if ((strchr(param1,'*') != NULL) || (strchr(param1,'%') != NULL)) {
|
|
WCMD_output ("Wildcards not yet supported\n");
|
|
return;
|
|
}
|
|
|
|
/* If no destination supplied, assume current directory */
|
|
if (param2[0] == 0x00) {
|
|
strcpy(param2, ".");
|
|
}
|
|
|
|
/* If 2nd parm is directory, then use original filename */
|
|
GetFullPathName (param2, sizeof(outpath), outpath, NULL);
|
|
if (outpath[strlen(outpath) - 1] == '\\')
|
|
outpath[strlen(outpath) - 1] = '\0';
|
|
hff = FindFirstFile (outpath, &fd);
|
|
if (hff != INVALID_HANDLE_VALUE) {
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
|
|
GetFullPathName (param1, sizeof(inpath), inpath, &infile);
|
|
strcat (outpath, "\\");
|
|
strcat (outpath, infile);
|
|
}
|
|
FindClose (hff);
|
|
}
|
|
|
|
status = MoveFile (param1, outpath);
|
|
if (!status) WCMD_print_error ();
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_pause
|
|
*
|
|
* Wait for keyboard input.
|
|
*/
|
|
|
|
void WCMD_pause (void) {
|
|
|
|
DWORD count;
|
|
char string[32];
|
|
|
|
WCMD_output (anykey);
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), string, sizeof(string), &count, NULL);
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_remove_dir
|
|
*
|
|
* Delete a directory.
|
|
*/
|
|
|
|
void WCMD_remove_dir (char *command) {
|
|
|
|
int argno = 0;
|
|
int argsProcessed = 0;
|
|
char *argN = command;
|
|
|
|
/* Loop through all args */
|
|
while (argN) {
|
|
char *thisArg = WCMD_parameter (command, argno++, &argN);
|
|
if (argN && argN[0] != '/') {
|
|
WINE_TRACE("rd: Processing arg %s (quals:%s)\n", thisArg, quals);
|
|
argsProcessed++;
|
|
|
|
/* If subdirectory search not supplied, just try to remove
|
|
and report error if it fails (eg if it contains a file) */
|
|
if (strstr (quals, "/S") == NULL) {
|
|
if (!RemoveDirectory (thisArg)) WCMD_print_error ();
|
|
|
|
/* Otherwise use ShFileOp to recursively remove a directory */
|
|
} else {
|
|
|
|
SHFILEOPSTRUCT lpDir;
|
|
|
|
/* Ask first */
|
|
if (strstr (quals, "/Q") == NULL) {
|
|
BOOL ok;
|
|
char question[MAXSTRING];
|
|
|
|
/* Ask for confirmation */
|
|
sprintf(question, "%s, ", thisArg);
|
|
ok = WCMD_ask_confirm(question, TRUE);
|
|
|
|
/* Abort if answer is 'N' */
|
|
if (!ok) return;
|
|
}
|
|
|
|
/* Do the delete */
|
|
lpDir.hwnd = NULL;
|
|
lpDir.pTo = NULL;
|
|
lpDir.pFrom = thisArg;
|
|
lpDir.fFlags = FOF_SILENT | FOF_NOCONFIRMATION | FOF_NOERRORUI;
|
|
lpDir.wFunc = FO_DELETE;
|
|
if (SHFileOperationA(&lpDir)) WCMD_print_error ();
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Handle no valid args */
|
|
if (argsProcessed == 0) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_rename
|
|
*
|
|
* Rename a file.
|
|
* FIXME: Needs input and output files to be fully specified.
|
|
*/
|
|
|
|
void WCMD_rename (void) {
|
|
|
|
int status;
|
|
HANDLE hff;
|
|
WIN32_FIND_DATA fd;
|
|
char input[MAX_PATH];
|
|
char *dotDst = NULL;
|
|
char drive[10];
|
|
char dir[MAX_PATH];
|
|
char fname[MAX_PATH];
|
|
char ext[MAX_PATH];
|
|
DWORD attribs;
|
|
|
|
errorlevel = 0;
|
|
|
|
/* Must be at least two args */
|
|
if (param1[0] == 0x00 || param2[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
errorlevel = 1;
|
|
return;
|
|
}
|
|
|
|
/* Destination cannot contain a drive letter or directory separator */
|
|
if ((strchr(param1,':') != NULL) || (strchr(param1,'\\') != NULL)) {
|
|
SetLastError(ERROR_INVALID_PARAMETER);
|
|
WCMD_print_error();
|
|
errorlevel = 1;
|
|
return;
|
|
}
|
|
|
|
/* Convert partial path to full path */
|
|
GetFullPathName (param1, sizeof(input), input, NULL);
|
|
WINE_TRACE("Rename from '%s'('%s') to '%s'\n", input, param1, param2);
|
|
dotDst = strchr(param2, '.');
|
|
|
|
/* Split into components */
|
|
WCMD_splitpath(input, drive, dir, fname, ext);
|
|
|
|
hff = FindFirstFile (input, &fd);
|
|
while (hff != INVALID_HANDLE_VALUE) {
|
|
char dest[MAX_PATH];
|
|
char src[MAX_PATH];
|
|
char *dotSrc = NULL;
|
|
int dirLen;
|
|
|
|
WINE_TRACE("Processing file '%s'\n", fd.cFileName);
|
|
|
|
/* FIXME: If dest name or extension is *, replace with filename/ext
|
|
part otherwise use supplied name. This supports:
|
|
ren *.fred *.jim
|
|
ren jim.* fred.* etc
|
|
However, windows has a more complex algorithum supporting eg
|
|
?'s and *'s mid name */
|
|
dotSrc = strchr(fd.cFileName, '.');
|
|
|
|
/* Build src & dest name */
|
|
strcpy(src, drive);
|
|
strcat(src, dir);
|
|
strcpy(dest, src);
|
|
dirLen = strlen(src);
|
|
strcat(src, fd.cFileName);
|
|
|
|
/* Build name */
|
|
if (param2[0] == '*') {
|
|
strcat(dest, fd.cFileName);
|
|
if (dotSrc) dest[dirLen + (dotSrc - fd.cFileName)] = 0x00;
|
|
} else {
|
|
strcat(dest, param2);
|
|
if (dotDst) dest[dirLen + (dotDst - param2)] = 0x00;
|
|
}
|
|
|
|
/* Build Extension */
|
|
if (dotDst && (*(dotDst+1)=='*')) {
|
|
if (dotSrc) strcat(dest, dotSrc);
|
|
} else if (dotDst) {
|
|
if (dotDst) strcat(dest, dotDst);
|
|
}
|
|
|
|
WINE_TRACE("Source '%s'\n", src);
|
|
WINE_TRACE("Dest '%s'\n", dest);
|
|
|
|
/* Check if file is read only, otherwise move it */
|
|
attribs = GetFileAttributesA(src);
|
|
if ((attribs != INVALID_FILE_ATTRIBUTES) &&
|
|
(attribs & FILE_ATTRIBUTE_READONLY)) {
|
|
SetLastError(ERROR_ACCESS_DENIED);
|
|
status = 0;
|
|
} else {
|
|
status = MoveFile (src, dest);
|
|
}
|
|
|
|
if (!status) {
|
|
WCMD_print_error ();
|
|
errorlevel = 1;
|
|
}
|
|
|
|
/* Step on to next match */
|
|
if (FindNextFile(hff, &fd) == 0) {
|
|
FindClose(hff);
|
|
hff = INVALID_HANDLE_VALUE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_dupenv
|
|
*
|
|
* Make a copy of the environment.
|
|
*/
|
|
static WCHAR *WCMD_dupenv( const WCHAR *env )
|
|
{
|
|
WCHAR *env_copy;
|
|
int len;
|
|
|
|
if( !env )
|
|
return NULL;
|
|
|
|
len = 0;
|
|
while ( env[len] )
|
|
len += (lstrlenW(&env[len]) + 1);
|
|
|
|
env_copy = LocalAlloc (LMEM_FIXED, (len+1) * sizeof (WCHAR) );
|
|
if (!env_copy)
|
|
{
|
|
WCMD_output ("out of memory\n");
|
|
return env_copy;
|
|
}
|
|
memcpy (env_copy, env, len*sizeof (WCHAR));
|
|
env_copy[len] = 0;
|
|
|
|
return env_copy;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_setlocal
|
|
*
|
|
* setlocal pushes the environment onto a stack
|
|
* Save the environment as unicode so we don't screw anything up.
|
|
*/
|
|
void WCMD_setlocal (const char *s) {
|
|
WCHAR *env;
|
|
struct env_stack *env_copy;
|
|
char cwd[MAX_PATH];
|
|
|
|
/* DISABLEEXTENSIONS ignored */
|
|
|
|
env_copy = LocalAlloc (LMEM_FIXED, sizeof (struct env_stack));
|
|
if( !env_copy )
|
|
{
|
|
WCMD_output ("out of memory\n");
|
|
return;
|
|
}
|
|
|
|
env = GetEnvironmentStringsW ();
|
|
|
|
env_copy->strings = WCMD_dupenv (env);
|
|
if (env_copy->strings)
|
|
{
|
|
env_copy->next = saved_environment;
|
|
saved_environment = env_copy;
|
|
|
|
/* Save the current drive letter */
|
|
GetCurrentDirectory (MAX_PATH, cwd);
|
|
env_copy->u.cwd = cwd[0];
|
|
}
|
|
else
|
|
LocalFree (env_copy);
|
|
|
|
FreeEnvironmentStringsW (env);
|
|
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_strchrW
|
|
*/
|
|
static inline WCHAR *WCMD_strchrW(WCHAR *str, WCHAR ch)
|
|
{
|
|
while(*str)
|
|
{
|
|
if(*str == ch)
|
|
return str;
|
|
str++;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_endlocal
|
|
*
|
|
* endlocal pops the environment off a stack
|
|
* Note: When searching for '=', search from char position 1, to handle
|
|
* special internal environment variables =C:, =D: etc
|
|
*/
|
|
void WCMD_endlocal (void) {
|
|
WCHAR *env, *old, *p;
|
|
struct env_stack *temp;
|
|
int len, n;
|
|
|
|
if (!saved_environment)
|
|
return;
|
|
|
|
/* pop the old environment from the stack */
|
|
temp = saved_environment;
|
|
saved_environment = temp->next;
|
|
|
|
/* delete the current environment, totally */
|
|
env = GetEnvironmentStringsW ();
|
|
old = WCMD_dupenv (GetEnvironmentStringsW ());
|
|
len = 0;
|
|
while (old[len]) {
|
|
n = lstrlenW(&old[len]) + 1;
|
|
p = WCMD_strchrW(&old[len] + 1, '=');
|
|
if (p)
|
|
{
|
|
*p++ = 0;
|
|
SetEnvironmentVariableW (&old[len], NULL);
|
|
}
|
|
len += n;
|
|
}
|
|
LocalFree (old);
|
|
FreeEnvironmentStringsW (env);
|
|
|
|
/* restore old environment */
|
|
env = temp->strings;
|
|
len = 0;
|
|
while (env[len]) {
|
|
n = lstrlenW(&env[len]) + 1;
|
|
p = WCMD_strchrW(&env[len] + 1, '=');
|
|
if (p)
|
|
{
|
|
*p++ = 0;
|
|
SetEnvironmentVariableW (&env[len], p);
|
|
}
|
|
len += n;
|
|
}
|
|
|
|
/* Restore current drive letter */
|
|
if (IsCharAlpha(temp->u.cwd)) {
|
|
char envvar[4];
|
|
char cwd[MAX_PATH];
|
|
sprintf(envvar, "=%c:", temp->u.cwd);
|
|
if (GetEnvironmentVariable(envvar, cwd, MAX_PATH)) {
|
|
WINE_TRACE("Resetting cwd to %s\n", cwd);
|
|
SetCurrentDirectory(cwd);
|
|
}
|
|
}
|
|
|
|
LocalFree (env);
|
|
LocalFree (temp);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_setshow_attrib
|
|
*
|
|
* Display and optionally sets DOS attributes on a file or directory
|
|
*
|
|
* FIXME: Wine currently uses the Unix stat() function to get file attributes.
|
|
* As a result only the Readonly flag is correctly reported, the Archive bit
|
|
* is always set and the rest are not implemented. We do the Right Thing anyway.
|
|
*
|
|
* FIXME: No SET functionality.
|
|
*
|
|
*/
|
|
|
|
void WCMD_setshow_attrib (void) {
|
|
|
|
DWORD count;
|
|
HANDLE hff;
|
|
WIN32_FIND_DATA fd;
|
|
char flags[9] = {" "};
|
|
|
|
if (param1[0] == '-') {
|
|
WCMD_output (nyi);
|
|
return;
|
|
}
|
|
|
|
if (lstrlen(param1) == 0) {
|
|
GetCurrentDirectory (sizeof(param1), param1);
|
|
strcat (param1, "\\*");
|
|
}
|
|
|
|
hff = FindFirstFile (param1, &fd);
|
|
if (hff == INVALID_HANDLE_VALUE) {
|
|
WCMD_output ("%s: File Not Found\n",param1);
|
|
}
|
|
else {
|
|
do {
|
|
if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN) {
|
|
flags[0] = 'H';
|
|
}
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM) {
|
|
flags[1] = 'S';
|
|
}
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE) {
|
|
flags[2] = 'A';
|
|
}
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_READONLY) {
|
|
flags[3] = 'R';
|
|
}
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_TEMPORARY) {
|
|
flags[4] = 'T';
|
|
}
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_COMPRESSED) {
|
|
flags[5] = 'C';
|
|
}
|
|
WCMD_output ("%s %s\n", flags, fd.cFileName);
|
|
for (count=0; count < 8; count++) flags[count] = ' ';
|
|
}
|
|
} while (FindNextFile(hff, &fd) != 0);
|
|
}
|
|
FindClose (hff);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_setshow_default
|
|
*
|
|
* Set/Show the current default directory
|
|
*/
|
|
|
|
void WCMD_setshow_default (char *command) {
|
|
|
|
BOOL status;
|
|
char string[1024];
|
|
char cwd[1024];
|
|
char *pos;
|
|
WIN32_FIND_DATA fd;
|
|
HANDLE hff;
|
|
|
|
WINE_TRACE("Request change to directory '%s'\n", command);
|
|
|
|
/* Skip /D and trailing whitespace if on the front of the command line */
|
|
if (CompareString (LOCALE_USER_DEFAULT,
|
|
NORM_IGNORECASE | SORT_STRINGSORT,
|
|
command, 2, "/D", -1) == 2) {
|
|
command += 2;
|
|
while (*command && *command==' ') command++;
|
|
}
|
|
|
|
GetCurrentDirectory (sizeof(cwd), cwd);
|
|
if (strlen(command) == 0) {
|
|
strcat (cwd, "\n");
|
|
WCMD_output (cwd);
|
|
}
|
|
else {
|
|
/* Remove any double quotes, which may be in the
|
|
middle, eg. cd "C:\Program Files"\Microsoft is ok */
|
|
pos = string;
|
|
while (*command) {
|
|
if (*command != '"') *pos++ = *command;
|
|
command++;
|
|
}
|
|
*pos = 0x00;
|
|
|
|
/* Search for approprate directory */
|
|
WINE_TRACE("Looking for directory '%s'\n", string);
|
|
hff = FindFirstFile (string, &fd);
|
|
while (hff != INVALID_HANDLE_VALUE) {
|
|
if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) {
|
|
char fpath[MAX_PATH];
|
|
char drive[10];
|
|
char dir[MAX_PATH];
|
|
char fname[MAX_PATH];
|
|
char ext[MAX_PATH];
|
|
|
|
/* Convert path into actual directory spec */
|
|
GetFullPathName (string, sizeof(fpath), fpath, NULL);
|
|
WCMD_splitpath(fpath, drive, dir, fname, ext);
|
|
|
|
/* Rebuild path */
|
|
sprintf(string, "%s%s%s", drive, dir, fd.cFileName);
|
|
|
|
FindClose(hff);
|
|
hff = INVALID_HANDLE_VALUE;
|
|
break;
|
|
}
|
|
|
|
/* Step on to next match */
|
|
if (FindNextFile(hff, &fd) == 0) {
|
|
FindClose(hff);
|
|
hff = INVALID_HANDLE_VALUE;
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* Change to that directory */
|
|
WINE_TRACE("Really changing to directory '%s'\n", string);
|
|
|
|
status = SetCurrentDirectory (string);
|
|
if (!status) {
|
|
errorlevel = 1;
|
|
WCMD_print_error ();
|
|
return;
|
|
} else {
|
|
|
|
/* Restore old directory if drive letter would change, and
|
|
CD x:\directory /D (or pushd c:\directory) not supplied */
|
|
if ((strstr(quals, "/D") == NULL) &&
|
|
(param1[1] == ':') && (toupper(param1[0]) != toupper(cwd[0]))) {
|
|
SetCurrentDirectory(cwd);
|
|
}
|
|
}
|
|
|
|
/* Set special =C: type environment variable, for drive letter of
|
|
change of directory, even if path was restored due to missing
|
|
/D (allows changing drive letter when not resident on that
|
|
drive */
|
|
if ((string[1] == ':') && IsCharAlpha (string[0])) {
|
|
char env[4];
|
|
strcpy(env, "=");
|
|
strncpy(env+1, string, 2);
|
|
env[3] = 0x00;
|
|
SetEnvironmentVariable(env, string);
|
|
}
|
|
|
|
}
|
|
return;
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_date
|
|
*
|
|
* Set/Show the system date
|
|
* FIXME: Can't change date yet
|
|
*/
|
|
|
|
void WCMD_setshow_date (void) {
|
|
|
|
char curdate[64], buffer[64];
|
|
DWORD count;
|
|
|
|
if (lstrlen(param1) == 0) {
|
|
if (GetDateFormat (LOCALE_USER_DEFAULT, 0, NULL, NULL,
|
|
curdate, sizeof(curdate))) {
|
|
WCMD_output ("Current Date is %s\n", curdate);
|
|
if (strstr (quals, "/T") == NULL) {
|
|
WCMD_output("Enter new date: ");
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), buffer, sizeof(buffer), &count, NULL);
|
|
if (count > 2) {
|
|
WCMD_output (nyi);
|
|
}
|
|
}
|
|
}
|
|
else WCMD_print_error ();
|
|
}
|
|
else {
|
|
WCMD_output (nyi);
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_compare
|
|
*/
|
|
static int WCMD_compare( const void *a, const void *b )
|
|
{
|
|
int r;
|
|
const char * const *str_a = a, * const *str_b = b;
|
|
r = CompareString( LOCALE_USER_DEFAULT, NORM_IGNORECASE | SORT_STRINGSORT,
|
|
*str_a, -1, *str_b, -1 );
|
|
if( r == CSTR_LESS_THAN ) return -1;
|
|
if( r == CSTR_GREATER_THAN ) return 1;
|
|
return 0;
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_sortenv
|
|
*
|
|
* sort variables into order for display
|
|
* Optionally only display those who start with a stub
|
|
* returns the count displayed
|
|
*/
|
|
static int WCMD_setshow_sortenv(const char *s, const char *stub)
|
|
{
|
|
UINT count=0, len=0, i, displayedcount=0, stublen=0;
|
|
const char **str;
|
|
|
|
if (stub) stublen = strlen(stub);
|
|
|
|
/* count the number of strings, and the total length */
|
|
while ( s[len] ) {
|
|
len += (lstrlen(&s[len]) + 1);
|
|
count++;
|
|
}
|
|
|
|
/* add the strings to an array */
|
|
str = LocalAlloc (LMEM_FIXED | LMEM_ZEROINIT, count * sizeof (char*) );
|
|
if( !str )
|
|
return 0;
|
|
str[0] = s;
|
|
for( i=1; i<count; i++ )
|
|
str[i] = str[i-1] + lstrlen(str[i-1]) + 1;
|
|
|
|
/* sort the array */
|
|
qsort( str, count, sizeof (char*), WCMD_compare );
|
|
|
|
/* print it */
|
|
for( i=0; i<count; i++ ) {
|
|
if (!stub || CompareString (LOCALE_USER_DEFAULT,
|
|
NORM_IGNORECASE | SORT_STRINGSORT,
|
|
str[i], stublen, stub, -1) == 2) {
|
|
/* Don't display special internal variables */
|
|
if (str[i][0] != '=') {
|
|
WCMD_output_asis(str[i]);
|
|
WCMD_output_asis("\n");
|
|
displayedcount++;
|
|
}
|
|
}
|
|
}
|
|
|
|
LocalFree( str );
|
|
return displayedcount;
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_env
|
|
*
|
|
* Set/Show the environment variables
|
|
*/
|
|
|
|
void WCMD_setshow_env (char *s) {
|
|
|
|
LPVOID env;
|
|
char *p;
|
|
int status;
|
|
|
|
errorlevel = 0;
|
|
if (param1[0] == 0x00 && quals[0] == 0x00) {
|
|
env = GetEnvironmentStrings ();
|
|
WCMD_setshow_sortenv( env, NULL );
|
|
return;
|
|
}
|
|
|
|
/* See if /P supplied, and if so echo the prompt, and read in a reply */
|
|
if (CompareString (LOCALE_USER_DEFAULT,
|
|
NORM_IGNORECASE | SORT_STRINGSORT,
|
|
s, 2, "/P", -1) == 2) {
|
|
char string[MAXSTRING];
|
|
DWORD count;
|
|
|
|
s += 2;
|
|
while (*s && *s==' ') s++;
|
|
|
|
/* If no parameter, or no '=' sign, return an error */
|
|
if (!(*s) || ((p = strchr (s, '=')) == NULL )) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
|
|
/* Output the prompt */
|
|
*p++ = '\0';
|
|
if (strlen(p) != 0) WCMD_output(p);
|
|
|
|
/* Read the reply */
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), string, sizeof(string), &count, NULL);
|
|
if (count > 1) {
|
|
string[count-1] = '\0'; /* ReadFile output is not null-terminated! */
|
|
if (string[count-2] == '\r') string[count-2] = '\0'; /* Under Windoze we get CRLF! */
|
|
WINE_TRACE("set /p: Setting var '%s' to '%s'\n", s, string);
|
|
status = SetEnvironmentVariable (s, string);
|
|
}
|
|
|
|
} else {
|
|
DWORD gle;
|
|
p = strchr (s, '=');
|
|
if (p == NULL) {
|
|
env = GetEnvironmentStrings ();
|
|
if (WCMD_setshow_sortenv( env, s ) == 0) {
|
|
WCMD_output ("Environment variable %s not defined\n", s);
|
|
errorlevel = 1;
|
|
}
|
|
return;
|
|
}
|
|
*p++ = '\0';
|
|
|
|
if (strlen(p) == 0) p = NULL;
|
|
status = SetEnvironmentVariable (s, p);
|
|
gle = GetLastError();
|
|
if ((!status) & (gle == ERROR_ENVVAR_NOT_FOUND)) {
|
|
errorlevel = 1;
|
|
} else if ((!status)) WCMD_print_error();
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_path
|
|
*
|
|
* Set/Show the path environment variable
|
|
*/
|
|
|
|
void WCMD_setshow_path (char *command) {
|
|
|
|
char string[1024];
|
|
DWORD status;
|
|
|
|
if (strlen(param1) == 0) {
|
|
status = GetEnvironmentVariable ("PATH", string, sizeof(string));
|
|
if (status != 0) {
|
|
WCMD_output_asis ( "PATH=");
|
|
WCMD_output_asis ( string);
|
|
WCMD_output_asis ( "\n");
|
|
}
|
|
else {
|
|
WCMD_output ("PATH not found\n");
|
|
}
|
|
}
|
|
else {
|
|
if (*command == '=') command++; /* Skip leading '=' */
|
|
status = SetEnvironmentVariable ("PATH", command);
|
|
if (!status) WCMD_print_error();
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_prompt
|
|
*
|
|
* Set or show the command prompt.
|
|
*/
|
|
|
|
void WCMD_setshow_prompt (void) {
|
|
|
|
char *s;
|
|
|
|
if (strlen(param1) == 0) {
|
|
SetEnvironmentVariable ("PROMPT", NULL);
|
|
}
|
|
else {
|
|
s = param1;
|
|
while ((*s == '=') || (*s == ' ')) s++;
|
|
if (strlen(s) == 0) {
|
|
SetEnvironmentVariable ("PROMPT", NULL);
|
|
}
|
|
else SetEnvironmentVariable ("PROMPT", s);
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_setshow_time
|
|
*
|
|
* Set/Show the system time
|
|
* FIXME: Can't change time yet
|
|
*/
|
|
|
|
void WCMD_setshow_time (void) {
|
|
|
|
char curtime[64], buffer[64];
|
|
DWORD count;
|
|
SYSTEMTIME st;
|
|
|
|
if (strlen(param1) == 0) {
|
|
GetLocalTime(&st);
|
|
if (GetTimeFormat (LOCALE_USER_DEFAULT, 0, &st, NULL,
|
|
curtime, sizeof(curtime))) {
|
|
WCMD_output ("Current Time is %s\n", curtime);
|
|
if (strstr (quals, "/T") == NULL) {
|
|
WCMD_output ("Enter new time: ", curtime);
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), buffer, sizeof(buffer), &count, NULL);
|
|
if (count > 2) {
|
|
WCMD_output (nyi);
|
|
}
|
|
}
|
|
}
|
|
else WCMD_print_error ();
|
|
}
|
|
else {
|
|
WCMD_output (nyi);
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_shift
|
|
*
|
|
* Shift batch parameters.
|
|
* Optional /n says where to start shifting (n=0-8)
|
|
*/
|
|
|
|
void WCMD_shift (char *command) {
|
|
int start;
|
|
|
|
if (context != NULL) {
|
|
char *pos = strchr(command, '/');
|
|
int i;
|
|
|
|
if (pos == NULL) {
|
|
start = 0;
|
|
} else if (*(pos+1)>='0' && *(pos+1)<='8') {
|
|
start = (*(pos+1) - '0');
|
|
} else {
|
|
SetLastError(ERROR_INVALID_PARAMETER);
|
|
WCMD_print_error();
|
|
return;
|
|
}
|
|
|
|
WINE_TRACE("Shifting variables, starting at %d\n", start);
|
|
for (i=start;i<=8;i++) {
|
|
context -> shift_count[i] = context -> shift_count[i+1] + 1;
|
|
}
|
|
context -> shift_count[9] = context -> shift_count[9] + 1;
|
|
}
|
|
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_title
|
|
*
|
|
* Set the console title
|
|
*/
|
|
void WCMD_title (char *command) {
|
|
SetConsoleTitle(command);
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_type
|
|
*
|
|
* Copy a file to standard output.
|
|
*/
|
|
|
|
void WCMD_type (char *command) {
|
|
|
|
int argno = 0;
|
|
char *argN = command;
|
|
BOOL writeHeaders = FALSE;
|
|
|
|
if (param1[0] == 0x00) {
|
|
WCMD_output ("Argument missing\n");
|
|
return;
|
|
}
|
|
|
|
if (param2[0] != 0x00) writeHeaders = TRUE;
|
|
|
|
/* Loop through all args */
|
|
errorlevel = 0;
|
|
while (argN) {
|
|
char *thisArg = WCMD_parameter (command, argno++, &argN);
|
|
|
|
HANDLE h;
|
|
char buffer[512];
|
|
DWORD count;
|
|
|
|
if (!argN) break;
|
|
|
|
WINE_TRACE("type: Processing arg '%s'\n", thisArg);
|
|
h = CreateFile (thisArg, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING,
|
|
FILE_ATTRIBUTE_NORMAL, NULL);
|
|
if (h == INVALID_HANDLE_VALUE) {
|
|
WCMD_print_error ();
|
|
WCMD_output ("%s :Failed\n", thisArg);
|
|
errorlevel = 1;
|
|
} else {
|
|
if (writeHeaders) {
|
|
WCMD_output("\n%s\n\n", thisArg);
|
|
}
|
|
while (ReadFile (h, buffer, sizeof(buffer), &count, NULL)) {
|
|
if (count == 0) break; /* ReadFile reports success on EOF! */
|
|
buffer[count] = 0;
|
|
WCMD_output_asis (buffer);
|
|
}
|
|
CloseHandle (h);
|
|
}
|
|
}
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_verify
|
|
*
|
|
* Display verify flag.
|
|
* FIXME: We don't actually do anything with the verify flag other than toggle
|
|
* it...
|
|
*/
|
|
|
|
void WCMD_verify (char *command) {
|
|
|
|
static const char von[] = "Verify is ON\n", voff[] = "Verify is OFF\n";
|
|
int count;
|
|
|
|
count = strlen(command);
|
|
if (count == 0) {
|
|
if (verify_mode) WCMD_output (von);
|
|
else WCMD_output (voff);
|
|
return;
|
|
}
|
|
if (lstrcmpi(command, "ON") == 0) {
|
|
verify_mode = 1;
|
|
return;
|
|
}
|
|
else if (lstrcmpi(command, "OFF") == 0) {
|
|
verify_mode = 0;
|
|
return;
|
|
}
|
|
else WCMD_output ("Verify must be ON or OFF\n");
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_version
|
|
*
|
|
* Display version info.
|
|
*/
|
|
|
|
void WCMD_version (void) {
|
|
|
|
WCMD_output (version_string);
|
|
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_volume
|
|
*
|
|
* Display volume info and/or set volume label. Returns 0 if error.
|
|
*/
|
|
|
|
int WCMD_volume (int mode, char *path) {
|
|
|
|
DWORD count, serial;
|
|
char string[MAX_PATH], label[MAX_PATH], curdir[MAX_PATH];
|
|
BOOL status;
|
|
|
|
if (lstrlen(path) == 0) {
|
|
status = GetCurrentDirectory (sizeof(curdir), curdir);
|
|
if (!status) {
|
|
WCMD_print_error ();
|
|
return 0;
|
|
}
|
|
status = GetVolumeInformation (NULL, label, sizeof(label), &serial, NULL,
|
|
NULL, NULL, 0);
|
|
}
|
|
else {
|
|
if ((path[1] != ':') || (lstrlen(path) != 2)) {
|
|
WCMD_output_asis("Syntax Error\n\n");
|
|
return 0;
|
|
}
|
|
wsprintf (curdir, "%s\\", path);
|
|
status = GetVolumeInformation (curdir, label, sizeof(label), &serial, NULL,
|
|
NULL, NULL, 0);
|
|
}
|
|
if (!status) {
|
|
WCMD_print_error ();
|
|
return 0;
|
|
}
|
|
WCMD_output ("Volume in drive %c is %s\nVolume Serial Number is %04x-%04x\n\n",
|
|
curdir[0], label, HIWORD(serial), LOWORD(serial));
|
|
if (mode) {
|
|
WCMD_output ("Volume label (11 characters, ENTER for none)?");
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), string, sizeof(string), &count, NULL);
|
|
if (count > 1) {
|
|
string[count-1] = '\0'; /* ReadFile output is not null-terminated! */
|
|
if (string[count-2] == '\r') string[count-2] = '\0'; /* Under Windoze we get CRLF! */
|
|
}
|
|
if (lstrlen(path) != 0) {
|
|
if (!SetVolumeLabel (curdir, string)) WCMD_print_error ();
|
|
}
|
|
else {
|
|
if (!SetVolumeLabel (NULL, string)) WCMD_print_error ();
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
/**************************************************************************
|
|
* WCMD_exit
|
|
*
|
|
* Exit either the process, or just this batch program
|
|
*
|
|
*/
|
|
|
|
void WCMD_exit (void) {
|
|
|
|
int rc = atoi(param1); /* Note: atoi of empty parameter is 0 */
|
|
|
|
if (context && lstrcmpi(quals, "/B") == 0) {
|
|
errorlevel = rc;
|
|
context -> skip_rest = TRUE;
|
|
} else {
|
|
ExitProcess(rc);
|
|
}
|
|
}
|
|
|
|
/**************************************************************************
|
|
* WCMD_ask_confirm
|
|
*
|
|
* Issue a message and ask 'Are you sure (Y/N)', waiting on a valid
|
|
* answer.
|
|
*
|
|
* Returns True if Y answer is selected
|
|
*
|
|
*/
|
|
BOOL WCMD_ask_confirm (char *message, BOOL showSureText) {
|
|
|
|
char msgbuffer[MAXSTRING];
|
|
char Ybuffer[MAXSTRING];
|
|
char Nbuffer[MAXSTRING];
|
|
char answer[MAX_PATH] = "";
|
|
DWORD count = 0;
|
|
|
|
/* Load the translated 'Are you sure', plus valid answers */
|
|
LoadString (hinst, WCMD_CONFIRM, msgbuffer, sizeof(msgbuffer));
|
|
LoadString (hinst, WCMD_YES, Ybuffer, sizeof(Ybuffer));
|
|
LoadString (hinst, WCMD_NO, Nbuffer, sizeof(Nbuffer));
|
|
|
|
/* Loop waiting on a Y or N */
|
|
while (answer[0] != Ybuffer[0] && answer[0] != Nbuffer[0]) {
|
|
WCMD_output_asis (message);
|
|
if (showSureText) {
|
|
WCMD_output_asis (msgbuffer);
|
|
}
|
|
WCMD_output_asis (" (");
|
|
WCMD_output_asis (Ybuffer);
|
|
WCMD_output_asis ("/");
|
|
WCMD_output_asis (Nbuffer);
|
|
WCMD_output_asis (")?");
|
|
ReadFile (GetStdHandle(STD_INPUT_HANDLE), answer, sizeof(answer),
|
|
&count, NULL);
|
|
answer[0] = toupper(answer[0]);
|
|
}
|
|
|
|
/* Return the answer */
|
|
return (answer[0] == Ybuffer[0]);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
* WCMD_assoc
|
|
*
|
|
* Lists or sets file associations (assoc = TRUE)
|
|
* Lists or sets file types (assoc = FALSE)
|
|
*/
|
|
void WCMD_assoc (char *command, BOOL assoc) {
|
|
|
|
HKEY key;
|
|
DWORD accessOptions = KEY_READ;
|
|
char *newValue;
|
|
LONG rc = ERROR_SUCCESS;
|
|
char keyValue[MAXSTRING];
|
|
DWORD valueLen = MAXSTRING;
|
|
HKEY readKey;
|
|
|
|
|
|
/* See if parameter includes '=' */
|
|
errorlevel = 0;
|
|
newValue = strchr(command, '=');
|
|
if (newValue) accessOptions |= KEY_WRITE;
|
|
|
|
/* Open a key to HKEY_CLASSES_ROOT for enumerating */
|
|
if (RegOpenKeyEx(HKEY_CLASSES_ROOT, "", 0,
|
|
accessOptions, &key) != ERROR_SUCCESS) {
|
|
WINE_FIXME("Unexpected failure opening HKCR key: %d\n", GetLastError());
|
|
return;
|
|
}
|
|
|
|
/* If no parameters then list all associations */
|
|
if (*command == 0x00) {
|
|
int index = 0;
|
|
|
|
/* Enumerate all the keys */
|
|
while (rc != ERROR_NO_MORE_ITEMS) {
|
|
char keyName[MAXSTRING];
|
|
DWORD nameLen;
|
|
|
|
/* Find the next value */
|
|
nameLen = MAXSTRING;
|
|
rc = RegEnumKeyEx(key, index++,
|
|
keyName, &nameLen,
|
|
NULL, NULL, NULL, NULL);
|
|
|
|
if (rc == ERROR_SUCCESS) {
|
|
|
|
/* Only interested in extension ones if assoc, or others
|
|
if not assoc */
|
|
if ((keyName[0] == '.' && assoc) ||
|
|
(!(keyName[0] == '.') && (!assoc)))
|
|
{
|
|
char subkey[MAXSTRING];
|
|
strcpy(subkey, keyName);
|
|
if (!assoc) strcat(subkey, "\\Shell\\Open\\Command");
|
|
|
|
if (RegOpenKeyEx(key, subkey, 0,
|
|
accessOptions, &readKey) == ERROR_SUCCESS) {
|
|
|
|
valueLen = sizeof(keyValue);
|
|
rc = RegQueryValueEx(readKey, NULL, NULL, NULL,
|
|
(LPBYTE)keyValue, &valueLen);
|
|
WCMD_output_asis(keyName);
|
|
WCMD_output_asis("=");
|
|
/* If no default value found, leave line empty after '=' */
|
|
if (rc == ERROR_SUCCESS) {
|
|
WCMD_output_asis(keyValue);
|
|
}
|
|
WCMD_output_asis("\n");
|
|
}
|
|
}
|
|
}
|
|
}
|
|
RegCloseKey(readKey);
|
|
|
|
} else {
|
|
|
|
/* Parameter supplied - if no '=' on command line, its a query */
|
|
if (newValue == NULL) {
|
|
char *space;
|
|
char subkey[MAXSTRING];
|
|
|
|
/* Query terminates the parameter at the first space */
|
|
strcpy(keyValue, command);
|
|
space = strchr(keyValue, ' ');
|
|
if (space) *space=0x00;
|
|
|
|
/* Set up key name */
|
|
strcpy(subkey, keyValue);
|
|
if (!assoc) strcat(subkey, "\\Shell\\Open\\Command");
|
|
|
|
if (RegOpenKeyEx(key, subkey, 0,
|
|
accessOptions, &readKey) == ERROR_SUCCESS) {
|
|
|
|
rc = RegQueryValueEx(readKey, NULL, NULL, NULL,
|
|
(LPBYTE)keyValue, &valueLen);
|
|
WCMD_output_asis(command);
|
|
WCMD_output_asis("=");
|
|
/* If no default value found, leave line empty after '=' */
|
|
if (rc == ERROR_SUCCESS) WCMD_output_asis(keyValue);
|
|
WCMD_output_asis("\n");
|
|
RegCloseKey(readKey);
|
|
|
|
} else {
|
|
char msgbuffer[MAXSTRING];
|
|
char outbuffer[MAXSTRING];
|
|
|
|
/* Load the translated 'File association not found' */
|
|
if (assoc) {
|
|
LoadString (hinst, WCMD_NOASSOC, msgbuffer, sizeof(msgbuffer));
|
|
} else {
|
|
LoadString (hinst, WCMD_NOFTYPE, msgbuffer, sizeof(msgbuffer));
|
|
}
|
|
sprintf(outbuffer, msgbuffer, keyValue);
|
|
WCMD_output_asis(outbuffer);
|
|
errorlevel = 2;
|
|
}
|
|
|
|
/* Not a query - its a set or clear of a value */
|
|
} else {
|
|
|
|
char subkey[MAXSTRING];
|
|
|
|
/* Get pointer to new value */
|
|
*newValue = 0x00;
|
|
newValue++;
|
|
|
|
/* Set up key name */
|
|
strcpy(subkey, command);
|
|
if (!assoc) strcat(subkey, "\\Shell\\Open\\Command");
|
|
|
|
/* If nothing after '=' then clear value - only valid for ASSOC */
|
|
if (*newValue == 0x00) {
|
|
|
|
if (assoc) rc = RegDeleteKey(key, command);
|
|
if (assoc && rc == ERROR_SUCCESS) {
|
|
WINE_TRACE("HKCR Key '%s' deleted\n", command);
|
|
|
|
} else if (assoc && rc != ERROR_FILE_NOT_FOUND) {
|
|
WCMD_print_error();
|
|
errorlevel = 2;
|
|
|
|
} else {
|
|
char msgbuffer[MAXSTRING];
|
|
char outbuffer[MAXSTRING];
|
|
|
|
/* Load the translated 'File association not found' */
|
|
if (assoc) {
|
|
LoadString (hinst, WCMD_NOASSOC, msgbuffer, sizeof(msgbuffer));
|
|
} else {
|
|
LoadString (hinst, WCMD_NOFTYPE, msgbuffer, sizeof(msgbuffer));
|
|
}
|
|
sprintf(outbuffer, msgbuffer, keyValue);
|
|
WCMD_output_asis(outbuffer);
|
|
errorlevel = 2;
|
|
}
|
|
|
|
/* It really is a set value = contents */
|
|
} else {
|
|
rc = RegCreateKeyEx(key, subkey, 0, NULL, REG_OPTION_NON_VOLATILE,
|
|
accessOptions, NULL, &readKey, NULL);
|
|
if (rc == ERROR_SUCCESS) {
|
|
rc = RegSetValueEx(readKey, NULL, 0, REG_SZ,
|
|
(LPBYTE)newValue, strlen(newValue));
|
|
RegCloseKey(readKey);
|
|
}
|
|
|
|
if (rc != ERROR_SUCCESS) {
|
|
WCMD_print_error();
|
|
errorlevel = 2;
|
|
} else {
|
|
WCMD_output_asis(command);
|
|
WCMD_output_asis("=");
|
|
WCMD_output_asis(newValue);
|
|
WCMD_output_asis("\n");
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Clean up */
|
|
RegCloseKey(key);
|
|
}
|
|
|
|
/****************************************************************************
|
|
* WCMD_color
|
|
*
|
|
* Clear the terminal screen.
|
|
*/
|
|
|
|
void WCMD_color (void) {
|
|
|
|
/* Emulate by filling the screen from the top left to bottom right with
|
|
spaces, then moving the cursor to the top left afterwards */
|
|
CONSOLE_SCREEN_BUFFER_INFO consoleInfo;
|
|
HANDLE hStdOut = GetStdHandle(STD_OUTPUT_HANDLE);
|
|
|
|
if (param1[0] != 0x00 && strlen(param1) > 2) {
|
|
WCMD_output ("Argument invalid\n");
|
|
return;
|
|
}
|
|
|
|
if (GetConsoleScreenBufferInfo(hStdOut, &consoleInfo))
|
|
{
|
|
COORD topLeft;
|
|
DWORD screenSize;
|
|
DWORD color = 0;
|
|
|
|
screenSize = consoleInfo.dwSize.X * (consoleInfo.dwSize.Y + 1);
|
|
|
|
topLeft.X = 0;
|
|
topLeft.Y = 0;
|
|
|
|
/* Convert the color hex digits */
|
|
if (param1[0] == 0x00) {
|
|
color = defaultColor;
|
|
} else {
|
|
color = strtoul(param1, NULL, 16);
|
|
}
|
|
|
|
/* Fail if fg == bg color */
|
|
if (((color & 0xF0) >> 4) == (color & 0x0F)) {
|
|
errorlevel = 1;
|
|
return;
|
|
}
|
|
|
|
/* Set the current screen contents and ensure all future writes
|
|
remain this color */
|
|
FillConsoleOutputAttribute(hStdOut, color, screenSize, topLeft, &screenSize);
|
|
SetConsoleTextAttribute(hStdOut, color);
|
|
}
|
|
}
|