2 * INTERNAL.C - command.com internal commands.
7 * 17/08/94 (Tim Norman)
10 * 08/08/95 (Matt Rains)
11 * i have cleaned up the source code. changes now bring this source into
12 * guidelines for recommended programming practice.
18 * i have added support for file attributes to the DIR() function. the
19 * routine adds "d" (directory) and "r" (read only) output. files with the
20 * system attribute have the filename converted to lowercase. files with
21 * the hidden attribute are not displayed.
23 * i have added support for directorys. now if the directory attribute is
24 * detected the file size if replaced with the string "<dir>".
38 * does not support wildcard selection.
40 * todo: add delete directory support.
41 * add recursive directory delete support.
46 * does not support wildcard selection.
48 * todo: add rename directory support.
50 * a general structure has been used for the cd, rd and md commands. this
51 * will be better in the long run. it is too hard to maintain such diverse
52 * functions when you are involved in a group project like this.
54 * 12/14/95 (Tim Norman)
55 * fixed DIR so that it will stick \*.* if a directory is specified and
56 * that it will stick on .* if a file with no extension is specified or
57 * *.* if it ends in a \
60 * added an isatty call to DIR so it won't prompt for keypresses unless
61 * stdin and stdout are the console.
63 * changed parameters to be mutually consistent to make calling the
72 * 01/22/96 (Oliver Mueller)
73 * error messages are now handled by perror.
75 * 02/05/96 (Tim Norman)
76 * converted all functions to accept first/rest parameters
78 * 07/26/96 (Tim Norman)
79 * changed return values to int instead of void
83 * 12/23/96 (Aaron Kaufman)
84 * rewrote dir() to mimic MS-DOS's dir
86 * 01/28/97 (Tim Norman)
87 * cleaned up Aaron's DIR code
89 * 06/13/97 (Tim Norman)
90 * moved DIR code to dir.c
91 * re-implemented Aaron's DIR code
93 * 06/14/97 (Steffan Kaiser)
97 * 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
98 * added config.h include
100 * 03-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
101 * Replaced DOS calls by Win32 calls.
103 * 08-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
104 * Added help texts ("/?").
106 * 18-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
107 * Added support for quoted arguments (cd "program files").
109 * 07-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
112 * 26-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
113 * Replaced remaining CRT io functions by Win32 io functions.
116 * 30-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
117 * Added "cd -" feature. Changes to the previous directory.
119 * 15-Mar-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
120 * Fixed bug in "cd -" feature. If the previous directory was a root
121 * directory, it was ignored.
123 * 23-Feb-2001 (Carl Nettelblad <cnettel@hem.passagen.se>)
124 * Improved chdir/cd command.
126 * 02-Apr-2004 (Magnus Olsen <magnus@greatlord.com>)
127 * Remove all hard code string so they can be
128 * translate to other langues.
130 * 19-jul-2005 (Brandon Turner <turnerb7@msu.edu)
131 * Rewrite the CD, it working as Windows 2000 CMD
133 * 19-jul-2005 (Magnus Olsen <magnus@greatlord.com)
134 * Add SetRootPath and GetRootPath
138 #include "resource.h"
140 #ifdef INCLUDE_CMD_CHDIR
142 static LPTSTR lpLastPath
;
145 VOID
InitLastPath (VOID
)
151 VOID
FreeLastPath (VOID
)
157 /* help functions for getting current path from drive
158 without changing drive. Return code 0 = ok, 1 = fail.
159 INT GetRootPath("C:",outbuffer,chater size of outbuffer);
160 the first param can have any size, if the the two frist
161 letter are not a drive with : it will get Currentpath on
162 current drive exacly as GetCurrentDirectory does.
165 INT
GetRootPath(TCHAR
*InPath
,TCHAR
*OutPath
,INT size
)
169 if (_tcslen(InPath
)>1)
171 if (InPath
[1]==_T(':'))
180 if ((InPath
[0] >= _T('0')) && (InPath
[0] <= _T('9')))
182 t
= (InPath
[0] - _T('0')) +28;
185 if ((InPath
[0] >= _T('a')) && (InPath
[0] <= _T('z')))
187 t
= (InPath
[0] - _T('a')) +1;
190 if (_tgetdcwd(t
,OutPath
,size
) != NULL
)
198 if (_tcslen(InPath
)>1)
200 if (InPath
[1]==_T(':'))
204 /* Get current directory */
205 retcode
= GetCurrentDirectory(size
,OutPath
);
213 BOOL
SetRootPath(TCHAR
*InPath
)
215 TCHAR oldpath
[MAX_PATH
];
216 TCHAR OutPath
[MAX_PATH
];
219 /* Get The current directory path and save it */
220 fail
= GetCurrentDirectory(MAX_PATH
,oldpath
);
224 /* Get current drive directory path if C: was only pass down*/
226 if (_tcsncicmp(&InPath
[1],_T(":\\"),2)!=0)
228 if (!GetRootPath(InPath
,OutPath
,MAX_PATH
))
229 _tcscpy(OutPath
,InPath
);
233 _tcscpy(OutPath
,InPath
);
236 fail
= SetCurrentDirectory(OutPath
);
240 SetCurrentDirectory(OutPath
);
241 GetCurrentDirectory(MAX_PATH
,OutPath
);
244 if (_tcsncicmp(OutPath
,oldpath
,2)!=0)
245 SetCurrentDirectory(oldpath
);
255 INT
cmd_chdir (LPTSTR cmd
, LPTSTR param
)
260 BOOL bChangeDrive
= FALSE
;
261 TCHAR szPath
[MAX_PATH
];
262 TCHAR szFinalPath
[MAX_PATH
];
264 TCHAR szCurrent
[MAX_PATH
];
265 TCHAR szMsg
[RC_STRING_MAX_SIZE
];
269 /* Filter out special cases first */
272 if (!_tcsncmp(param
, _T("/?"), 2))
274 ConOutResPaging(TRUE
,STRING_CD_HELP
);
278 /* Set Error Level to Success */
281 /* Input String Contains /D Switch */
282 if (!_tcsncicmp(param
, _T("/D"), 2))
285 tmpPath
= _tcsstr(param
,_T(" "));
287 _tcscpy(szPath
,tmpPath
);
292 _tcscpy(szPath
,param
);
295 /* Print Current Directory on a disk */
296 if (_tcslen(szPath
) == 2 && szPath
[1] == _T(':'))
298 if(GetRootPath(szPath
,szCurrent
,MAX_PATH
))
303 ConOutPuts(szCurrent
);
308 /* Get Current Directory */
309 GetRootPath(_T("."),szCurrent
,MAX_PATH
);
312 if(szPath
[0] == _T('\"'))
314 tmpPath
= _tcsstr(szPath
,_T("\""));
316 _tcscpy(szPath
,tmpPath
);
319 if(szPath
[_tcslen(szPath
) - 1] == _T('\"'))
321 szPath
[_tcslen(szPath
) - 1] = _T('\0');
325 while (_istspace (*tmpPath
))
327 _tcscpy(szPath
,tmpPath
);
329 if (szPath
[0] == _T('\0'))
331 ConOutPuts(szCurrent
);
336 /* change to full path if relative path was given */
337 GetFullPathName(szPath
,MAX_PATH
,szFinalPath
,NULL
);
339 if(szFinalPath
[_tcslen(szFinalPath
) - 1] == _T('\\') && _tcslen(szFinalPath
) > 3)
340 szFinalPath
[_tcslen(szFinalPath
) - 1] = _T('\0');
342 /* Handle Root Directory Alone*/
343 if (_tcslen(szPath
) == 3 && szPath
[1] == _T(':'))
345 if(!SetRootPath(szFinalPath
))
347 /* Change prompt if it is one the same drive or /D */
348 if(bChangeDrive
|| !_tcsncicmp(szFinalPath
,szCurrent
,1))
349 SetCurrentDirectory(szFinalPath
);
352 /* Didnt find an directories */
353 LoadString(CMD_ModuleHandle
, STRING_ERROR_PATH_NOT_FOUND
, szMsg
, RC_STRING_MAX_SIZE
);
360 /* Get a list of all the files */
361 hFile
= FindFirstFile (szFinalPath
, &f
);
365 if(hFile
== INVALID_HANDLE_VALUE
)
367 ConErrFormatMessage (GetLastError(), szFinalPath
);
372 /* Strip the paths back to the folder they are in */
373 for(i
= (_tcslen(szFinalPath
) - 1); i
> -1; i
--)
374 if(szFinalPath
[i
] != _T('\\'))
375 szFinalPath
[i
] = _T('\0');
379 _tcscat(szFinalPath
,f
.cFileName
);
381 if(IsExistingDirectory(szFinalPath
))
383 if(!SetRootPath(szFinalPath
))
387 SetCurrentDirectory(szFinalPath
);
391 }while(FindNextFile (hFile
, &f
));
393 /* Didnt find an directories */
394 LoadString(CMD_ModuleHandle
, STRING_ERROR_PATH_NOT_FOUND
, szMsg
, RC_STRING_MAX_SIZE
);
404 #ifdef INCLUDE_CMD_MKDIR
409 INT
cmd_mkdir (LPTSTR cmd
, LPTSTR param
)
411 LPTSTR dir
; /* pointer to the directory to change to */
412 LPTSTR place
; /* used to search for the \ when no space is used */
416 if (!_tcsncmp (param
, _T("/?"), 2))
418 ConOutResPaging(TRUE
,STRING_MKDIR_HELP
);
423 /* check if there is no space between the command and the path */
424 if (param
[0] == _T('\0'))
426 /* search for the \ or . so that both short & long names will work */
427 for (place
= cmd
; *place
; place
++)
428 if (*place
== _T('.') || *place
== _T('\\'))
434 /* signal that there are no parameters */
439 p
= split (param
, &argc
, FALSE
);
442 /*JPP 20-Jul-1998 use standard error message */
443 error_too_many_parameters (param
);
453 ConErrResPuts (STRING_ERROR_REQ_PARAM_MISSING
);
457 /* remove trailing \ if any, but ONLY if dir is not the root dir */
458 if (_tcslen (dir
) >= 2 && dir
[_tcslen (dir
) - 1] == _T('\\'))
459 dir
[_tcslen(dir
) - 1] = _T('\0');
461 if (!CreateDirectory (dir
, NULL
))
463 ErrorMessage (GetLastError(), _T("MD"));
476 #ifdef INCLUDE_CMD_RMDIR
481 INT
cmd_rmdir (LPTSTR cmd
, LPTSTR param
)
483 LPTSTR dir
; /* pointer to the directory to change to */
484 LPTSTR place
; /* used to search for the \ when no space is used */
489 if (!_tcsncmp (param
, _T("/?"), 2))
491 ConOutResPaging(TRUE
,STRING_RMDIR_HELP
);
495 /* check if there is no space between the command and the path */
496 if (param
[0] == _T('\0'))
498 /* search for the \ or . so that both short & long names will work */
499 for (place
= cmd
; *place
; place
++)
500 if (*place
== _T('.') || *place
== _T('\\'))
506 /* signal that there are no parameters */
511 p
= split (param
, &argc
, FALSE
);
514 /*JPP 20-Jul-1998 use standard error message */
515 error_too_many_parameters (param
);
525 ConErrResPuts(STRING_ERROR_REQ_PARAM_MISSING
);
529 /* remove trailing \ if any, but ONLY if dir is not the root dir */
530 if (_tcslen (dir
) >= 2 && dir
[_tcslen (dir
) - 1] == _T('\\'))
531 dir
[_tcslen(dir
) - 1] = _T('\0');
533 if (!RemoveDirectory (dir
))
535 ErrorMessage (GetLastError(), _T("RD"));
549 * set the exitflag to true
552 INT
CommandExit (LPTSTR cmd
, LPTSTR param
)
554 if (!_tcsncmp (param
, _T("/?"), 2))
555 ConOutResPaging(TRUE
,STRING_EXIT_HELP
);
557 if (bc
!= NULL
&& _tcsnicmp(param
,_T("/b"),2) == 0)
560 while (_istspace (*param
))
562 if (_istdigit(*param
))
563 nErrorLevel
= _ttoi(param
);
575 #ifdef INCLUDE_CMD_REM
580 INT
CommandRem (LPTSTR cmd
, LPTSTR param
)
582 if (!_tcsncmp (param
, _T("/?"), 2))
584 ConOutResPaging(TRUE
,STRING_REM_HELP
);
589 #endif /* INCLUDE_CMD_REM */
592 INT
CommandShowCommands (LPTSTR cmd
, LPTSTR param
)
598 INT
CommandShowCommandsDetail (LPTSTR cmd
, LPTSTR param
)
600 PrintCommandListDetail ();