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.
138 #ifdef INCLUDE_CMD_CHDIR
140 static LPTSTR lpLastPath;
143 VOID InitLastPath (VOID)
149 VOID FreeLastPath (VOID)
159 INT cmd_chdir (LPTSTR cmd, LPTSTR param)
161 LPTSTR dir; /* pointer to the directory to change to */
163 LPTSTR endofstring; /* pointer to the null character in the directory to change to */
164 LPTSTR lastquote; /* pointer to the last quotation mark in the directory to change to */
166 /*Should we better declare a variable containing _tsclen(dir) ? It's used a few times,
167 but on the other hand paths are generally not very long*/
169 if (!_tcsncmp (param, _T("/?"), 2))
171 ConOutPuts (_T("Changes the current directory or displays it's name\n\n"
172 "CHDIR [drive:][path]\n"
174 "CD [drive:][path]\n"
176 " .. parent directory\n"
177 " - previous directory\n\n"
178 "Type CD drive: to display the current directory on the specified drive.\n"
179 "Type CD without a parameter to display the current drive and directory."));
183 /* The whole param string is our parameter these days. The only thing we do is eliminating every quotation mark */
184 /* Is it safe to change the characters param is pointing to? I presume it is, as there doesn't seem to be any
185 post-processing of it after the function call (what would that accomplish?) */
188 endofstring=dir+_tcslen(dir);
190 while ((lastquote = _tcsrchr(dir,'\"')))
193 memmove(lastquote,lastquote+1,endofstring-lastquote);
194 *endofstring=_T('\0');
197 /* if doing a CD and no parameters given, print out current directory */
200 TCHAR szPath[MAX_PATH];
202 GetCurrentDirectory (MAX_PATH, szPath);
210 if (dir && _tcslen (dir) == 1 && *dir == _T('-'))
217 else if (dir && _tcslen (dir)==2 && dir[1] == _T(':'))
219 TCHAR szRoot[3] = _T("A:");
220 TCHAR szPath[MAX_PATH];
222 szRoot[0] = _totupper (dir[0]);
223 GetFullPathName (szRoot, MAX_PATH, szPath, NULL);
225 /* PathRemoveBackslash */
226 if (_tcslen (szPath) > 3)
228 LPTSTR p = _tcsrchr (szPath, _T('\\'));
238 /* remove trailing \ if any, but ONLY if dir is not the root dir */
239 if (_tcslen (dir) > 3 && dir[_tcslen (dir) - 1] == _T('\\'))
240 dir[_tcslen(dir) - 1] = _T('\0');
243 /* store current directory */
244 lpOldPath = (LPTSTR)malloc (MAX_PATH * sizeof(TCHAR));
245 GetCurrentDirectory (MAX_PATH, lpOldPath);
247 if (!SetCurrentDirectory (dir))
249 ErrorMessage (GetLastError(), _T("CD"));
251 /* throw away current directory */
259 GetCurrentDirectory(MAX_PATH, dir);
260 if (dir[0]!=lpOldPath[0])
262 SetCurrentDirectory(lpOldPath);
269 lpLastPath = lpOldPath;
280 #ifdef INCLUDE_CMD_MKDIR
285 INT cmd_mkdir (LPTSTR cmd, LPTSTR param)
287 LPTSTR dir; /* pointer to the directory to change to */
288 LPTSTR place; /* used to search for the \ when no space is used */
293 if (!_tcsncmp (param, _T("/?"), 2))
295 ConOutPuts (_T("Creates a directory.\n\n"
296 "MKDIR [drive:]path\nMD [drive:]path"));
301 /* check if there is no space between the command and the path */
302 if (param[0] == _T('\0'))
304 /* search for the \ or . so that both short & long names will work */
305 for (place = cmd; *place; place++)
306 if (*place == _T('.') || *place == _T('\\'))
312 /* signal that there are no parameters */
317 p = split (param, &argc, FALSE);
320 /*JPP 20-Jul-1998 use standard error message */
321 error_too_many_parameters (param);
331 ConErrPrintf (_T("Required parameter missing\n"));
335 /* remove trailing \ if any, but ONLY if dir is not the root dir */
336 if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
337 dir[_tcslen(dir) - 1] = _T('\0');
339 if (!CreateDirectory (dir, NULL))
341 ErrorMessage (GetLastError(), _T("MD"));
354 #ifdef INCLUDE_CMD_RMDIR
359 INT cmd_rmdir (LPTSTR cmd, LPTSTR param)
361 LPTSTR dir; /* pointer to the directory to change to */
362 LPTSTR place; /* used to search for the \ when no space is used */
367 if (!_tcsncmp (param, _T("/?"), 2))
369 ConOutPuts (_T("Removes a directory.\n\n"
370 "RMDIR [drive:]path\nRD [drive:]path"));
374 /* check if there is no space between the command and the path */
375 if (param[0] == _T('\0'))
377 /* search for the \ or . so that both short & long names will work */
378 for (place = cmd; *place; place++)
379 if (*place == _T('.') || *place == _T('\\'))
385 /* signal that there are no parameters */
390 p = split (param, &argc, FALSE);
393 /*JPP 20-Jul-1998 use standard error message */
394 error_too_many_parameters (param);
404 ConErrPrintf (_T("Required parameter missing\n"));
408 /* remove trailing \ if any, but ONLY if dir is not the root dir */
409 if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
410 dir[_tcslen(dir) - 1] = _T('\0');
412 if (!RemoveDirectory (dir))
414 ErrorMessage (GetLastError(), _T("RD"));
428 * set the exitflag to true
431 INT CommandExit (LPTSTR cmd, LPTSTR param)
433 if (!_tcsncmp (param, _T("/?"), 2))
435 ConOutPuts (_T("Exits the command line interpreter.\n\nEXIT"));
444 #ifdef INCLUDE_CMD_REM
449 INT CommandRem (LPTSTR cmd, LPTSTR param)
451 if (!_tcsncmp (param, _T("/?"), 2))
453 ConOutPuts (_T("Starts a comment line in a batch file.\n\n"
459 #endif /* INCLUDE_CMD_REM */
462 INT CommandShowCommands (LPTSTR cmd, LPTSTR param)