huwcampbell.com
Reactos
1/*
2 * DELAY.C - internal command.
3 *
4 * clone from 4nt delay command
5 *
6 * 30 Aug 1999
7 * started - Paolo Pantaleo <paolopan@freemail.it>
8 *
9 *
10 */
11
12#include "precomp.h"
13
14#ifdef INCLUDE_CMD_DELAY
15
16
17INT CommandDelay (LPTSTR param)
18{
19 DWORD val;
20 DWORD mul=1000;
21
22 if (_tcsncmp (param, _T("/?"), 2) == 0)
23 {
24 ConOutResPaging(TRUE,STRING_DELAY_HELP);
25 return 0;
26 }
27
28 nErrorLevel = 0;
29
30 if (*param==0)
31 {
32 error_req_param_missing ();
33 return 1;
34 }
35
36 if (_tcsnicmp(param,_T("/m"),2) == 0)
37 {
38 mul = 1;
39 param += 2;
40 }
41
42 val = _ttoi(param);
43 Sleep(val * mul);
44
45 return 0;
46}
47
48#endif /* INCLUDE_CMD_DELAY */