[royce] 17938: hack fix to pass % to set/a unmolested

hack fix to pass % to set/a unmolested
Modified: trunk/reactos/subsys/system/cmd/cmd.c
  _____

Modified: trunk/reactos/subsys/system/cmd/cmd.c
--- trunk/reactos/subsys/system/cmd/cmd.c	2005-09-19 22:00:01 UTC
(rev 17937)
+++ trunk/reactos/subsys/system/cmd/cmd.c	2005-09-19 23:00:25 UTC
(rev 17938)
@@ -1075,9 +1075,10 @@

LPTSTR tp = NULL;
    LPTSTR ip;
    LPTSTR cp;
+	LPCTSTR tmp;
    BOOL bEchoThisLine;
+	BOOL bSubstitute;

-
    do
    {
    	/* if no batch input then... */
@@ -1091,10 +1092,15 @@
    		bEchoThisLine = FALSE;
    	}

+		/* skip leading blanks */
+		while ( _istspace(*ip) )
+			++ip;
+
    	cp = commandline;
+		bSubstitute = TRUE;
    	while (*ip)
    	{
-			if (*ip == _T('%'))
+			if (bSubstitute && *ip == _T('%'))
    		{
    			switch (*++ip)
    			{
@@ -1259,6 +1265,71 @@
    		if (_istcntrl (*ip))
    			*ip = _T(' ');
    		*cp++ = *ip++;
+
+			/* HACK HACK HACK check whether bSubstitute
needs to be toggled */
+			*cp = 0;
+			tmp = commandline;
+			tmp += _tcsspn(tmp,_T(" \t"));
+			/* first we find and skip and
pre-redirections... */
+			while ( _tcschr(_T("<>"),*tmp)
+				|| !_tcsncmp(tmp,_T("1>"),2)
+				|| !_tcsncmp(tmp,_T("2>"),2) )
+			{
+				if ( _istdigit(*tmp) )
+					tmp += 2;
+				else
+					tmp++;
+				tmp += _tcsspn(tmp,_T(" \t"));
+				if ( *tmp == _T('"') )
+				{
+					tmp = _tcschr(tmp+1,_T('"'));
+					if ( tmp )
+						++tmp;
+				}
+				else
+					tmp = _tcspbrk(tmp,_T(" \t"));
+				tmp += _tcsspn(tmp,_T(" \t"));
+			}
+			/* we should now be pointing to the actual
command
+			 * (if there is one yet)*/
+			if ( tmp )
+			{
+				/* if we're currently substituting (
which is default )
+				 * check to see if we've parsed out a
set/a. if so, we
+				 * need to disable substitution until we
come across a
+				 * redirection */
+				if ( bSubstitute )
+				{
+					/* look for set /a */
+					if ( !_tcsnicmp(tmp,_T("set"),3)
)
+					{
+						tmp += 3;
+						tmp += _tcsspn(tmp,_T("
\t"));
+						if (
!_tcsnicmp(tmp,_T("/a"),2) )
+							bSubstitute =
FALSE;
+					}
+				}
+				/* if we're not currently substituting,
it means we're
+				 * already inside a set /a. now we need
to look for
+				 * a redirection in order to turn
redirection back on */
+				else
+				{
+					/* look for redirector of some
kind after the command */
+					while ( (tmp = _tcspbrk ( tmp,
_T("^<>|") )) )
+					{
+						if ( *tmp == _T('^') )
+						{
+							if (
_tcschr(_T("<>|&"), *++tmp ) )
+								++tmp;
+						}
+						else
+						{
+							bSubstitute =
TRUE;
+							break;
+						}
+					}
+				}
+			}
    	}

*cp = _T('\0');
@@ -1385,8 +1456,8 @@
    GetVersionEx (&osvi);

/* Some people like to run ReactOS cmd.exe on Win98, it helps in
the
-           build process. So don't link implicitly against ntdll.dll,
load it
-           dynamically instead */
+	 * build process. So don't link implicitly against ntdll.dll,
load it
+	 * dynamically instead */

if (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT)
    {