/*****************************************************************************

	SkpDar()

	This function is called by SkpCmd to skip a command which has two
text arguments (e.g. FStext1$text2$).

*****************************************************************************/

#include "ZPort.h"		/* define portability identifiers */
#include "DefTeco.h"		/* define general identifiers */
#include "DefChars.h"		/* define identifiers for characters */

extern	DEFAULT	FindES();	/* find end of string */

EXTERN	char	*CBfPtr;	/* command buffer pointer */
EXTERN	BYTE	CmdMod;		/* command modifiers flags for @, :, etc. */
EXTERN	BOOLEAN	TraceM;		/* trace mode flag */


DEFAULT SkpDAr()		/* skip "double text argument" command */
{
	LOCAL BOOLEAN TTrace;			/* saves TraceM temporarily */

	TTrace = TraceM;			/* save trace mode flag */
	TraceM = NO;				/* keep FindES from tracing */
	if (FindES(ESCAPE) == FAILURE)
		{
		TraceM = TTrace;		/* restore trace mode flag */
		return(FAILURE);
		}
	if (CmdMod & ATSIGN)			/* if at-sign modified */
		--CBfPtr;
	if (FindES(ESCAPE) == FAILURE)
		{
		TraceM = TTrace;		/* restore trace mode flag */
		return(FAILURE);
		}
	TraceM = TTrace;			/* restore trace mode flag */
	return(SUCCESS);
}