mirror of
https://github.com/reactos/reactos.git
synced 2024-08-16 16:39:08 +00:00
213 lines
5 KiB
C
213 lines
5 KiB
C
/*
|
|
* IF.C - if internal batch command.
|
|
*
|
|
*
|
|
* History:
|
|
*
|
|
* 16 Jul 1998 (Hans B Pufal)
|
|
* started.
|
|
*
|
|
* 16 Jul 1998 (John P Price)
|
|
* Seperated commands into individual files.
|
|
*
|
|
* 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
|
|
* added config.h include
|
|
*
|
|
* 07-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
|
* Added help text ("if /?") and cleaned up.
|
|
*
|
|
* 21-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
|
* Unicode and redirection ready!
|
|
*
|
|
* 01-Sep-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>)
|
|
* Fixed help text.
|
|
*
|
|
* 17-Feb-2001 (ea)
|
|
* IF DEFINED variable command
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include <windows.h>
|
|
#include <tchar.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
|
|
#include "cmd.h"
|
|
#include "batch.h"
|
|
|
|
|
|
#define X_EXEC 1
|
|
#define X_EMPTY 0x80
|
|
|
|
INT cmd_if (LPTSTR cmd, LPTSTR param)
|
|
{
|
|
INT x_flag = 0; /* when set cause 'then' clause to be executed */
|
|
LPTSTR pp;
|
|
|
|
#ifdef _DEBUG
|
|
DebugPrintf ("cmd_if: (\'%s\', \'%s\'\n", cmd, param);
|
|
#endif
|
|
|
|
if (!_tcsncmp (param, _T("/?"), 2))
|
|
{
|
|
ConOutPuts (_T("Performs conditional processing in batch programs.\n"
|
|
"\n"
|
|
" IF [NOT] ERRORLEVEL number command\n"
|
|
" IF [NOT] string1==string2 command\n"
|
|
" IF [NOT] EXIST filename command\n"
|
|
" IF [NOT] DEFINED variable command\n"
|
|
"\n"
|
|
"NOT Specifies that CMD should carry out the command only if\n"
|
|
" the condition is false\n"
|
|
"ERRORLEVEL number Specifies a true condition if the last program run returned\n"
|
|
" an exit code equal or greater than the number specified.\n"
|
|
"command Specifies the command to carry out if the condition is met.\n"
|
|
"string1==string2 Specifies a true condition if the specified text strings\n"
|
|
" match.\n"
|
|
"EXIST filename Specifies a true condition if the specified filename exists.\n"
|
|
"DEFINED variable Specifies a true condition if the specified variable is\n"
|
|
" defined."));
|
|
return 0;
|
|
}
|
|
|
|
/* First check if param string begins with word 'not' */
|
|
if (!_tcsnicmp (param, _T("not"), 3) && _istspace (*(param + 3)))
|
|
{
|
|
x_flag = X_EXEC; /* Remember 'NOT' */
|
|
param += 3; /* Step over 'NOT' */
|
|
while (_istspace (*param)) /* And subsequent spaces */
|
|
param++;
|
|
}
|
|
|
|
/* Check for 'exist' form */
|
|
if (!_tcsnicmp (param, _T("exist"), 5) && _istspace (*(param + 5)))
|
|
{
|
|
param += 5;
|
|
while (_istspace (*param))
|
|
param++;
|
|
|
|
pp = param;
|
|
while (*pp && !_istspace (*pp))
|
|
pp++;
|
|
|
|
if (*pp)
|
|
{
|
|
WIN32_FIND_DATA f;
|
|
HANDLE hFind;
|
|
|
|
*pp++ = _T('\0');
|
|
hFind = FindFirstFile (param, &f);
|
|
x_flag ^= (hFind == INVALID_HANDLE_VALUE) ? 0 : X_EXEC;
|
|
if (hFind != INVALID_HANDLE_VALUE)
|
|
{
|
|
FindClose (hFind);
|
|
}
|
|
}
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
/* Check for 'defined' form */
|
|
else if (!_tcsnicmp (param, _T("defined"), 7) && _istspace (*(param + 7)))
|
|
{
|
|
TCHAR Value [1];
|
|
INT ValueSize = 0;
|
|
|
|
param += 7;
|
|
/* IF [NOT] DEFINED var COMMAND */
|
|
/* ^ */
|
|
while (_istspace (*param))
|
|
param++;
|
|
/* IF [NOT] DEFINED var COMMAND */
|
|
/* ^ */
|
|
pp = param;
|
|
while (*pp && !_istspace (*pp))
|
|
pp++;
|
|
/* IF [NOT] DEFINED var COMMAND */
|
|
/* ^ */
|
|
if (*pp)
|
|
{
|
|
*pp++ = _T('\0');
|
|
ValueSize = GetEnvironmentVariable(param, Value, sizeof Value);
|
|
x_flag ^= (0 == ValueSize)
|
|
? 0
|
|
: X_EXEC;
|
|
x_flag |= X_EMPTY;
|
|
}
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
/* Check for 'errorlevel' form */
|
|
else if (!_tcsnicmp (param, _T("errorlevel"), 10) && _istspace (*(param + 10)))
|
|
{
|
|
INT n = 0;
|
|
|
|
pp = param + 10;
|
|
while (_istspace (*pp))
|
|
pp++;
|
|
|
|
while (_istdigit (*pp))
|
|
n = n * 10 + (*pp++ - _T('0'));
|
|
|
|
x_flag ^= (nErrorLevel < n) ? 0 : X_EXEC;
|
|
|
|
x_flag |= X_EMPTY; /* Syntax error if comd empty */
|
|
}
|
|
|
|
/* Check that '==' is present, syntax error if not */
|
|
else if (NULL == (pp = _tcsstr (param, _T("=="))))
|
|
{
|
|
error_syntax (NULL);
|
|
return 1;
|
|
}
|
|
|
|
else
|
|
{
|
|
/* Change first '='to space to terminate comparison loop */
|
|
|
|
*pp = _T(' '); /* Need a space to terminate comparison loop */
|
|
pp += 2; /* over '==' */
|
|
while (_istspace (*pp)) /* Skip subsequent spaces */
|
|
pp++;
|
|
|
|
_tcscat (pp, _T(" ")); /* Add one space to ensure comparison ends */
|
|
|
|
while (*param == *pp) /* Comparison loop */
|
|
{
|
|
if (_istspace (*param)) /* Terminates on space */
|
|
break;
|
|
|
|
param++, pp++;
|
|
}
|
|
|
|
if (x_flag ^= (*param != *pp) ? 0 : X_EXEC)
|
|
{
|
|
while (*pp && !_istspace (*pp)) /* Find first space, */
|
|
pp++;
|
|
|
|
x_flag |= X_EMPTY;
|
|
}
|
|
}
|
|
|
|
if (x_flag & X_EMPTY)
|
|
{
|
|
while (_istspace (*pp)) /* Then skip spaces */
|
|
pp++;
|
|
|
|
if (*pp == _T('\0')) /* If nothing left then syntax err */
|
|
{
|
|
error_syntax (NULL);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
if (x_flag & X_EXEC)
|
|
{
|
|
ParseCommandLine (pp);
|
|
}
|
|
|
|
return 0;
|
|
}
|