/*****************************************************************************
	ExeCtC()
	This function executes a control-C command.
*****************************************************************************/
#include "zport.h"		/* define portability identifiers */
#include "tecoc.h"		/* define general identifiers */
#include "defext.h"		/* define external global variables */
#include "dchars.h"		/* define identifiers for characters */
DEFAULT ExeCtC()		/* execute an control-C command */
{
	DBGFEN(1,"ExeCtC",NULL);
	if ((CBfPtr < CStEnd) && (*(CBfPtr+1) == CTRL_C)) { /* if it's ^C^C */
		TAbort(EXIT_SUCCESS);
	}
	CmdMod = '\0';			/* clear modifiers flags */
	EStTop = EStBot;		/* clear expression stack */
	DBGFEX(1,DbgFNm,"FAILURE");
	return FAILURE;
}