18 lines
743 B
C
18 lines
743 B
C
/*****************************************************************************
|
|
ExeCtN()
|
|
This function executes a ^N (control-N or caret-N) command.
|
|
^N <CTRL/N> (caret/N) is the end of file flag. It is
|
|
equivalent to -1 if the file open on the currently
|
|
selected input stream is at end of file, and zero
|
|
otherwise.
|
|
*****************************************************************************/
|
|
#include "zport.h" /* define portability identifiers */
|
|
#include "tecoc.h" /* define general identifiers */
|
|
#include "defext.h" /* define external global variables */
|
|
DEFAULT ExeCtN() /* execute a ^N (control-N) command */
|
|
{
|
|
DBGFEN(1,"ExeCtN",NULL);
|
|
DBGFEX(1,DbgFNm,"PushEx()");
|
|
return PushEx((IsEofI[CurInp] ? -1L : 0L), OPERAND);
|
|
}
|