Use GetShortPathName and GetLongPathName to correct the case of the new path in SetRo...
[reactos.git] / reactos / subsys / system / cmd / internal.c
1 /*
2 * INTERNAL.C - command.com internal commands.
3 *
4 *
5 * History:
6 *
7 * 17/08/94 (Tim Norman)
8 * started.
9 *
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.
13 *
14 * cd()
15 * started.
16 *
17 * dir()
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.
22 *
23 * i have added support for directorys. now if the directory attribute is
24 * detected the file size if replaced with the string "<dir>".
25 *
26 * ver()
27 * started.
28 *
29 * md()
30 * started.
31 *
32 * rd()
33 * started.
34 *
35 * del()
36 * started.
37 *
38 * does not support wildcard selection.
39 *
40 * todo: add delete directory support.
41 * add recursive directory delete support.
42 *
43 * ren()
44 * started.
45 *
46 * does not support wildcard selection.
47 *
48 * todo: add rename directory support.
49 *
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.
53 *
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 \
58 *
59 * 1/6/96 (Tim Norman)
60 * added an isatty call to DIR so it won't prompt for keypresses unless
61 * stdin and stdout are the console.
62 *
63 * changed parameters to be mutually consistent to make calling the
64 * functions easier
65 *
66 * rem()
67 * started.
68 *
69 * doskey()
70 * started.
71 *
72 * 01/22/96 (Oliver Mueller)
73 * error messages are now handled by perror.
74 *
75 * 02/05/96 (Tim Norman)
76 * converted all functions to accept first/rest parameters
77 *
78 * 07/26/96 (Tim Norman)
79 * changed return values to int instead of void
80 *
81 * path() started.
82 *
83 * 12/23/96 (Aaron Kaufman)
84 * rewrote dir() to mimic MS-DOS's dir
85 *
86 * 01/28/97 (Tim Norman)
87 * cleaned up Aaron's DIR code
88 *
89 * 06/13/97 (Tim Norman)
90 * moved DIR code to dir.c
91 * re-implemented Aaron's DIR code
92 *
93 * 06/14/97 (Steffan Kaiser)
94 * ctrl-break handling
95 * bug fixes
96 *
97 * 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
98 * added config.h include
99 *
100 * 03-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
101 * Replaced DOS calls by Win32 calls.
102 *
103 * 08-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
104 * Added help texts ("/?").
105 *
106 * 18-Dec-1998 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
107 * Added support for quoted arguments (cd "program files").
108 *
109 * 07-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
110 * Clean up.
111 *
112 * 26-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
113 * Replaced remaining CRT io functions by Win32 io functions.
114 * Unicode safe!
115 *
116 * 30-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
117 * Added "cd -" feature. Changes to the previous directory.
118 *
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.
122 *
123 * 23-Feb-2001 (Carl Nettelblad <cnettel@hem.passagen.se>)
124 * Improved chdir/cd command.
125 *
126 * 02-Apr-2004 (Magnus Olsen <magnus@greatlord.com>)
127 * Remove all hard code string so they can be
128 * translate to other langues.
129 *
130 * 19-jul-2005 (Brandon Turner <turnerb7@msu.edu)
131 * Rewrite the CD, it working as Windows 2000 CMD
132 *
133 * 19-jul-2005 (Magnus Olsen <magnus@greatlord.com)
134 * Add SetRootPath and GetRootPath
135 */
136
137 #include <precomp.h>
138 #include "resource.h"
139
140 #ifdef INCLUDE_CMD_CHDIR
141
142 static LPTSTR lpLastPath;
143
144
145 VOID InitLastPath (VOID)
146 {
147 lpLastPath = NULL;
148 }
149
150
151 VOID FreeLastPath (VOID)
152 {
153 if (lpLastPath)
154 free (lpLastPath);
155 }
156
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.
163 */
164
165 INT GetRootPath(TCHAR *InPath,TCHAR *OutPath,INT size)
166 {
167 INT retcode = 1;
168
169 if (_tcslen(InPath)>1)
170 {
171 if (InPath[1]==_T(':'))
172 {
173 INT t=0;
174
175 if ((InPath[0] >= _T('0')) && (InPath[0] <= _T('9')))
176 {
177 t = (InPath[0] - _T('0')) +28;
178 }
179
180 if ((InPath[0] >= _T('a')) && (InPath[0] <= _T('z')))
181 {
182 t = (InPath[0] - _T('a')) +1;
183 InPath[0] = t + _T('A') - 1;
184 }
185
186 if ((InPath[0] >= _T('A')) && (InPath[0] <= _T('Z')))
187 {
188 t = (InPath[0] - _T('A')) +1;
189 }
190
191 if (_tgetdcwd(t,OutPath,size) != NULL)
192 {
193 return 0;
194 }
195 }
196 }
197
198 /* fail */
199 if (_tcslen(InPath)>1)
200 {
201 if (InPath[1]==_T(':'))
202 return 1;
203 }
204
205 /* Get current directory */
206 retcode = GetCurrentDirectory(size,OutPath);
207 if (retcode==0)
208 return 1;
209
210 return 0;
211 }
212
213
214 BOOL SetRootPath(TCHAR *InPath)
215 {
216 TCHAR oldpath[MAX_PATH];
217 TCHAR OutPath[MAX_PATH];
218 TCHAR OutPathTemp[MAX_PATH];
219 TCHAR OutPathTemp2[MAX_PATH];
220 BOOL fail;
221
222
223 /* Get The current directory path and save it */
224 fail = GetCurrentDirectory(MAX_PATH,oldpath);
225 if (!fail)
226 return 1;
227
228 /* Get current drive directory path if C: was only pass down*/
229
230 if (_tcsncicmp(&InPath[1],_T(":\\"),2)!=0)
231 {
232 if (!GetRootPath(InPath,OutPathTemp,MAX_PATH))
233 _tcscpy(OutPathTemp,InPath);
234 }
235 else
236 {
237 _tcscpy(OutPathTemp,InPath);
238 }
239
240 _tcsupr(OutPathTemp);
241 /* The use of both of these together will correct the case of a path
242 where as one alone or GetFullPath will not. Exameple:
243 c:\windows\SYSTEM32 => C:\WINDOWS\system32 */
244 GetShortPathName(OutPathTemp, OutPathTemp2, MAX_PATH);
245 GetLongPathName(OutPathTemp2, OutPath, MAX_PATH);
246
247 fail = SetCurrentDirectory(OutPath);
248 if (!fail)
249 return 1;
250
251
252
253 SetCurrentDirectory(OutPath);
254 GetCurrentDirectory(MAX_PATH,OutPath);
255 _tchdir(OutPath);
256
257 if (_tcsncicmp(OutPath,oldpath,2)!=0)
258 SetCurrentDirectory(oldpath);
259
260 return 0;
261 }
262
263
264 /*
265 * CD / CHDIR
266 *
267 */
268 INT cmd_chdir (LPTSTR cmd, LPTSTR param)
269 {
270
271 WIN32_FIND_DATA f;
272 HANDLE hFile;
273 BOOL bChangeDrive = FALSE;
274 TCHAR szPath[MAX_PATH];
275 TCHAR szFinalPath[MAX_PATH];
276 TCHAR * tmpPath;
277 TCHAR szCurrent[MAX_PATH];
278 TCHAR szMsg[RC_STRING_MAX_SIZE];
279 INT i;
280
281
282 /* Filter out special cases first */
283
284 /* Print Help */
285 if (!_tcsncmp(param, _T("/?"), 2))
286 {
287 ConOutResPaging(TRUE,STRING_CD_HELP);
288 return 0;
289 }
290
291 /* Set Error Level to Success */
292 nErrorLevel = 0;
293
294 /* Input String Contains /D Switch */
295 if (!_tcsncicmp(param, _T("/D"), 2))
296 {
297 bChangeDrive = TRUE;
298 tmpPath = _tcsstr(param,_T(" "));
299 tmpPath++;
300 _tcscpy(szPath,tmpPath);
301
302 }
303 else
304 {
305 _tcscpy(szPath,param);
306 }
307
308 /* Print Current Directory on a disk */
309 if (_tcslen(szPath) == 2 && szPath[1] == _T(':'))
310 {
311 if(GetRootPath(szPath,szCurrent,MAX_PATH))
312 {
313 nErrorLevel = 1;
314 return 1;
315 }
316 ConOutPuts(szCurrent);
317 return 0;
318 }
319
320 /* Get Current Directory */
321 GetRootPath(_T("."),szCurrent,MAX_PATH);
322
323 /* Remove " */
324 i = 0;
325 while(i < _tcslen(szPath))
326 {
327 if(szPath[i] == _T('\"'))
328 memmove(&szPath[i],&szPath[i + 1], _tcslen(&szPath[i]) * sizeof(TCHAR));
329 else
330 i++;
331 }
332
333 tmpPath = szPath;
334 while (_istspace (*tmpPath))
335 tmpPath++;
336 _tcscpy(szPath,tmpPath);
337
338 if (szPath[0] == _T('\0'))
339 {
340 ConOutPuts(szCurrent);
341 return 0;
342 }
343
344
345 /* change to full path if relative path was given */
346 GetFullPathName(szPath,MAX_PATH,szFinalPath,NULL);
347
348 if(szFinalPath[_tcslen(szFinalPath) - 1] == _T('\\') && _tcslen(szFinalPath) > 3)
349 szFinalPath[_tcslen(szFinalPath) - 1] = _T('\0');
350
351 /* Handle Root Directory Alone*/
352 if (_tcslen(szFinalPath) == 3 && szFinalPath[1] == _T(':'))
353 {
354 if(!SetRootPath(szFinalPath))
355 {
356 /* Change prompt if it is one the same drive or /D */
357 if(bChangeDrive || !_tcsncicmp(szFinalPath,szCurrent,1))
358 SetCurrentDirectory(szFinalPath);
359 return 0;
360 }
361 /* Didnt find an directories */
362 LoadString(CMD_ModuleHandle, STRING_ERROR_PATH_NOT_FOUND, szMsg, RC_STRING_MAX_SIZE);
363 ConErrPrintf(szMsg);
364 nErrorLevel = 1;
365 return 1;
366
367 }
368
369 /* Get a list of all the files */
370 hFile = FindFirstFile (szFinalPath, &f);
371
372 do
373 {
374 if(hFile == INVALID_HANDLE_VALUE)
375 {
376 ConErrFormatMessage (GetLastError(), szFinalPath);
377 nErrorLevel = 1;
378 return 1;
379 }
380
381 /* Strip the paths back to the folder they are in */
382 for(i = (_tcslen(szFinalPath) - 1); i > -1; i--)
383 if(szFinalPath[i] != _T('\\'))
384 szFinalPath[i] = _T('\0');
385 else
386 break;
387
388 _tcscat(szFinalPath,f.cFileName);
389
390 if ((f.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) == FILE_ATTRIBUTE_DIRECTORY)
391 {
392 if(!SetRootPath(szFinalPath))
393 {
394 /* Change for /D */
395 if(bChangeDrive)
396 {
397 _tcsupr(szFinalPath);
398 GetLongPathName(szFinalPath, szPath, MAX_PATH);
399 SetCurrentDirectory(szPath);
400 }
401 return 0;
402 }
403
404 }
405 }while(FindNextFile (hFile, &f));
406
407 /* Didnt find an directories */
408 LoadString(CMD_ModuleHandle, STRING_ERROR_PATH_NOT_FOUND, szMsg, RC_STRING_MAX_SIZE);
409 ConErrPrintf(szMsg);
410 nErrorLevel = 1;
411 return 1;
412 }
413
414 #endif
415
416
417
418 #ifdef INCLUDE_CMD_MKDIR
419 /*
420 * MD / MKDIR
421 *
422 */
423 INT cmd_mkdir (LPTSTR cmd, LPTSTR param)
424 {
425 LPTSTR dir; /* pointer to the directory to change to */
426 LPTSTR place; /* used to search for the \ when no space is used */
427 LPTSTR *p = NULL;
428 INT argc;
429
430 if (!_tcsncmp (param, _T("/?"), 2))
431 {
432 ConOutResPaging(TRUE,STRING_MKDIR_HELP);
433 return 0;
434 }
435
436
437 /* check if there is no space between the command and the path */
438 if (param[0] == _T('\0'))
439 {
440 /* search for the \ or . so that both short & long names will work */
441 for (place = cmd; *place; place++)
442 if (*place == _T('.') || *place == _T('\\'))
443 break;
444
445 if (*place)
446 dir = place;
447 else
448 /* signal that there are no parameters */
449 dir = NULL;
450 }
451 else
452 {
453 p = split (param, &argc, FALSE);
454 if (argc > 1)
455 {
456 /*JPP 20-Jul-1998 use standard error message */
457 error_too_many_parameters (param);
458 freep (p);
459 return 1;
460 }
461 else
462 dir = p[0];
463 }
464
465 if (!dir)
466 {
467 ConErrResPuts (STRING_ERROR_REQ_PARAM_MISSING);
468 return 1;
469 }
470
471 /* remove trailing \ if any, but ONLY if dir is not the root dir */
472 if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
473 dir[_tcslen(dir) - 1] = _T('\0');
474
475 if (!CreateDirectory (dir, NULL))
476 {
477 ErrorMessage (GetLastError(), _T("MD"));
478
479 freep (p);
480 return 1;
481 }
482
483 freep (p);
484
485 return 0;
486 }
487 #endif
488
489
490 #ifdef INCLUDE_CMD_RMDIR
491 /*
492 * RD / RMDIR
493 *
494 */
495 INT cmd_rmdir (LPTSTR cmd, LPTSTR param)
496 {
497 LPTSTR dir; /* pointer to the directory to change to */
498 LPTSTR place; /* used to search for the \ when no space is used */
499
500 LPTSTR *p = NULL;
501 INT argc;
502
503 if (!_tcsncmp (param, _T("/?"), 2))
504 {
505 ConOutResPaging(TRUE,STRING_RMDIR_HELP);
506 return 0;
507 }
508
509 /* check if there is no space between the command and the path */
510 if (param[0] == _T('\0'))
511 {
512 /* search for the \ or . so that both short & long names will work */
513 for (place = cmd; *place; place++)
514 if (*place == _T('.') || *place == _T('\\'))
515 break;
516
517 if (*place)
518 dir = place;
519 else
520 /* signal that there are no parameters */
521 dir = NULL;
522 }
523 else
524 {
525 p = split (param, &argc, FALSE);
526 if (argc > 1)
527 {
528 /*JPP 20-Jul-1998 use standard error message */
529 error_too_many_parameters (param);
530 freep (p);
531 return 1;
532 }
533 else
534 dir = p[0];
535 }
536
537 if (!dir)
538 {
539 ConErrResPuts(STRING_ERROR_REQ_PARAM_MISSING);
540 return 1;
541 }
542
543 /* remove trailing \ if any, but ONLY if dir is not the root dir */
544 if (_tcslen (dir) >= 2 && dir[_tcslen (dir) - 1] == _T('\\'))
545 dir[_tcslen(dir) - 1] = _T('\0');
546
547 if (!RemoveDirectory (dir))
548 {
549 ErrorMessage (GetLastError(), _T("RD"));
550 freep (p);
551
552 return 1;
553 }
554
555 freep (p);
556
557 return 0;
558 }
559 #endif
560
561
562 /*
563 * set the exitflag to true
564 *
565 */
566 INT CommandExit (LPTSTR cmd, LPTSTR param)
567 {
568 if (!_tcsncmp (param, _T("/?"), 2))
569 ConOutResPaging(TRUE,STRING_EXIT_HELP);
570
571 if (bc != NULL && _tcsnicmp(param,_T("/b"),2) == 0)
572 {
573 param += 2;
574 while (_istspace (*param))
575 param++;
576 if (_istdigit(*param))
577 nErrorLevel = _ttoi(param);
578 ExitBatch (NULL);
579 }
580
581 else
582 bExit = TRUE;
583
584
585 return 0;
586
587 }
588
589 #ifdef INCLUDE_CMD_REM
590 /*
591 * does nothing
592 *
593 */
594 INT CommandRem (LPTSTR cmd, LPTSTR param)
595 {
596 if (!_tcsncmp (param, _T("/?"), 2))
597 {
598 ConOutResPaging(TRUE,STRING_REM_HELP);
599 }
600
601 return 0;
602 }
603 #endif /* INCLUDE_CMD_REM */
604
605
606 INT CommandShowCommands (LPTSTR cmd, LPTSTR param)
607 {
608 PrintCommandList ();
609 return 0;
610 }
611
612 INT CommandShowCommandsDetail (LPTSTR cmd, LPTSTR param)
613 {
614 PrintCommandListDetail ();
615 return 0;
616 }
617
618 /* EOF */