24 lines
853 B
C
24 lines
853 B
C
|
/*****************************************************************************
|
||
|
ExeCtP()
|
||
|
This function executes a ^P (control-P or caret-P) command. ^P
|
||
|
is not a TECO command and is used to set TECO-C debugging parameters. For
|
||
|
more information on the debugging routines, see the DEBUGGING lines in
|
||
|
Tecoc.c.
|
||
|
*****************************************************************************/
|
||
|
#include "zport.h" /* define portability identifiers */
|
||
|
#include "tecoc.h" /* define general identifiers */
|
||
|
#include "defext.h" /* define external global variables */
|
||
|
DEFAULT ExeCtP() /* execute a ^P (control-P) command */
|
||
|
{
|
||
|
#if DEBUGGING
|
||
|
if (DbgDsp() == FAILURE) {
|
||
|
return FAILURE;
|
||
|
}
|
||
|
EStTop = EStBot; /* clear expression stack */
|
||
|
CmdMod = '\0'; /* clear modifiers flags */
|
||
|
return SUCCESS;
|
||
|
#else
|
||
|
return (ExeIll ()); /* Illegal command */
|
||
|
#endif
|
||
|
}
|