goto.c

ReactOS是一些高手根据Windows XP的内核编写出的类XP。内核实现机理和API函数调用几乎相同。甚至可以兼容XP的程序。喜欢研究系统内核的人可以看一看。

/*
 *  GOTO.C - goto 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 <[e-mail]>)
 *        added config.h include
 *
 *    28 Jul 1998 (Hans B Pufal) [HBP_003]
 *        Terminate label on first space character, use only first 8 chars of
 *        label string
 *
 *    24-Jan-1999 (Eric Kohl)
 *        Unicode and redirection safe!
 *
 *    27-Jan-1999 (Eric Kohl)
 *        Added help text ("/?").
 *
 *    28-Apr-2005 (Magnus Olsen) <[e-mail]>)
 *        Remove all hardcode string to En.rc
 */

#include <precomp.h>


/*
 * Perform GOTO command.
 *
 * Only valid if batch file current.
 *
 */

INT cmd_goto (LPTSTR cmd, LPTSTR param)
{
	TCHAR szMsg[RC_STRING_MAX_SIZE];
	LPTSTR tmp;
	LONG   lNewPosHigh;

#ifdef _DEBUG
	DebugPrintf (_T("cmd_goto (\'%s\', \'%s\'\n"), cmd, param);
#endif

	if (!_tcsncmp (param, _T("/?"), 2))
	{		
		ConOutResPaging(TRUE,STRING_GOTO_HELP1);
		return 0;
	}

	/* if not in batch -- error!! */
	if (bc == NULL)
	{
		return 1;
	}

	if (*param == _T('\0'))
	{
		LoadString(CMD_ModuleHandle, STRING_GOTO_ERROR1, szMsg, RC_STRING_MAX_SIZE);
		ExitBatch(szMsg);
		return 1;
	}

	/* terminate label at first space char */
	tmp = param+1;
  while (!_istcntrl (*tmp) && !_istspace (*tmp) &&  (*tmp != _T(':')))  
  tmp++;
	*(tmp) = _T('\0');
     
	/* set file pointer to the beginning of the batch file */
	lNewPosHigh = 0;
	   
  /* jump to end of the file */
  if ( _tcsicmp( param, _T(":eof"))==0) 
  {      
    SetFilePointer (bc->hBatchFile, 0, &lNewPosHigh, FILE_END);
    return 0;
  } 

  /* jump to begin of the file */
  SetFilePointer (bc->hBatchFile, 0, &lNewPosHigh, FILE_BEGIN);

	while (FileGetString (bc->hBatchFile, textline, sizeof(textline) / sizeof(textline[0])))
	{
     int pos;
     int size;     

		/* Strip out any trailing spaces or control chars */
		tmp = textline + _tcslen (textline) - 1;
		
    
    while (_istcntrl (*tmp) || _istspace (*tmp) ||  (*tmp == _T(':')))
			tmp--;
		*(tmp + 1) = _T('\0');
                
		/* Then leading spaces... */
		tmp = textline;   
		while (_istspace (*tmp))
			tmp++;

    /* All space after leading space terminate the string */
    size = _tcslen(tmp) -1;
    pos=0;
    while (tmp+pos < tmp+size)
    {
     if (_istspace(tmp[pos])) 
         tmp[pos]=_T('\0');
     pos++;
    }          
           
		/* use whole label name */
		if ((*tmp == _T(':')) && (_tcsicmp (++tmp, param) == 0))
			return 0;
	}
  
	LoadString(CMD_ModuleHandle, STRING_GOTO_ERROR2, szMsg, RC_STRING_MAX_SIZE);
	ConErrPrintf(szMsg, param);
	ExitBatch(NULL);
	return 1;
}

/* EOF */