[turner] 18262: Add errorlevel for set /A

Add errorlevel for set /A
Modified: trunk/reactos/subsys/system/cmd/set.c
  _____

Modified: trunk/reactos/subsys/system/cmd/set.c
--- trunk/reactos/subsys/system/cmd/set.c	2005-10-04 13:43:15 UTC
(rev 18261)
+++ trunk/reactos/subsys/system/cmd/set.c	2005-10-04 13:45:19 UTC
(rev 18262)
@@ -69,7 +69,7 @@

/* remove escapes */
    if ( param[0] ) for ( i = 0; param[i+1]; i++ )
    {
-		if ( param[i] == '^' )
+		if ( param[i] == _T('^') )
    	{
    		memmove ( &param[i], &param[i+1],
_tcslen(&param[i]) * sizeof(TCHAR) );
    	}
@@ -105,8 +105,14 @@
    /* the /A does *NOT* have to be followed by a whitespace */
    if ( !_tcsnicmp (param, _T("/A"), 2) )
    {
+		BOOL Success = seta_eval ( skip_ws(param+2) );
+		if(!Success)
+		{
+			/*might seem random but this is what windows xp
does */
+			nErrorLevel = 9165;
+		}
    	/* TODO FIXME - what are we supposed to return? */
-		return seta_eval ( skip_ws(param+2) );
+		return Success;
    }

p = _tcschr (param, _T('='));