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

	ExeCtN()

	This function executes a control-N command.

	Control-N is the end-of-file flag.  It has the value -1 if the
current input file is at end-of-file,  otherwise it has the value 0.

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

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

EXTERN	DEFAULT	CurInp;		/* index of current input stream in IFiles */
EXTERN	BOOLEAN	IsEofI[];	/* end-of-file indicators */

extern	DEFAULT	PushEx();	/* push onto expression stack */


DEFAULT ExeCtN()		/* execute a ^N (control-N) command */
{
#if DEBUGGING
DbgInd+=2;if(DbgLvl>=1){DbgMsg();
DbgDBf("ExeED: called. Returning PushEx().\015\012");
DbgROf();}DbgInd-=2;
#endif
	return(PushEx((IsEofI[CurInp] ? -1 : 0), OPERAND));
}