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 ( ¶m[i], ¶m[i+1],
_tcslen(¶m[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('='));