mirror of
https://github.com/reactos/reactos.git
synced 2025-07-31 11:11:44 +00:00
Added Eric Kohl's port of freedos command
svn path=/trunk/; revision=324
This commit is contained in:
Rex Jolliff
parent
af3d943b02
commit
9f7f2c0f72
110 changed files with 23334 additions and 252 deletions
485
rosapps/cmd/internal.c
Normal file
485
rosapps/cmd/internal.c
Normal file
|
|
@ -0,0 +1,485 @@
|
|||
/*
|
||||
* INTERNAL.C - command.com internal commands.
|
||||
*
|
||||
*
|
||||
* History:
|
||||
*
|
||||
* 17/08/94 (Tim Norman)
|
||||
* started.
|
||||
*
|
||||
* 08/08/95 (Matt Rains)
|
||||
* i have cleaned up the source code. changes now bring this source into
|
||||
* guidelines for recommended programming practice.
|
||||
*
|
||||
* cd()
|
||||
* started.
|
||||
*
|
||||
* dir()
|
||||
* i have added support for file attributes to the DIR() function. the
|
||||
* routine adds "d" (directory) and "r" (read only) output. files with the
|
||||
* system attribute have the filename converted to lowercase. files with
|
||||
* the hidden attribute are not displayed.
|
||||
*
|
||||
* i have added support for directorys. now if the directory attribute is
|
||||
* detected the file size if replaced with the string "<dir>".
|
||||
*
|
||||
* ver()
|
||||
* started.
|
||||
*
|
||||
* md()
|
||||
* started.
|
||||
*
|
||||
* rd()
|
||||
* started.
|
||||
*
|
||||
* del()
|
||||
* started.
|
||||
*
|
||||
* does not support wildcard selection.
|
||||
*
|
||||
* todo: add delete directory support.
|
||||
* add recursive directory delete support.
|
||||
*
|
||||
* ren()
|
||||
* started.
|
||||
*
|
||||
* does not support wildcard selection.
|
||||
*
|
||||
* todo: add rename directory support.
|
||||
*
|
||||
* a general structure has been used for the cd, rd and md commands. this
|
||||
* will be better in the long run. it is too hard to maintain such diverse
|
||||
* functions when you are involved in a group project like this.
|
||||
*
|
||||
* 12/14/95 (Tim Norman)
|
||||
* fixed DIR so that it will stick \*.* if a directory is specified and
|
||||
* that it will stick on .* if a file with no extension is specified or
|
||||
* *.* if it ends in a \
|
||||
*
|
||||
* 1/6/96 (Tim Norman)
|
||||
* added an isatty call to DIR so it won't prompt for keypresses unless
|
||||
* stdin and stdout are the console.
|
||||
*
|
||||
* changed parameters to be mutually consistent to make calling the
|
||||
* functions easier
|
||||
*
|
||||
* rem()
|
||||
* started.
|
||||
*
|
||||
* doskey()
|
||||
* started.
|
||||
*
|
||||
* 01/22/96 (Oliver Mueller)
|
||||
* error messages are now handled by perror.
|
||||
*
|
||||
* 02/05/96 (Tim Norman)
|
||||
* converted all functions to accept first/rest parameters
|
||||
*
|
||||
* 07/26/96 (Tim Norman)
|
||||
* changed return values to int instead of void
|
||||
*
|
||||
* path() started.
|
||||
*
|
||||
* 12/23/96 (Aaron Kaufman)
|
||||
* rewrote dir() to mimic MS-DOS's dir
|
||||
*
|
||||
* 01/28/97 (Tim Norman)
|
||||
* cleaned up Aaron's DIR code
|
||||
*
|
||||
* 06/13/97 (Tim Norman)
|
||||
* moved DIR code to dir.c
|
||||
* re-implemented Aaron's DIR code
|
||||
*
|
||||
* 06/14/97 (Steffan Kaiser)
|
||||
* ctrl-break handling
|
||||
* bug fixes
|
||||
*
|
||||
* 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
|
||||
* added config.h include
|
||||
*
|
||||
* 03-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Replaced DOS calls by Win32 calls.
|
||||
*
|
||||
* 08-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Added help texts ("/?").
|
||||
*
|
||||
* 18-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Added support for quoted arguments (cd "program files").
|
||||
*
|
||||
* 07-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Clean up.
|
||||
*
|
||||
* 26-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Replaced remaining CRT io functions by Win32 io functions.
|
||||
* Unicode safe!
|
||||
*
|
||||
* 30-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
||||
* Added "cd -" feature. Changes to the previous directory.
|
||||
*/
|
||||
|
||||
#define WIN32_LEAN_AND_MEAN
|
||||
|
||||
#include "config.h"
|
||||
|
||||
#include <windows.h>
|
||||
#include <tchar.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "cmd.h"
|
||||
|
||||
|
||||
extern COMMAND cmds[]; /* The internal command table, used in '?' */
|
||||
|
||||
|
||||
#ifdef INCLUDE_CMD_CHDIR
|
||||
|
||||
static LPTSTR lpLastPath;
|
||||
|
||||
|
||||
VOID InitLastPath (VOID)
|
||||
{
|
||||
lpLastPath = NULL;
|
||||
}
|
||||
|
||||
|
||||
VOID FreeLastPath (VOID)
|
||||
{
|
||||
if (lpLastPath)
|
||||
free (lpLastPath);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* CD / CHDIR
|
||||
*
|
||||
*/
|
||||
INT cmd_chdir (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
LPTSTR dir; /* pointer to the directory to change to */
|
||||
LPTSTR place; /* used to search for the \ when no space is used */
|
||||
LPTSTR lpOldPath;
|
||||
LPTSTR *arg = NULL;
|
||||
INT argc;
|
||||
|
||||
if (!_tcsncmp (param, _T("/?"), 2))
|
||||
{
|
||||
ConOutPuts (_T("Changes the current directory or displays it's name\n\n"
|
||||
"CHDIR [drive:][path]\n"
|
||||
"CHDIR[..|-]\n"
|
||||
"CD [drive:][path]\n"
|
||||
"CD[..|-]\n\n"
|
||||
" .. parent directory\n"
|
||||
" - previous directory\n\n"
|
||||
"Type CD drive: to display the current directory on the specified drive.\n"
|
||||
"Type CD without a parameter to display the current drive and directory."));
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* check if there is no space between the command and the path */
|
||||
if (param[0] == _T('\0'))
|
||||
{
|
||||
/* search for the '\', '.' or '-' so that both short & long names will work */
|
||||
for (place = cmd; *place; place++)
|
||||
if (*place == _T('.') || *place == _T('\\') || *place == _T('-'))
|
||||
break;
|
||||
|
||||
if (*place)
|
||||
dir = place;
|
||||
else
|
||||
/* signal that there are no parameters */
|
||||
dir = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
arg = split (param, &argc);
|
||||
|
||||
if (argc > 1)
|
||||
{
|
||||
/*JPP 20-Jul-1998 use standard error message */
|
||||
error_too_many_parameters (param);
|
||||
freep (arg);
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
dir = arg[0];
|
||||
}
|
||||
|
||||
/* if doing a CD and no parameters given, print out current directory */
|
||||
if (!dir || !dir[0])
|
||||
{
|
||||
TCHAR szPath[MAX_PATH];
|
||||
|
||||
GetCurrentDirectory (MAX_PATH, szPath);
|
||||
|
||||
ConOutPuts (szPath);
|
||||
|
||||
freep (arg);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (dir && _tcslen (dir) == 1 && *dir == _T('-'))
|
||||
{
|
||||
if (lpLastPath)
|
||||
dir = lpLastPath;
|
||||
else
|
||||
{
|
||||
freep (arg);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
else if (dir && _tcslen (dir) > 1 && dir[1] == _T(':'))
|
||||
{
|
||||
TCHAR szRoot[3] = _T("A:");
|
||||
TCHAR szPath[MAX_PATH];
|
||||
|
||||
szRoot[0] = _totupper (dir[0]);
|
||||
GetFullPathName (szRoot, MAX_PATH, szPath, NULL);
|
||||
|
||||
/* PathRemoveBackslash */
|
||||
if (_tcslen (szPath) > 3)
|
||||
{
|
||||
LPTSTR p = _tcsrchr (szPath, _T('\\'));
|
||||
*p = _T('\0');
|
||||
}
|
||||
|
||||
ConOutPuts (szPath);
|
||||
|
||||
freep (arg);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* remove trailing \ if any, but ONLY if dir is not the root dir */
|
||||
if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
|
||||
dir[_tcslen(dir) - 1] = _T('\0');
|
||||
|
||||
|
||||
/* store current directory */
|
||||
lpOldPath = (LPTSTR)malloc (MAX_PATH * sizeof(TCHAR));
|
||||
GetCurrentDirectory (MAX_PATH, lpOldPath);
|
||||
|
||||
if (!SetCurrentDirectory (dir))
|
||||
{
|
||||
ErrorMessage (GetLastError(), _T("CD"));
|
||||
|
||||
/* throw away current directory */
|
||||
free (lpOldPath);
|
||||
lpOldPath = NULL;
|
||||
|
||||
freep (arg);
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
if (lpLastPath)
|
||||
free (lpLastPath);
|
||||
lpLastPath = lpOldPath;
|
||||
}
|
||||
|
||||
freep (arg);
|
||||
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
#ifdef INCLUDE_CMD_MKDIR
|
||||
/*
|
||||
* MD / MKDIR
|
||||
*
|
||||
*/
|
||||
INT cmd_mkdir (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
LPTSTR dir; /* pointer to the directory to change to */
|
||||
LPTSTR place; /* used to search for the \ when no space is used */
|
||||
LPTSTR *p = NULL;
|
||||
INT argc;
|
||||
|
||||
|
||||
if (!_tcsncmp (param, _T("/?"), 2))
|
||||
{
|
||||
ConOutPuts (_T("Creates a directory.\n\n"
|
||||
"MKDIR [drive:]path\nMD [drive:]path"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
/* check if there is no space between the command and the path */
|
||||
if (param[0] == _T('\0'))
|
||||
{
|
||||
/* search for the \ or . so that both short & long names will work */
|
||||
for (place = cmd; *place; place++)
|
||||
if (*place == _T('.') || *place == _T('\\'))
|
||||
break;
|
||||
|
||||
if (*place)
|
||||
dir = place;
|
||||
else
|
||||
/* signal that there are no parameters */
|
||||
dir = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
p = split (param, &argc);
|
||||
if (argc > 1)
|
||||
{
|
||||
/*JPP 20-Jul-1998 use standard error message */
|
||||
error_too_many_parameters (param);
|
||||
freep (p);
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
dir = p[0];
|
||||
}
|
||||
|
||||
/* remove trailing \ if any, but ONLY if dir is not the root dir */
|
||||
if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
|
||||
dir[_tcslen(dir) - 1] = _T('\0');
|
||||
|
||||
if (!CreateDirectory (dir, NULL))
|
||||
{
|
||||
ErrorMessage (GetLastError(), _T("MD"));
|
||||
|
||||
freep (p);
|
||||
return 1;
|
||||
}
|
||||
|
||||
freep (p);
|
||||
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
#ifdef INCLUDE_CMD_RMDIR
|
||||
/*
|
||||
* RD / RMDIR
|
||||
*
|
||||
*/
|
||||
INT cmd_rmdir (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
LPTSTR dir; /* pointer to the directory to change to */
|
||||
LPTSTR place; /* used to search for the \ when no space is used */
|
||||
|
||||
LPTSTR *p = NULL;
|
||||
INT argc;
|
||||
|
||||
if (!_tcsncmp (param, _T("/?"), 2))
|
||||
{
|
||||
ConOutPuts (_T("Removes a directory.\n\n"
|
||||
"RMDIR [drive:]path\nRD [drive:]path"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* check if there is no space between the command and the path */
|
||||
if (param[0] == _T('\0'))
|
||||
{
|
||||
/* search for the \ or . so that both short & long names will work */
|
||||
for (place = cmd; *place; place++)
|
||||
if (*place == _T('.') || *place == _T('\\'))
|
||||
break;
|
||||
|
||||
if (*place)
|
||||
dir = place;
|
||||
else
|
||||
/* signal that there are no parameters */
|
||||
dir = NULL;
|
||||
}
|
||||
else
|
||||
{
|
||||
p = split (param, &argc);
|
||||
if (argc > 1)
|
||||
{
|
||||
/*JPP 20-Jul-1998 use standard error message */
|
||||
error_too_many_parameters (param);
|
||||
freep (p);
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
dir = p[0];
|
||||
}
|
||||
|
||||
/* remove trailing \ if any, but ONLY if dir is not the root dir */
|
||||
if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
|
||||
dir[_tcslen(dir) - 1] = _T('\0');
|
||||
|
||||
if (!RemoveDirectory (dir))
|
||||
{
|
||||
ErrorMessage (GetLastError(), _T("RD"));
|
||||
freep (p);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
freep (p);
|
||||
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
/*
|
||||
* set the exitflag to true
|
||||
*
|
||||
*/
|
||||
INT internal_exit (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
if (!_tcsncmp (param, _T("/?"), 2))
|
||||
{
|
||||
ConOutPuts (_T("Exits the command line interpreter.\n\nEXIT"));
|
||||
}
|
||||
else
|
||||
{
|
||||
bExit = TRUE;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
#ifdef INCLUDE_CMD_REM
|
||||
/*
|
||||
* does nothing
|
||||
*
|
||||
*/
|
||||
INT cmd_rem (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
if (!_tcsncmp (param, _T("/?"), 2))
|
||||
{
|
||||
ConOutPuts (_T("Starts a comment line in a batch file.\n\n"
|
||||
"REM [Comment]"));
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
INT cmd_showcommands (LPTSTR cmd, LPTSTR param)
|
||||
{
|
||||
LPCOMMAND cmdptr;
|
||||
INT y;
|
||||
|
||||
y = 0;
|
||||
cmdptr = cmds;
|
||||
while (cmdptr->name)
|
||||
{
|
||||
if (++y == 8)
|
||||
{
|
||||
ConOutPuts (cmdptr->name);
|
||||
y = 0;
|
||||
}
|
||||
else
|
||||
ConOutPrintf (_T("%-10s"), cmdptr->name);
|
||||
|
||||
cmdptr++;
|
||||
}
|
||||
|
||||
if (y != 0)
|
||||
ConOutChar (_T('\n'));
|
||||
|
||||
return 0;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue